＠パーティⅡソース開発wiki

連絡路

2009-12-09T16:13:59+09:00

ここでは・・・・・・とにかく連絡路です！！ - 名前はﾊﾞﾄ魔さんとこの名前でお願いします。荒らしはしないでください。 -- モナー (2009-11-08 21:05:20) - うむぅｗわかりやすいね＾＾ありがとう -- バトル魔獣 (2009-11-08 21:07:51) - この調子でどんどん書いていきたいと思います。 -- モナー (2009-11-09 13:22:46) - んとさ、連絡路の下にある　うんこ　って何？ -- バトル魔獣 (2009-11-10 20:28:16) - トップページ見ました＾＾良いと思いますぜｗ -- もげら (2009-11-10 20:55:24) - TOPみましたよ☆いいですね。僕の＠ｐの鯖ならもう一つ高負荷CGIの設置が可能なので、たぶん許可が出ると思いますが・・・ -- バトル魔獣 (2009-11-10 23:55:55) - あﾞ・・・でも、そうするとみんなにPASSを教えると大変だな・・・ってことで、新鯖でも使いますか？ｵｽｽﾒは＠pagesです。 -- バトル魔獣 (2009-11-11 00:02:03) - ご協力ありがとうございます＞＜私も@pagesつかってます。 -- モナー (2009-11-11 16:17:00) - 新鯖取っときましたぁ行動時間変更しかしてない状態です。 -- モナー (2009-11-11 16:17:46) - そうですか～ｗ乙です～ -- バトル魔獣 (2009-11-11 18:24:41) - 一回全部キャラデータ消しちゃって、基本職業をなくして、適当に職業入れて、もう一回登録おｋにすれば・・・ｗ -- バトル魔獣 (2009-11-14 00:08:51) - ↑のとおりにしますたぁ -- モナー (2009-11-14 20:58:33) - 了解ｗ種族+属性導入乙です。　できれば僕の＠ｐの方にも入れてもらいたい。（黙 -- バトル魔獣 (2009-11-15 00:17:29) - とりあえず来てみました。お手伝いできることがありましたら言って下さい。では -- エナジー (2009-11-16 17:59:36) - やっと見つけたw　うんｗいいと思うｗ -- ？？？？ (2009-12-09 16:13:59) #comment

トップページ

2009-11-10T23:56:53+09:00

ﾊﾞﾄ魔さんとこの＠パってほんとおもしろいですよね -[[ﾊﾞﾄ魔さん＠パ>http://battle-manitou-kedamono.kuronowish.com/party2/index.cgi]] **思ったことせっかくソースを作ったのに実装しないと意味ないですよね。ということでここにある技しか登場しない新鮮な＠ｐ（まぁテスト環境として使ってもいいけど・・）でも作りませんか？完全に完成してからしか一般の人に公開＠ｐです。意見を連絡路にてお願いします。　 **お知らせ ***今やっていること -経験地お金のほかにスライムポイントを追加予定([[スライムポイントとは>スライムポイントとは]])

スライムポイントとは

2009-11-09T13:31:50+09:00

スライムポイントとはモナーが独自に開発したポイントです。スライムポイント変換所でレアアイテムと変換できたり、換金できたらいいなぁと思っています。

モナーの作成後記1

2009-11-09T13:21:56+09:00

**挨拶え～この@wikiの存在意義を失いつつ（泣）どうしても暇なのでソースの作成後記を書きとめておくことにしました。作成といってももとのソースを元にして数字などを変えるだけですが＾＾；ということで・・・ **第一回さて！第一回はテンション上げていきましょう！ということで”北斗百裂拳”！！を作りたいと（パクリでゴメン）思います。まず元にするスキルを探します。今回はちょうきゅうぶしんはざんにします。　　ちょうきゅうぶしんはざんのソースはこんな感じです。 [160, 40, 'ちょうきゅうぶしんはざん', sub{ for my $i (1..4) { last if $ms{$m}{hp} <= 0; &_damage(undef, $ms{$m}{at}, '攻'); };}], 　　これを百裂拳なのでこんな感じに [160, 40, '北斗百裂拳', sub{ for my $i (70..100) { last if $ms{$m}{hp} <= 0; &_damage(undef, $ms{$m}{at}, '攻'); };}], どこをいじったかというと、　sub{ for my $1 の後の括弧の中の数字です。..は～（例70...100の場合70～100）という意味ですまぁこれだけだと雰囲気でないので言葉をしゃべらせたいと思います。そして完成したのがこれです。 [160, 40, '北斗百裂拳', sub{ for my $i (70..100) { last if $ms{$m}{hp} <= 0; &_damage(undef, $ms{$m}{at}, '攻'); };{ $com .= qq|お前はもう・・死んでいる・・・|; };}], となります。はい、いつものことながら動作テストをして暗転しなかったらおｋです。第一回が無事に終わり嬉しいです。これから第二回、第三回・・・と続けていくつもりです。　それではまたいつか～

メニュー

2009-11-09T09:48:44+09:00

**メニュー -[[トップページ>トップページ]] メンバーの方々のソース -[[もげら様のソース>もげら様のソース]] -[[月光闇様のソース>月光様のソース]] -[[？？？？様のソース>？？？？様のソース]] -[[俺様のソース>俺様のソース]] モナーの作成後記 -[[モナーの作成後記1>モナーの作成後記1]] 感想など -[[連絡路>連絡路]] [[うんこ>あははっは]]

あははっは

2009-11-09T09:47:48+09:00

#========================================================= # デスゾーンの展開 # 毎日昼３時0分0秒～３時０分59秒の間に更新が起きた場合に発生 #========================================================= $times = time(); ($sec,$min,$hour,$mday,$month,$year,$wday,$stime) = localtime($times); if ($hour == 15 && $min == 0) { &make_vs_king1; $npc_com .= "***@デスゾーン@への扉が開いています***"; } sub make_vs_king1 { opendir my $dh, $stagedir or &error("$stagedirディレクトリが開けません"); while (my $file_name = readdir $dh) { next if $file_name =~ /^\./; next if $file_name !~ /^_king_t/; my($k_stage) = ($file_name =~ /^(.+)\.cgi$/); require "$stagedir/$file_name"; my $quest_id = unpack 'H*', $k{p_name}; next if -d "$questdir/$quest_id"; # 同じクエスト名があった場合は作らない(作れない) $k{p_join}++; # ボスが1人分占有しているため my $boss_name = '@'.$k{p_leader}; # 新規パーティー作成 mkdir "$questdir/$quest_id" or &error("$questdir/$quest_idディレクトリが作成できません"); open my $fh, "> $questdir/$quest_id/member.cgi" or &error("$questdir/$quest_id/member.cgiファイルが作成できません"); print $fh "$k{speed}<>_king_t_1<>1<>$boss_name<>$k{p_name}<><>$k{p_join}<>0<>0<>1<>$k{need_join}<>6<><>0<>0<><>\n"; my @lines = (); for my $no (0 .. $#bosses) { my %p = (); # 初期データセット(読み込んだデータにすでに値がある場合はそっちを優先) $bosses[$no]{tmp} ||= ''; $bosses[$no]{state} ||= ''; $bosses[$no]{hit} ||= 95; $bosses[$no]{ten} ||= 1; $bosses[$no]{name} = '@'.$bosses[$no]{name}; $bosses[$no]{color} = $npc_color; for my $k (qw/hp mp at df ag/) { $bosses[$no]{$k} = $bosses[$no]{$k}; $bosses[$no]{'m'.$k} ||= $bosses[$no]{$k}; } my $line = ''; for my $k (@battle_datas) { $line .= defined $bosses[$no]{$k} ? "$bosses[$no]{$k}<>" : "0<>"; } push @lines, "$line\n"; } print $fh @lines; close $fh; chmod $chmod, "$questdir/$quest_id/member.cgi"; open my $fh2, "> $questdir/$quest_id/log.cgi" or &error("$questdir/$quest_id/log.cgiファイルが作成できません"); close $fh2; chmod $chmod, "$questdir/$quest_id/log.cgi"; } closedir $dh; }

もげら様のソース

2009-11-09T09:45:33+09:00

|技のソース|具体的な効果|

？？？？様のソース

2009-11-09T09:45:06+09:00

|技のソース|具体的な効果|

月光様のソース

2009-11-09T09:44:44+09:00

|技のソース|具体的な効果|

俺様のソース

2009-11-09T09:44:11+09:00

|技のソース|具体的な効果| |[0, 0, 'モナーの導き',sub{ if ($m{lib} eq 'vs_monster') { $round = 10; $com.="くんかくんか宝物庫はこっちだな！";} else { $mes="しらねーよ"; }; }],|いきなり10階へ|