perl2exe forRO
■ このスレッドは過去ログ倉庫に格納されています
0002デフォルトの名無しさん
NGNGbeta2botrはコンパイル済みなので不可。
・教えてばかりではなく、自分も情報提供しましょう
・koreのセットアップの仕方などは聞かない、答えない
0003デフォルトの名無しさん
NGNG【常時sage進行】
0004デフォルトの名無しさん
NGNG0005デフォルトの名無しさん
NGNG>【特徴】範囲索敵で周りの敵を攻撃。
->その際攻撃は一発ずつしていく。
>【特徴】おなじみ珍ワープBOT・wis無視
>vit馬鹿溜め込み剣士を目指しているような惨状
>赤ミス連発与ダメほとんど武器に依存
>避けれず被ダメオール1
->珍即剣設定になっているが珍速が発動せず超鈍速剣になっている
矢印の所がkore特有の問題
・攻撃間隔が長すぎる
・アーチャーとマジシャンには向かない
*マジシャンは、事実上不可能
*アーチャーは、接近戦になってしまう
・反撃モードが無い
*アクティブがいる所 不可
*リンクするモンスターも不可
両方とも死んでしまう
0006デフォルトの名無しさん
NGNG【常時放置進行】
0007デフォルトの名無しさん
NGNG・攻撃時の鈍足剣。→→part4にて解決済み。ソース提示有り。tankとの両立は無理。
・アイテムを売ってくれなくなる。
理由:アイテムテーブルがリセットされないから。
アイテムの番号をリセットすればいいらしい。
・出力ログファイルに書き出し
・キャラの位置、敵の位置を取得?それを表示。もしくは外部プログラムにて点で表示
・未解析パケが多い。例 剣士のHP回復スキル マナーポイント
・たまにステータスがバグる。いろいろリセットする機能希望。アイテム売り問題と同系
0008デフォルトの名無しさん
NGNGperlをがんばって理解するより普通にプレイした方が楽だって
0009デフォルトの名無しさん
NGNG0010デフォルトの名無しさん
NGNG0011デフォルトの名無しさん
NGNG常時リセットじゃなくて、50%になったらリセット、もしくはコマンドでリセットするとか。
0012デフォルトの名無しさん
NGNGDat化待ちだし全然わからん。
0013デフォルトの名無しさん
NGNG0014デフォルトの名無しさん
NGNG0015デフォルトの名無しさん
NGNGstand命令を外して、敵に攻撃する時になったら立つという動作を入れてみようと思うのですが
発見時などに入れるとかなり比較する処理をすると思うのですがどうでしょう?
001615
NGNG0017デフォルトの名無しさん
NGNGBOTで狩りするとき、どこがオススメ?
漏れは
Lv10〜20 バッタ海岸 or モロク↑
Lv20〜40 下水地下2階
なんだが。
ってか改造の話だからこういう話題は駄目なんかね?
0018デフォルトの名無しさん
NGNGそういう話をするとそこにBOT集中するからダメと思われ。
ただでさえ
695 名前: 名も無き冒険者 投稿日:02/09/05 09:21 ID:4sygIVXE sage
irisクワガタ峠見ないうちBOT増えまくりでつか
そうでつか.・゜・(ノД`)・゜・.
ってなってるからな
0019デフォルトの名無しさん
NGNGスレ違い云々じゃなく
その質問=BOTerが集まる場所は?
ちなみに某所は独特の動きする奴が多いw
つうか、このスレ盛り上がらないなw
#一時的に攻撃ストップ atでストップ at kで再会
} elsif ($switch eq "at") {
($arg1) = $input =~ /^.*? (\w+)/;
if ($arg1 eq "") {
configModify("attackAuto", 0);
} elsif ($arg1 eq "k") {
configModify("attackAuto", 1);
}
0020デフォルトの名無しさん
NGNG17に質問なのだが(17以外が応えてもOK)
下水だとファーミリアが居るよな?
まあファーミリアに限らずなのだが
アクティブ&リンクモンスはどうしているのか?
自分の場合、怖いからアクティブの居るMAPには行かない。
リンクは攻撃しない。としてるのだが
もう皆さんは解決済みなのですか?(;´Д`)
それとも気にせずLet's Bot!なのか・・・?
かまわず掛るとリンクに何気に殺られるからどうしてるかおせーて。
漏れの場合、狩場は手動の場合とほぼ同じだが
アクティブ&リンクモンスを殺れないから効率悪げ。
っていうかやっぱりPerlは理解必須ですか・・・そうですか……(´・ω・`)
0021デフォルトの名無しさん
NGNG折れもそれ気になる。下水でβ1のときみたいに
コウモリでないところがあればいいんだけど(下水β2で逝ったことない)
折れはこんくらいレベルだがフィールド使ってる。
0022デフォルトの名無しさん
NGNGファミリアの攻撃がゴミになるまで行くな。
つうか狩場とかそういうのはやめろって。
β2開始直後クワガタうまいって書き込みのせいで
その夜からクワガタ混みまくりーになったの覚えてないのか?
0023デフォルトの名無しさん
NGNG発言だけlogに取ろうと思うのですが場所が見当も付きません。
0024デフォルトの名無しさん
NGNGhttp://skycgi.zero.ad.jp/~zbm78265/up/u_file120020905032628.zip
これってどうなんでしょ リンク切れてるけど…
0025デフォルトの名無しさん
NGNG0026デフォルトの名無しさん
NGNGリンクが切れてて全く意味が分かりません。
0027デフォルトの名無しさん
NGNG内容はBor2とproxy
Bor2はK-BOTをβ2デ使えるようにしたもの
proxyはパケtoolですただし…が必要
002827
NGNG0029デフォルトの名無しさん
NGNG0030デフォルトの名無しさん
NGNGマジシャン使えますよ〜
手抜きだけど…
・どのモンスターに対しても使う魔法レベル固定
・通常攻撃不可
+αで、SP10%以下になったら座ってSP90%になったら立つ<HPも可能
HP50%設定だとして
HP50%以下になったら座って50%超えるとモンスター攻撃
また座って50%まで回復…の繰り返し
0031デフォルトの名無しさん
NGNG- my $msg = pack("C*", 0x89, 0x00) . $monID . pack("C*", $flag);
+ my $msg = pack("C*", 0x13, 0x01, 0x04, 0x00, 0x13, 0x00).$monID;
ファイヤーボルトレベル4攻撃の場合
指定した%までHP回復
-|| ($ai_saveHash{'attackAuto_sit_reason'} eq "hp" && percent_hp(\%{$chars[$config{'char'}]}) >= $config{'attackAuto_sit'})
+|| ($ai_saveHash{'attackAuto_sit_reason'} eq "hp" && percent_hp(\%{$chars[$config{'char'}]}) >= $config{'attackAuto_sit_end'})
指定した%までSP回復
-|| ($ai_saveHash{'attackAuto_sit_reason'} eq "sp" && percent_sp(\%{$chars[$config{'char'}]}) >= $config{'sitAuto_sp'})) {
+|| ($ai_saveHash{'attackAuto_sit_reason'} eq "sp" && percent_sp(\%{$chars[$config{'char'}]}) >= $config{'sitAuto_sp_end'})) {
config.txtに
attackAuto_sit_endとsitAuto_sp_endを追加
0032デフォルトの名無しさん
NGNG使えるならあっちのほうがいいんだが…
なぜかkoreはずっと放置しとくと止まってくれちゃってることがあるらね…
0033デフォルトの名無しさん
NGNG0034デフォルトの名無しさん
NGNG選択式闇ポタの作り方キボンヌ。
闇ポタのやり方まではわかったんだが、
座標をプレイヤーにあわせるやり方がいまいち。
0035デフォルトの名無しさん
NGNGキャラの座標の取得方分かったら教えてやるよ。
0036デフォルトの名無しさん
NGNG安易な思い付きだが、PLで回りに居る奴を見つけて、
[SP (ポタの番号) (PLで見つけたプレイヤーの番号)]
でPLで見つけたプレイヤーにポタ発動とか出来んのかな?
今ちょっと試せないからできるかわからんのだけど。
あと質問で、PTMのHPがx%以下になったらヒール!
ってBOTは可能なのか?
PTMのHPを感知できるかが不明だからこれも無理かにゃぁ・・・
せめて、BOTに[h]と発言するだけで発言したキャラにヒールを掛ける。
とかが欲しい。毎回コンソールコマンドでやるのはつらいもじゃ・・・
0037デフォルトの名無しさん
NGNGhelp読めない?
003927
NGNGwww.revemu.com
ここはつぶれた?であろうサイトタイ語
www.se-ed.net/wooth2000
0040デフォルトの名無しさん
NGNG・アイテムリストのリセット方法(売らなくなる問題)
・他のPCの発言をログに書き出す
・未解析パケが多すぎる(unparsed packet error)
かな?
0041デフォルトの名無しさん
NGNGで、誰かわかる?
} elsif ($switch eq "00A1") {
$ID = substr($msg, 2, 4);
if (%{$items{$ID}}) {
print "Item Disappeared: $items{$ID}{'name'} ($items{$ID}{'binID'})\n" if $config{'debug'};
%{$items_old{$ID}} = %{$items{$ID}};
$items_old{$ID}{'disappeared'} = 1;
$items_old{$ID}{'gone_time'} = time;
undef %{$items{$ID}};
removeBin(\@itemsID, $ID);
の最後から2劣目のと最後の行のを所持アイテムのに変えればいけると思うんだけど、
最初の00A1が何なのか2劣目のもわからない(;´Д`)
0042デフォルトの名無しさん
NGNGカートアイテム
} elsif ($switch eq "0121") {
$msg_size = 14;
・・・
中身のログは飛びました(謎
004327
NGNG板違いだが人の少ないこっちにうp
PASSは神のかたの現在のHPタイトルをコピペ
wpeproalphaより使いやすい?
wpeproalphaを多機能にした感じ
004417
NGNGVIT上げまくれば無問題。被ダメ1とかだYO。
まあ持ち物50%以上になって死んでるときもあるけどなー(;´ー`)
というわけで狩場話題は
糸冬 了
0045デフォルトの名無しさん
NGNG今後の予定
1 コマンドで今のPC座標+モンス座標を別ファイルに書き込み
2 そのファイルを別のCGIで文字なりあらかじめ用意した画像に置き換える。
3 それを表示してウマー
こんな感じ
├─┼─┼─┼─┼─┼─┼─┼─┼─┤
│ │ │�U│ │ │�@│ │ | │
├─┼─┼─┼─┼─┼─┼─┼─┼─┤
│ │�B│ │ │★│ │ │�T| │
├─┼─┼─┼─┼─┼─┼─┼─┼─┤
│ │ │�C│ │�V│ │�A│ | │
├─┼─┼─┼─┼─┼─┼─┼─┼─┤
でも俺には無理だw
004627
NGNGこれなんだろう?
0047デフォルトの名無しさん
NGNGあう・・・漏れがアフォでした・・・
[heal (回復量)]
で全然いけましたねヽ(´ー`)ノ
そして時間差WIS&ヒールで結局死んでる罠・・・
>>44
なるほど。了解。。。
結局BOTはランク下の狩場でないと無理ってことか(;´Д`)
そしてVIT1のボク。
糸冬 了
0048デフォルトの名無しさん
NGNG#/usr/bin/perl
# Simple DoS Script
# Config for only Ragnarok Server
# Created by Jansee
# Copyright 2002 (c) Jansee - XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
おいおい
0049デフォルトの名無しさん
NGNGDoS宣言ですか?
凄いですね。
0050デフォルトの名無しさん
NGNGprint "(From: $privMsgUser) : $privMsg\n";
pmprint($privMsgUser,$privMsg) ; <=追加
} elsif ($switch eq "0098") {
=====
以下をsub dumpData の上あたりに追加
sub pmprint {
my $privMsgUser = shift;
my $privMsg = shift;
my $dump;
$dump = "(From: $privMsgUser) : $privMsg\n";
open DUMP, ">> pm.txt";
print DUMP $dump;
close DUMP;
}
0051デフォルトの名無しさん
NGNG使えないvit型でBOTするくらいなら自分でプレイするけどな(w
0052デフォルトの名無しさん
NGNG・他のPCの発言をログに書き出す
>>50 に追加
print "$chat\n";
openchatprint($chat) ;<=追加
} elsif ($switch eq "008E" && length($msg) >= unpack("S1", substr($msg, 2, 2))) {
====
これも追加
sub openchatprint {
my $chat = shift;
my $dump;
$dump = "$chat\n";
open DUMP, ">> chat.txt";
print DUMP $dump;
close DUMP;
}
時間が残らない
日付ではなく時間を入れたいのだが…
0053デフォルトの名無しさん
NGNG>>52
神
0054某板の73
NGNG自分の改造したものからヤバい機能を削ったもの。
最初からBOTとして使うつもりは無いので戦闘関係の処理は弄ってないに等しいです。
あと、コードが稚拙なのは仕様です。動けばいいや程度ですので。
改造点の解説はしませんので、わかる人だけどうぞ。
簡易チャットソフトくらいにはなります(´・ω・`)
0055デフォルトの名無しさん
NGNGfollow対象のHPが%以下になったら、botが自動でhealをするように
試行錯誤しているんだけどfollow対象の現在HPって取得してるんかいな・・・
難しいね、改造は
0056デフォルトの名無しさん
NGNGprint "(From: $privMsgUser) : $privMsg\n";
pmprint($privMsgUser,$privMsg) ; <=追加
} elsif ($switch eq "0098") {
print "$chat\n";
openchatprint($chat) ;<=追加
} elsif ($switch eq "008E" && length($msg) >= unpack("S1", substr($msg, 2, 2))) {
====
以下をsub dumpData の上あたりに追加
sub pmprint {
my $privMsgUser = shift;
my $privMsg = shift;
my $dump;
$dump = "(From: $privMsgUser) : $privMsg\n";
open DUMP, ">> pm.txt";
print DUMP $dump;
close DUMP;
}
sub openchatprint {
my $chat = shift;
my $dump;
$dump = "$chat\n";
open DUMP, ">> chat.txt";
print DUMP $dump;
close DUMP;
}
これでokでしょうか?
0058デフォルトの名無しさん
NGNG0060デフォルトの名無しさん
NGNGはやすぎて鯖飛んじゃうし
0061デフォルトの名無しさん
NGNGBOT飛ばしはマナー厨の言うところのノーマナーじゃなかったのか?(藁
マジでポタルウザイ
0062デフォルトの名無しさん
NGNG0063デフォルトの名無しさん
NGNGパーティが攻撃した時だけBOTも攻撃
0064デフォルトの名無しさん
NGNGアヒャヒャヒャhyハヤヒャアハヤヒャッヒャハ
0065デフォルトの名無しさん
NGNG0066デフォルトの名無しさん
NGNG0067デフォルトの名無しさん
NGNG0069デフォルトの名無しさん
NGNG007031=50=52
NGNG} elsif ($switch eq "013E") {
$msg_size = 24;
# 3E 01 ** ** 02 00 F3 C9 00 00 00 00 00 00 13 00 03 00 00 00 93 0A 00 00
ずれてるだろうから…
for Turbo pascal形式
switch : word ; {013E}
char_id : longint;
mons_id : longint;
dummy : longint;
skill_id : word;
skill_lvl : word; {実際のスキルレベル4だとここは3になる}
dummy2 : word;
hatena : longint;
それにしてもMMO板の制限きつくなってきてるね〜
長いが書き込めないよ
0071デフォルトの名無しさん
NGNG0072デフォルトの名無しさん
NGNG糞スレたてんなヴォケ
>>71
通報しますた。
007331=50=52
NGNGポタル回避
} elsif ($switch eq "011F") {
$coords{'x'} = unpack("S1",substr($msg, 10, 2));
$coords{'y'} = unpack("S1",substr($msg, 12, 2));
print "Portal opened at $coords{'x'}, $coords{'y'}\n";
sendTeleport(\$remote_socket, "Random") if $config{'PortalAvoid'}; <=追加
$msg_size = 16;
で、config.txtにPortalAvoid追加
0074デフォルトの名無しさん
NGNG>31のKoreでマジが使えるとは感謝です。
でも敵が死んだ時のパケット?が上手く受信できない時に
表示上は死んで居てもKoreで認識されてなくて死体に連続で魔法撃つのって止められないのかな。
要は1発殴ってターゲット変更って感じにすれば良いと思うんだけど、わからな・・い
オオ・・・
これで画面見たらピッキ狩ってたときの悲しさを回避できます
007631=50=52
NGNG# スキル攻撃withダメージ表示
} elsif ($switch eq "0114") {
$msg_size = 31;
ダメージ与えた時のダメージ値はこれなのだが…
どのテーブルにどう入れればいいのか不明 <=なんとなくは分かってる
死んでも魔法唱えてるのはしょうがないかも
wizに転職したよ…
>>75
画面移動じゃないよ
PCのワープポータル回避だよ
0077デフォルトの名無しさん
NGNGPCがポタル詠唱したらteleするんだよね
thx!
007831=50=52
NGNG私の場合ポタル出した人の名前をファイルに落としてるけどね
で、ここだけの話
PTの公平分配が無効になるときがある
公平分配した人同士が別マップに移動すると解除されるらしい <= ポタルに入ったからかもしれん
面倒だから今度からTPascalのコテハンで、書き込もう
0079デフォルトの名無しさん
NGNGもちろんLvは公平分配が可能なLv差
リーダーはKoreBOT
・メンバーが再ログイン (BOTがrelog
・誰かが別MAP移動した場合
・誰かが同じMAPに戻ってきた場合
・リーダーがrelog
キャラは4体で全部おれが管理してるからLv差がありすぎたってことはない。
こんな感じ
0081蟻の巣掃除人
NGNGまず、pmprint, openchatprintを次のようにする。
sub pmprint {
my $privMsgUser = shift;
my $privMsg = shift;
my $dump;
&get_time;
$dump = "$date | (From: $privMsgUser) : $privMsg\n";
open DUMP, ">> pm.txt";
print DUMP $dump;
close DUMP;
}
sub openchatprint {
my $chat = shift;
my $dump;
&get_time;
$dump = "$date | $chat\n";
open DUMP, ">> chat.txt";
print DUMP $dump;
close DUMP;
}
0082蟻の巣掃除人
NGNGsub get_time {
$ENV{'TZ'} = "JST-9";
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime(time);
$year = 1900 + $year;
$mon++;
if ($mon < 10) { $mon = "0$mon"; }
if ($mday < 10) { $mday = "0$mday"; }
if ($hour < 10) { $hour = "0$hour"; }
if ($min < 10) { $min = "0$min"; }
if ($sec < 10) { $sec = "0$sec"; }
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];
$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";
}
日付いらんとか言う人は適当に改造してくれい。
$date = "$hour\:$min\:$sec";
にすりゃ時間だけになるはず。
0083デフォルトの名無しさん
NGNG一回だけ質問させていただけますか?
sendTeleport(\$remote_socket, "Random") if $config{'PortalAvoid'};
は最初にkoreが使えるようにするために起動した本家kore-0.68.08のフォルダの中にある
kore.plに書き加えるだけでいいでしょうか?(メモ帳で)
でconfig.txtのPortalAvoidはどの列に書いてもいいんでしょうか?一番下とかですか?
0084デフォルトの名無しさん
NGNG0085デフォルトの名無しさん
NGNGKore.plを走らせると、1行目でエラー
1行目をコメントアウトすると70行目でエラー
70行目をコメントアウトするとログイン出来ない
みたいな感じなんですが、どなたか解決法を教えていただけないでしょうか?
どうかよろしくお願いします。
>>83
後者だけ
どこでもいいです。
0086デフォルトの名無しさん
NGNGどうしても「command not found」って出ちまう。
XPの場合、フォルダ指定は cd Kore-0.68.08 じゃなくて
cd c:/Kore-0.68.08 だしな。もしやLinux関係じゃないと無理?!
perlは初めてなんで厨書き込みスマソ。
0087蟻の巣掃除人
NGNGよくはわからんけど、Time-HiResがきちんと入ってないせいだと思われ。
俺も最初それで1行目ではじかれたし。
あとは、Activeperlがちゃんと入ってないとか。
デストローイことRAGCHEATに書いてある>>698さんTXTをもう一度見てみれ。
0089デフォルトの名無しさん
NGNGマウスだけでできたけどなぁ
0090デフォルトの名無しさん
NGNG698のTXT
>D:\Perl\arch\autoの中にTimeフォルダを貼り付ける。
ここが間違ってない?
0091デフォルトの名無しさん
NGNGarchってのとautoってフォルダを作るってことでしょうか?
plってので読むようにしてから書き換えればポタル避けとかができるようになるんでしょうか?(必死
0092デフォルトの名無しさん
NGNG微妙に違うフォルダにTimeフォルダ貼り付けたら
、なんかうごいたような・・。
0093デフォルトの名無しさん
NGNG0094デフォルトの名無しさん
NGNG0096デフォルトの名無しさん
NGNG普通にやった時より遙かに早い・・・鬱
0097デフォルトの名無しさん
NGNG一瞬窓がでて閉じてしまう
神様いたらポタル避けのついたkore.plうpおながいします…
ttp://dtsi.dyndns.info/~uploader/2ch-ro/index.cgi
0098デフォルトの名無しさん
NGNG色々と妙な事が起きるかもね。
0099デフォルトの名無しさん
NGNG0100デフォルトの名無しさん
NGNGこれをキャラ名とかに変えたいのですが、出来ないのでしょうか?
kore.plの名前を『キャラ名.pl』とかに変えても「PERL」と表示されます(つД`)
0101デフォルトの名無しさん
NGNG■ このスレッドは過去ログ倉庫に格納されています