約 630,080 件

• ＠アナログ説明書 - スクリプト

  https://w.atwiki.jp/seiryuu3/pages/55.html

  スクリプト 一部のスクリプトをここにすこぉぉぉぉぉしずつふやしていくつもりです 注意 my($○○○, $△△△) = split /＠□□□ /, $target; の□□□ の を『&gt&#059;』に打ち直してください New!!オークション可 オークション会場 ブログパーツを表示させる方法(＠Pages) 虎三角さんの『家で販売システム』で販売禁止アイテムを設定する 天界での『＠ねがう』のシークレットを使えるようにする方法 アイテムの一斉送信 ブログパーツを表示させる方法(＠Pages) config.cgiを開く # 設置Path(/index.cgiを除いたhttp //～のURL)ブログパーツ用リンク $game_path = http //サーバー/自分のID/party2 ; にあわせて書き換える 次にconfig.cgiと同じフォルダーのその他のcgi拡張子を開く #!/usr/local/bin/perl となっているものをすべて #!/usr/bin/perl に書き換える 虎三角さんの『家で販売システム』で販売禁止アイテムを設定する ※虎三角さんの自宅販売システムを使っている方のみです _town.cgiを開く #================================================= # 町共通処理 Created by Merino #================================================= これの下に # 販売禁止アイテム(例＞ wea = [1,2,3,4,5],) %taboo_items = ( wea = [], # 武器 arm = [], # 防具 ite = [], # 道具 ); をいれる ＠ならべるの処理を以下に書き換える sub list_up { my $target = shift; my($target1, $price) = split /＠かかく /, $target; if($target1){ if ($price =~ /^([0-9]+)\x20?G?$/) { if ($price 0) { $mes = "価格は最低でも 0 G以上です"; return; } if ($price 10000000) { $mes = "価格は最高 9999999 G以下です"; return; } }else{ $mes = "何らかのエラー"; return; } } $price = sprintf "%d", $price; if( is_build_house){#家を持っていたら unless ($target1) { $mes .= qq| br / |; open my $fh, " $userdir/$id/depot.cgi" or error("$userdir/$id/depot.cgiファイルが開けません"); eval { flock $fh, 2; }; while (my $line = $fh ) { my($kind, $no) = split / /, $line; if ($kind eq 1 ) { $p .= qq| span onclick="text_set( ＠ならべる $weas[$no][1]＠かかく )" $weas[$no][1] /span / |; } elsif ($kind eq 2 ) { $p .= qq| span onclick="text_set( ＠ならべる $arms[$no][1]＠かかく )" $arms[$no][1] /span / |; } elsif ($kind eq 3 ) { $p .= qq| span onclick="text_set( ＠ならべる $ites[$no][1]＠かかく )" $ites[$no][1] /span / |; } elsif ($kind eq 4 ) { $p .= qq| span onclick="text_set( ＠ならべる $eggs[$no][1]＠かかく )" $eggs[$no][1] /span / |; } elsif ($kind eq 5 ) { $p .= qq| span onclick="text_set( ＠ならべる $anis[$no][1]＠かかく )" $anis[$no][1] /span / |; } } close $fh; $mes = qq|どれをならべますか？ br / $p|; return; } #持ち物開く open my $fh, " $userdir/$id/depot.cgi" or error("$userdir/$id/depot.cgiファイルが開けません"); eval { flock $fh, 2; }; while (my $line = $fh ) { my($kind, $no) = split / /, $line; #選んだ品物と一致したら（自分の持ち物にアイテムがあったら） if($switch ==0 (($kind == 1 $weas[$no][1] eq $target1 ) or ($kind == 2 $arms[$no][1] eq $target1) or ($kind == 3 $ites[$no][1] eq $target1) or ($kind == 4 $eggs[$no][1] eq $target1) or ($kind == 5 $anis[$no][1] eq $target1))){ ここに↓を追加する #販売禁止アイテムの処理 for my $taboo_item (@{ $taboo_items{wea} }) { if ($weas[$taboo_item][1] eq $weas[$no][1]) { $mes = "$weas[$no][1]は販売できません"; return; } } for my $taboo_item (@{ $taboo_items{arm} }) { if ($arms[$taboo_item][1] eq $arms[$no][1]) { $mes = "$arms[$no][1]は販売できません"; return; } } for my $taboo_item (@{ $taboo_items{ite} }) { if ($ites[$taboo_item][1] eq $ites[$no][1]) { $mes = "$ites[$no][1]は販売できません"; return; } } ここまで #自分の店の品物開く open my $fh3, " $userdir/$id/depot_s.cgi" or error("$userdir/$id/depot_s.cgiファイルが開けません"); eval { flock $fh3, 2; }; $count_ie = 0; while (my $match = $fh3 ) { $count_ie ++ ; my($kind2, $no2, $price2) = split / /, $match; if($kind == $kind2 $no == $no2 ){ $switch2 = 1;##同じ品物が店にあった } if($count_ie = 30){ ##品物上限決定！ $switch2 = 2; } } close $fh3; if($switch2 == 0){ open my $fh2, " $userdir/$id/depot_s.cgi" or error ("$userdir/$id/depot_s.cgiファイルが開けません"); eval { flock $fh2, 2; }; print $fh2 "$kind $no $price\n"; close $fh2; $switch = 1;#一個だけ移動 $mes = qq|お店に並べました。 br / $p|; } elsif($switch2 == 1){ $mes = qq|同じ品物は並べられません！残念！ br / $p|; push @NEW_line ,$line; } else{ $mes = qq|棚がいっぱいでした！残念！ br / $p|; push @NEW_line ,$line; } } else{ push @NEW_line ,$line; } } close $fh; open my $fh, " $userdir/$id/depot.cgi" or error("$userdir/$id/depot.cgiファイルが開けません"); eval { flock $fh, 2; }; print $fh @NEW_line; close $fh; } } 天界での『＠ねがう』のシークレットを使えるようにする方法 god.cgiを開く #================================================= # ＠ねがう #================================================= sub negau { my $target = shift; my $p = qq| table class="table1" |; for my $i (0 .. $#prizes-1) { if ($prizes[$i][0] eq $target) { { $prizes[$i][2] }; return if $mes; $npc_com = "ふむ。$mの願いは「$prizes[$i][0]」だな。 br / $mの願いを叶えたぞ…。機会があればまたあえるだろう…。さらばだ…"; $m{lib} = home ; write_memory("$mの願い『$prizes[$i][0]』を叶えてもらう"); return; } の下に elsif ($prizes[$#prizes][0] eq $target) { { $prizes[$#prizes][2] }; return if $mes; $npc_com = "ふむ。$mの願いは「$prizes[$#prizes][0]」だな。 br / $mの願いを叶えたぞ…。機会があればまたあえるだろう…。さらばだ…"; $m{lib} = home ; write_memory("$mの願い『$prizes[$#prizes][0]』を叶えてもらう"); return; } を付け足す アイテムの一斉送信 これを使えばアイテムの一斉送信できます 管理人専用に作ったのでなるべく他のプレイヤーに使わせないでください まず、これを入れたいcgi拡張子を開く ↓禁止アイテムの設定 %taboo_items = ( wea = [], # 武器 arm = [], # 防具 ite = [], # 道具 ); と、それから push @actions, いっせいにおくる ,; $actions{ いっせいにおくる } = sub{ issei_okuru }; を入れる 次に↓を入れる sub issei_okuru{ my $target = shift; opendir my $dh, $userdir or error("$userdirディレクトリが開けません"); while (my $dir_name = readdir $dh) { next if $dir_name =~ /\./; my %p = get_you_datas($dir_name, 1); #if ($m{job_lv} 1) { #$mes = "未転職の方は、送ることはできません。"; #return; #} if ($p{name} $target) { if ($target =~ /^([0-9]+)\x20?G?$/) { my $send_money = int($1); if ($send_money $m{money}) { $mes = "そんなにお金をもっていません"; return; } elsif ($send_money = 0) { $mes = "送金は最低でも 1 G以上です"; return; } send_money($p{name}, $send_money, "管理人からの送金"); $okutta = $send_money; $okutta .= G; } elsif ($m{wea} $weas[$m{wea}][1] eq $target) { for my $taboo_item (@{ $taboo_items{wea} }) { if ($weas[$taboo_item][1] eq $weas[$m{wea}][1]) { $mes = "$weas[$m{wea}][1]は送ることができません"; return; } } $okutta = $weas[$m{wea}][1]; send_item($p{name}, 1, $m{wea}, "管理人"); } elsif ($m{arm} $arms[$m{arm}][1] eq $target) { for my $taboo_item (@{ $taboo_items{arm} }) { if ($arms[$taboo_item][1] eq $arms[$m{arm}][1]) { $mes = "$arms[$m{arm}][1]は送ることができません"; return; } } $okutta = $arms[$m{arm}][1]; send_item($p{name}, 2, $m{arm}, "管理人"); } elsif ($m{ite} $ites[$m{ite}][1] eq $target) { for my $taboo_item (@{ $taboo_items{ite} }) { if ($ites[$taboo_item][1] eq $ites[$m{ite}][1]) { $mes = "$ites[$m{ite}][1]は送ることができません"; return; } } $okutta = $ites[$m{ite}][1]; send_item($p{name}, 3, $m{ite}, "管理人"); } get_depot_c; } } closedir $dh; if ($target) { $npc_com = "$okuttaを全員に送りました"; $m{money} -= $send_money if $send_money; $m{wea} = 0 if $target eq $weas[$m{wea}][1]; $m{arm} = 0 if $target eq $arms[$m{arm}][1]; $m{ite} = 0 if $target eq $ites[$m{ite}][1]; return; } $mes = qq|どれを送る？ br / $p|; $mes .= qq| span onclick="text_set( ＠いっせいにおくる $weas[$m{wea}][1] )" $weas[$m{wea}][1] /span / | if $m{wea}; $mes .= qq| span onclick="text_set( ＠いっせいにおくる $arms[$m{arm}][1] )" $arms[$m{arm}][1] /span / | if $m{arm}; $mes .= qq| span onclick="text_set( ＠いっせいにおくる $ites[$m{ite}][1] )" $ites[$m{ite}][1] /span / | if $m{ite}; $mes .= qq| span onclick="text_set( ＠いっせいにおくる $m{money}G )" $m{money}G /span / |; $act_time = 0; }

• パラボラの説明書 - メソッド

  https://w.atwiki.jp/baron/pages/15.html

  メソッドの定義 次のようにする def メソッド名(引数) 処理 return 返り値 end これをPerl風に書き直すと sub メソッド名(引数){ 処理 return 返り値 } である。defとsubが、def-endブロックが{}中ガッコに対応している

• ＠アナログ説明書 - 冒険の前に

  https://w.atwiki.jp/seiryuu3/pages/64.html

  冒険の前に 一応読んでおいてください Q 難易度システムとは？ A まず、難易度は『ふつう』『やさしい』『むずかしい』の3種類あります 『ふつう』はいつもの冒険と変わりません 『やさしい』は冒険で出てくるモンスターの能力が通常の半分になります ただし、倒したときに獲得できる経験値とお金も通常の半分です 『むずかしい』は冒険で出てくるモンスターの能力が通常の２倍になります ですが、倒したときに獲得できる経験値とお金も通常の２倍です Q 冒険でパーティーの宝箱の階に＠だいすがあるのはなぜ？ A 単純に宝箱の取り合いを防ぐためです 元々話し合って決めてたなら使う必要もないでしょう

• ＠アナログ説明書 - 特殊職業の店

  https://w.atwiki.jp/seiryuu3/pages/27.html

  特殊職業の店 ここでは敵だけが使っている技を使うためのスキルを習得するためのお店です お金とスキルポイントと前の職のスキルポイントがあればスキル習得可能です 習得したスキルはLVを上げて専用のSPを上げると使えるようになります ＠すきるをおぼえる スキルを選んで習得することができます

• ＠アナログ説明書 - 預かり所

  https://w.atwiki.jp/seiryuu3/pages/68.html

  預かり所 ここでアイテムの出し入れができます ＠うる うるアイテムの数を指定できます ＠ばっぐにいれる バッグに戦闘時に使用するアイテムをいれれます まだ＠あずけるでバッグの中身を預けることができます 戦闘で＠どうぐ2でアイテムを使用します

• パラボラの説明書 - 画像処理１

  https://w.atwiki.jp/baron/pages/34.html

  import java.io.*; import java.awt.*; import java.awt.event.*; import java.awt.image.*; import java.awt.geom.*; import javax.imageio.*; import javax.swing.*; public class AffineTest extends JPanel{ private double t = 0; private double dt = Math.toRadians(90); private BufferedImage img = null; public static void main(String[] args){ JFrame frame = new JFrame("アフィン変換テスト"); frame.getContentPane().add(new AffineTest()); frame.setDefaultCloseOperation(JFrame.EXIT_ON_CLOSE); frame.setSize(400,400); frame.setVisible(true); } public AffineTest(){ try{ File file = new File("test.jpg"); img = ImageIO.read(file); addMouseListener(new MyMouse()); }catch(Exception e){} } class MyMouse extends MouseAdapter{ public void mouseClicked(MouseEvent e){ t += dt; repaint(); } } public void update(Graphics g){paint(g);} public void paintComponent(Graphics g){ super.paintComponent(g); Graphics2D g2 = (Graphics2D)g; AffineTransform a = AffineTransform.getRotateInstance( t , 180 , 50 ); g2.setTransform(a); g2.drawImage(img , 10 , 40 , this); } }

• ＠アナログ説明書 - ＠まち

  https://w.atwiki.jp/seiryuu3/pages/58.html

  ＠まち 虎三角さんの家で販売システムを導入しました 注意事項：家を利用して倉庫代わりにすることを禁止します 注意しても続けるようであれば何らかの処置をいたします ＠ちぇっく 家の有効期限だけでなく家の販売物も見ることができます 以下の操作は家を建てないと意味がありません ＠ならべる 禁止アイテム以外のすべてのアイテムに値段をつけて販売することができます ＠もどす ならべた販売物をすべて戻します

• パラボラの説明書 - トップページ

  https://w.atwiki.jp/baron/

  趣旨 十字路街全HP及びWiki及びブログにおけるコンテンツに関したメモ書きです。 ちょっと思ったことなども書く可能性があります。今のところ準備中ということです。 Wikiは便利ですからそういった面を主に利用していけたらな。 ということです。やっぱりWikiは更新が物凄く便利ですからね。 基本的にHPのコンテンツにいくまでのメモレベルの記事です。 Javaネタ PHPネタ 以上の予定でこのWikiは使っていきます。 完全にメモ帳ですが後に十字路街のパラボラに繰り上げる予定です。

• ＠アナログ説明書 - 管理人の暇つぶし

  https://w.atwiki.jp/seiryuu3/pages/69.html

  管理人の暇つぶし まれに更新するかもしてません

• パラボラの説明書 - サーブレットNo1

  https://w.atwiki.jp/baron/pages/16.html

  サーブレットの基礎 import java.io.*; import javax.servlet.*; import javax.servlet.http.*; public class FundamentalServlet extends HttpServlet{ public void doGet(HttpServletRequest request HttpServletResponse response) throws HttpServletException,IOException{ サーブレット処理 } }