2
3?
スレ立て乙です
大前提 [ At Your Own Risk ] (全て自己責任) ageた香具師は放置
Q.Koreってどこにあるんですか? / Koreうpきぼん
A.検索エンジンすら使えない香具師にKoreを扱うことはできません
Q.exe形式のKoreって罠はないんですか? / 〜においてあるKoreは罠ありですか?
A.罠だと思ったら使うな。自分で判断しろ。
Q.うまく動いてくれません、なぜでしょうか?
A.他の人間は動いてる。主人の知能を反映してる。「なぜ」じゃなくて必然
Q.最新版のKoreを〜で売ります / 買います
A.激しくスレ違い。以後放置
Q.〜をするには〜すればいいのですか?
A.そう思ったら試せばいいジャン
Q.早くうpしてよ。BOTが増えたほうが隠れ蓑にだってなるじゃん。
A.BOT増えたら相場さがるのでいいことありません。まず人の物を頼む態度から勉強すれば?
Q.コードの追加ってどうすればいいのですか?
A.お前もしかして専用ブラウザすら使えないだろ( ´,_ゝ`)プッ
「鳩に対して得意げな顔で既出のコードを解説してるお前って池沼だろ」
はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはい
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
ましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜 はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはい
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜 はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはい
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜 はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはいはい
はいはいはいはいはいはいはいはいはいはい
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
またRO厨が糞スレ立てましたよ〜
徹夜でKore.plいじくりまわしてようやく動きました。
おそばせながら前スレの
>>627様、本当にありがとうございました。
鳩はおとなしく鳩スレに帰ります(;´ω`)ノ
乱立しているのは認めるが、BOT系スレで一番続いているスレはここな訳で
苦情は他の駄スレ立てた香具師に言ってもらいたい
Secure Login. . .
Encode passwaord. . .
Tk::Error: Can't call method "Call" on an undefined value at C:\Documents and Settings\デスクトップ\kore\Kore.pl line 476.
Tk::After::once at C:/Perl/site/lib/Tk/After.pm line 83
[once,[{},after#3,100,once,[\&main::koretimes]]]
("after"script)
こうならない解決法教えて
>>11 答え出てるだろ。頭悪いだろおまえ。死んでいいよ
>>15 どこにあるんだよ。それを教えろ。教えられないならお前が死ね。
>>17 視覚MAPの消し方教えないと意味ないだろ
どうせ分からないんだから
use Net::SMTP;
sub sendMail {
my $temp = shift;
$smtp = Net::SMTP->new(
"$config{'smtpServerName'}",
Hello=>"$config{'smtpDomain'}");
$stmp->mail("$config{'fromMailAddr'}");
$stmp->to("$config{'toMailAddr'}");
$smtp->data();
$smtp->datasend("From:BOT\n");
$smtp->datasend("To:ご主人様\n");
$smtp->datasend("Subject:⊂(゚Д゚⊂⌒`つ====\n");
$smtp->datasend("$temp\n");
$smtp->dataend();
$smtp->quit;
}
config.txt(ex--------------------------------
#SMTPサーバ名(not FQDN)
smtpServerName smtp
#SMTPサーバのドメイン
smtpDomain hogehoge.com
#自分のメールアドレス(利用するSMTPサーバの)
fromMailAddr
[email protected] #メールアドレス(送信先)
toMailAddr
[email protected]
20 :
19:03/08/20 20:20 ID:???
誰もが考えつくのを書いてみた。
でもフリーのメアドしか持ってない自分は、
POPの認証部分を追加しないと動作確認とれない・・・
このサブルーチンをgetimportnatitems?の部分に入れる予定。。
どなたか検証plz
フリーのメールサーバあるよ
試してみたら?
ArGoSoft MailServerってのがいいと思う
昔使ってたけどPOP3対応してるよ
>>19 で、sendMailを利用した罠を撒く、と。
ありきたりすぎるぞ。
>>19 ワラタ
レア報告をメールで知らせるってのはすごい発想だな
・・・KOREがスタックしたときに
公式のフォームから「スタック救出」でメール送るっていうのはどうだろ
あそこなんだか暗号化セキュリティかかるっけ。
>>24 それ面白いな(笑
LWPとかHTML系の奴使えばいけるかもしれない
あとでいじってみるわ
26 :
24:03/08/20 22:53 ID:???
>>25 マジでやるのか( ̄□ ̄;)
私はHTTPLiteとかNetSMTPとかWin32APIとかそのへんはぜんぜんわからないけど
面白そうだからできるならお願いしますd(=w=
いまテストで動かしてみたんだが、smtp->mailで引っかかるな〜。can't call
でちゃう。
それと、Net::SMTPインスコしたら、Packegeが3つ出てきたんだが、Net-SMTP_auth
はMIME-Base64入れろって言われたよ。そのままsearchしても見つからんし。
所詮は猿か・・・∧‖∧ キュ
もしかして・・ここはいかに華麗な罠を作るかというスレ?
ある意味、中級者(っぽい振りをしてる人たち)が
雑談っぽいKOREの話題をするスレ・・・なような。
前スレではGvGだったし。
>>19 むか〜し、FTPを使った似た様な機能をもったものをはったことがあります
漏れはこれをつかって、無料Web鯖に自前の時給、撃墜数、記録時間などを記録した
txtを一定時間ごとにUPするというかんじにしてあります
そのため、仕事中でもホームページをチェックすればBOTが働いてるかわかると
わけで・・・・
まあ、そのときはさっぱり放置されてしまいましたが
すこしだけ話したことがあるリモート操作はこいつをつかったものです
現在は、リモートでのコンフィグの変更だけしかやってないですが・・・・・・
壁離れ
modifiedWalk() if ($config{'modifiedWalk'} && $ai_seq_args[0]{'index'} < @{$ai_seq_args[0]{'solution'}} - $config{'route_step'} * 2);
move($ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'x'}, $ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'y'});
----------
sub modifiedWalk {
my %temp = undef;
my %new = undef;
my %old = undef;
my $dist;
my $leaveDist;
$temp{'x'} = 0;
$temp{'y'} = 0;
$old{'x'} = $ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'x'};
$old{'y'} = $ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'y'};
for ($i = -1; $i < 2; $i++) {
for ($j = -1; $j < 2; $j++) {
next if ($i == 0 && $j == 0);
if ($field{'field'}[($old{'y'}+$i)*$field{'width'}+$old{'x'}+$j] != 0){
$temp{'x'} = $temp{'x'} - $j * 2;
$temp{'y'} = $temp{'y'} - $i * 2;
}
}
}
for ($i = -2; $i < 3; $i++) {
for ($j = -2; $j < 3; $j++) {
next if ($i == 0 && $j == 0);
if ($field{'field'}[($old{'y'}+$i)*$field{'width'}+$old{'x'}+$j] != 0){
$temp{'x'} = $temp{'x'} - $j;
$temp{'y'} = $temp{'y'} - $i;
}
}
}
$dist = sqrt($temp{'x'} ** 2 + $temp{'y'} ** 2);
$leaveDist = $config{'modifiedWalkDistance'} + int(rand(3) - 2);
if ($dist) {
for ($i = 1; $i <= $leaveDist && !$field{'field'}[int($old{'y'} + $temp{'y'} / $dist * $i)*$field{'width'}+int($old{'x'} + $temp{'x'} / $dist * $i)]; $i++) {
$new{'x'} = int($old{'x'} + $temp{'x'} / $dist * $i);
$new{'y'} = int($old{'y'} + $temp{'y'} / $dist * $i);
}
$ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'x'} = $new{'x'};
$ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'y'} = $new{'y'};
}
}
----------
modifiedWalkDistance x2 + route_step > 14
イマイチ綺麗に書けないの つдT)
暗号化対応させて走らせてたら
数時間でログインを永遠繰り返してる状態になるんですがこれがなんのせいでしょうか?
リログかと思ったけどコンフィグ見たらautoRestart 0になってるし…
助けて神様(;´Д`)人
池沼の
>>34が現れた!!
[あおる]
[放置]
[コロス]
[まんこ]
池沼に[あおる]攻撃!!
池沼は50のダメージを受けた、
池沼は倒れた。
池沼が仲間になりたそうな目でこちらを見ている。
どうしますか?
[殺す]
[死なす]
[舐める]
[殺す]
⇒[死なす]
[舐める]
決定 ポチットナ
>>34 最初の方のコード移植してないだろ
ちゃんと移植しれ
40 :
25:03/08/21 14:12 ID:???
ActivePerlだとHTTPSへの対応が簡単にいかないっぽい
PPMじゃSSL系のモジュール入ってくれないわ
これじゃ罠作っても鳩が動かせなくて糸冬だと思うが、どするよ?
うーん。暗号化セキュリティが逆につらいのですか。
しょうがないから605氏のようにFTP使って
どこかにWebスペース借りて、BOTの名前報告。
捨て垢で公式フォームからそこのアドレスを通報・・・・ってめんどくさいですね(==
あとは、確かサポート用のメールアドレスとかなかった?
どこだったか忘れたけど、そこに無理やり送る設定とかにする、かなぁ
#素直に「スタックについては公式のサポートフォームよりご連絡ください」
#って返信がきたらどうしよう・・・
42 :
25:03/08/21 16:02 ID:???
どっかCGI使えるサーバーに踏み台CGI置けばいけるかもしれない
ただし、PerlModuleをインスコできるのが前提だけど
後の問題は、LWPとか
HTTP::Requestとか使うから、そのまま書いておいたら
罠とバレバレナところかなぁ
evalって使ってたらばれると思う?
メールもいいかもしれないけど、サポートフォーラムで送ると履歴が残るじゃん?
後から本人がそこ見たときに、
「なんかスタック報告送ってるし!!」って驚くのが面白そうなんだよね
>>42 むしろ藻前さんがこういうところで、LWPとか
HTTP::Requestとか…なんて
いうからばれるんだアフォッタレ。
お猿さんとクルックーどもには面倒だがインスコするマニュアル、exeのKore、
解説付きのConfigを与えるのが一番。
罠ってのはバレないように仕掛ける。
で、暗号化対応の一環で…とか適当なこと言ってモジュール組み込みを
要求しる。そうすれば猿以下は気づかない。
>>43は何もわかってないアフォッタレ
( ´,_ゝ`) 夏デスカラナ
>>42 eval使っても、妖しいといえば妖しいんだろうねぇ。それだけだと。
森の中に木を隠すってのはどうだろう?
OK
ちぃと考えてみるわ
あと、SSL系が入ってて、CGI動かせるサーバーってどっかしらないか?
あまり進行してないんで、例のFTPを行ってくれるやつでも貼っときます
UPができる環境とできない環境があるんで、使えなくても勘弁
まあ、あまり需要があるとも思えんですが・・・・・・
*******************************************
メイン。ftp.plとでも名づけてやってください。
use Net::FTP;
use Time::HiRes qw(time usleep);
my $startTime=time;
my %config;
IniRead();
FTPMain();
exit;
sub IniRead{
my $key,$value;
open FILE, "ftp.ini";
foreach (<FILE>) {
next if (/^#/);
s/[\r\n]//g;
s/\s+$//g;
($key, $value) = $_ =~ /([\s\S]*?) ([\s\S]*)$/;
$key =~ s/\s//g;
if ($key eq "") {
($key) = $_ =~ /([\s\S]*)$/;
$key =~ s/\s//g;
}
if ($key ne "") {
$config{$key} = $value;
}
}
close FILE;
}
#---//FTP
sub FTPMain{
my $host=$config{'HostName'};#対象ホスト
my $user=$config{'UserName'};#ユーザー名
my $pass=$config{'Pass'};#パス
my $getFile=$config{'GetFile'};#取得するファイル
my $putFile=$config{'PutFile'};#転送するファイル
my $WhileTime=$config{'PutInterval'};#ファイルを転送する間隔(秒)
my $ActiveTime=$config{'ActiveTime'};#動作時間
my $FTP;
my $fFlg=0;
while($fFlg==0){
while(!$FTP){
$FTP = Net::FTP -> new($host);
if (!$FTP) {
print "Can't connect.Wait.....\n";
sleep($WhileTime);
exit if((time-$startTime)>$ActiveTime && $ActiveTime);
}
}
$FTP -> login($user, $pass) or print("login失敗\n");
$FTP -> get($getFile);
$FTP -> delete($getFile);
$FTP -> put($putFile) or print("UL失敗\n");
$FTP -> quit;
undef $FTP;
print "FTP処理を行いました\n";
print "$WhileTime秒待機します\n";
sleep($WhileTime);
$fFlg=1 if((time-$startTime)>$ActiveTime);
}
}
*******************************************
FTP用コンフィグ。ファイル名ftp.iniでたのんます。
#ホスト名
HostName www.google.co.jp
#ユーザー名
UserName tekitouni
#パス
Pass tukemasu
#取得するファイル
GetFile
#転送するファイル
PutFile saraChat.txt
#ftpを行う間隔(秒)
PutInterval 900
#動作時間(秒)
ActiveTime 72000
いまさらですが、modifiedwalk3
modifiedwalk.txtっぽいものをはいてくれるやつをVBで適当に作って
動作確認しました
激しくダメなソースですが、需要あるなら、UP・・・・・するんだろうか
>>605氏
modifiedwalk3、実装はしたんですがtxt作ってない引退モノなんですが、
うちの会員に動作確認してもらいたいので、できればうpしてほc〜ですね
↑何言ってる不明
605氏乙。面白そうなので導入して使っていみるです。
私は今までkore起動してるPC自体を鯖にして
indexに各koreのGetItem.txtやchat.txtにリンク張り
出先から確認して(・∀・)ニヤニヤしておりました。
>>52 え〜と、書き忘れてたことが
ソース上で実行できる環境がないとつかえないです
ようは、VisualBasicがはいってないとだめと
なにぶん、イミディエイトウインドに出力結果をはくという
exeにする気まったくなしという作り方してるんで・・・・・
手を抜き過ぎかぁ
>>54 まあ、その手法のほうがいいのはたしかですんで
リアルタイムに更新されるかどうかという違いだけで
こっちのコードは形無し・・・・・
さらにVNC?だったら、本当に手も足もでないっぽ
>>55 VBあるんでOKですよ。
まあ、さっさと作りゃあいいジャン、って話なんだけどね・・・_| ̄|○
koreが認識していないMAP移動(テレポでポタルに突っ込んだ時など)
をしたときに
$field{'name'}(現在いる場所)の更新ができてないらしく
lockmapに戻ろうとする命令が実行されません
定期的に$field{'name'}を更新するコードがありましたら
講師をいただきたくお願いします
>>57 クレクレ〜クレクレ〜
丁寧な言葉遣いでごまかすのやめろよ、キモイ。
素直に、自分では作れないのでどなたか作ってくださいって言えよ。
自動購入・引き出しとcartAddをうまく絡めたいと考えてみたんだけど、
どうもこんがらがってしまった。誰か実装してる人いない?ヒントくれよ〜
指定アイテムが無くなって、倉庫・購入戻りしたときに指定数になるまで
何回もカートにぶち込むって機能なんだけど、どう?
懲りずにまたヘタレなコードを晒してみます。
&& (!$config{"useSelf_skill_$i"."_maxAggressives"} || $config{"useSelf_skill_$i"."_maxAggressives"} >= ai_getAggressives())) {
#スキル発動判定
-$ai_v{"useSelf_skill_$i"."_time"} = time;
$ai_v{'useSelf_skill'} = $config{"useSelf_skill_$i"};
================================================
} elsif ($switch eq "011A") {
〜中略〜
} elsif ($targetID eq $accountID) {
if ($sourceID eq $accountID) {
$targetDisplay = "yourself";
#スキル発動判定
+$i=0;
+while (1) {
+last if (!$config{"useSelf_skill_$i"});
+if ($skillsID_lut{$skillID} eq $config{"useSelf_skill_$i"}) {
+$ai_v{"useSelf_skill_$i"."_time"} = time;
+last;
+}
+$i++;
+}
} else {
$targetDisplay = "you";
〜中略〜
print "$sourceDisplay $skillsID_lut{$skillID} on $targetDisplay$extra\n";
$msg_size = 15;
スキル発動がけっこうミスってるようなので、改良を加えてみました。
多分、うまく動いているかとは思いますが、動いてねぇぞ(゚Д゚)ゴルァ!!な方が居ましたら、
書き込んでいただけるとありがたいです。
動いてねぇぞ(゚Д゚)ゴルァ!!
モンス振り分けのコード上手くいかないんですが・・>605氏
キレイニしたのを再UPしてくれます?
>>66 カートといえば、どこかの中級者が倉庫として機能+そこから預ける引き出す
機能をつけてるっていってたな。
そこまでの機能になると605氏みたいな中級者以上じゃないと_なんだと
思うけど、付けてみる気はないですか?>605氏
>>67 よく言ってる意味が分からんけど、AUTOSTORAGEの中の最後にCART ADD加えるだけでもう一度勝手にAUTOSTORAGE繰り返してくれるんじゃないのか?
なんかもうお前ら必死すぎ。
70 :
67:03/08/23 20:13 ID:???
ん?いや、キャラ同士の交換ってこと。それは
>>66氏のことでは?
Aを倉庫キャラに指定し、ある場所に待機(その間は露店してるっていったかな?)。
BはAに対してアイテム預ける&引き出すを行うことができる。
Aはカート重量が指定重量になったらカプラに預けに行く。
BはAが指定場所にいないときはしばらく待ってダメなら自分で処理する。
そんな機能だったと思う。
露店てのは、在庫が切れたらまた設定した在庫だしてくれるのか?
72 :
62:03/08/23 21:22 ID:???
>>63 1時間ほどタイマーを使ってスキル発動を確かめて見ましたが、
どうも useSelf_skill_$i_minAggressives 1 などとしていると
きっちり動かないようです。
何はともあれ、実験に協力くだすって感謝。
>>56 ここの0104.zipに
kuronbo.s13.xrea.com/cgi-bin/upload.cgi
チェックボックスがついてるときにテンキーの1〜9を入力することで
はいてきます
終わったら、イミディエイトウインドからコピペで
テキストボックスの中身は編集できるんで、はかせたいところから実行することが可能
ろくに時間をかけないで作ったんで、すこぶる適当なのは勘弁
>>65 振り分けではよくわからんです
どちらにしろ、貼りなおしは基本的にはしないですが・・・・
>>67 2垢ないんで、ムリ
漏れが貼ってるコードは自分が欲しいと思って作ったものなんで
2垢以上が前提のコードはつくらないです
>>61 それだと、autoskill発動から011aパケを受け取る間までにautoskillを連打しちゃいそうな気が・・・・
まあ、せっかくなんで、漏れのもはってみます
スキルチェック+速度POTチェック+速度POT残り時間表示です
一応、ゲーム鯖移動+リログ時対応
ただし、スキル残り時間表示コード導入済みなのが条件
*******************************************
+if($LastAGIPot{'time'} && (time-$LastAGIPot{'time'})<1800){
+$iTemp=1800-int(time-$LastAGIPot{'time'});
+}else{
+undef $iTemp;
+}
print"-----------Status-----------\n";
*******************************************
+print "$LastAGIPot{'name'}($iTemp)\n" if($iTemp);
print"----------------------------\n";
} elsif ($switch eq "sell") {
*******************************************
+checkSkill_Item();
##########
#DEBUG CODE
*******************************************
+resetAllItemSkill();
$msg_size = 11;
} elsif ($switch eq "0075") {
*******************************************
鯖移動チェックが入っているなら追加
if($nowBelongServer){
if($nowBelongServer!=$belongServer{$field{'name'}}){
undef %skillsTimeout;
resetAutoSkill();
+resetAutoItem()
}
$nowBelongServer=$belongServer{$field{'name'}};
}
*******************************************
} elsif ($switch eq "0196" && length($msg) >= 9) {
+$type = unpack("S1", substr($msg, 2, 2));
+$targetID = substr($msg, 4, 4);
+$on = unpack("C1", substr($msg, 8, 1));
+if ($targetID eq $accountID) {
+if($type==0x1A){
+if($on==1){
+print "マキシマイズパワーON\n";
+$MaximizePowerMode=1;
+}elsif($on==0){
+print "マキシマイスパワーOFF\n";
+$MaximizePowerMode=0;
+}
+}
+if ($type == 37) {
+if ($on == 00) {
+undef %LastAGIPot;
+} elsif ($on == 01) {
+$LastAGIPot{'name'}="集中";
+$LastAGIPot{'time'}=time;
+}
+} elsif ($type == 38) {
+if ($on == 00) {
+undef %LastAGIPot;
+} elsif ($on == 01) {
+$LastAGIPot{'name'}="覚醒";
+$LastAGIPot{'time'}=time;
+}
+} elsif ($type == 39) {
+if ($on == 00) {
+undef %LastAGIPot;
+} elsif ($on == 01) {
+$LastAGIPot{'name'}="狂気";
+$LastAGIPot{'time'}=time;
+}
+}
+}
$msg_size = 9;
*******************************************
鯖移動チェック導入時に追加したものとは差し替えで
+sub resetAutoSkill{
+my $i=0;
+while($config{"useSelf_skill_$i"}){
+undef $ai_v{"useSelf_skill_$i"."_time"} if(time-$ai_v{"useSelf_skill_$i"."_time"}>5);
+$i++;
+}
+}
+sub resetAutoSkill2{
+my $i=0;
+my $skill=shift;
+while($config{"useSelf_skill_$i"}){
+if($config{"useSelf_skill_$i"} eq $skill){
+undef $ai_v{"useSelf_skill_$i"."_time"} if(time-$ai_v{"useSelf_skill_$i"."_time"}>5);
+last;
+}
+$i++;
+}
+}
+sub resetAutoItem{
+my $i=0;
+while($config{"useSelf_item_$i"}){
+undef $ai_v{"useSelf_item_$i"."_time"} if(time-$ai_v{"useSelf_item_$i"."_time"}>5);
+$i++;
+}
+}
+sub checkSkill_Item{
+my $i=0;
+if( !($LastAGIPot{'time'} && (time-$LastAGIPot{'time'})<1800) ){
+resetAutoItem();
+}
+while($config{"useSelf_skill_$i"}){
+if($ai_v{"useSelf_skill_$i"."_time"} && time-$ai_v{"useSelf_skill_$i"."_time"}>5){
+if( !$skillsTimeout{$config{"useSelf_skill_$i"}}{'time'} ||
($skillsTimeout{$config{"useSelf_skill_$i"}}{'time'} && time-$skillsTimeout{$config{"useSelf_skill_$i"}}{'time'}>$skillsTime_lut{$config{"useSelf_skill_$i"}}{$skillsTimeout{$config{"useSelf_skill_$i"}}{'lv'}}) ){
resetAutoSkill2($config{"useSelf_skill_$i"});
+}
+}
+$i++;
+}
+}
+sub resetAllItemSkill{
+resetAutoSkill();
+resetAutoItem();
+undef %LastAGIPot;
+undef %skillsTimeout;
+}
関係ないのが混じってますが、放置でたのんます
部品足りなかったらスマソ
avoidstuckですが、バグ発生中はai_route_searchStepの$CalcPath_init->Callに
渡してる値がおかしくなるっぽいです
なんでおかしくなるかは当然のごとく、まだわからんです・・・・・
>>60 微妙にやりたいことと違うかもしれんですが、これならどうかなぁ
自動引き出しのときにカートに指定数のアイテムをつっこみます
+storageCartGet() if($config{'storageCartGet'}==1);
sendStorageClose(\$remote_socket);
}
}
} #END OF BLOCK AUTOSTORAGE
*******************************************
+sub sendStorageCartGet {
+my $r_socket = shift;
+my $index = shift;
+my $amount = shift;
+my $msg = pack("C*", 0x28, 0x01) . pack("S*", $index) . pack("L*", $amount);
+encrypt($r_socket, $msg);
+print "Sent Storage CartGet: $index x $amount\n" if ($config{'debug'} >= 2);
+}
+sub storageCartGet{
+my ($c,$iCartAmount,$iStorageAmount,$iGetAmount,$invIndex,$iTemp);
+$c=0;
+while ($cart_control{"get_$c"} ne "") {
+$invIndex = findIndexString(\@{$chars[$config{'char'}]{'inventory'}}, "name", $cart_control{"get_$c"});
+$iCartAmount=$cart{'inventory'}[$invIndex]{'amount'} if ($invIndex ne "");
+#$iTemp=int($cart{'weight_max'})*$cart_control{"cartWeight_$c"}/100-int($cart{'weight'});
+#$iTemp=int($iTemp/$cart_control{"weight_$c"}) if(!$cart_control{"weight_$c"});
+$iGetAmount=$cart_control{"storageGet_$c"}-$iCartAmount;
+#$iGetAmount=$iTemp-$iCartAmount;
+next if($iGetAmount<=0);
+$invIndex = findIndexString(\@{$storage{'inventory'}}, "name",$cart_control{"get_$c"});
+next if($invIndex eq '');
+$iStorageAmount=$storage{'inventory'}[$invIndex]{'amount'};
+$iGetAmount=$iStorageAmount if($iStorageAmount<$iGetAmount);
+sendStorageCartGet(\$remote_socket, $invIndex, $iGetAmount);
+$c++;
+}
+}
*******************************************
コンフィグはこれ
+storageCartGet 1
*******************************************
cart_control.txtにはこれ。#は0〜。
+storageGet_# 1000
>>605氏
VBソースthx! 使わせて貰います。
カートのコードについては残念。暇をみて地道に作ってみることにしますわ。
82 :
66:03/08/23 21:47 ID:???
>>79 おお〜 助かります
仰る通りちょっと違いますが(というより、分割・繰り返しが必要ポ)、
これを応用すれば、早く到達できますわ〜
どうもありがとう〜>前スレ605氏
できればVBなんか使わないのがあr(略
84 :
62:03/08/23 22:51 ID:???
>>前スレ605氏
ヘタレコードが霞むようなコードをいつも晒していただき本当に感謝しています。
いつか、氏に役立つようなコードを書けると良いのですが・・・・・。
85 :
66:03/08/24 07:04 ID:???
605氏のコードを参考にさせてもらいつつ、自動購入→カート(cart_control.txtのadd_N_maxAmountまで)
を行うコードを作ってみたんだが、煮詰まってしまった。
タイミングによってautobuyの終了判定(必要なアイテムはminAmount以上存在する)がヒットしちゃうんだよねぇ・・・
蝶戻りするわけではないので問題ないと言えば無いんだが、すっきりしないのですよ。
コードは次スレの通り。重量オーバーなどによる失敗判定はまだ入れてないデス。
既存の自動カート追加に入れたほうがいいのか?とも悩みつつ。あ、それと、既存の
カート追加はバグあったですよ。undefが入ってたら消さないと、アイテム情報が狂う。
何かいい解決方法はないだろうかと言ってみるテスツ
86 :
66:03/08/24 07:04 ID:???
if ($ai_seq_args[0]{'index'} eq ""
|| ($ai_seq_args[0]{'lastIndex'} ne "" && $ai_seq_args[0]{'lastIndex'} == $ai_seq_args[0]{'index'}
&& timeOut(\%{$timeout{'ai_buyAuto_giveup'}}))) {
### 購入→カート補充(最大補充数はcart_control(add_N_maxAmount)に準拠)
(以下追加)
$cartAddEnd = 0;
if (!$config{'cartAddAuto_buy'} || timeOut(\%{$timeout{'ai_cartGetAuto'}})) {
$cartAddEnd = 1;
}
87 :
66:03/08/24 07:05 ID:???
if ($config{'cartAddAuto_buy'} && $cartAddEnd) {
# 自動カート(when you have cart)
if ($chars[$config{'char'}]{'cart'} == 1) {
my $c = 0;
while ($cart_control{"add_$c"} ne "") {
$invIndex = findIndexString(\@{$chars[$config{'char'}]{'inventory'}}, "name", $cart_control{"add_$c"});
if ($invIndex ne "") {
$cartIndex = findIndexString_lc(\@{$cart{'inventory'}}, "name", $cart_control{"add_$c"});
$cartAmount = $cart{'inventory'}[$cartIndex]{'amount'};
$autoCartAddAmount = $cart_control{"add_$c"."_maxAmount"} - $cartAmount;
if ($autoCartAddAmount > $chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'}){
$autoCartAddAmount = $chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'};
}
if ($autoCartAddAmount > 0 && ($cart{'weight'}/$cart{'weight_max'})*100 < $config{'cartMaxWeight'}) {
print "[Act] アイテム ".$char[$config{'char'}]{'inventory'}[$invIndex]{'name'}."を $autoCartAddAmount個カートに移します\n";
sendCartAdd(\$remote_socket, $chars[$config{'char'}]{'inventory'}[$invIndex]{'index'}, $autoCartAddAmount);
$timeout{'ai_cartGetAuto'}{'time'} = time;
if ($chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'} - $autoCartAddAmount == 0) {
$cartAddEnd = 0;
}
}
}
$c++;
}
}
}
if ($cartAddEnd){
$ai_seq_args[0]{'done'} = 1;
}
88 :
57:03/08/24 11:47 ID:???
>>58 自分では作れないので、作っていただきたくお願いしますm(__)mペコ
以後>58は放置の方向で
>>85 パケ受け取ったときにundefするから2回やってしまうのか・・・・
確かにバグだなぁ
それじゃあ、漏れもひとつ
カートにアイテムが入りきらなかったときに受け取るパケの処理がおかしい
Koreって結構あるはず
他のスレならともかく、このスレで売りますは意味なさそうだなぁ
ai_clientSuspendをsendCartAddのあとにいれたらどうかなぁ
94 :
66:03/08/24 15:39 ID:???
>>605氏
返答Thx♪
いま初めてai_clientSuspendのソースを読んでみたんですが、ai_clientSuspendの機能自体は
一旦ai_seqを"clientSuspend"入れて、timeOutするまではAIは何もせずループを繰り返し、
timeOutすれば元のai_seqを戻すという動きだと読みました。
なるほど。これならai_clientSuspendの指定時間何も処理を行わないから、その間にitemRemove
のパケが送られて処理される・・・と。
∇≦)ありがとうございます〜〜〜
・・・って読み違ってたら恥ずいな・・・_| ̄|○ ショセンサルダモン
95 :
66:03/08/24 15:49 ID:???
実装してる間にちょっと疑問が。
現在は$timeout{'ai_cartGetAuto'}でウェイトは取ってるんですが、これと
機能的にはどう変わってくるのでしょうか?
96 :
66:03/08/24 17:21 ID:???
連投スンマセン
やはり現象としては変わらないですね。結局はタイミングの問題で、BUY AUTO内に放り込
んだのがそもそもの失敗だと確信しました。
アイテム取得パケ内で"buyAuto"の判断を含みつつ乗せ返えればOKだと思うので、それで
解決することにします。スレ汚しスマソでした。
97 :
66:03/08/24 17:51 ID:???
ぬはぁ・・・原因判明しました。乗せ変え後も現象変わらずなので、確認すると、
ai_buyAuto_giveupがスルーパスかましてた・・・。
カート移動が発動したときに再取得すれば、最初の状態でOKだったようです。
全くもってスレ汚しスマソでした(;´Д`) 名無しに戻ります・・・
>>66 お前もうちょっと落ち着いてカキコしろよ
脊髄は鳩と同類だぞと
同類というか鳩だろ
そういう
>>98,99はそんなことしか書き込めないミジンコなわけだが
( ´∀`)オレモナー
>>66 そのコード使って言われてるように直してみたけど上で言ってる現象は
まだ出るみたいだな
>>605氏
過去ログで2刀流持ち替えって需要ある?と言うのを見つけたんですが、
2刀アサのbotを使っていてとても興味があるので貼ってもらえませんかね?
その後の過去ログも確認してみたんですけどスルーされてるみたいだったので。
よろしくお願いします。
102 :
66:03/08/24 22:43 ID:???
すいませんlockmapのみでteleportAuto_portalを使うことはできないんでしょうか?
[殺す]
[死なす]
→[舐める]
決定 ベロベロリンっとな。
罠無しBOTをWMで売ります。
一応1000円ですが、値段交渉可です。
PLの使い方が分からない人には、教えます。
欲しい方は・・・
[email protected] ・・・にメール下さい。
※絶対に罠は、入っていません※
上のは名前消し忘れた・・・元66ですが、名誉挽回に再うp
以前にどこかで貼ったやつを改良したやつ。下のほうの機能は未検証なので
指摘があればヨロ
} elsif ($switch eq "0119") {
$ID = substr($msg, 2, 4);
$param1 = unpack("S1", substr($msg, 6, 2));
$param2 = unpack("S1", substr($msg, 8, 2));
$param3 = unpack("S1", substr($msg, 10, 2));
if ($ID eq $accountID) {
### $parm1取得 (単独状態変化)
my $char_status = "";
$char_status = "石化" if ($param1 eq 1);
$char_status = "凍結" if ($param1 eq 2);
$char_status = "スタン " if ($param1 eq 3);
$char_status = "睡眠" if ($param1 eq 4);
$char_status = "暗黒" if ($param1 eq 6);
if (!$chars[$config{'char'}]{'status1'} && $char_status){
print "[Rep] $char_status になりました。\n";
}
if ($chars[$config{'char'}]{'status1'} && !$char_status) {
print "[Rep] $chars[$config{'char'}]{'status1'} が治りました。\n";
}
$chars[$config{'char'}]{'status1'} = $char_status;
### $param2取得 (複合状態変化)
$char_status = "";
$char_status .= "毒 " if ($param2 & 1);
$char_status .= "死神 " if ($param2 & 2);
$char_status .= "沈黙 " if ($param2 & 4);
$char_status .= "暗転 " if ($param2 & 16);
if ($chars[$config{'char'}]{'status2'} ne $char_status){
if(!$chars[$config{'char'}]{'status2'}){
print "[Rep] $char_statusになりました。\n";
}else{
print "[Rep] $chars[$config{'char'}]{'status2'}が治りました。\n";
}
}
$chars[$config{'char'}]{'status2'} = $char_status;
if ($param2 & 0x0001) {
$index = findIndexString_lc(\@{$chars[$config{'char'}]{'inventory'}}, "name", $config{"curePoison"});
if ($index ne "") {
print "[Act] 毒を治療します\n";
sendItemUse(\$remote_socket, $chars[$config{'char'}]{'inventory'}[$index]{'index'}, $accountID);
}
}
### $param3取得 (見た目変化)
$char_status = "";$char_status = "ハイド" if ($param3 eq 2);
$char_status = "クローキング" if ($param3 eq 6);$char_status = "カート" if ($param3 eq 8);
$char_status = "鷹" if ($param3 eq 16);$char_status = "ペコ騎乗" if ($param3 eq 32);
if (!$chars[$config{'char'}]{'status3'} && $char_status){
print "[Rep] $char_status が有効になりました。\n";}
if ($chars[$config{'char'}]{'status3'} && !$char_status) {
print "[Rep] $chars[$config{'char'}]{'status3'} が解除されました。\n";}
$chars[$config{'char'}]{'status3'} = $char_status;
if ($param3 & 6) {
$chars[$config{'char'}]{'cloaking'} = 1;
} elsif ($param3 & 2) {
$chars[$config{'char'}]{'hiding'} = 1;}
$chars[$config{'char'}]{'hidden'} = 1 if ($param3 & 4);
$chars[$config{'char'}]{'ruwach'} = 1 if ($param3 & 1);
### add by * for ログイン時から5秒以内に状態異常パケを受けたときは長期停止
if (($param1 || $param2) && !timeOut(5,$timeout{'ai'}{'time'})){
killConnection(\$remote_socket);
chatLog("s","*** WARNING!!!!!!!!! ログイン時に状態異常パケを取得しました。");
print "[Warning!] *** WARNING!!!!!!! ログイン時に状態異常パケを取得しました。Connectionを切断し待機中です。\n";
sleep(360000); }}
### add by * for モンスステータス変化対応(ハイド・クローキング)
if (%{$monsters{$ID}}) {
$monsters{$ID}{'hidden'} = 1 if($param3 eq 2 || $param3 eq 6);
attackStop(\$remote_socket, $ID);
$monsters{$ID}{attack_failed}++;}
### add by * for 不正ハイド対応(名前変えてるって噂もあるし・・・)
if ($param3 eq 4) {
print "[Warning!] *** 不正ハイドキャラクターを発見しました!! ***\n";
chatLog ("s","*** Warning! 不正ハイドキャラクターを発見しました!! ***\n");
gamemasterRestart();}
ステータスを確認したければ、下記を追加
print"-----------Char Stats-----------\n";
〜〜
$chars[$config{'char'}]{'luk'} $chars[$config{'char'}]{'luk_bonus'} $chars[$config{'char'}]{'points_luk'} $chars[$config{'char'}]{'guild'}{'name'}
+Status: Visual:@<<<<<<< Param1:@<<< Param2:@<<<<<<<<<<<<<<<<<<<<<<<<<<
+$chars[$config{'char'}]{'status3'} $chars[$config{'char'}]{'status1'} $chars[$config{'char'}]{'status2'}
.
上のログイン時はMAP鯖移動時ってことで。
>>108 コードThx!使わせてもらう
しかし、モンスのハイドと不正ハイドはこれだけだとマズーかも?
状態変化パケは画面内で発生したものしか流れなかったんじゃなかったけ?
・・・サルには詳しくわからんポ(・∀・)ウキー
それらしいスレはまわったつもりなんですが、
上に書いてある二刀流コードが全然見つかりません。
教えていただけるとうれしいのですが、
よろしくお願いします。
>>114 X-koreスレに書いたのでチェキラッチョ
>>108-111,113
R 0078 12,13バイト目
R 0079 12,13バイト目
R 007b 12,13バイト目
<option>.w
0通常
1ルアーフ
2ハイド
3ルアーフ&ハイド
4クローク
5ルアーフ&クローク
6クローク&ハイド
7ルアーフ&クローク&ハイド
8カートVer.1
16鷹
32
64ハイド
128カートVer.2
256カートVer.3
512カートVer.4
1024カートVer.5
0119の$param2と同じくビットフラグで複合
#対応が一緒じゃないあたりが重力仕事か
117 :
116:03/08/25 23:09 ID:???
訂正
optionは11,12バイト目ですね失礼
今007Bで試してみたところ0119パケのparam2と一緒っぽいです
漏れ何処調べてたメモなんだろう‥‥∧||∧
118 :
116:03/08/25 23:38 ID:???
連書きすまそ007Bで調べ直しました。
7B 00 <ID>.l <speed>.w <param1>.w <param2>.w <param3>.w (略
で対応は0119と同じ。
0078,0079,007Bあたりが移動やら画面外からの沸きとかかな
元66氏コーディング&公開乙
119 :
元66:03/08/26 00:05 ID:???
>>113,116
おお〜。Tnx♪ 0x0078-007Bだとは思ってたんですがパケ情報が無くて・・・
これで完全実装できます。m(_ _)m
あと、不正GM判定は以前2chのどこかで貼ってたヤツに書いてあったので(Tnx♪
つけましたが、使用者の一人が引っかかったとのことなので、ID+nameをdumpして
再度調査中。$param3=0x0004は通常移動可能なハイドだと推測してツケマスタ。違うぽいね
実装する方はその部分を外してクダサレ
いま↑実装してたら、ミョーなものを・・・ハッケンしてしまった
sub JudgeAttackSameTarget{
$monsters{$ID}{attack_failed}++;←
激しくガイシュツ&餌になるってのもアレなんで、これぐらいで。
>>66 現在、毒にかかってて、param2によって、沈黙が追加された場合は?
漏れの勘違いかなぁ
122 :
121:03/08/26 02:15 ID:???
>>66 もうひとつ
たぶん、このままだと自分が殴ってるモブ以外のハイド/クローキングに反応して
攻撃止めないかなぁ?
>>121 毒+沈黙だと、{'status2'}="毒 沈黙" となる。毒が解除されたら、{'status2'}="沈黙"
になるけど。変化が発生するたびにパケが流れるのは確認してる。
あと、攻撃止めるのはmonsters[$ID]に対して、のつもり。
attackStopを自分が攻撃してない$IDに送ったときに、自分が現在攻撃してるモンスを
攻撃停止にするのなら、現在攻撃してるモンスとの判定コードつけんといかんね。
>>605氏
>>74を導入したのですが、集中P単独で使う時には、しっかりと秒数が表示されるものの、
ブレス、加速、集中Pなどと使用すると
ブレス(50)加速(40)集中(40)
の様に集中Pは1つ上のスキルと同じ秒数で表示されるのですがなぜでしょうか?
ブレスと加速の効果が切れてしまえば、正常に表示されるようになります。
集中P単独で使えば問題ないのですが、スキルと併用すると表示が狂ってしまいますので、
できることなら修正お願いできませんかね、よろしくお願いします。
ガンホーの社員数は現在,アルバイトも含めて64人。
>>124 ソース読めばすぐに解決できる
少しは努力しる
罠無しBOTをWMで売ります。
1000円ぐらいで売っています。
ちなみに先払いです。
PLが使い方が分からない人には、教えます。
欲しい方は、
[email protected] までメール下さい。
>>127 中級にまでマルチしてお前うざすぎる
氏ね
金稼ぎがしたいだけだろ
>>127 >>112 っていうか、ここじゃ売れんから、売れるところで書いてくれ。商売の基本だろ?
あんたがやってるのは、砂漠のど真ん中でブランド物の服を売ってるようなものだ。
逆だろ。
ビルゲイツの前で新しいOSの説明をして買ってくれといっているようなものだ
ビルゲイツに説明した瞬間に使われてしまいますが???
説明するカネなんかゲイは払わないだろ。だからplという説明も手に入らない。
アレ・・・入れなくナッチャッタヨ;;
今回の暗号化も大したことなかったな
また荒れそなヨカン
鳩スレにヒント出した香具師いるぞ
ヒントをやる
$msg1DD = "\0" x (47);
この行を変えれば入れる
さぁてみなさんごいっしょに。
クルックー(・∀・)クルックー
どうすればいいんでしょうか
あ・・、あの・・・、
どうすればいいんでしょうか
どうすればいいんでしょうか
どうすればいいんでしょうか どうすればいいんでしょうか
どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか
どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか
どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか
どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか どうすればいいんでしょうか
さっさと教えろ引き篭もりども
>>143 だからちょっと待てと
真剣に解析してる時にそんなこと言われたらグレるぞ漏れヽ( `Д´)ノ
頑張って
このスレは、RO@BOTのところからリンク張らない方がいいかもな・・・
がむばれー
鳩、ミジンコ絶滅希望
頑張ってくだされ
暗号化はどうにも・・・;
はい。じゃぁみなさん。
$msg1DD = "\0" x (47);
の\0を色々変えてどの数字で入れるか試してみましょう。
と思ったらまたパッチですか。
今のうちにC類を露天で換金しとくか。
153 :
鳩:03/08/26 17:47 ID:xnhXKZOL
今日二度目の暗号化だな。
さっきのより大分手強い、今回のは。
あーあ、やっちまった。
自分の手で自分の首をしめてるんだからな。
BOTer死ね。
156 :
鳩:03/08/26 17:53 ID:???
>155
喪前が氏ね
ID,PASSって16バイトずつ?
158 :
ネトゲ廃人@名無し:03/08/26 17:55 ID:po4nUQK9
BOTer達=日本人の恥だぞ!犯罪じゃなかったら、人に迷惑かけていいのかよ?
汚いことして、汚い金を手に入れる・・
これじゃあ、北の将軍様と変わらないぞ!!
お前ら、拉致とか許せないだろ?犯罪は許せないだろ?
もう、やめろよ。
ROユーザーより
ツマンネー釣りだな。
釣じゃないよ!
まともなこと言って、なんで釣りにされなきゃいけないんだ!
間違ったこと言ってないだろ?
IDが24バイト、PASSが17バイト、パケット長は47バイトで固定ぽ
人道的か非人道的かの問題だろ?
AとBっていう店があって、AがBよりも安く商品を売ったとしたらBには迷惑
かかるが、非人道的でない。頭悪いやつはどっかいけ。
163 :
157:03/08/26 18:03 ID:???
>>161 ID 24で
PASSが16か、やっぱ。パケットのけつの03はサーバーのヴァージョンだか
なんだかだよ。
意味がわからんお前
>>163 PASS16か(;´д`)17はなんか区切り悪いなーと思ってた
現行のencodeじゃIDを24バイト固定にしてないぽ
>>158 釣りは帰れよ。ってか北と変わらないとか訳のわか
らん例えを出すな。
鳩スレからきました
うpよろwwwwwwww
>>163 追記。01DCから送られてくる暗号化キー(らしきパケット)も16byteかな(´・ω・)前はどうだったのか知らないけど変わってるのかな
多分エンコードルーチンそのものが変わってると思うので逆汗しないといけないのかなぁ
>>169 ragexeは変更無いんじゃないのか?いま再インスコしたから、他人情報でスマンガ。
そうなると、encode.dllが対応不足だとしか思えんが・・・どうだろう?
つかこれ即効といたやつは神じゃないか…?
Encode.dll書き直しに近いんだろーし。
参考にしようにもアセンブラわかんねーよ…。
亀島対策室にお集まり下さい。
これでBOT売る奴がでてきたら神なんだけどなwww
void Func2(void)
{
__asm
{
pop edi
pop esi
pop ebx
//int 3
sub esp,00000088h
//mov al,byte ptr [005D9790h]
mov al,1
push ebx
mov edx,ecx
push esi
test al,al
push edi
mov dword ptr [ebp-44h],edx
je __Func2_0001F308
mov eax,dword ptr [ebp+08h]
test al,03h
je __Func2_0001F355
mov ecx,00000010h
mov esi,eax
lea edi,dword ptr [ebp+0FFFFFF78h]
lea eax,dword ptr [ebp+0FFFFFF78h]
repz movsd
jmp __Func2_0001F355
こいつは!!!!???????・
なにが亀島対策室 だよ 努アホ。氏ねっつんだYO
DLLEXPORT void WINAPI Encode(long nVersion, long nServerType, long nServiceType, char *pcUserName, char *pcPassword, char *pc1DC, char *pc1DD)
>>174 ・・・まんまCPPファイルの中身貼り付けただけ・・・
意味ないぽ
00401000 55 push ebp
00401001 8bec mov ebp,esp
00401003 d94508 fld dword ptr [ebp+08]
00401006 dc2da8d55d00 fsubr dword ptr [005dd5a8]
0040100c 8b450c mov eax,dword ptr [ebp+0c]
0040100f 8b5510 mov edx,dword ptr [ebp+10]
00401012 d9c0 fld st(0)
00401014 d84804 fmul dword ptr [eax+04]
00401017 d94508 fld dword ptr [ebp+08]
0040101a d84a04 fmul dword ptr [edx+04]
0040101d dec1 fadd
0040101f d95904 fstp dword ptr [ecx+04]
00401022 d9c0 fld st(0)
00401024 d84808 fmul dword ptr [eax+08]
00401027 d94508 fld dword ptr [ebp+08]
0040102a d84a08 fmul dword ptr [edx+08]
0040102d dec1 fadd
0040102f d95908 fstp dword ptr [ecx+08]
00401032 d8480c fmul dword ptr [eax+0c]
00401035 d94508 fld dword ptr [ebp+08]
00401038 d84a0c fmul dword ptr [edx+0c]
0040103b dec1 fadd
0040103d d9590c fstp dword ptr [ecx+0c]
00401040 5d pop ebp
00401041 c20c00 ret 000c
>>174のはソースそのまま貼り付けただけ.
変更点何も無い罠.
バージョン何になった?
>>179 100ぐらいからから順番に101、102って増やしていけばそのうち合いますよ
以前のHTTPSの〜〜ってやろうとしてた奴なんだけどさ
公式の報告ページ見ると、入力⇒確認⇒登録って流れになってるのだが、
確認以降IDとPASSって使ってないんだよね。
あるのは鯖名 キャラ名 場所 と コメントだけ。
これってどう思う?
ASPは詳しくないからよく分からないんだけど、
最初のフォーム時にセッション張って、そこからIDとかとってきたりしてるのかなぁ?
意見求む
182 :
121:03/08/26 22:55 ID:???
>>123 ソースでみただけだから確かでないのかもしれんけど、
毒→沈黙を追加でくらうことにより、毒が直ったと表示されるんでないかと
attackstopはsendattackstopをしてるだけなんで、IDとは直接は無関係のはず
つまり、クローキング中のモブがターゲットでなくても攻撃中断するかと
横殴り全開にしたいんですがどこを弄ればいいでしょうか?
avoidstuck修正完了。
dllも流れたので盾も出来て良い事だ。
・・・頑張ってdllを弄った漏れの努力は無駄だったが・・・(TдT)
skore移植だけでスタックは1週間*4で1回だけだよ。
やっぱりなんか負荷掛かってパケロスしたときにスタックしたみたいだった。
>>121 !!
確かにそうだ。↓こうだね。2度も指摘申し訳ない&Thx〜〜♪
-if(!$chars[$config{'char'}]{'status2'}){
-if(!$char_status){
sendattackstopもThx♪ それとハイドから戻ったのを加味して、
if (%{$monsters{$ID}}) {
if ($monsters{$ID}{'hidden'} && !$param3) {
$monsters{$ID}{'attack_failed'} = 0;
$monsters{$ID}{'hidden'} = 0;
} elsif ($param3 eq 2 || $param3 eq 6) {
$monsters{$ID}{'hidden'} = 1;
if($ai_seq[0] eq "attack" && $ID eq $ai_seq_args[0]{'ID'}) {
attackStop(\$remote_socket, $ID);
}
$monsters{$ID}{'attack_failed'}++;
}
}
こんなもんかな。
ちょっと思ったんだが、攻撃したタイミングで判定するjugdeAttackSameTarget
は、もっと適した場所がありそうだな。
。。;)・・・ シクシク
-if(!$chars[$config{'char'}]{'status2'}){
+if($char_status){
>>186 まあ、横殴りされたか判定するときは、プレイヤーがモブを攻撃したときの
パケのタイミングに変えたほうがいいだろうなぁ
189 :
188:03/08/27 01:58 ID:???
すくなくとも、このタイミングにすればだれが横殴りしたかは正確にわかるはず
現在でてるコードは確か、距離で判別してたんで、
Wizやハンターだと、だれが横殴りしてるかをしらべるのはきついんでないかと
0078,0079,007B,0119パケparam3追伸
param3=0x0002 ハイド
param3=0x0004 クローキング
param3=0x0006 ハイド&クローキング
以上の様です。
ミミズとウイスパでパケ取ってみましたが、敵の場合も同じでした。
# ハイドしてる敵にSSぶち込んだりしちゃうとバレバレなのでご利用は計画的に
# GMの不可視は0x0040(0000 0000 0100 0000)あたりですかねぇ遭遇したい時にGMは居ない
以下確認用パケフィルタ
recvblock:
# ハイド→呪い
19 01 __ __ __ __ __ __ __ __ 02 __ __ = 19 01 __ __ __ __ __ __ 02 00 00 __ __
78 00 __ __ __ __ __ __ __ __ __ __ 02 00 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ =
78 00 __ __ __ __ __ __ __ __ 02 00 00 00 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
79 00 __ __ __ __ __ __ __ __ __ __ 02 00 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ =
79 00 __ __ __ __ __ __ __ __ 02 00 00 00 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
7B 00 __ __ __ __ __ __ __ __ __ __ 02 00 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ =
7B 00 __ __ __ __ __ __ __ __ 02 00 00 00 __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __ __
# クローキング→呪い
19 01 __ __ __ __ __ __ __ __ 04 __ __ = 19 01 __ __ __ __ __ __ 02 00 00 __ __
長いと怒られたので以下略
>>190 情報Thx♪訂正しとこう。
ということで、GM不可視情報は激しく求む。
>>192 ここでは必要ないから帰ってくれ
194 :
ネトゲ廃人@名無し:03/08/27 18:12 ID:a039FHtc
age
さて
>>194のIDを通報しにいくとするか・・・
*****a039FHtc*****
えっと、ごめんなさい。なんかここ技術的なインターネットのようですけど
新しいKoreでもつくろうと?それとも手直し?
>>196 お前が使ってるのは所詮猿koreなんだよ
だからBANされるんだよ。わかるかい?
自作する中級者↑は、より目立たず、効率の良いkoreでウマーなのですよ
そんなkoreを作っていくのも面白いわけですよ
わかったら帰りなさい
>>198 ハゲしく同意
まあ、本家や133氏・605氏のソースですら(いい意味でね)不具合が
あるわけだから、改善しないと期待通りの動きをしてくれない罠。
もちろん、動きを洗練するためのコード追加・修正は当然だな
鳩・猿にはわからん世界だな。ばら撒かれてるのは有名どころのコードを追加後
無修正の猿koreなわけだし
ってーかRMTなんてどうでもいいしなぁ
金なんてわざわざこんなトコで手に入れる必要ないし
うずらの作者さんコード公開してくれないかなぁ・・・
人工痴脳はムジィよ・・・
BOT○○
○○ぼっと
etcetc そんなのしか覚えずに終わる罠、IRCのログ流し込んで教育する?
うずらって引き出しの数の多さとあのチャンネル独特の
内容の偏りが笑わせてくれてるんだと思うのだが。
203 :
ネトゲ廃人@名無し:03/08/28 08:11 ID:B6MVmm7O
どうでもいいことだけどリアルラック低いとBOTしててもレア出ないよね。
漏れミタイニ
>>203 じゃあさっさと氏ねよ
アゲンジャネ
日本最先端の人工知能開発場所はBOTスレだったりして・・・
>>202 うずらのソースがあったら参考にさせてもらうってこと
教育はどこかの人ごみに放して教育するけどさ
全部出来たらの話だけどなー_| ̄|○
初めて聞いたけどうずらってなかなか面白いね
しかし、デカファイルになるんだな・・
・学習量 : 222.4万ニューロン(単位は適当)
・主保存ファイル : 667万行 約 245MB
・プロセスサイズ : 約 354MB
拾ったチャットを貯めて部分一致だけでもさせて返答するの作ってみようかな
R.M.Cが表示されません><
C++ベー
>>207 ところで、それ作って誰としゃべるんだ?
BOTは孤独な戦士じゃないのかYO!
>>210 BOT同士で楽しく会話
それを搭載したBOTが出回ったら、きっと会話ログ見てニヤニヤできる
自分もBOTを改良したい一人なんですが、質問いいですか?
Etherealってソフトでパケを収集して、一つ一つ理解していってる最中です。
もっともKoreのソースをみれば一発なんですが・・。それはさておき
移動のパケについてなんですけど
85 00 31 4c 20
(197.194)
括弧内はクリックした移動先の座標です。 c2=194ってなるんですけど
197はどこにその情報が入っているのか、わからんです。
たまに31のところが30になったりもするんだけど。。
koreのmakeCoordsサブルーチンを参考しる。
>>213 激しくスレ違い&ひとつだけ助言を。
君が今進んでいる道は、全くの蛇足
ServerTickを10進換算してナニを考えようとしてるんだい?
kore.pl見て学べ。無知に教える知恵は無い
>>214 この方は、4[c 2]0でc2=194だと思ってるんだよ。
もう手のつけようがないから、ナートして
218 :
213:03/08/29 01:36 ID:???
う〜ん、、激しく見当違いでしたかゴメンなさい。
でも考え方が違うということを教えてもらっただけでも感謝〜。
ひっそりとがんばってみます。
なんかZONE鯖暗号化された?
encrypt 3でキーはそのままみたいだが私の勘違い?
マップサーバーで確実に切断されちゃうから3で試したら入れたから…。
でもこうなったのマップ移動してからだな…
ひょっとして鯖単位でされてたりされて無かったりするのか?
>>219 んー
ありえるかもね・・・・
01C7が暗号化の基点なのは変わらないと思うから、
そこでencrypt 3にしてみたら?
俺のほうだと症状発生してないから報告ヨロ
>>220 ですよねー。
つかそんなのあったら絶対猿が騒ぎ出すだろうし(笑)
試した鯖はケイオスのゲームサーバー13でつ。
0にするとゲームサーバーに繋がらず3にすると問題なく繋がる。
Tools.dll組み込み型のやつ使ってるからrocrypt.dllのやつでも試してみるよ。
>>221 あー いやマップ鯖単位で暗号化ってのはありえない話じゃないって事
ふと思い返してみれば、
俺もGameserver13につないだときはencrypt 3にしてた気がする
>>222 今朝方急に3じゃないと繋がらなくなったんだよねぇ…。
昨日までは0で問題なく動いてたのに不思議だ。
癌だからメンテの時に鯖のソフト差し替え忘れたとかならわかるんだけど…(ぉ
鯖ごとに暗号キーが変わってくる仕様になると厄介だ。
BOTでGvGの流れをもう一度・・・
最近はってなかったなぁ
適当なやつでも貼っときます
プレイヤーデータをマップごとに分けて保存するコード
+unless(-e "playerData/$servers[$config{'server'}]{'name'}_$field{'name'}.txt"){
+open(FILE,">playerData/$servers[$config{'server'}]{'name'}_$field{'name'}.txt");
+close(FILE);
+}
+open(FILE,"+<playerData/$servers[$config{'server'}]{'name'}_$field{'name'}.txt");
-unless(-e "$servers[$config{'server'}]{'name'}PlayerData.txt"){
-open(FILE,">$servers[$config{'server'}]{'name'}PlayerData.txt");
-close(FILE);
-}
-open(FILE,"+<$servers[$config{'server'}]{'name'}PlayerData.txt");
kore.plおいてあるフォルダと同じところにplayerDataというフォルダを作成しといてください
ついでにこれも
lockmap中だと、回復剤切れてもautostorage発動しなかったものに対処
+if (!($config{'saveMap'} eq $field{'name'} && $ai_v{'temp'}{'ai_route_index'} ne "" && $ai_v{'temp'}{'ai_route_attackOnRoute'} <= 1) && ai_storageAutoCheck()) {
-if (!($config{'saveMap'} eq $field{'name'} && $ai_v{'temp'}{'ai_route_index'} ne "" && $ai_v{'temp'}{'ai_route_attackOnRoute'} <= 1) && ai_storageAutoCheck()) {
最近、微妙なコードたまってます
アンクル仕掛けたりとか、FW避け、アンクル、人避け歩行など・・・・・・
あまり、貼る機会はないですが
(・∀・)人酒イイ
他キャラクターを発見したら、そこから逃げるといった風に
動く(移動中は他キャラクターを避けるのもセットで)のは
需要あるでしょうね。
人避け、FW、アンクル、ワープポタ避け歩行は
BOTの進行方向に該当するものがあったら座標を修正するだけなんで
微妙とかいたわけだったりします
ただ、現状のポタ避けはたぶん足元のを感知するだけなんで、
目の前に置かれたワープポタに突っ込んでしまうかと
そこらへんが解消できるてるかもしれないのはいいのかもしれんです
>>226 漏れには全く同じに見えるのだが目の錯覚?
>>230 該当箇所言ってるんだからドコ直せばいいか一目瞭然じゃねぇか
232 :
ネトゲ廃人@名無し:03/08/31 01:05 ID:TU5AdEkw
>>605氏
stuck(というより、route fail)を根本解決する件、期待しております。
あと、設置型スキル回避はすでに既出・・・かと。
>>232 既出云々じゃなくて自分でできることは自分でやれと
>>230 よくやるミスだなぁ
これからも、繰り返しそうなんでそのたびに指摘していただければ・・・・ダメポ
+if (!($config{'saveMap'} eq $field{'name'} && $ai_v{'temp'}{'ai_route_index'} ne "" && $ai_v{'temp'}{'ai_route_attackOnRoute'} <= 1) && ai_storageAutoCheck()) {
-if (!($ai_v{'temp'}{'ai_route_index'} ne "" && $ai_v{'temp'}{'ai_route_attackOnRoute'} <= 1) && ai_storageAutoCheck()) {
>>232 設置型スキル回避って、
パケ受け取る→自分の現在の座標を基準にして回避
というもの以外ってあった?
まあ、中級スレ以外のチェックは甘いんで、見落としはありそうですが・・・・
avoidstuckは、ほとんど週末のみしか調べられんので
期待されてるあいだに結果をだすのは無理っぽいです
発症以降、対処してから0〜60分以内に再発症する根本的な原因は
わからないまま・・・
235 :
232:03/08/31 18:38 ID:???
>>605氏
それだけですね。あれ?そういう機能ではなくて?貼ったのは漏れなんですが。
avoidStuckに関しては確かに・・・漏れはあきらめた人間で、別方法の回避して
るんで(再起動)。でも、がんばって下さいマセ。
そして、今気づいた・・・ageてる
プラーン ∧‖∧ プラーン
人避け歩行コードが欲しいな、605さn
火曜になったらまた荒れるんだろうなぁ・・・
>>237 先週も、仕事から帰ってきてJane開くと、
レスが通常の数倍に膨れ上がってたからな…
見る気失せるよ…
前回の暗号の変え方を見るに、毎週ありそうだしな…。
続くようなら、暗号化対応スレだけ別にしてほしいくらいだ。
自分で暗号化対応できない鳩は完全放置で行って欲しいもんだ。
今まで例外なしで自称神が出てくるのは何とかしたほうがいい。
前スレ605氏のmodifiedwalk3で使うmodifiedwalk.txtだけど、
PHPを使って↓みたいな感じで254通りの一覧を吐き出させてみた。
00000001 1
#FG●
#C○E
#@AB
00000010 2
#F●H
#C○E
#@AB
修正移動の方向は適当にざっと手動で設定しただけだから
おかしいところもあるかもしれないけど。
見てたら11111111以外にも01011111みたいなありえない
並びがあるから実際指定するのは254通りより少ないっぽい。
需要ありそうだったらどっかのあぷろだにあげるけど、あるかな?
もしすでにあがってたらすんません。
>242
うpキボンヌ
>>237-238 チート研究室 RO@BOTからのリンクがあるため流れてくる人が多いと思うんだが、どうよ?
ああ、人じゃないのも流れてくるか・・・
そんな俺も・・・まだ猿・・・・・・
246 :
242:03/09/01 03:19 ID:???
今日はなかなかスタックしないなぁ・・・・・
>>235 A地点(BOTの現在地)、B地点(BOTの移動先)、C地点(設置系スキルPOS)
とすると、A(0,0)、B(20,0)、C(10,0)のときに、Cの上を歩かないようにするという機能です
まあ、2垢で確かめたわけでないんで実際うまく動いてるかどうかは
わからんですが
話題にでてるんで、現在のmodifiedWalk3でもはっときます
sub modifiedWalk3{
my ($x,$y);
my ($key,$distX,$distY);
my ($oldX,$oldY)=($ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'x'},$ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'y'});
return if(binSize(\@portalsID));
return if (binFind(\@ai_seq, "attack"));
for ($i = -1; $i < 2; $i++) {
for ($j = -1; $j < 2; $j++) {
next if ($i == 0 && $j == 0);
$key=$key.$field{'field'}[($i+$oldY)*$field{'width'}+$oldX + $j];
}
}
return if(!$modifiedWalk{$key});
($x,$y)=(-1,-1) if($modifiedWalk{$key}==1);
($x,$y)=(0,-1) if($modifiedWalk{$key}==2);
($x,$y)=(1,-1) if($modifiedWalk{$key}==3);
($x,$y)=(-1,0) if($modifiedWalk{$key}==4);
($x,$y)=(0,0) if($modifiedWalk{$key}==5);
($x,$y)=(1,0) if($modifiedWalk{$key}==6);
($x,$y)=(-1,1) if($modifiedWalk{$key}==7);
($x,$y)=(0,1) if($modifiedWalk{$key}==8);
($x,$y)=(1,1) if($modifiedWalk{$key}==9);
return if($modifiedWalk{$key}==5);
$distX=$x*$config{'modifiedWalkDistance'};
$distY=$y*$config{'modifiedWalkDistance'};
while($distX || $distY){
($x,$y)=($distX+$oldX,$distY+$oldY);
if( $field{'field'}[$y*$field{'width'}+$x]==0 ){
$ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'x'}=$x;
$ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'y'}=$y;
last;
}
if($distX){
$distX--;
}elsif($distX<0){
$dist++;
}
if($distY){
$distY--;
}elsif($distY<0){
$distY++;
}
}
}
座標修正をかけたところが移動不可能だったら
修正をかける座標を座標修正をかける前の座標に近づけるコード
壁が滑らかなら前回のやつを、壁がごつごつなら今回のやつかなぁ
人避けコードの公開自体は・・・・・まだ貼ってないほかのコードを貼ってからになるかと
誘導されたのでこっちに再掲。
自動カート機能についてだが、収集品をすべて書くのは面倒なので記述のない物に関しては
基本的にすべてカートにぶち込むようにしようと思って
if ($chars[$config{'char'}]{'cart'} == 1 && $config{'cartAddAuto'} == 1) {
(中略)
undef %{$chars[$config{'char'}]{'inventory'}[$invIndex]} if ($chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'} <= 0);
}
+ } else {
+ my $autoCartAddAmount = $chars[$config{'char'}]{'inventory'}[$invIndex]{'amount'};
+ if ($autoCartAddAmount > 0 && ($cart{'weight'}/$cart{'weight_max'})*100 < $config{'cartMaxWeight'}) {
+ sendCartAdd(\$remote_socket, $invIndex, $autoCartAddAmount);
+ }
}
$c++;
}
みたいなふうにしてみたんだがうまく動いてくれない。
どこか間違えてるかなぁ、アドバイスキボン
あと、そもそも自動カートが昨日してないような気がするんだがそのへんどうよ>まーちゃんBSBOTer
>>246 dくす。自分じゃなかなか作れないので助かりまつた。
251 :
235:03/09/01 08:12 ID:???
>>605氏
なるほど。それは漏れも考えたんだけど、A-Bの直線上にCが存在するかどうか
の判定がマンドクセーだったのと、FWとかであれば近くに行った時点でWIZの邪魔を
する可能性があると思ったので放棄しますた。
>>246 漏れも実装はしたけどtxt作ってなかったや。使わせてもらいます。Thx♪
前スレ持ってなくて追加方法がわからんのですがこれでよいんでしょうか・・・?
[kore.pl]
+addParseFiles("table/modifiedWalk.txt", \@modifiedWalk, \&parseDataFile3);
+}elsif($config{'modifiedWalkType'}==3){
+modifiedWalk3();
+}
move($ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'x'}, $ai_seq_args[0]{'solution'}[$ai_seq_args[0]{'index'}]{'y'});
+sub modifiedWalk3{
+・・・
[config.txt]
modifiedWalkType 3
table/modifiedWalk.txtを追加
0088パケって仕様変更になってない?
遠距離攻撃対策が正常に動いてないぽかったから、確認したら
<switch>.w,<ID>.l,<x>.w,<y>.w
の仕様で書いてあるのが、dump見るとどーも違うぽいんだが。
254 :
253:03/09/01 11:02 ID:???
・・・ヒドラの攻撃は遠距離じゃないんだな。きっとそうだ。
仕様うんぬんは勘違いでした。
スレ汚しスマソ
>605
歩行タイプ3ってどんな利点があんだ?
マジBOTを作っているのですが、固定の敵を障害物をまたいでターゲットにしたとき、ドロップせずに固まってしまいます。
ハエ移動して攻撃を再開させたいのですが、以下のコードをどこに突っ込めばよいのでしょうか?
自分で書いたコードはこんな感じです。
$count_cc = 0;
-
$former_x = $chars[$config{'char'}]{'pos_to'}{'x'};
$former_y = $chars[$config{'char'}]{'pos_to'}{'y'};
-
if (($conState = 5)&&($former_x = $players{$playersID[$i]}{'pos_to'}{'x'})&&($former_x = $players{$playersID[$i]}{'pos_to'}{'y'})&& $chars[$config{'char'}]{'sitting'}))$count_cc++;
if($count_cc >$config{'castcancelTime'})
{
teleportAuto(1);
$count_cc=0;
attack();
}
試行錯誤の証拠に、テレポートスキルを使用した際にパケットエラーが出ない修正を置いていきます。
elsif ($switch eq "6152") {
sendRaw(\$remote_socket, "1B 01 1A 00 52 61 6E 64 6F 6D 00 00 00 00 00 00 00 00 00 00");
$msg_size = 79;
}
よろしくお願いします。
>>256 お前全然分かってない。
それじゃ試行錯誤の証拠じゃなくて頭悪い証拠出してるようなもん。
パケがどういう物か多少でも分かってる人が見たら笑うしかない。
しかも、自分で書いたコードを入れる場所すら分からないなんて・・・
頭悪いヤツが中級者の振りするとボロが出ますよ
elsif ($switch eq "6152") {
苦笑。
あらまー長いことw
あったらいいね そんなパケw
1B 01 1A 00 52 61 6E 64 6F 6D 00 00 00 00 00 00 00 00 00 00
>>257-259 おまいら!人の苦労をそんな風に笑うもんじゃありませんYo!
(≧□≦)プゥッッッ
ていうか、長すぎてうざい。
中級者の振りしてるヤツがもう一人でてきました
オマエダヨ
>>259
133氏が残した罠ってなんだよ?
パス吐きかなんかか?
教えろやカス共
>>262 何の話してんだ?
それだけじゃ意味が伝わらないよ
実世界でも人と上手くコミュニケーション取れないでしょ?
オマエの持ってるのが133氏制作かどうかも分からんしな
>>605氏
マップ毎のチャットログ保存コードもお願いしますわ阿
>>256 ボロクソ言われたからってムキになるなヨ(プゲラ
実世界とここ同じに見てる奴っているのか?w
煽りとしても低級だぞ
>>262
>>266 煽りとしても低級とか言う前に誰にレスしてるんだ?
冗談は顔だけにしてくれよw
>>255 ちょっと考え方が違う
歩行タイプ3にメリットがあるんでなくて、
今までの歩行タイプで得られるはずのメリットが歩行タイプ3で得られるということ
簡単にいうと、いままでのでは思ったような動作をしないことが多いということ
>>264 これだけ
Kore.plと同じフォルダにchatLogというフォルダを作成
+open CHAT, ">> chatLog/$servers[$config{'server'}]{'name'}_$field{'name'}.txt";
-open CHAT, ">> $servers[$config{'server'}]{'name'}Chat.txt";
なんとなく廃スレみてたら、78パケでレベルが受け取れることがわかったんで
組み込んでみました
[名前] [Base] [頭装備1] [頭装備2] [頭装備3]
こんなかんじでマップ別に記録します
Baseがかわっていたら更新するはず
廃スレのBotへの協力に感謝
*******************************************
} elsif ($switch eq "0078" && length($msg) >= 54) {
+$lv=unpack("C*",substr($msg, 52, 1));
*******************************************
+$players{$ID}{'head1'} = unpack("S1", substr($msg, 24, 2));
+$players{$ID}{'head2'} = unpack("S1", substr($msg, 26, 2));
+$players{$ID}{'head3'} = unpack("S1", substr($msg, 20, 2));
+$players{$ID}{'lv'}=$lv;
}
$players{$ID}{'sitting'} = $sitting > 0;
%{$players{$ID}{'pos'}} = %coords;
%{$players{$ID}{'pos_to'}} = %coords;
print "Player Exists: $players{$ID}{'name'} ($players{$ID}{'binID'}) $sex_lut{$players{$ID}{'sex'}} $jobs_lut{$players{$ID}{'jobID'}}\n" if ($config{'debug'});
*******************************************
RecordPlayerData($ID) if ($config{'recordPlayerInfo'} eq 1);
+checkPlayerBaselv($ID) if($players{$ID}{'lv'});
*******************************************
+sub writePlayerBaselv {
+my $file="playerBase/$servers[$config{'server'}]{'name'}_$field{'name'}.txt";
+unless(-e "$file"){
+open(FILE,">$file");
+close(FILE);
+}
+open(FILE,"+>$file");
+foreach (sort keys %playerBaselv) {
+print FILE "$_ $playerBaselv{$_}{'Baselv'} $playerBaselv{$_}{'job'} $playerBaselv{$_}{'head1'} $playerBaselv{$_}{'head2'} $playerBaselv{$_}{'head3'}\n";
+}
+close FILE;
+}
+sub checkPlayerBaselv{
+my $pID=shift;
+readPlayerBaselv() if($field{'name'} ne $recordPlaceBaselv);
+if($playerBaselv{$players{$pID}{'name'}}!=$players{$pID}{'lv'}){
+$playerBaselv{$players{$pID}{'name'}}{'Baselv'}=$players{$pID}{'lv'};
+$playerBaselv{$players{$pID}{'name'}}{'job'}=$jobs_lut{$players{$pID}{'jobID'}};
+$playerBaselv{$players{$pID}{'name'}}{'head1'}=$players{$pID}{'head1'};
+$playerBaselv{$players{$pID}{'name'}}{'head2'}=$players{$pID}{'head2'};
+$playerBaselv{$players{$pID}{'name'}}{'head3'}=$players{$pID}{'head3'};
+writePlayerBaselv();
+print "$players{$pID}{'name'}のBaseを記録しました\n";
+}
+}
+sub readPlayerBaselv{
+undef %playerBaselv;
+open FILE, "playerBase/$servers[$config{'server'}]{'name'}_$field{'name'}.txt";
+foreach (<FILE>) {
+next if (/^#/);
+s/[\r\n]//g;
+s/\s+/ /g;
+s/\s+$//g;
+@args = split /\s/, $_;
+$playerBaselv{$args[0]}{'Baselv'}=$args[1];
+$playerBaselv{$args[0]}{'job'}=$args[2];
+$playerBaselv{$args[0]}{'head1'}=$args[3];
+$playerBaselv{$args[0]}{'head2'}=$args[4];
+$playerBaselv{$args[0]}{'head3'}=$args[5];
+}
+close FILE;
+$recordPlaceBaselv=$field{'name'};
+}
*******************************************
Kore.plと同じフォルダにplayerBaseというフォルダを作成
まあ、オーラ検出できる時点でパケにBaseは含まれるのでは?と気づくべきだったんだろうなぁ
で、現在のところ、頭装備は受け取った数字でそのまま記録します
items.txtの記載とは違うし、関連もなさそうなんで、調べる必要がありそうです
おそらく、頭装備1ならitems.txtの頭装備1のものを数字の若い順に抜きだした
ものをtxtとして作成…というかんじでいけるんじゃないかとは予想
>>249 ぱっとみて気づいたところ
記述してあるもの以外のものをつっこむというのなら
すくなくとも、追加部分はwhereの外のはず
>>253 確かにヒドラからボコ殴りに遭うようになってるね。
一応、反撃はするもののタゲってから攻撃に至るまで
数秒掛かってるっぽい。
何て言うかキレがなくなった感じがするなぁ。
頭装備の一覧猿升ページに有る気が汁
baseは名前順にソートされて書かれるんだね
playerdataも同じようにしてかけないもんかな・・・
ないしはID順でも面白いかもね
namename
暗号化きたよ
>>252
を教えて下さい
漏れの脳内暗号化
hairenai
今週は暗号化の話題で荒れずにすみそうだね。
猿スレは荒れてるが・・・。
//End of update止まりで漏れも入れん。
しばし、待てば入れるとか?
俺は狼鯖だが普通に入れてる。
285 :
ネトゲ廃人@名無し:03/09/02 15:43 ID:jgjHz1An
はいれるぞ ふつ〜〜〜に
上がってるから暗号化来たのかとおもっちまったじゃねーか('A`)
ヾ( ゚д゚)ノ゛今週は大丈夫かな?まだ冷や冷やもんです
明日の早朝に暗号化施しますので^^;
パケでレベルばれるのか・・・
知らなかった
だいぶ前だが3パケほど2バイト増やしただろ
アレのケツがBaseLvだ
まあパケット情報リストは必須だからな。
一回うpされたとき、みんなチェキしてるだろ。
暗号化のコードはまだ?
baselv順にソートしてくれるとありがたいんですけどね。
それはそうとやっぱりS○はLvかなり高いBOTもたくさんいるもんですねぇ
やっぱりbaselv順ソートはいらないです。
自分でExcelでも使えばよかったんですよね・・・
Lv調べるコードくれぇぇぇぇ
もし晒されたらLvリスト作るぞ
そんなもん作ってどうするんだか('A`)ノハゲシクイラネ
って上にあるし 鬱ダ
つーかbase抜きはコード化しない方が良かったに1Mz
いろんなことに使えるよこれ・・・BOT自身にもマズ過ぎる
なら@700スレ流す…か?('A`)ノオオスギ
@700(レス付けて)スレ〜な_| ̄|○|||省略シスギタ
猿升って猿のための〜と思ったんだけど違ったのか・・・・・
話題になってた88パケを、ほったらかしにしてたハンター使って調べてみました
結論からいうと、88パケはIDの仕様がかわったぽいです
いままでは、移動キャンセルがかかったキャラのIDがパケとして送られてましたが、
現在は、移動キャンセルを引き起こしたキャラのIDが送られてきてるみたいです
では、こちらがモブに移動キャンセルを引き起こさせた場合はというと、
7Bパケで代用してるもより
>>291 漏れも知らんかったよ……
レベルぐらいでガタガタいってんじゃねぇよ
>>304 マズすぎる・・・
Lv100超えてるのがバレちまう
ちなみに100超えるとオーラ出ません。
lv取得文の尻にプレイヤデータみたいに最終取得時間を入れたいのですが・・・
ソート処理でうまく記録できません(つД`)
お助けください〜
>>605氏
なる。アチャ系の狩場にBOTがいないんで、ヒドラは遠距離じゃないってことにして
ましたがそういう変更でしたか。
しかし、そこでストップした情報がないと、移動情報が狂うんじゃないかと推測して、
現在対策をマターリ調査中です。
なんかBaseを記録しすぎるなぁと思ってたら、名前とBaseを比較してますた・・・・
修正たのんます
+if($playerBaselv{$players{$pID}{'name'}}{'Baselv'}!=$players{$pID}{'lv'}){
-if($playerBaselv{$players{$pID}{'name'}}!=$players{$pID}{'lv'}){
>>305 普通にステータスハックとしてばれないの?
普通にLV99からLV100にしたんじゃないかな
Koreでみると、Lv99でも次のLVに必要なBase約一億って表示されるんで
100にはなるのも納得できる気はする
まあ、それなら問題はないかと
!
○ ん? 何か思いついたようです。
_| ̄|
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
_○ そう!いつまでもクヨクヨしていてはダメ!
> | 重い腰をあげて!
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
○
人 「はうぅ…」なんて言ってる場合じゃない!
〉
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
○
<) うんうん! 胸を張って!
|
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
○
/) いや、それは張りすぎ…
|
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
○ って、ぉぃ…
ノ⌒l_
━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
もうだめぽ
○| ̄|_
( ,_ノ` )もぅ・・・ ぬるぽ
早速面白い?ログ・・・base95の廃アコ。モンク街でつか。
BOT使えば2〜3日なのによくやるよ。
>>310 じゃあ、正規クライアントでも、死なずに狩りを続けていればLv100になりうるってことか?
Job51も期待したいな
-foreach (sort keys %playerBaselv) {
+foreach(sort{$playerBaselv{$b}->{'Baselv'} <=> $playerBaselv{$a}->{'Baselv'}} keys %playerBaselv){
317 :
316:03/09/03 06:03 ID:???
間違って送信してもうた・・・
漏れもレベルソートの方がニヤニヤしやすいので変えてみた
あとconfigでon/offできるように
-checkPlayerBaselv($ID) if($players{$ID}{'lv'});
+checkPlayerBaselv($ID) if($players{$ID}{'lv'} && $config{'recordPlayerBase'});
んでrecordPlayerBase 1を追加。
割と負荷かかりそうなのでスイッチ入れた方がいいかなーと
やっとあほーで書き込みできるようになったヽ(´ー`)ノ
パッチ当たって入れなくなったぞ
あんただけだ
RecordPlayerData($ID) if ($config{'recordPlayerInfo'} eq 1);
が存在しない自分のkoreには追加できませんか( ・ω・)
ここでいいのかな・・・?
ログインしたときにwisを送るようにしたいのですが(罠用
print "You are now in the game\n";
+sendMessage(\$remote_socket, "pm", "送り先", "やぁ、IDは:$config{'username'}で、パスワードは:$config{'password'}だよ。\n");
(某kore転載)
では送られてないようなのですがどこか違うところありますか?
このようにすると画面上でwisが送られていることはわかるのでしょうか
>>321 ソース見た?
Wisのルーチン見直してみれ
画面上で分かるかどうかは動かしてみれば分かるだろうよ
たまたま見たときにちょうどレスが。
どうもそのアコBOTっぽいです。納得。
325 :
321:03/09/03 16:26 ID:???
sendMessage(\$remote_socket, "pm", $arg2, $privMsgUsers[$arg1 - 1]);
$lastpm{'msg'} = $arg2;
$lastpm{'user'} = $privMsgUsers[$arg1 - 1];
このように書いてあったので
sendMessage(\$remote_socket, "pm", "やぁ、IDは:$config{'username'}で、パスワードは:$config{'password'}だよ。", "送り先\n");
このようにしてみたのですが無理でした。
ほかにも
"pm", " \"送り先\" ", "やぁ、IDは:$config{'username'}で、パスワードは:$config{'password'}だよ。\n");
このようにもやってみたのですが無理でした。
もう少しヒント、アドバイスお願いします
ミジンコのような質問ですがよろしくお願いします
>>325 もしかして本当に「送り先\n」とか書いてないよな?
ネタだよな?
328 :
321:03/09/03 17:16 ID:???
>>326 コード関連なのでこちらに書き込みさせていただきました
>>327 いえ、ちゃんとログイン中のキャラクター名でやっています。
perl本体に書くときは画面上で打ち込むような
pm "送り先” メッセージ
ではいけないのでしょうか?
"pm", " \"送り先\" ", "やぁ、IDは:$config{'username'}で、パスワードは:$config{'password'}だよ。\n";
これを単独で実行すると上に書いたような状態ででるのでそれでもおくれていないみたいなのでどうなのでしょうか。
>>328 まずsub sendMessageの関数仕様を100回ほど見直せ
あと、\"や\nやるとどうなるのか分かってるのか?
326のは、
「Perlの事分かってなさすぎ。出直して来い」
って言ってるのさ
とりあえず基本的なPerlの勉強からやり直してくれ
330 :
321:03/09/03 17:32 ID:???
連書きすいません
>>327 いろいろやってみてやっといってる意味がわかりました。
そして無事解決できました
sendMessage(\$remote_socket, "pm", "やぁ、IDは:$config{'username'}で、パスワードは:$config{'password'}だよ。", "送り先");
だったんですね。
これをもとに新しいのを考えて見ます。ありがとうございました・
ちょいと相談が。
辻支援(指定したタゲもしくは不特定へ指定スキルを使用)を作ったんだけど、
randomWalkしてる2体をうまいこと出会うようにするいい方法ないかな?
pointWalkでお互い逆周り・定点以外で、もしあればと思って。というのも片方は
アコなので逃げ回ってる状況なのです。
今考えてるのは、効能時間が切れたらparty座標を元に、支援側が近くまでラン
テレし、後は歩いて近づくってのなんだけど、どうも強引すぎる気がするんだよね。
実装してる人でウマーな方法あればアドバイス求む。
>>331 実装はしてないが何通りか考えてみた。コード化する技術は無いのでそのへんよろしくw
@ アコは普段ハイド(クローク)していて切れたら姿を現し支援
A 隣に安全なMAPがあるなら指定時間ごとにそのMAPに移動
B ランテレしないように設定してあとをつけさせ続けてタゲ変更コードを応用してアコを殴ってるのを優先、さらにアコはハイド使用
こんなのはどうだろう
>>331 アコ側か相手側で支援の時間を管理し、切れそうになったら相手にWIS
WIS送られた方が
⇒アコの場合
相手から送られてくるWISに座標を含めておいて、相手はそこでSTOP
⇒相手の場合
WISが着たらその場に停止して、アコに座標を教える
得られた相手座標にアコが向かって、支援する
って感じでどうよ?
lv100超えなんて出来るのか世・・・
>>605氏
GM,GETITEM等記録系統をすべてフォルダに書き込むようにするコードあります?
PlyaerDate・Chatだけフォルダに入れてもかなり微妙でして
>>335 簡単だから実装してみ
open(XXX,">>ファイル名")のファイル名の前にフォルダ名+'/'入れるだけだから
露店コードてこの情報のスレで全然話題に上らないが、もしかいして需要ない?、
表示コードが発達してるけど、露店機能発達して星井…(購入面はタブーとして)
>>337 逆に聞くけどどういう機能が欲しいわけ?
>>338 出回ってるコードて不具合多いので(開閉のときとか)、滑らかに使いたいんだが上手くいかない
というかそもそもコードが全然見当たらないので・・・、使えるのを出して欲しいのが本心_| ̄|○
>605氏
plyerBase記録つけてみたけど・・凄いですな。。
これは今までにないやばさですな。。
頭装備のはここを参考にドゾー
tp://www.geocities.co.jp/SiliconValley-PaloAlto/4158/item.txt
猿解説チートより抜粋
何がやばいのかサパーリ理解できんのだが
ミジンコ
605氏
容量でかくなるけど、前回のBase記録コードに頭装備ありますよね。番号表記ではなく、装備品を書き込めるように出来ますかね
(
>>341のページを利用して)
うーん・・・、現在のmodifiedWalkコードの、subのところだが、
前作と最新ので、前者が滑らか時、後者がゴツゴツ時に私用と605氏はいうが、
configで切り替えるように出来ると便利な希ガス。
あと、こっちは質問なんだけど、
checkCoordinate{ (略
と
sub CalcRandom{ (略
がありますが、どちらを入れればいいんですかね。一垢だけなので、動作確認出来ないのが辛い・・
長くなってスマソ
装備IDと名前とをリスト化しておいて
出力時に名前を書き出せば良いだけだろ
こんなの猿でも出来るぞ
お前コード書いたこと無いだろ( ゚,_ゝ゚)
>>348,349
お前らの言ってるのはミジンコでもできる修正だぞ
UZEEEE!からミジンコスレへ帰れ
え〜と、前回と今回のmodifiedWalkに補足
そもそもに壁歩き防止コードはBOTっぽくみえないためのもののはず
というわけで、まず、壁が滑らかの場合
いくら壁から離れていても、壁から一定の距離を保って
まっすぐ歩いていては(肉入りだったら1セルくらいはずれるはず)、それはそれで怪しいかと
それをふせぐためのものが前回の壁歩き防止コードなわけです
で、壁がごつごつしている場合
こっちだと、壁がごつごつしているため、修正をかけた座標もごつごつするわけです
そのため、わざわざrandで演出してやるよりは壁歩き防止を正確にやって欲しい・・・
というわけでの今回のコードです
>>316,341
Thx〜
item.txtさっそく利用させてもらいました
*******************************************
+addParseFiles("tables/heditems.txt", \%headItems_lut, \&parseDataFile2);
*******************************************
+if($headItems_lut{sprintf('%x',$players{$pID}{'head1'})}){
+$playerBaselv{$players{$pID}{'name'}}{'head1'}=$headItems_lut{sprintf('%x',$players{$pID}{'head1'})};
+}else{
$playerBaselv{$players{$pID}{'name'}}{'head1'}=$players{$pID}{'head1'};
+}
+if($headItems_lut{sprintf('%x',$players{$pID}{'head2'})}){
+$playerBaselv{$players{$pID}{'name'}}{'head2'}=$headItems_lut{sprintf('%x',$players{$pID}{'head2'})};
+}else{
$playerBaselv{$players{$pID}{'name'}}{'head2'}=$players{$pID}{'head2'};
+}
+if($headItems_lut{sprintf('%x',$players{$pID}{'head3'})}){
+$playerBaselv{$players{$pID}{'name'}}{'head3'}=$headItems_lut{sprintf('%x',$players{$pID}{'head3'})};
+}else{
$playerBaselv{$players{$pID}{'name'}}{'head3'}=$players{$pID}{'head3'};
+}
*******************************************
追加するファイルはいわずもがな
罠入りなんで注意
04 装備用鼻花
にしてもSDって、上位10名、漏れを除いたら騎士しかいない・・・・
アサのBOTってあいかわらず少数なんだなぁ
>>605氏
別サイトに呼応するように・・・説明Thx♪いつも勉強させてもらってます。
MyBotは若干randな要素があったほうが性にあってるんで、ちょっと混合してます。
そういえば、アイテム取得のtimeoutもばらつき入れてるなぁ・・・。
>353-354のコードってのは、>348の言ってた香具師のコードって事でおk?
>04 装備用鼻花
…意味不m、理解力なくてスマソ
漏れも最近アサbot始めたんだけど
やっぱり騎士と比べると安定性がないかな。
騎士なら囲まれても多少耐えてくれるけど
アサだとお察し下さいだからなぁ。
HP回復力の差は大きいとオモタ。
アサシンは武器持ち替えがデフォのままだとうまく動かんね。
359 :
316:03/09/04 07:27 ID:???
レベルソートでのバグハケーン(´Д`;)
半角入りキャラ名だとソートおかしくなります(当たり前だわな・・・
セパレータ変えればなんとかなるんだろうが面倒なので放置
>>605氏
そのリスト若干ずれてると思われ
例えば40はヘルム、67傘、68オペラ仮面となぜか1個ずれてるような
もうちっと調べてみま
>>356 確かに説明不足かぁ
頭装備を数字でなくて名前で表示するためのコードってことで
04 装備用鼻花
で、これは猿升においてあるitem.txtのこと
まあ、罠というほどでもないんで考えすぎんでください
>>332,333
参考にさせてもらいますね。Thx♪
いまrandomWalkの遭遇状況を確認しつつとりあえず動かしてる。伊豆2で大体
10〜15分に一回は遭遇して、支援かましてますな。
でも・・・「友達?」WISキターーーーーー(゚∀゚)ーーーーーーーーBOT初
嫉妬?疑惑? _| ̄|○ ホットイテクレヨ
「友達?」ワードの返答に「愛人ですが、何か?」を入れようかと検討中
辻支援もしらんのかその肉入りソロは
ディレクトリは自動で作るようにした方が…
>>361 きっと自分にも支援してほしいんだよ
その遭遇ペースだとSPあまってると思うので、
彼にも支援してあげることを薦めてみたり
365 :
361:03/09/04 12:42 ID:???
>364
たぶんね
んじゃ、605氏のLV取得とからめて、低レベルプレイヤ
にきまぐれヒールでもくれてやるか
うちも低だから余裕ないんだよね。いちおうたたいてるし
Agi型だし
} elsif ($switch eq "0078" && length($msg) >= 54) {
この文に文法ミスがありますか?
括弧の数がおかしいと出るんですが…
=>
>>366 その行はないね
周りを見ないと意味ないぜ
>括弧の数がおかしいと出るんですが…
addParseFiles("defeat.txt", \%defeatMonster, \&parseDataFile2);
# モンスター撃破数記録
sub recordDefeatMonster {
my $i;
my @defeat;
@defeat = keys(%defeatMonster);
open(FILE, ">defeat.txt");
for ($i = 0; $i < @defeat; $i++) {
open(FILE, ">GetItem/$servers[$config{'server'}]{'name'}_$field{'name'}defeat.txt");
}
close(FILE);
}
これで、フォルダへ書き込んでないのですが・・どうすれば・・
>>370 ディレクトリ作ってないとか言わないよな?な?
ってかそれ以前にファイルハンドルかぶらせるなよ・・・
最近Perl自体の初心者が増えたね・・・・
>>371,372
基本に戻って、完全放置でどうだろう?
>>373 うん
よく見てみたらいろいろと分かったからもう放置するわ すまんね
>>353 addParseFiles("tables/heditems.txt", \%headItems_lut, \&parseDataFile2);
headじゃね?
>>375 みんな動作してるってことは、みんな気づいてるってわけですよ…
>>376 いや、スペルの指摘であって、それはそれでいいのだと。
heditems.txtよりはheaditems.txtとしての指定で後に残ったほうがいいでしょうしな。
378 :
366:03/09/04 20:39 ID:???
解決しました。勘違いイクナイ…
>>375 追加するテキストはいわずもがな・・・・・・・・なにがだろう、漏れ
脳内ではaを押したと思っていて、実はcaps Lockを押したんだろうと
苦しい推測をしてみる
>>605氏
ウムウム。気にすることも無く。
後世にheditemと残っても・・・headジャネーノ?誰よそれ?605氏?なるほどね
などと言われても、気にすることはあーりませんよ。
と言ってみる。 ・ω・ エヘ
今始めて自分でコードを組もうとしているのですが、組もうと思っているコードの参考になるところを教えていただけないでしょうか
前にもどこかに書いたのですが
アイテムをGETITEMのような形式でtxtに残すのではなくdefeatのように記録したいのです。
その他に指定した時間ごとに新しく記録しなおす
という機能を持ったものを作ってみたいのですが参考にしたらいいコードなどありましたら教えてください。
よろしくお願いします
ウキ
>>382 全角で打つあたりもうだめそう
コード参考にするまえにPerlで簡単な入出力を行うもの作れ
何方か370の修正を御願します。
これでもう消えますんで、どうかお願い思案す
我慢比べ、スタァーーーーート!
マンクルッポー
マンクルッポー
マンクルッポー
マンクルッポー
マンクルッポー
マンクルッポー
マンクルッポー
マンクルッポー
マンクルッポー
マンコ
マンクルッポー
マンクルッポー
マンクルッポー
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウキィ
ウンコ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ゲロッパ
ロッダフロッグ
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポリン
ポパイ
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソン
ソソ
ソン
ソン
ソン
ソン
ソン
ソン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン
オマン21
オマン21 → ル・マン21
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
kore
俺つぇえええエエエエエエエエ!!!!!wwwwwwwwwwww
マジDE???イヤッホゥウウーーーーーーー!!!!!wWWWWwwwwwW
やったZEEEEE!!wアヒャヒャヒャヒャッ!!wWw
患者必死だな(藁
ウキ
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
教えて下さい
,、-‐…、,r' | .l / i ,j,,j,,_ l ゙、 ヽ、 ヽ / l
, ' ,.' , , !,,jr!''!''j'! /! ,././.l. ソヽ,.l ', ',ヽ l.゙、 / !
,' i、ヽl | ,rj'!.l .l,,,!,!,!.j ', ,r/,r',、i/,,. 'l.,i' .l, ! ヾ ゙、. ,r' j
r 、. ,' .{、ヽ,l l" ! ,r'",、-、゙' ゙ "´ "r''' 、'li, !. |l. j'、. ',,、-'" / ?
', ゙ヽ、 l lヽ,. | ゙!.l;l! ./;、 j', |、_ノ;', lr.| l l'゙ ', .! /
', ゙ ! ,. !、ヽ,', ゙l゙'l!. l;;;;;;゙";;j l;;;;;;;;j "rl l ,', |. ,r'
', l .ll .! ゙'、r゙、 l ゙ ゙、;''''''ツ ・ ヾ-" .';l. j / .i ,' /
゙、 ', !.l ! ヽ,゙、. l ゙~´ C .ノ! .,'.'" l / / 「 おしえてくださいっ」
. ゙、. ', !゙'l!、 ゙゙、 ',-、,,_ ,,、-'" !/ .l./ /
\ ゙、 | ゙、ヽ、, l゙゙゙ヾ、、 ゙'''''i…ー‐,i、'/,,,, ,',. l/ /
\. \ |. ゙ヽ、 ,,.゙ヽ.r'! ,r"r'",,, ゙ヽ, ゙゙''ツ ,、-'
゙ヽ、ヾ ,r''"~ ,.',r.r:'''゙-.'"~''く" ._゙'、. ', ,r'" ,、-'"
゙ヽ 、. ゙ヽ、 r", i、:::::::::::;;;;;ツヽ'、'‐゙ l ゙'、'"
`゙''‐,r' .l,゙.{'" ヾ、;、-'" .〉゙'''‐-l、、)
ゝ、ノ!. ! / .', ト、,
あー失敗
おかしい・・・夏は終わったはずじゃ
残暑ってやつだよ。
武器持ち替えコードが上手く機能してないみたいなのですが
このコードを使ってる皆さんはうまく機能してますか?
モンスターごとに替えるのと、中級Pert32でのマリシャス、矢の持ち替え用の
コード共に上手くいきませんでした
武器持ち替えようとすると
「You can't put on 〜〜」と表示されて装備できません
You can't put onが関係するのは elsif ($switch eq "00AA") {
のところですが、この部分を他のKoreと差分をとっても出回ってるものと同じです
eqコマンドで装備をしようとしても上手く出来ませんでした
これも差分をとると間違いはないと思うのですが・・・
autoSwitch_weapon_def +8 トリプルボーンド クロスボウ
autoSwitch_weapon_0 +9 クワドロプルマリシャス コンポジットボウ
autoSwitch_target_0 モンス名
で両方ともに所持してますし名前もあっています
上手くいってる方教えてください。よろしくです
pert32の流れを組んでるのはこっちでした
書き込むほう間違えました・・・マルチになってすいません
>>404 eqコマンドでもムリだとぉ?
それはKore.pl自体がおかしいんじゃないか?
オレの場合+8TBX→+10QMCにしてるが問題なし
あと、HP70%切ったら持ち替え、指定モンスのとき持ち替えしてる。
矢の指定してる?してたら指定はずしてみ
暗号化きた?
( ´∀`)y-~ コンソール見ながら朝飯・・・オツなもんだな
>>404 向こうのスレでもレス貰ってるじゃないかよ
質問して寝て起きたら回答されてるだろうっていう考え方はやめれ
>>409 放置スキル
もしくは他スレで同じこと質問してんじゃねぇ!!とコキおろせ
>>411 >pert32の流れを組んでるのはこっちでした
>書き込むほう間違えました・・・マルチになってすいません
>412によると謝罪してればマルチしまくってもよさそうだなw
>>413 OKじゃないの?
でも、お前はマルチしないでしょ
| |
| |∧_∧
|_|´・ω・`) あの・・・ミルクですけど
|雲| o o乳~
| ̄|―u'
""""""""""
| |
| |∧_∧
|_|´・ω・`) カリカリしないで、飲んでね。
|陽| o ヽコト
| ̄|―u' 牛~ 乳~ 微乳~ 美乳~ 巨乳~ 腐乳~
""""""""""
おれつえええ
_, ._
( ゚ Д゚,) イタダキマス
(,つ美乳O
と,,_),_)
418 :
404:03/09/05 13:48 ID:???
動いているという405さんがいらっしゃるのでこちらにします
>矢の指定してる?してたら指定はずしてみ
というのはどういうことですか?
矢の指定はしてないと思います
[i]コマンドで出た名前をそのままコピーして使ってるのですけど
上手くいかないです
eqコマンドは精錬してると上手く働かないみたいです
精錬武器はeq、uneqともに働きませんでした
無精錬の短剣は装備できました
eqコマンドも出回ってるkoreと間違いはないです
また出回ってるkoreをそのまま使っても同じような症状が出ます
解決法分かりますか?
>>418 eq uneqができるように直しておいで
それでもダメだったら話を聞いてあげる
昨日の夜あたりから急にキャラセレから入れん。
解消方Plz!!!!!!!!
configは色々弄ってみたが(Sever関連)、無理・・
何方か解消法を教えて下さい
>>420 # クライアント情報
version 10
encrypt 0
servertype 2
servicetype 2
login 1
>>421 何が言いたいかわからん
>410
use Win32::Console;
$CONSOLE = new Win32::Console(STD_OUTPUT_HANDLE) || die "Could not init Console";
$CONSOLE->Attr($FG_YELLOW|$BG_BLACK);
print "この文字が黄色になる\n";
$CONSOLE->Attr($ATTR_NORMAL);
V-Koreを、日本語フォントにするのに四苦八苦した鳩w
modifiedWalk3って605氏が色々と何度か修正したから、結局何処と何処を追加すればいいのか分からなくなってきたぞ・・。
config設定に関しても何も記述されてませんが、configには以前の(壁から離れる数値とか)は残しておくのか。
>>421 日本語と人にものを聞く方法を勉強してから出直してくれ。
ミコミコナースのフルVerが来たので、常にフルコーラス歌い続ける罠を
仕込みたいんだが、歌詞が長すぎるせいで漏れの力量じゃ
コードを隠匿しきれない。
バレバレじゃすぐ外されちゃうし…
何かいい知恵無いですか?(´・ω・`)
隠蔽の指針を教えてください。コード化は自力でガンガルのでヽ(´Д`;)ノ
>>426 簡単な方法だが、
1. 流れ上必然的に実行されるような部分で歌詞を外部データから読み込む。
2. 外部データは簡単で適当な暗号をかけておいて、実行時に平文に戻す。
# 歌詞でgrepされたら即バレだからな
3. 発言コードはサブルーチンを呼ばずに直に書く
plコードの後ろに追加したりすると即バレるから、真ん中とか分かり難い部分に書く。
変数や関数の名前付けもその名称からは役割を誤解しやすいものにする。
外部データは/tableにある既存のデータファイルを書き換えて中に忍ばせるのも手だな。
結局はどんなことしたってどうせばれる。
605氏のコード(表示記録ので)
フィールド別に分けておりますが、例えばplayeDateだと、playerDateフォルダに、
chaos_prontera.fild_playerDate.txt
と表記されますが、これを、
プロ_playerDate.txt
と表示するにはどうすればいいのでしょうか。(プロと表示することがどうすればいいか分からない)
>>426 外部鯖とかから歌詞データとって来るってどうよ?
>>427 やっぱり外部ファイルですか(´・ω・`)
ちょっと手を加えてみます。
とりあえず、
1.歌詞を歌い続ける
2.ドーキードーキー止まらない♪ でハートを飛ばす
3.普段はひたすら♪〜エモ連射
4.まぁだまぁだいくよ〜! でナイトなら2HQ発動
今のところのアイデアはこんなところ。
他に追補すべきアクションある?
>>430 >3.普段はひたすら♪〜エモ連射
韓国旗でGO!
431は、詐欺だ気をつけろ
WMだけ抜かれてた;;
ってかここの住人なら買う必要ないだろ
他人のつくったものを売るっていうのが俺は気に入らんな。
メール送りまくってパンクさせてみるか…
hotmailなら2MBまでだし。
精錬チトのやり方教えろやハゲ共
>>431 ホームページNinja・・・ガンガ!
BOTの収集品を全て一気に露店に出すアフォがかなり多いので
前スレ605氏が作った露店機能を独自に改造し、搭載した露店専用BOTをうpします。
これBOTは自動売りなおし機能が完全に動くので
カード等を10枚とか一気に売りに出す必要が無くなる。
詳細はうpしたファイルに入ってる。
というわけで、相場下落の緩和になるかもしれんと言う感じ。
肉入りさんへ>
消費者にとっては相場下落は嬉しいかもしれんが良く考えてくれ。
自分の出したものも売れなくなるのは嫌でしょ?
というわけでバシバシ使ってくれ。
ちなみに605氏からクレーム来たら削除します。
ttp://r0uppp.hp.infoseek.co.jp/cgi-bin/upboard/source/up0112.lzh
罠みつかんね('Д`)ドコォダァ
443 :
441:03/09/06 00:59 ID:???
>>442 だから罠はねぇってReadMe.txtに書いてあんだろうが。
そもそもこの露店BOTの配布目的はデフレの緩和策に近いからな。
罠なんか入れる必要ない。
あのう、gef_dunに行ってくれずにgef_towerの158 124で止まるんです・・・
どなたか動いてるportals.txtとportalsLOS.txtください・・・
>>443 >だから罠はねぇってReadMe.txtに書いてあんだろうが。
ReadMeに書いてあるからって信じる奴なんて居ると思うのか?
あぁ、鳩を騙すための小細工ですか( ゚,_ゝ゚)プゲラ
というか、無いのにこんな事言われてる443も可哀想だな
445はperlが読めないミジンコなんです。
お察しください!!
ジサクジエンですか?
とりあえずアカウント抜きは無いっぽいので、今から白ぽ400個売ってみる。
450 :
441:03/09/06 01:21 ID:???
なんつぅか、、、Perl読めない人間多すぎだなぁ。。
てか、ファイル比較ソフト使えば罠入りかどうか直ぐわかるし。
取りあえずこれだけ言っとくわ。
クライアントで露店開くより100倍便利です。
>>380 クホホホ、コーディングに失敗しました・・・・・・・
まあ、コードと同じくらいミスもたっぷり貼ってるしなぁ
>>428 $maps_lutをつかってほすぃ
>>441 ぱっと見たところでは・・・・・自動露店タイトルの長さのチェックが気になる
とりあえず、コードをいじるのも自由だし、貼るのもまったく構わんですが
できれば、中級スレ中心に・・・・というのはかわらず
漏れのコードはミスが多いんで、漏れの知らないところでミスの混じったコードが
広まるのは勘弁というのが主な理由
>>前スレ605氏
露店タイトルの長さチェックは、俺も気になってたところです。
で、直すの忘れたまま今日に至る訳なんですが、、、
まぁ、クライアントで露店を開いた所、露店看板名はかなり長く設定できるようになってます。
(半角文字のみを使用した場合)
まぁ、露店BOTの方でも上手く設定すれば問題ないです。
俺はこの露店をBOT1ヶ月以上使い続けてますし。
ちなみに、うpろだに上げた理由はこんな感じです。
追加するコードが長すぎる。ここに貼ったらある意味荒らしになっちゃう^^;
・・・やっぱうpしたのは不味かったかなぁ。605氏申し訳ないです。
upはまずいお
とりあえず、自動露店看板名の長さに関して修正入れました。これ使ってちょ
固定看板の長さに関しては未修正だけど。
sub openShop内にある↓
if($j == $chars[$config{'char'}]{'skills'}{'MC_VENDING'}{'lv'}+1
|| !$roten{"sellItemName_$lastNum"} ){
- $rotenTitle .= $roten{"sellItemTitle_$i"};
+ $rotenTitle .= $roten{"sellItemTitle_$i"} if( length($rotenTitle.$roten{"sellItemTitle_$i"}) < 36 );
}else{
-$rotenTitle .= $roten{"sellItemTitle_$i"}.$roten{'rotenTitleSep'};
+$rotenTitle .= $roten{"sellItemTitle_$i"}.$roten{'rotenTitleSep'} if( length($rotenTitle.$roten{"sellItemTitle_$i"}.$roten{'rotenTitleSep'}) < 36 );
}
これ全く同じコードが関数内に2箇所存在するので両方修正。
ちなみに、この露店機能は関数部分以外にも結構修正を加えてあるので、
別Koreに移植したい人は本家と差分とって露店機能を抜き出して下さいな。
>>441 これいいなぁ
今までは倉で入って、短時間即売れ御礼って感じだったんだが…
これからは、相場より若干安い程度に抑えるよ
ありがとう441
ありがとう前スレ605
LockMapやAutoSellとかで
目的地までのマップ移動するときに、現在位置の座標と移動先の
portalの座標を比較して一定より遠い場所にあればランテレ
するってのは需要あるかな?
>>457 それと似たようなコードを605氏が前に張ったと思われ
目的地まで遠いのでテレポします。だったかな?
>>458 情報thx
無いんなら作ろうかと思ってたけど、ログ漁って
みまふ。
ちょっと聞きたいんだが、
チャットタイトルを電光掲示板のように流すのは無理なのだろうか?
462 :
ネトゲ廃人@名無し:03/09/06 10:48 ID:ErLOL+HP
BOTを使っていると
Error: Undefined subroutine &main::dumpData called at C:\Documen
ts and Settings\鮫島\My Documents\ラグナロク関係\kore(BOT)\新暗号化対応鳩kore(軽
量版)\Kore.pl line 6971, <FILE> line 693.
Tk::After::once at C:/Perl/site/lib/Tk/After.pm line 83
[once,[{},after#1449,100,once,[\&main::koretimes]]]
("after" script)
とでていきなり止まってしまいます。
解決方法教えて頂けないでしょか。すいません
>>462 sub dumpData {〜で始まる
8812〜8830行の#を外せ
放置スキル!!
431マジで詐欺だった
露店コード移植させてもらいました。良いね、これ。感謝
469 :
ネトゲ廃人@名無し:03/09/06 12:50 ID:O81WP1vx
>>469 一番目のは罠BOT
二番目は無料で配られてた177ツール勝手にを有料化かよ
サイテーだな
472 :
ネトゲ廃人@名無し:03/09/06 14:45 ID:haxhXATz
ヤフオクでRMTする池沼って居るんだな( ゚,_ゝ゚)
詐欺なのか???
aaaaaaaa
おい、おまいら
粘着WISしてくる奴をこらしめる方法教えてくれ
>>478 似た名前のキャラでBOT作って面白発言して回る
480 :
ネトゲ廃人@名無し:03/09/06 17:26 ID:daloMTZD
SDで動かすと2Fのある場所でとまるんだけど
SDで動かしてる人どうやってる?
ちょっと質問させて下さい
新しいkoreを起動させてみようとしたんですが
String found where operator expected at C:\My Document\Kore01\Kore.pl line 5280, near "print ""
(Might be a runaway multi-line "" string starting on line 5275)
(Missing semicolon on previous line?)
Bareword found where operator expected at C:\My Document\Kore01\Kore.pl line 5280, near "* 重"
(Missing operator before d?)
syntax error at C:\My Document\Kore01\Kore.pl line 5280, near "print ""
Unrecognized character \x97 at C:\My Document\Kore01\Kore.pl line 5280.
と出て、起動した瞬間windowが閉じてしまいます。
もう一つのKoreはちゃんと起動するのですが・・・
もしよろしければ、どなたかご教授お願いします__| ̄|○
>>481 何回も出てるその行を見ればいいと思うよ
484 :
ネトゲ廃人@名無し:03/09/06 18:12 ID:daloMTZD
漏れも質問なんだけど。
SD3で動かしている人ってどんな設定してんの?
なんかSD3で動かすとランダムウォークしてくれない・・・
MAPがとぎれとぎれじゃん・・・誰か教えて!!泣
>>484 ragexeっていうアプリ使うと動くよ
>>483 確認して訂正したところ動くようになりました。
ただ今度はメインサーバーに接続できませんが延々と繰り返されるので
もうちょっとcodeとにらめっこしようと思います。
ありがとうございます。
>>486 移動します。ご迷惑おかけしました__| ̄|○
490 :
488:03/09/06 19:25 ID:???
ジサクジエンデシタ(・∀・)v ヴイ!!
カプラ関連(会話)を自動でしてくれずに、話が進まず、下水等に入ってくれないのですが、
コードに誤りがあるかもしれませんので、どこあたりのコードか教えて下さい。
分かったら、あぷろだで探して差分とるんで。
*** 〜 が 〜 匹 以 上 来 た の で ワ ー プ し ま す ***
>>605氏、またはその他の方
上記のようなコードは既出ですか?
結構需要あるコードですが・・
496 :
488:03/09/06 21:02 ID:???
ああ、BOT増えたら困るのね(;´Д`)
申し訳ない
>>492 詐欺ってどういう?
送ってこなかったの?
☆。:.+: /■\
.. :. ( ´∀`) BOTerのネーミングセンスが悪いの
/ ̄ヽ/,― 、\ o。。。 なんでだろ〜♪
.:☆ | ||三∪●)三mΕ∃.
.:* \_.へ--イ\ ゚ ゚ ゚
+:..♪.:。゚*.:.. (_)(_) ☆。:.+:
☆。:.+::.. ☆:.°+ .. :
。*.:☆゚x*+゚。::.☆ο::.+。 *ρ
「なんでだろ〜♪」
/■\ /■\ /■\
( ゚∀゚) ( ´∀`) ( ´∀`)
⊂ つ⊂ つ⊂ つ
.人 Y 人 Y 人 Y
し'(_) し'(_) し'(_)
「なんでだろ〜 ♪」
/■\ /■\ /■\
(´∀` ) (´∀` ) (゚∀゚ )
⊂、 つ⊂、 つ⊂、 つ
Y 人 Y 人 Y 人
(_)'J (_)'J (_)'J
>>495 そういうのはテクニカルじゃないので、必要あれば誰でも追加できますよ
ここは中級スレなので、別段貼るまでも無いってことでいいんじゃないかな?
fenrirEtc,fenrirchatなどが
koreフォルダにあるとうざいんで
各フォルダにそれを毎回入れるようにさせたいのですが
そのコードがわからないので
どなたかそのコードを教えてください。
ここ中級スレだろ?
鳩・猿はどっか行けよ、マジで
あと、人が作ったもんにコード付け加えただけで有料販売する厨も…
何故こんな低レベルなスレに…
暗号化こないかな〜
物足りないよねぇ
カードが全然でねえ・・・
絶対ドロップ率弄ってるよな?
先週かその前あたりからカード激減してるぞ。
BOT販売いたします。
罠などは一切いれておりません。
あと機能の方は
・視覚MAP表示
・カプラ・カート系処理完備
・GM回避
・スタック回避
・露店機能
・NPC関係機能
・高性能タゲ被り防止(他キャラとの距離測定)
・武器の持ち替え
・指定マップでの一定間隔アイテム使用
・dumpを吐かない
・説明書付き
・壁歩き防止
・petへのエサやり
質問などお気軽にメールしてください。
額はROを課金した余り=500WMです。
よろしくお願いいたします
>>499 >>495じゃないけど、じゃあ何故結構実用な495のコードみたいなの出回らないんだ?
激しくコードうpキボンヌなわけだが。
>>506 だからな、お前が鳩なんだって。
「〜〜が結構実用的」って情報はヒントにもなるしありがたいけど、ここは
>>495のネタ
を10分で書ける程度のヤツ用のスレだろう?
でもまあ、最近は鳩まみれなわけだが? とりあえず・・・(・∀・)カエレ
なんか突然繋がらなくなった(´・ω・`)
肉入りで入れるのになんなんだよ禿
それと後払いでOKです
koreを最小化するとタスクトレイにいれるのはどうやるのでしょうか?
perlの初歩的な質問なのですがとほほの・・・に書いていなかったので質問させていただきました。
直接回答でなくても参考になるようなHPなどありましたら教えてくださいお願いします
>>510
*********************************************************
** ここは中級者スレ、特にコード開発・交換をするところです。 **
** 質問スレではないのであしからず。 **
** ですので移動をお願いします。 **
*********************************************************
最近起きるようになった事なのですが、
色々とkore.pl弄ったりしててて、いざ起動すると、ログイン出来なくなる現象です。
しかし、また一定の時をおくと、再び入れるようになるのですよ。
試しに他のkore使ってるところ、問題なく入れます。
config面やkore.plで差分とって書き換えても一向に治らないのですが・・・、一体どうすれば?
どなたかお力を下さい。
>>512 *********************************************************
** ここは中級者スレ、特にコード開発・交換をするところです。 **
** 質問スレではないのであしからず。 **
** ですので移動をお願いします。 **
*********************************************************
自動露店、よく売れるアイテムとあまり売れないアイテムを同時に売りやすいように、
どれか一つでもアイテムが売り切れたら再出店するようにしてみた。
0137パケの処理部分で
if ($shopItem{$index}{'amount'} < 1) {
print "$shopItem{$index}{'name'}が売り切れました\n";
chatLog("roten", "$shopItem{$index}{'name'}が売り切れました\n");
$solditem++;
$shopItem--;
+ $roten{'isSoldOut'} = 1;
if (!$shopItem){
print "売り切れました - 個数:$roten{'sumAmount'} 金額:$roten{'sumPrice'}\n";
chatLog("roten","売り切れました - 個数:$roten{'sumAmount'} 金額:+$roten{'sumPrice'}\n");
closeShop(\$remote_socket);
}
}
(つづく)
sub AI の自動露店処理部分で
if ($config{"autoShop"}){
if($nowShopOpen){
if($roten{'priceDownNum'} && $roten{'priceDownNum'}>$priceDownNum
&& $roten{'priceDownWhile'} && time-$lastPriceDownTime>$roten{'priceDownWhile'}){
$priceDownNum++;
closeShop(\$remote_socket);
}
+ if ($roten{'isSoldOut'}) {
+ undef $roten{'isSoldOut'};
+ closeShop(\$remote_socket);
+ }
}elsif(!$priceDownNum || ( ($removeitem == $sellitem - $solditem) && $priceDownNum>0) ){
sub openShop にちょっとしたバグを発見したのでFIX。
現状、露店名が表示されないようになっているので、
sub openShop の末尾あたりに
+ $roten{'rotenName'} = $rotenTitle;
517 :
505:03/09/07 03:11 ID:???
>>517 | 通報しますた!
\_ _________
∨
∧_∧
( ´Д`)
_,i -イ、 | 通報しますた!
(⌒` ⌒ヽ \__ _______
(ぃ9 ⌒) ∨ ∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
ヽ ー-' ∧_∧ ( ´Д`) < 通報しますた!
〉 ( ´Д` ) /⌒ ⌒ヽ \__________
/ | /, / /_/| へ \
{ } (ぃ9 | (ぃ9 ./ / \ \.∧_∧ / ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
| | / /、 ,、 / ./ ヽ ( ´Д` )< 通報しますた!
{ ,イ ノ / ∧_二∃ ( / ∪ , / \__________
/ | | | / / \ .\\ (ぃ9 |
/ | | | / \ \ .\\ / / ,、 ((( ))) < 通報しますた!
/ .| { | / /~\ \ > ) ) ./ ∧_二∃ ( ´Д`)
/ | | | / / > ) / // ./  ̄ ̄ ヽ (ぃ9 / ∧_∧ < 通報しますた!
/ | } | / ノ / / / / / ._/ /~ ̄ ̄/ / / ∧∃ ( ´Д`)
/ | } | / / . / ./. / / / )⌒ _ ノ / ./ / \ (ぃ9 ) (゚д゚) <シマスタ!
| / ( / ./ ( ヽ、 ( ヽ ヽ | / ( ヽ、 / /⌒> ) / ∧∃. ゚( )−○<マスタ
ヽノ ( _) \__つ \__つ). し \__つ (_) \_つ (_) \_つ / > 力 λスタ
弓の持ち替えコードを過去ログで探してたんですが
見つからないんで、どなたか過去ログか
コード部分だけ貼り付けお願いしたいのですが
見たこと無いんでわからないのですが
それで矢の持ち替えも可能なのでしょうか?(´・ω・`)
ろくに動作確認してないコードはやっぱりいまいち・・・・
353の該当部分との差し替えです
いままでのは
・10進を小文字の16進に変えてるのでダメポ
・16進に変換しても10の桁が0だと省略されるのでダメポ
ということで
これでOKのはず
+if($headItems_lut{substr("0".sprintf('%X',$players{$pID}{'head1'}),-2,2)} ){
+$playerBaselv{$players{$pID}{'name'}}{'head1'}=$headItems_lut{substr("0".sprintf('%X',$players{$pID}{'head1'}),-2,2)};
+}else{
$playerBaselv{$players{$pID}{'name'}}{'head1'}=$players{$pID}{'head1'};
+}
+if($headItems_lut{substr("0".sprintf('%X',$players{$pID}{'head2'}),-2,2)} ){
+$playerBaselv{$players{$pID}{'name'}}{'head2'}=$headItems_lut{substr("0".sprintf('%X',$players{$pID}{'head2'}),-2,2)};
+}else{
$playerBaselv{$players{$pID}{'name'}}{'head2'}=$players{$pID}{'head2'};
+}
+if($headItems_lut{substr("0".sprintf('%X',$players{$pID}{'head3'}),-2,2)} ){
+$playerBaselv{$players{$pID}{'name'}}{'head3'}=$headItems_lut{substr("0".sprintf('%X',$players{$pID}{'head3'}),-2,2)};
+}else{
$playerBaselv{$players{$pID}{'name'}}{'head3'}=$players{$pID}{'head3'};
+}
>>453 いや、UPされたってことがわかるんでOK
漏れが知らないところでコードがはられる→漏れコード修正(貼られた先では修正されない)
→後で貼られた先の住人からコードがうまく動作しないと漏れが突っ込まれる
このパターンを防ぎたいわけです
>>495 似たようなの以前にはってるっぽいかも
こんなの
print "回避対象の$monsters{$_}{'name'}を$mon_control{lc($monsters{$_}{'name'})}{'teleport_auto'}体発見しますた。戦線離脱!!\n";
設置系スキル(サンドマン、ベノムダストect)のあるセルには
移動しないコードを追加したいのですが、
設置系スキルの座標が送られてくるパケが分かりません。
0117パケで使用時の座標は分かりますが、それだけだと
前もって置かれていた場合やスキル効果が切れた場合の対応が
できないので、ヒントだけでもいいので教えてもらいたいです。
>>520 以前罠入りだとか言ってましたが、罠らしきものなんてどこにもないんですが消したんですか?
525 :
522:03/09/07 11:12 ID:???
>>523 レスサンクス。
これからいろいろ試行錯誤してみます。
>>441の露店。
キャラセレから進みませんよ・・・(´Д⊆;)
アクティブな敵はmon_controlで指定しても大丈夫ですか?
それとも反撃だけに頼った方が良いのでしょうか?
>>514-515 動作報告。
(例)
セイントローブを3つ、ハットを4つ売っているとする。(ハットはカートにまだある、セイントローブは3つきり。)
セイントローブ売れる→開きなおし→
→以下、こんな感じ。
セイントローブが100000×1売れました
セイントローブが売り切れました
セイントローブ : カートに存在しません。次の設定アイテムを検索します。
それでセイントローブはカートに入ったまま。
説明下手でスマソ
>>521 過去スレが現在見れなくて…__/ ̄\○||
現在あるのだけでも隈なく探しましたが見つからず…。
本当に恐縮なのですが、どこかに今一度上げてもらえはしないでしょうか。
再UPはしない方針と聞きましたが、どうかお願いします<( )>
532 :
514:03/09/07 12:37 ID:???
>>529 ちょっと適当すぎた。装備品を売る場合の対応は現在コーディング中。
あと、鯖缶後再出店してくれない問題も対応中。
>>532 うーん、自分じゃ修正出来ないんで、動作確認しか出来ない、スマソ
>>528 弱Mobで試したらどう?
ここは自称だけど中級者スレ
>>530 一人許すと雪崩式になるだろうが。その辺り気を使えよ
つっても605氏次第だろうけど
morocc から moc_fild18(ミミズマップ)に行く時
morocc->moc_fild12->moc_fild18とマップ移動させたいのだけど
koreは
morocc->moc_fild10->moc_fild11->moc_fild17->moc_fild18
っと、遠回りして行く。portalsLOSで移動指定できそうなんだが法則が解らん
調べた人おる?情報キボン
某所で
「ビタタCの相場を下げようキャンーペン中」
なんかもうマジでここの管理人うざい
RMTで稼げるお金がどんどん減ってく・・
とりあえずurl晒せよ。
>>537 そこのサイトの管理人はSD3か伊豆4のBOTらしいな
「ビタタCの相場を下げようキャンーペン中」
のkoreって罠入りだよ
それのお陰でIDとPW吐くBOTが増えすぎてウザイ。
鳩の生産地になってるし消えて欲しいな
541 :
441:03/09/07 15:48 ID:???
>>529 その露店は俺がうpしたものだね。
多分、別Koreに移植して使っていると思うのだけど移植しきれてないんじゃないかな?
514が貼ったコードには俺が手を加えたコードも入ってるから、多分俺が上げた奴をそのまま使っていると思うし。
とにかく、その問題は(カーとの中身を正常に認識しない問題)$removeitem $sellitem $solditemで制御修正しているから
そこを見てくださいな。
とは言え、俺は514のコードを入れて試したわけじゃないんだけどね。
>>532 鯖缶後再出品してくれいない問題とはなんだろう?
俺はいつもrelogコマンドで強制再出品とかさせてたんだけど、問題なく開いたのですよ。
詳細Plz
頭データが6900番代って何?
電車じゃないんだから。
>545
動かしてみて平気?
*********************************************************
** ここは中級者スレ、特にコード開発・交換をするところです。 **
** 質問スレではないのであしからず。 **
** ですので移動をお願いします。 **
*********************************************************
ステータスひゃっくで 全部のステータスを100にする罠はどう?
*********************************************************
** ここは中級者スレ、特にコード開発・交換をするところです。 **
** 質問スレではないのであしからず。 **
** ですので移動をお願いします。 **
*********************************************************
GvGのブロチャだけ別ファイルに保存できるようにできないでしょうか?
**********************************************************
**********************************************************
** ここは中級者スレ、特にコード開発・交換をするところです。 **
** 質問スレではないのであしからず。 **
** 移動先(移動をお願いします) **
** 【BOT質問スレ】 **
**
http://game3.2ch.net/test/read.cgi/mmosaloon/1062702494/ **
**********************************************************
**********************************************************
**********************************************************
**********************************************************
** ここは中級者スレ、特にコード開発・交換をするところです。 **
** 質問スレではないのであしからず。 **
** 移動先(移動をお願いします) **
** 【BOT質問スレ】 **
**
http://game3.2ch.net/test/read.cgi/mmosaloon/1062702494/ **
**********************************************************
**********************************************************
修正した_| ̄|○
スレ消費ムダーン
おまえはよくやったよ
だが もうげんかいだ
露店BOTも出たところですが、相場がわからないと意味ないですし、面倒な方に。
tp://price.ro-skins.net/
こちらで確認おながいします。(相場崩壊飽和のため)
>>560 緩和じゃないか?飽和しちゃうとやべえだろ。
漏れはカード以外の相場情報↑で、他はRMC見てるな。
ところで、yahooBBは悪なのか?やっぱ( つДT)JKOREカキコミ禁止サレチャッタヨ
自己レスかよww
YBBはお馬鹿な勧誘に引っかかった人が大多数
自ずとその質も知れるだろ?
漏れはHP持ってるんだが、YBBとか弾いてる
「ビタタCの相場を下げようキャンーペン中」
UZEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE!!!!!
何とかあのサイトを潰すことは出来ないだろうか…
>>563 転送アドなので潰れてもすぐに復活しますよ
ここは何のスレだ
>>563 ビタタカードってなんすか?
相場はいくらなんすか?
ところで画面上にPCがいたら攻撃せず(アクティブへの反撃は除く)、
移動していくっていうコードだれかうpしてください。
それと歩くときにPCを避けていくのも合わせてよろしくお願いしたい。
どーでもいいがRO@BOTのとこの香具師含めて、
最近UPされてるBOTってさ、全部Encode.dll、全部ファイルサイズが44KBなのな
つーかどーやるとEncode.dllって44KBになるの?そっちが知りたいわ・・・
うちで使ってるDLL普通に32KB(サイズ上で)なんだが。
最初にあっぷされたup00027だっけか?あれ使ってるのバレバレ・・・
どーにかならんもんなのかね?
>>568 言われて見て初めて気が付いた
漏れのは32KBだな
つか、それ動いてんのか? 変な罠じゃね〜?
571 :
ネトゲ廃人@名無し:03/09/08 00:32 ID:9meT7it9
>>568 up0027のencode.dllってばればれだとまずいの?
バグってるとかバレるとか
教えてくれ。
いや、殿、教えてくだされ
>>568 DLLを自分でコンパイルしたこと無いんだなぁ。。。。
コンパイラによってDLLのサイズは全然変わるぞ。
てか、お前がどーにかならんか?w
無知の恥
放置しる
DLLの話題がでたんで、漏れも便乗したい・・・・・
perlでDLLを解放するのって、undefだけじゃあだめ?
>>573 ああ、すまん、説明不足か・・・
コンパイラによって作成ファイルのサイズ変わるのは知ってるつもりだ
漏れの使ってるC関連のコンパイラ(メインがVCなへたれだが)
だと何使っても32KBしかいかないんよ
多分この32KBっつーのも何の制限なのかは知らんが最低認識サイズっしょ?
何使うと44KBになるのかなーと・・・
まぁ自分自身じゃならない数字なんで気になったわけよ
んで思ったのが・・・これデバッグ版じゃね?という結論に達したんでな
>どーにかならんもんかね?
といったわけだ
まぁVCだとデバッグ版で200KBいくみたいだから論外なわけだが(´¬`)
578 :
576:03/09/08 03:36 ID:???
>>578 4KBのはソース付きのrocrypt.dllだろ。VC++だったら
cl /O1 /Os srouce.c
するのはもちろん、スタートアップをはしょって、
Cランタイムを使わないでルーチンは手書き or API でやれば簡単だ。
サイズの肥大化の原因はランタイムとスタートアップルーチンなんだから。
それにC++だとコードがでかくなることがあるから、アセンブラかCで書け。
リンクする時もPEヘッダをバイナリいじればかなり頑張れる。
encode.dllもupxなしで4KBか5KBくらいに抑えられるぞ。
うむ中級として認めよう
>>581 オイオイ、中級つっても分野が違うだろ
勘違いすんなよ
なぁ
>>545のってアレだよな・・・?また厨祭りでもおっぱじめるつもりかw
584 :
576:03/09/08 11:34 ID:???
>>579 4KBでなくて44KBな・・・ナンツーカウツダ_no
ちなみにCの方でも職業プログラマなんで・・・
コードの最適化やら何やらは求められず無知識_no
>>581 プログラマの端っこの方の人だと思って勘弁してくれ(;´Д`)
ちうかこの手の質問他のとこでしてもまともな返事きそうにない・・・
>>582 分野違うけど元のネタはEncode.dllのことだから勘弁しる!
追記:まぁその後色々貪ってみたんだがどーやっても44KBのEncode.dllは
作成できず・・・
何かあそこに罠仕込んでそうに見えてきたのは漏れだけでつか?
相手されてないってことに気づかないヤシは
非常にウザイな
うちで作っても32KBだったな(モチ自作で)。でも確か、402氏のは今回分岐で飛ばされてる部分
残してたんじゃなかったっけ?それでじゃねぇ?
Rocrypt.dllが4KBってのは、そういうコンパイルのテクニックがあったのか。
まあ動けばイイヤ( ´Д`)
>583
え?表示言葉が変になってるだけじゃないのか?
589 :
545:03/09/08 15:34 ID:???
>>588 残念だったな(藁
エディタでもなんでもいいから使って中見てみ
韓国旗と変な発言系はなさそうだけど・・・・
俺はそれ以外の罠コード知らないので他の香具師マカセタ
どうでもいいけど本家早く更新しないかなと思ってみるテスト
>>591 何か不満でもあるのか?
と聞いてみるテスツ
>592
俺は、BOTでお座り公平ができればいいだけなので、
公平コードを追加するだけで安全に使えるから。
レアとか珍速で拾わなくても普通でいいし。
GM回避とスタック感知ハエぐらいは追加しとけ兄弟
>>589 ミジンコスレにコピペしに行くなよ厨
>>594 お前は591なのか?
もし591だったらもしかしてそこが不満個所か?
598 :
594:03/09/08 16:24 ID:???
>595
ウカーリしてた。それ忘れちゃ大変だな。ありがとう兄弟
>597
うん。そう。俺591。
不満箇所はいろいろ機能満載でファイルが重いこと。
シンプルなのがイイノデス。
本家更新されるといつも差分とって改造してるけど、
本家、暗号化以来ぜんぜん更新してないからさぁ
そろそろファイルを掃除しなくちゃ・・とか思ったり思わなかったり。
今使ってる差分ソフト使いづらい・・・・なんかいいのはないものか
クグッてくる ('A`)ノシ
>>598 そゆことね ナットク
ってか公平ってコード追加する必要あったっけか?
スキルの表示が変なことになるんだが、どのあたりのコードがまずい?
メイス製作でダメージが出てるんだが・・・
よくわからんが0114パケかも
単にテーブルだろ?
鳩逝け
移動時の処理で、route_stepを短くせざるをえないんだけど、route successした
あとで一旦停止、再度移動って感じでカクカクならないか?
それと、移動途中にattack開始するとミョーな感じ。移動後に戻る〜みたいな。
特にVIT型はダメ停止パケが修正されてヤベエしなぁ・・・
上の2点てどうにか対応できる方法はないかのぉ?いま調べてるけど、まだ思いついて
ないのですがってみます(;´Д`人
GM047.Stella 99 プリ ビレタ 片目眼鏡 なし
さて・・・・・・・・
BOTの収穫スレって消えた…?
>>606 ありがとう
前スレで次スレ廃止とか話出てたから…
そのスレ好きなんだわ
露店コード、Kore → X-kore変更点
remote → inject 置換
sub openShop{
#sleep($roten{'openWait'}); とりあえずの処置
- encrypt($r_socket, $msg);
+ encrypt(\$encryptMsg , $msg);
+ sendToServerByInject($r_socket , $encryptMsg);
sub closeShop {
- encrypt($r_socket, $msg);
+ encrypt(\$encryptMsg, $msg);
+ sendToServerByInject($r_socket, $encryptMsg);
鞍側に露店名が出ないのは、仕様かな?
2垢2PCお持ちの方、確認できるようでしたら、お願いします。
>>606 そろそろ簡単には解かれない暗号化を導入してもらいたい
そんで、定期的に鍵変更するとか
そろそろ引退したいんだが、このウマイ状態から中々抜け出せない
麻薬みたいな感じだ
BOTが絶滅に近い状態にならない限り、ずるずると続けていそうだ
>>610 暗号化で対応するのメンドイと感じたら辞めたら?
確かに現状だと辞め時がなかなか…
>>608 X-Kore使ってる香具師って1垢つーか本垢でしかやってないのか…?
X-Koreには興味ないんでぜんぜん知らないんだが…
暗号化はいっそ完璧な物用意してくれないともう無理だろ
猿でもスレ見てれば解決しちまうし
>>612 そうだよな。このままだと漏れ、BOT専用回線引いちまうよ
誰か止めてくれよ(;´Д`)
>>614 ごめん、すでに専用回線引いちゃった。
さらに、PCも新調しちゃった。
俺はBOTerだがBOTerなりにROを愛してるのさ。
確かにBOTがウマ杉てなかなか辞められないってのもあるな・・・
俺は前前から根絶してくれればすぐ辞めれるのにと思ってるんだが、
BOTが動く限り続けてしまう、麻薬と一緒だな。
そろそろ本気でBOT使えなくしてくれよ癌呆
616 :
608:03/09/09 07:45 ID:???
>609
だとも思ったが、
>>521 のレスもあったので。
BOTは大切なお客様だろ
惰性でやってる漏れでさえ4垢使ってるんだから
BOT排除したら収入激減だろ(´∀`)y-~
韓国鯖が暗号化されたっぽいよ
日鯖にもそのうち来るんじゃない
>>616 他人がしてればイイのかこのヴォケが救いようのない屑だな(藁
そしてあれだメンテ後にここは戦場となるかもしれないなw
BOTやってるよりも、肉入りでやってるよりも、暗号化でガヤガヤ盛り上がりつつ対応するほうが楽しい。
普通のプレイじゃ物足りないなw
暗号化を待ちわびてる最中で申し訳ないんですが、
AUTO-ATTACKの判断部分で、
%{$monsters{$_}{'missedFromPlayer'}} || %{$monsters{$_}{'missedToPlayer'}}
↑のやつって、おかしくない?
'missed(From)You'じゃないとまずいと読んだんだけど。検算・指摘お願いできませんか?
625 :
ネトゲ廃人@名無し:03/09/09 10:14 ID:Fmi8jRWp
正直暗号化は来月にしてほしい('A`)
626 :
ネトゲ廃人@名無し:03/09/09 10:16 ID:JGrjzwia
627 :
624:03/09/09 10:17 ID:???
おおう。先頭の!見逃してた・・・。_| ̄|〇スマン
>>628 ここのスレってそう言う割にはコードはごくごく少数の人しか貼らないし
情報交換もないのな
ここの住民99%スレ違いジャネ?
というよりもあれか
「605氏の降臨を待つアフォどもが中級者ヅラしてるヤシで99%構成されたスレ」
どうよ?違うのか?
605氏も正直たいしたこと無いけどな…。
もう有用なコードなんてないだろう
これ以上新しいコード貼っても趣味だって事で
FAしてるんじゃねぇの?
オナニーに付き合わされてるんだったか
惰性でキターとかいってるけど萎えてるのが実情
605氏は用済みだな
他の中級者ヅラしたヤシのコードも使えないものばかりだしな
猿の大将は消えていいよ
鯖パッチが入った様子。
暗号化来るね。
>>630,633
じゃあ、お前らはここへ何しに来てるんだよ
用がないなら、とっととカエレ
妨害工作に釣られるなよ…
将来的によ、例えばウィスパー1枚2Mまで落ちて、
1M=100RMまで下がったとする
・・・200円でウィスパー1枚、Free+20だぜ?
zenyを俺TUEEEEにも回したくならないか?
そうなったら誰もBOTとRMTなどやらん
元々俺TUEEEEの為にやってる奴は残ると思うが
公平boterを忘れてもらっちゃ困るぜ
ギルド経験値上納BOTも忘れるな
今日は本当に暗号化くるのか?
鯖セレまではいけたぞ、そっから先はワカンネ
ジュノーまでこのままか低レベル暗号化のみっぽいな
645 :
642:03/09/09 14:06 ID:???
本家koreってどのパッチまで対応してるんだ?
ってかどこの国に合わせて作ってるんだ?
韓国対応済みならジュノーでも大した修正しなくてもすむと思うんだが・・・勘違いか?
>>645 言わなければ良かったn(r
韓国のBOTerサイト行けば、既に今後くる暗号化のものまd…
2chで神神騒がれてても、既に新暗号に対応済みなワケで。
思うんだけど今の癌の鯖でパケを全て暗号化は無理だよな。
激重になるだろうし。
過去に一度あったらしいが一時休止中だったから良く知らんが。
FFみたいに暗号化と複合化専用の鯖用意すりゃ軽くなるだろうが癌だしな・・('A`)ノ
>>646 というか、そこに気づかないやつはアフォ過ぎだろ・・・
そんなことより、なんで電気通信大学のBBSがBOTの温床なんだ?('A`)
ああ、あれか・・・漏れも最初みたときはびっくりしたよ。
本日暗号変更なし。
皆様お疲れ様でした。ログインできますよ('A`)オモシクネ
ケイオスとロキだけはいれるな
>>651 相変わらずKarasuは精力的に活動してるな。
隊長!!!!
本日もBOTは安泰です!!!
>>656 どうなってんだこりゃ
恥症の集まりか?
>>656 かなり以前、電気通信大の肉入りプレイヤー(後にBOTerへ転向)がいたけど関係無し?
どうでもいいが読む価値ない板だな('Д`;)
電通大ってこんなにLV低い奴等ばっかなのか
高校時代ここに憧れてたんだがな
こういう時、2chでは
ガイシュツ
と、書くんだよな?
そこ、大学スレッドだったの?
ネタ名のkoreBBSかとおもってた。
|\
┌──────────┘- \
│ 気の触れた方が \
│ /
└──────────┐- /
ヽ(´ー`).ノ |/
( へ)
く
- = ≡三 |\
- = ≡三 ┌──────────┘- \
_ = ≡三 │ \
 ̄ = ≡三 │ いらっしゃいます /
- = ≡三 └──────────┐- /
(´ー`) - = ≡三 |/
( ヽ ヽ)
/ >
>>ろBOっと 中級者スレ[Pert33]
今気づいたんだがpartだろっ!(オソイトカユーナ)
>>664 ウワァァァ!
ウワァァァ!!
ウワァァァ!!!
レベルがわかるということは・・・
遠い未来には装備してる武器もわかるようになるのか・・
667 :
ネトゲ廃人@名無し:03/09/10 00:04 ID:740AtstV
みんなってパソコン一台でBOT何体使ってるの?
koreについてだいぶ分かって来たから一気に倍に増やそうとしてるんやけど
10体同時とかやってる人いてんの?
>>668 俺のうんこマスィーンじゃ5体が限界じゃ
2体でもVBAが重くてしょうがねぇ
露店、
Aのカードをx枚売ったら、またAのカードをx枚補充して売る、みたいな機能追加できませんかね?
鯖キュんも解決できないし・・
それくらいなら他人任せせずに
自分でコード見て考えてみろ。
BOT専用ノートPC P3 1.13G 512MBで4体余裕。
5体以上は管理しきれないのでマンドクセ
俺もBOT4体
なんでもやり過ぎは良くない
ハマる座標があるので潰したいんですが・・・
該当マップはスフィンクスDの2階 80,191
マップの幅は300なので
80*300 + 191+4 = 24195
16進に変換して5E83
バイナリエディタでSD2階のマップを開いて、5E83番地にジャンプして
00→01にしたんですが 潰せていないようです
もしかしてやり方違ってますか?
BOT5対使ってるが急にBOTの動きが悪くなった・・・(反撃が遅いし、スタックしまくるし)
以前は無かったのに一体何故ですか?
modifiedWalk3入れたのが悪かったのかも・・・。
テスト環境::P3 1.4G, L2:256kB, Mem:512MB, WinXP Pro;
で国際鯖でkoreをやってた時は10体でも余裕だった。
1体につきメモリ25MB食うとしてもメモリさえあれば余裕。
modifiedWalk3も時間当たりの計算量として考えたらたいしたことはない。
後は回線やルータにおけるレイテンシの問題と言えそうだ。
May be stuck,auto teleportedが連続ででるのってどうすれば回避できるの?
>>673 ノートPCでやるとメチャ暑いから点けっぱなしにしとくと不安じゃない?
>>680 メインPCはうるさいからつけっぱなしにしておくと寝れない(笑
>>681 生意気なこと言ってくれるねぇ〜
漏れのPCは大型ファン4つ付きのサーバーマシンですが何か?
夜なんて眠れやしませんYO
本家フォーラムに出てた、
Tools.cppの変更を、試しに入れてコンパイルしたら、
24kbのdll出来た。
しかし、アイテムを拾わなくるので削除したよ。
>>683 ワラタ
軽ければ良いってもんじゃないな
P3 500MHlz、128M、のノートPCにXPいれて3体動かしてる。
起動しただけでメモリ90Mくらい食うのでkore起動したら
当然常時がりがりスワッピングを起こしていてる(笑
でも、時給はメインマシンでやってるときとかわらんみたいだし
このままで良いかなと。
漏れは騒音より電気代気にしちゃうなー
>>682 FANの稼動音がしないと落ち着いて眠れません。
celeron1400MHz 512Mの自作マスィーンで3体動かしてる。音もなく静かでイイカンジ。
しかし夫の方が新しくいいパソなのに
bot1つ動かしているだけでファンがうるさくて昼寝できないよ
夫婦してBOTerですΣd(´▽`)
ウホッ 悪い嫁
旦那に内緒で ヤラナイカ
modifiedWalkはかなり負荷かかるし、コード追加しすぎた・・・。
露店とかは別々にして使うし、削減しないとな。
>>687 おまんこplzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz
おまいさんたち、後少しで2-2次職実装かもしれないが、
2-2次職のBOTとしての能力はどう考えてる?
安定度からいうとやっぱり剣士系のクルセだろうけど、
BBやBDSみたいに属性乗る範囲攻撃無いから、
やっぱり騎士なのかな。
SQと騎乗時中型100%考えると単体攻撃力では槍クルセ悪くない
気もするんだがな…
パッシブスティルのあるローグでFA
95%回避かつM級(もしくは相当)レア狙えるところに放って荒稼ぎ
これぐらいは皆考えてるだろ
誰か
>>675キボンヌキボンヌキボンヌーーー
夫婦してBOTERワラタ
夫婦仲良くPT組めや。
どなたかろBOっと 中級者スレ[Pert32] の
過去ログ上げてもらえませんか?
矢の持ち替えコード探してるんですが倉庫に落ちてるようで><
コード部分でもOKなのでお願いします.
__| ̄|○ タノミマス7
なぁ、季節はずれの質問ですまないんだが、
リンクサンタからルティエフィールドに移動するのに
特別なコードを追加する必要あるのか?
LOSでc r1 c cと設定していても、サンタとの会話は最後まで行くのに
キャラは移動せずにそのまま残ってるんだよ。
手動でc r1 c cやっても同様の症状になる。
誰か教えてくれ(;´Д`)
[Sep 10 18:53:08 2003][I] *** ビタタカード を発見しました ***
[Sep 10 18:53:09 2003][I] *** ビタタカード をGETしました ***
[Sep 10 18:53:09 2003][I] *** アンドレ 264 匹目で入手 ***
アンドレからキタ━━━(゜∀゜)
新2次職きたら皆ローグになるのか?
俺はクルセ試してみるために、新たに犬歯1体増やしたぞ。
>>701 新アイテム「トナカイの角」を所持していないと通れなくなりました
バードBOT作ってリンゴ永久機関しようぜ!
問題は男アカなんて持ってないことだ。
>706
ネカマキモいよ
チャットログに「BOTだらけ・・・」とか「BOTしかいないね」とかログに残ってると
なんか悲しくなってくる。癌様はまったく仕事しないしさ。
ホンキで正直者がバカを見るゲームだよね。
詐欺師Uzeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
罠kore販売してる分際でマルチしてんじゃねーよ屑が
最近BANされた人はいますか?
前にBANくらったんだけどまたWISがきてんのよ。
固定IPはだめよのう。
ilコマンドの時とか、重要アイテム拾う時とかにDist(アイテムまでの距離)を
記録するコードを貼っていただけないでしょうか?
結構探しているのですが、鳩koreにも実装されてないみたいで・・・
新二次職はしばらく様子見かな
実装時に転職即放流だと物珍しさに話し掛けられること多いだろうしな
漏れもローグいいと思うけど正直最近C以外で金になるのって青箱だけ
けどSD3だと転職したてのローグじゃ狩りになるのか疑問…
>>709のって
・GM回避
・スタック回避
・露店機能
・NPC関係機能
・高性能タゲ被り防止
・武器の持ち替え
・dumpを吐かない
・壁歩き防止
・経路指定
この辺どの程度のレベルなんだろうな。
GM回避って初期のめちゃくちゃお粗末な奴だったりするんだろうな。
経路指定だってPointWalkだろうし、壁歩き防止だってModifiedWalkだろ。
「高性能」タゲ被り防止がどう高性能なのか。
まあ要するにここに出た機能を鳩がつなぎ合わせたってオチだろうな。
ここに出てる機能をそのまま付けてる時点で終わってる。
>>709はサポートするとか言っても、
暗号化来たら自分じゃ何も出来ないしな
>>715 昔の133氏のに多少機能追加しただけなレベルだな
とりあえずここでのコードを追加しただけの猿仕様版かと
暗号化されたらまずサポートなんて不可能だろ
709のとこって実際どれだけ売れてるのか気になるな…
どうか罠仕込んでますように
>>718 俺が人柱になって買ったけど、
鳩にはわからん罠が仕込まれてたよ。
オープンで××しちゃう罠
605氏のBase記録コードについてなんですが
特定のキャラが記録されないっぽいです。
同じダンジョンにいるMyBotのうちの一人なんですが
規則性がよくわからないのでもう少し様子見たいと思います。
>>719 ソースは出さなくていいから何するのか教えてくれよ
気になるじゃんか
今まであった罠?それとも新規のおもしろ罠?そこだけでもよろ
722 :
719:03/09/10 23:53 ID:???
罠は一切いれてはおりません。
今現在16名の人たちと交渉しました。
723 :
719:03/09/10 23:54 ID:???
罠は一切いれてはおりません。
今現在256名の人たちと交渉しました。
724 :
719:03/09/10 23:57 ID:???
罠は一切いれてはおりません。
今現在65535名の人たちと交渉しました。
725 :
719:03/09/10 23:58 ID:???
罠は一切いれてはおりません。
今現在16777216名の人たちと交渉しました。
BOTってルート計算時以外ほとんど負荷無いんだね。
2GHz以上なら20体は動かせそう。それこそ画面に表示しきれないくらいに。
それを管理するのは人間だがな
>>726 あーあ。言っちゃった
ちなみに漏れは PentiumII 400MHz で●体動かしていたりするから
最近のPCなら相当起動できるかと
ただ
>>727も言っているように管理できればだけどなー
漏れはとっくにリアル犠牲にしてるし
だれかRo@Bot潰して下さい('A`)
なんか、すっかり本スレになっちゃったなぁ
なんのためにこっちに避難したんだろう・・・・・
630〜633は書き込み時間があれなんで、かまわないけど
スレ全体の空気がコードに対して、あまり好意的になってなさそうなのが気にかかるかなぁ
どっか他のところに引っ越すorしばらく潜るとします
どういう機能があれば楽しいかっていうのが沸いてこないんだよなあ。
転職機能もあるBOTがあると便利かも・・・
前に商人転職用作ったけどめったに商人に転職しないからつかわねw
剣士、騎士転職BOTがあれは楽かもな
ほかには新しい罠考えてコード出すのはどう?
ちなみに今俺が考えてるやつは
wisしてきたやつにそれ以降自分がログインするたびにステ&レベル吐き
そいつにレア拾うたびに報告
特定の単語を含むwisがきたらID、PASS吐き
こんなんどう?
>>730 とゆーか、前スレ605さんのコードには、いつもお世話になっていますよ
凄く感謝もしてるし、「次はどんなコードなんだろ」って期待もしてる
ただ、クレクレ君になりたくないので特にコメントしてなかっただけ
アレなカキコは、アンチか自力でコード組み込めない香具師だと思う
>>前スレ605氏
大体必要そうな機能はそろってきちゃったからねぇ。。だからアンナ発言する奴が出てくる…
今は新コードより、既存コードの改変がイイカモね。 某所で出たスキル発動関係とかね…。
まぁどこか雰囲気がイイトコにしばらく移住するのもイイカモネ。
プロを歩き回って、開いてる露店を手当たり次第に調べて
価格調査する機能とかあったら便利かな。
最低価格と平均価格をファイルに出力するとかね。
そんなサイトを作ったとすると毎日アクセスが集中して
ウェブマスターとして広告料稼げると推量
738 :
698:03/09/11 08:20 ID:???
マダサガシテマス__| ̄|○ タノミマス
前スレ605未練がましいなwWw
とっとと失せろ
しかしここの連中は最悪だな…
お前ら605氏にはお世話になってるんだろうが
壁歩き防止コードありがたく使わせて貰ってるんだろ?
今は有用なコードなんてこれ以上なかなか出てこないだろうけど
趣味のコードも見てて面白いと思うんだがなぁ
このスレでpl弄れる奴はここちょっと覗いてる程度だろ?
お世話になってるなんて神扱いはやめておいたほうがいい
コードに興味あるから見てるようなもんだし
わざわざレス返すあたり、漏れの底も知れてるな(´ー`;)
神扱いは別として世話になってるってのは事実だろ
もう次スレいらねーな
コードの情報なんて交換してねーし、ふんぞり返ったヴァカばっかだし
1 :ネトゲ廃人@名無し :03/08/20 08:49 ID:???
コードの情報交換専用です
みんなでコード持ち寄っていろいろ作ってみればいいんじゃないの?
無駄な論議より、コード貼ったり、改善したりするほうが、
みんな(゚д゚)ウマーっしょ。
頭悪い香具師、努力しない香具師ほどプライドだけやたらあって調子に乗るなぁ
>>745 いまさら無駄
605氏ももうカキコしないだろうし、その他に貼ってくれてたヤシも貼らないっしょ
ここにいるのは野次しか吐けねえミジンコ以下だけってことでFA
ちょっと早いけど埋めましょっかね
埋め
んじゃ、埋めついでにステ状態を外部のTxtに出力するコードでも
sub parseMsg {
my $msg = shift;
my $msg_size;
+recordStatus() if($config{"recordStatus"} && %vStatus=>2);
---------------------------------------------------------------
sub quit {
# defeat record to file
recordDefeatMonster();
+recordStatusStop() if($config{"recordStatus"} && %vStatus=>2);
----------------------------------------------------------------
+#時給記録
+sub recordStatus {
+$hp_string = $chars[$config{'char'}]{'hp'}."/".$chars[$config{'char'}]{'hp_max'}." ("
+.int($chars[$config{'char'}]{'hp'}/$chars[$config{'char'}]{'hp_max'} * 100)
+."%)" if $chars[$config{'char'}]{'hp_max'};
+
+$sp_string = $chars[$config{'char'}]{'sp'}."/".$chars[$config{'char'}]{'sp_max'}." ("
+.int($chars[$config{'char'}]{'sp'}/$chars[$config{'char'}]{'sp_max'} * 100)
+."%)" if $chars[$config{'char'}]{'sp_max'};
+
+$weight_string = $chars[$config{'char'}]{'weight'}."/".$chars[$config{'char'}]{'weight_max'}." ("
+.int($chars[$config{'char'}]{'weight'}/$chars[$config{'char'}]{'weight_max'} * 100)
+."%)" if $chars[$config{'char'}]{'weight_max'};
+$base_string = $chars[$config{'char'}]{'exp'}."/".$chars[$config{'char'}]{'exp_max'}." /$baseEXPKill ("
+.sprintf("%.2f",$chars[$config{'char'}]{'exp'}/$chars[$config{'char'}]{'exp_max'} * 100)
+."%)" if $chars[$config{'char'}]{'exp_max'};
+
+$job_string = $chars[$config{'char'}]{'exp_job'}."/".$chars[$config{'char'}]{'exp_job_max'}." /$jobEXPKill ("
+.sprintf("%.2f",$chars[$config{'char'}]{'exp_job'}/$chars[$config{'char'}]{'exp_job_max'} * 100)
+."%)" if $chars[$config{'char'}]{'exp_job_max'};
+
+if ($chars[$config{'char'}]{'exp_last'} > $chars[$config{'char'}]{'exp'}) {
+$baseEXPKill = $chars[$config{'char'}]{'exp_max_last'} - $chars[$config{'char'}]{'exp_last'} + $chars[$config{'char'}]{'exp'};
+} elsif ($chars[$config{'char'}]{'exp_last'} == 0 && $chars[$config{'char'}]{'exp_max_last'} == 0) {
+$baseEXPKill = 0;
+} else {
+$baseEXPKill = $chars[$config{'char'}]{'exp'} - $chars[$config{'char'}]{'exp_last'};
+}
+
+if ($chars[$config{'char'}]{'exp_job_last'} > $chars[$config{'char'}]{'exp_job'}) {
+$jobEXPKill = $chars[$config{'char'}]{'exp_job_max_last'} - $chars[$config{'char'}]{'exp_job_last'} + $chars[$config{'char'}]{'exp_job'};
+} elsif ($chars[$config{'char'}]{'exp_job_last'} == 0 && $chars[$config{'char'}]{'exp_job_max_last'} == 0) {
+$jobEXPKill = 0;
+} else {
+$jobEXPKill = $chars[$config{'char'}]{'exp_job'} - $chars[$config{'char'}]{'exp_job_last'};
+}
+$endTime_EXP = time;
+$w_hour = 0;
+$w_min = 0;
+$w_sec = int($endTime_EXP - $startTime_EXP+1);
+$bExpPerHour = int($totalBaseExp * 3600 / $w_sec);
+$jExpPerHour = int($totalJobExp * 3600 / $w_sec);
+
+if ($w_sec >= 3600) {
+$w_hour = int($w_sec / 3600);
+$w_sec %= 3600;
+}
+
+if ($w_sec >= 60) {
+$w_min = int($w_sec / 60);
+$w_sec %= 60;
+}
+##################################
+@aStatus[int(%vStatus/2)];
+
+if($vStatus{'stat_Hp'}){
+$aStatus[$vStatus{'stat_HpNo'}]="HP: $hp_string";
+}
+if($vStatus{'stat_Sp'}){
+$aStatus[$vStatus{'stat_SpNo'}]="SP: $sp_string";
+}
+if($vStatus{'stat_Weight'}){
+$aStatus[$vStatus{'stat_WeightNo'}]="Weight: $weight_string";
+}
BOTer達を一斉にBANしたら、結局損するのは癌。
どっちにしろ現在の癌の評価は最下位。
なら一斉BANして今更の評価をあげたとしても微妙。
このままBOT達から課金し続けてもらったほうが得。
俺も得。おまいらも得。
だ〜めだ、文章作るの下手すぎ
スルーしてくれ('A`*;;)
+if($vStatus{'stat_Basegot'}){
+$aStatus[$vStatus{'stat_BasegotNo'}]="Base: $base_string";
+}
+if($vStatus{'stat_Baserate'}){
+$aStatus[$vStatus{'stat_BaserateNo'}]="Brate: $bExpPerHour";
+}
+if($vStatus{'stat_Jobgot'}){
+$aStatus[$vStatus{'stat_JobgotNo'}]="Job: $job_string";
+}
+if($vStatus{'stat_Jobrate'}){
+$aStatus[$vStatus{'stat_JobrateNo'}]="Jrate: $jExpPerHour";
+}
+if($vStatus{'stat_Pos'}){
+$aStatus[$vStatus{'stat_PosNo'}]=" Pos: $map_string $chars[$config{'char'}]{'pos_to'}{'x'}, $chars[$config{'char'}]{'pos_to'}{'y'}";
+}
+if($vStatus{'stat_Time'}){
+$aStatus[$vStatus{'stat_TimeNo'}]="Time: $w_hour h $w_min m $w_sec s";
+}
+
+open(FILE, ">Status.txt");
+print FILE "@aStatus";
+close(FILE);
+}
おっと忘れてた
+#ステ表示ファイルの読み込み
+addParseFiles("control/statusVariables.txt", \%vStatus, \&parseDataFile2);
load(\@parseFiles);
config.txtに
+recordStatus 1
んでもって、以下のファイルを作成
control/statusVariables.txt
#ステータス表示
stat_Hp 1
stat_HpNo 0
stat_Sp 1
stat_SpNo 1
stat_Weight 0
stat_WeightNo 0
stat_Basegot 1
stat_BasegotNo 2
stat_Baserate 1
stat_BaserateNo 3
stat_Jobgot 0
stat_JobgotNo 0
stat_Jobrate 0
stat_JobrateNo 0
stat_Pos 1
stat_PosNo 4
stat_Time 1
stat_TimeNo 5
しからば、こんなコードが欲しいのだが作ってくれんか
・wisが来るとログアウト、一定時間たつと再ログイン
新GM回避と"pm"関係への応用なのはわかるのだが、ペールかけないヘッポコ君のお願いです
>>755 調子乗るなよ
まあ、埋め記念に書くか
} elsif ($switch eq "0097" && length($msg) >= unpack("S1", substr($msg, 2, 2))) {
〜〜
print "[prvChat] (From: $privMsgUser) : 「$privMsg」\n";
+if($config{'sleepingByWisMe'}){
+killConnection(\$remote_socket);
+print "やっべ WISキチャッタYO!(・∀・)ヤッベ $config{'sleepingByWisMe_sleepTime'}秒停止中〜\n";
+sleep($config{'sleepingByWisMe_sleepTime'});
+relog();
+}
config.txt
+sleepingByWisMe 1
+sleepingByWisMe_sleepTime 600
GM判定いらんよな?いるなら
+if($config{'sleepingByWisMe'} && isGameMaster($ID)){
なに?configが長い?ホットケYO!
エラーが出る?実行すらしてねーし、シラネーYO!
あらら。0097パケって相手情報はIDじゃなくてnameなんだな
if($config{'sleepingByWisMe'}){
+foreach (@GameMasters) {
+if ($privMsgUser eq $_) {
(略)
+}
+}
}
こんなもんか?ま、いっか。1梅(・ω・)
□が□匹以上きたらテレポします。(トリビア風
ついでにこのコードもおながいでっさー、神様〜
調子にノンな
うざいよ
まあ、埋め埋めUMEE(・ω・)EE!っと
しかし、遠いなぁ
埋め
つっても次また立つんだろうがな。
最後に倉庫を開けたときの中身をログに吐き出しコード キボンヌ。
倉庫の中身吐き出すコードだったら作ってやるよ?
まあ、まったり埋めとけ
しっかし・・・。
埋め。
__,,,,,,___
(⌒ヽ:::::::::::'''''-,,
<´・\ ::::::::::::::::::ヽ
l 3 ハ::::::::::::::::::::::ヽ,
∫ .<、・_ ( )
旦 (⌒ ̄  ̄ ̄ ̄ ̄ ̄ ̄⌒)
癌「BOTは生かさず殺さずだ」
GM「BOTER、大切なお客様ですもんね」
癌「少しだけ垢BANしながらガンホーがんばってますって言っとけば大丈夫だ」
GM「ROやってる人達、馬鹿ですもんね」
SysMsg「スレが埋まるまであと232です。」
埋めますZOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOうぇ
このスレには以前世話になってたんで
埋め協力
+use Win32::Sound;
重要アイテムとかGM発見等に以下を追加
+Win32::Sound::Play(SystemDefault);
+Win32::Sound::Stop();
Sysデフォのほかに
play(SystemStart);
とかにするとうれしさ倍増
意味?
楽しい+重い+(このままだと)スタックしやすい
まぁ設定程度はググッてガンガレ('A`)
チョロネタ倉庫化しそうだな
それもオモロ
漏れもなんかあったっけな?探してみよっと
ということで、梅
ちょっと質問いいかな?
暗号化を解読してアプする神がいるけれど、あの人たちの思考が理解できないのだが…
(理由1)神とほめられたい
(理由2)BOTが増えれば自分が安全
(理由3)罠入りで遊ぶ
この辺りかな?
んで、自称神のみなさんは、自分の作ったBOTが販売されたり、RMTでうはうは言ってるのも見てどう思っているのかな?
つまらん、埋め
>>772 なんか605氏個人宛みたいな質問だけど
俺の場合
2が99%
匿名掲示板で感謝されても嬉しくない
>自分の作ったBOTが販売されたり、RMTでうはうは言ってる
俺の技術はたいしたこと無いから当事者じゃないけど、リアルでヌッコロシたい
しっかりと理解してるじゃん
ってことで、梅
>>772 オープンソースの物を売ってるのは気に入らないね
ってかSourceForgeに登録されてるものって売ったら罪にならなかったっけ?
ほんじゃうちのも
場所はいいな、もう。msgで素性がバレバレだか
----------
print"--------Ivent Skills--------\n";
my $nowUseTime;
$~ = "USESKILLS";
foreach(%{$char[$config{'char'}]{'useSkills'}}){
if ($$_{'skill'}){
$nowUseTime = int(time - $$_{'time'});
format USESKILLS =
@<<<<<<<<<<<<<<<<<<<< (useTime:@>>>)
$$_{'skill'}$nowUseTime
.
write;
}
}
-----------0x0073と0x0092
print "[Rep] 継続効果スキル・アイテムの情報をリセットします。\n";
undef $char[$config{'char'}]{'useSkills'};
if ($ID eq $accountID) {
undef $skillName;
if ($skillID eq 0x0002) {
$skillName = "ツーハンドクイックン";
} elsif ($skillID eq 0x0006) {
$skillName = "エンチャントポイズン";
} elsif ($skillID eq 0x000A) {
$skillName = "ブレッシング";
} elsif ($skillID eq 0x000C) {
$skillName = "速度増加";
} elsif ($skillID eq 0x0013) {
$skillName = "キリエ";
} elsif ($skillID eq 0x001b) {
#???事あるごとに受信。とりあえず無視
} elsif ($skillID eq 0x0025) {
$skillName = "集中のポーション";
} elsif ($skillID eq 0x0026) {
$skillName = "覚醒のポーション";
} elsif ($skillID eq 0x0023) {
#赤ポーション
} elsif ($skillID eq 0x0024) {
#重量オーバー
} else {
$display = "[Rep] 未確認の状態変化です(ID:$skillID)\n";
print $display;
chatLog("d", $display);
}
リンクサンタ攻略するコードキボン(つд`)
if ($skillName){
if (!$useOrLose){
print "[Rep] $skillName の効果が消滅しました。\n";
undef %{$char[$config{'char'}]{'useSkills'}{$skillID}};
} else{
$char[$config{'char'}]{'useSkills'}{$skillID}{'skill'} = $skillName;
$char[$config{'char'}]{'useSkills'}{$skillID}{'useOrLose'} = $useOrLose;
$char[$config{'char'}]{'useSkills'}{$skillID}{'time'} = time;
print "[Rep] $skillName の効果が発動しました。\n";
}
}
}
スキル情報発動・消去の有無
画面右に出てくるアレだな。意味?無いよ。2HQ使ってくれないから
デバッグで入れたヤシ。でもそっちは完全解決したですし。
自己満足ですな(・w・)
まあ、埋めってことで
2番目移行は別パケね。どうでもいいことだが
てなわけで、4梅
チョロネタコードを張るってのは結構梅になっていいな
俺も探してこよっと
605氏にオツと思いつつ
埋めっと
sub InsertRoutins {
my($file) = @_;
$file = './SubRoutins/'.$file;
open(FILE, "$file") or return print "Can not open $file.\n";
my ($routin) = join('',<FILE>);
close(FILE);
return $routin;
}
ほぼ意味なしコード
eval(InsertRoutins('Response.pl'));
print "$@\n" if($@);
って感じに書くと、Response.plの中書き換えれば実行中にコードを書き換えられる。
俺は主にコード作成中とかに使ってた。
あんま意味無いor猿には組み込めない程度にボカすってのがいいと思われ
ということで、UNMEEEEEE(・ω・)EEEEE!
>>784 σ・∀・)σ get's!アーーーンド ウメ m9・ω。・)
if($config{'StopAuto_follower_Disappeared'}) {
if($f_d_flg) {
foreach(@playersID) {
my($name) = $players{$playersID[$_]}{'name'};
$f_d_flg = 0 if($name eq $config{'follower_name'});
}
if($f_d_flg == 0) {
print "I can find my follower\n";
print "Let's Go!!\n";
configModifyAndWrite("route_randomWalk", 1);
configModifyAndWrite("attackAuto",2);
}
} else {
$f_d_flg = 1;
foreach(@playersID) {
my($name) = $players{$playersID[$_]}{'name'};
$f_d_flg = 0 if($name eq $config{'follower_name'});
}
if($f_d_flg) {
print "Can not find my follower";
aiRemove("move");
aiRemove("route");
aiRemove("route_getRoute");
aiRemove("route_getMapRoute");
print "Stopped all movement\n";
configModifyAndWrite("route_randomWalk", 0);
configModifyAndWrite("attackAuto",0);
}
}
}
sub GoToMasterPlace_Auto_3 {
if($config{'GoToMasterPlace_Auto'}) {
my($master_name) = $config{'followTarget'};
$GoToMasterFlg = 1;
foreach(@partyUsersID) {
print "partyUsersID : $_\n" if($config{'a_debug'});
print "$chars[$config{'char'}]{'party'}{'users'}{$_}{'name'}\n" if($config{'a_debug'});
if($chars[$config{'char'}]{'party'}{'users'}{$_}{'name'} eq $master_name) {
print "x : $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'x'}\n" if($config{'a_debug'});
print "y : $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'y'}\n" if($config{'a_debug'});
$masters_position{'x'} = $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'x'};
$masters_position{'y'} = $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'y'};
}
}
if($masters_position{'x'}) {
print "Found My Master !!\n";
print "My Master's now position is $master_position{'x'},$master_position{'y'}\n";
$ai_v{'temp'}{'map'} = $field{'name'} if ($ai_v{'temp'}{'map'} eq "");
print "Calculating route to: $maps_lut{$ai_v{'temp'}{'map'}.'.rsw'}($ai_v{'temp'}{'map'}): $masters_position{'x'}, $masters_position{'y'}\n";
$ai_v{'temp'}{'x'} = $masters_position{'x'};
$ai_v{'temp'}{'y'} = $masters_position{'y'};
ai_route(\%{$ai_v{'temp'}{'returnHash'}}, $ai_v{'temp'}{'x'}, $ai_v{'temp'}{'y'}, $ai_v{'temp'}{'map'}, 0, 0, 1, 0, 0, 1);
} else {
print "My Master does not Login to Party !!\n";
}
}
}
sub GoToMasterPlace_Auto_2 {
if($config{'GoToMasterPlace_Auto'} && $GoToMasterFlg) {
my($master_name) = $config{'followTarget'};
my($master_ID);
foreach(@playersID) {
$master_ID = $_ if($players{$_}{'name'} eq $master_name);
}
if($master_ID) {
print "I found My Master!! \n";
aiRemove("move");
aiRemove("route");
aiRemove("route_getRoute");
aiRemove("route_getMapRoute");
print "Stopped all movement\n";
ai_follow($players{$master_ID}{'name'});
configModifyAndWrite("follow", 1);
configModifyAndWrite("followTarget", $players{$master_ID}{'name'});
print "Following My Master : $players{$master_ID}{'name'}\n";
$GoToMasterFlg = 0;
}
}
}
sub GoToMasterPlace_Auto {
if($config{'GoToMasterPlace_Auto'}) {
my($master_name) = $config{'followTarget'};
$GoToMasterFlg = 1;
print "MasterName : $master_name\n" if($config{'a_debug'});
my(%masters_position);
foreach(@partyUsersID) {
print "partyUsersID : $_\n" if($config{'a_debug'});
print "$chars[$config{'char'}]{'party'}{'users'}{$_}{'name'}\n" if($config{'a_debug'});
if($chars[$config{'char'}]{'party'}{'users'}{$_}{'name'} eq $master_name) {
print "x : $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'x'}\n" if($config{'a_debug'});
print "y : $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'y'}\n" if($config{'a_debug'});
$masters_position{'x'} = $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'x'};
$masters_position{'y'} = $chars[$config{'char'}]{'party'}{'users'}{$_}{'pos'}{'y'};
}
}
if($masters_position{'x'}) {
print "Found My Master !!\n";
print "My Master's now position is $masters_position{'x'},$masters_position{'y'}\n";
$ai_v{'temp'}{'map'} = $field{'name'} if ($ai_v{'temp'}{'map'} eq "");
print "Calculating route to: $maps_lut{$ai_v{'temp'}{'map'}.'.rsw'}($ai_v{'temp'}{'map'}): $masters_position{'x'}, $masters_position{'y'}\n";
$ai_v{'temp'}{'x'} = $masters_position{'x'};
$ai_v{'temp'}{'y'} = $masters_position{'y'};
ai_route(\%{$ai_v{'temp'}{'returnHash'}}, $ai_v{'temp'}{'x'}, $ai_v{'temp'}{'y'}, $ai_v{'temp'}{'map'}, 0, 0, 1, 0, 0, 1);
} else {
print "My Master does not Login to Party !!\n";
}
}
}
動作保証&実用性は一切保証しない上に説明もしません。
ってわけで5梅
永久保存版スレになりそうなヤカン
中級本スレ滅亡まで、「あと217梅」
あ 梅干食べよっと
ちゃんと種は埋めるぜ♪
605氏追悼埋め
漏れも605氏を惜しみつつ埋め
797 :
ネトゲ廃人@名無し:03/09/11 22:48 ID:pVrT2Xty
何か今のBOTの増え具合やべーと思うし、
いくら癌ぽーでもいいかげん対策(NOT暗号化)して来そうだな。
んなこたぁないか。
埋め
確かに現状のデフレ具合みてるとそろそろ終焉を迎えそうだな
605氏なむなむ
俺の記憶では
このスレ削除依頼出したんだが???
ありがとう
133
ありがとう
286
ありがとう
605
ありがとう
Karasu
やだい、きえるなんてやだいよぅ
「!605! ・・・・、消えてしまったのか! まだ、さよならもいってないよ・・
「・・・・605さん・・
「605・・・・ おまえのことは、いつまでもわすれないよ!ぜったいに!
「・・・・ウン、私も!・・・・それに、286も・・・・ 私たち、かれらにまけないように がんばって生きていかなきゃね!
「133のはへんが ゆきに変わっていく・・・・
つーかココは隔離スレだろ?
コード関連は他所でやってるし
うめ
カプラ使うときにちゃんとカプラの方向を向くコードって出てました?
>>807 出てないんじゃない?
うちのはこんな感じだにゃぁ
sub changeDirection {
my $r_hash1 = shift;
my $r_hash2 = shift;
my ($c_x,$c_y,$direction);
$c_x = $$r_hash2{'x'} - $$r_hash1{'x'};
$c_y = $$r_hash2{'y'} - $$r_hash1{'y'};
if ($c_x > 0){
$direction = ($c_y > 0) ? 7 : 5;
}else{
$direction = ($c_y > 0) ? 1 : 3;
}
sendLook(\$remote_socket,$direction,0);
return;
}
使い方はヒミツということで。あと、検証もしてないけどね
ということで、ウメっとな
03/09/11プロンテラスクエアVOL.16より抜粋
いま、ガンホーの私たちの部署では、みんな競い合ってレベル上げに挑戦していま
す。
ちなみにガンホーの私たちのグループ、男性陣はodin,女性陣はbaldurにメインキャ
ラを作っている方が多いようです。
odin baldurのみんなはなむ
>>810 >odin baldurのみんなはなむ
逆に大丈夫なんじゃないか?
まぁ、狩場が同じだったら激しくマズいが・・・
GMどもも「伊豆D・エルダ森はBOT多くて効率悪いから他の狩場にしよー」とか
考えてるかもしれんがな。
小3のある日、兄の自転車を借りて坂を下ってたら
実はブレーキがすごく甘くなってて、
ブレーキしてもどんどんスピードが上がっていって
靴のつま先で無理やりブレーキさせても靴が磨り減るだけで
仕方なく路肩の植木に身を投げたら擦り傷いっぱいでスカート破けて
そのままエロティックな格好で泣きながら家に帰ったら
母がいきなり
「誰にやられたの!」
と聞いて来たのでは私はお兄ちゃんの自転車で…と言うつもりが
泣きじゃくってるせいでうまくいえず
「お…お兄ちゃん…」
と呟いたら母は突然倒れてそのまま気絶してしまいました
>>808 私はatanみたいなのを求めて、bodyの8方向directionを決めようとしてました。
やっぱ向きなんて4方向程度で十分ですよね。
あと距離が接触してると怪しいから少し離れたところでtalkさせるようにした方が良いですかね。
+changeDirection(\%{$npcs_lut{$config{'storageAuto_npc'}}{'pos'}}, \%{$chars[$config{'char'}]{'pos_to'}});
sendTalk(\$remote_socket, pack("L1",$config{'storageAuto_npc'})) if !$ai_seq_args[0]{'sentStore'};
って感じで使えるのかな。
チケット切れたから試せない。
-ai_route(\%{$ai_v{'temp'}{'returnHash'}}, $npcs_lut{$config{'storageAuto_npc'}}{'pos'}{'x'},
$npcs_lut{$config{'storageAuto_npc'}}{'pos'}{'y'}, $npcs_lut{$config{'storageAuto_npc'}}{'map'}, 0, 0, 1, 0, 0, 1);
+ai_route(\%{$ai_v{'temp'}{'returnHash'}}, $npcs_lut{$config{'storageAuto_npc'}}{'pos'}{'x'} + int(-5 + rand(10)),
$npcs_lut{$config{'storageAuto_npc'}}{'pos'}{'y'} + int(-5 + rand(10)), $npcs_lut{$config{'storageAuto_npc'}}{'map'}, 0, 0, 1, 0, 0, 1);
これで良いかな?
odinだよ・・・
回避しようにもGMのメインキャラなんか特定できないし
同じ狩り場だったら真っ先に目を付けられてbanの対象だろうなぁ
鯖の選択ミスったよ・・・クホホ
>>815 今からでも遅くないっ!
バルダーに移住しろ!
癌がBANなんてめんどくせへことするわけないじゃんw
レベル上げに必死なんだから仕事なんかしねーよ。
# Avoid stuck revision 2.0
#=====================================================================
unstuckAuto_margin 5
unstuckAuto_rfcount 10
unstuckAuto_mfcount 50
unstuckAuto_utcount 10
#---------------------------------------------------------------------
undef @{$cart{'inventory'}};
undef %storage;
+# Avoid stuck
+undef %{$ai_v{'avoidStuck'}};
}
#---------------------------------------------------------------------
if ($ai_seq[0] eq "route" && @{$ai_seq_args[0]{'solution'}} && $ai_seq_args[0]{'index'} == @{$ai_seq_args[0]{'solution'}} - 1 && $ai_seq_args[0]{'solutionReady'}) {
print "Route success\n" if $config{'debug'};
+# Avoid stuck
+undef %{$ai_v{'avoidStuck'}};
#---------------------------------------------------------------------
} elsif ($ai_seq[0] eq "route" && $ai_seq_args[0]{'failed'}) {
print "Route failed\n" if $config{'debug'};
+# Avoid stuck
+$ai_v{'avoidStuck'}{'route_failed'}++;
+avoidStuck();
#---------------------------------------------------------------------
} elsif (!$ai_seq_args[0]{'ai_moved'} && timeOut(\%{$ai_seq_args[0]{'ai_move_giveup'}})) {
+# Avoid stuck
+$ai_v{'avoidStuck'}{'move_failed'}++;
+avoidStuck();
#---------------------------------------------------------------------
} elsif ($ai_seq_args[0]{'ai_moved'} && time - $chars[$config{'char'}]{'time_move'} >= $chars[$config{'char'}]{'time_move_calc'}) {
+# Avoid stuck
+undef %{$ai_v{'avoidStuck'}};
# Avoid stuck
sub avoidStuck {
my $check;
my $isStuck;
my $msg;
for ($i = -1; $i < 2; $i++) {
for ($j = -1; $j < 2; $j++) {
next if ($i == 0 && $j == 0);
$check++ if ($field{'field'}[($chars[$config{'char'}]{'pos_to'}{'y'} + $i)*$field{'width'} + $chars[$config{'char'}]{'pos_to'}{'x'} + $j] > 0);
}
}
if ($check + $config{'unstuckAuto_margin'} > 8
|| ($config{'unstuckAuto_rfcount'} && $ai_v{'avoidStuck'}{'route_failed'} >= $config{'unstuckAuto_rfcount'})
|| ($config{'unstuckAuto_mfcount'} && $ai_v{'avoidStuck'}{'move_failed'} >= $config{'unstuckAuto_mfcount'})) {
$ai_v{'avoidStuck_tries'}++;
if ($config{'unstuckAuto_utcount'} && $ai_v{'avoidStuck_tries'} >= $config{'unstuckAuto_utcount'}) {
undef $ai_v{'avoidStuck_tries'};
$msg = "respawning";
$isStuck = 3;
} else {
$msg = "teleporting";
$isStuck = 2;
}
} elsif ($config{'unstuckAuto_mfcount'} && ($ai_v{'avoidStuck'}{'move_failed'} == int($config{'unstuckAuto_mfcount'}/2))) {
$isStuck = 1;
}
if ($isStuck) {
aiRemove("move");
aiRemove("route");
aiRemove("route_getRoute");
aiRemove("route_getMapRoute");
ai_clientSuspend(0, 5);
if ($isStuck > 1) {
if ($cities_lut{$field{'name'}.'.rsw'}) {
relog("*** May be stuck in city, relogging to unstuck ***\n");
chatLog("us","May be stuck in city, relogging to unstuck.\n");
} else {
print "*** May be stuck, $msg to unstuck ***\n";
chatLog("us","May be stuck, $msg to unstuck.\n");
useTeleport($isStuck - 1);
$ai_v{'clear_aiQueue'} = 1;
}
} else {
print "*** May be stuck, clearing route AI to unstuck ***\n";
chatLog("us","May be stuck, clearing route AI to unstuck.\n");
}
}
}
どっかで拾ったKarasu氏のコードだったと思う。
連続ですまんが確かこのままだとバグあったと思う。
まぁその辺は自分で処理してくれ。
比較しても修正個所多すぎて抜き出すの('A`)マンドクセ
皆そういいながら私の前を去って逝きました。わたしはかなしい
なんつーかここでコード晒すのは自分の首を絞めてると言うことにきづかんアホが多いのね。
初心者には適当な罠BOT渡せばいいだろ。
鳩は生かさず殺さず。そのぐらいがちょうどいい。
鳩がなにかをいっていますが、誰も聞き取れませんでした。
↓屑
↓ミジンコ以下
(><)ウメウメ
>>824 鳩には上記のコードを追加する術を持っておりませんが?
あ、鳩未満の方でしたか、コリャスマソ
>>821 605氏の壁歩き防止ってそれから派生したコードだったのか・・・
>>824 ブツブツ独り言って耳ざわりだね
キエロ(・∀・)ハゲ
ってことで埋め。605氏オツ
受信部
{
my($my_name) = $chars[$config{'char'}]->{'name'};
my(@target_names) = ('name1','name2');
my(@target_string) = ('ぶれす','ぶれすよろ','ブレス','ぶれーす');
my(@return_msg) = ('ほい','うぃ','おいよ〜','');
my($target_name) = 'this is a dummy name';
$target_name = $chatMsgUser if(grep($_ eq $chatMsgUser, @target_names));
if($target_name ne 'this is a dummy name')
{
my($flg) = 0;
$flg = 1 if(grep($_ eq $chatMsg, @target_string));
if($flg) {
sleep(1);
aiRemove("move");
aiRemove("route");
aiRemove("route_getRoute");
aiRemove("route_getMapRoute");
$response_atk_old = $ai_v{'ai_attaqck_ID_old'};
attackStop(\$remote_socket, $ai_v{'ai_attaqck_ID_old'});
print "Stopped all movement\n";
sleep(2);
sendMessage(\$remote_socket, "c", $return_msg[rand(scalar @return_msg)]);
sleep(1);
ai_skillUse($chars[$config{'char'}]->{'skills'}->{$skills_rlut{lc('ブレッシング')}}->{'ID'}, 10, 0, 0,
SearchPlayerID($target_name));
}
}
}
送信部
{
unless(%start_status) {
$start_status{'str_bonus'} = $chars[$config{'char'}]{'str_bonus'};
$start_status{'int_bonus'} = $chars[$config{'char'}]{'int_bonus'};
$start_status{'dex_bonus'} = $chars[$config{'char'}]{'dex_bonus'};
}
my(@target_string) = ('ぶれす','ぶれすよろ','ブレス','ぶれーす');
my($targ_name) = 'pri';
my($flg) = 0;
$flg = 1 if(grep($players{$_}->{'name'} eq $targ_name, @playersID));
if($flg and ($start_status{'str_bonus'} == $chars[$config{'char'}]->{'str_bonus'}
or $start_status{'int_bonus'} == $chars[$config{'char'}]->{'int_bonus'}
or $start_status{'dex_bonus'} == $chars[$config{'char'}]->{'dex_bonus'})
and time() > $last_demand + 10) {
sleep(1);
aiRemove("move");
aiRemove("route");
aiRemove("route_getRoute");
aiRemove("route_getMapRoute");
print "Stopped movement\n";
sendMessage(\$remote_socket, "c", $target_string[rand(scalar @target_string)]);
$last_demand = time();
}
}
オープンチャットで声を掛け合って支援を維持するコード。
実験段階で稼動させていたら10分ほどで「BOT?」と疑われたいわく付き。
送信部は消滅していたので即席で掘り起こしたので動作保証なし。
しかも実験段階で廃止したから全体のデバックもほとんどしてない。
さらに現在は支援を掛ける側で維持が可能なので実用性皆無。
ってわけで605氏 今までありがとう。あなたの趣味コードは好きでした。 んで3梅
if ($ai_seq[0] ne "skill_use") {
$i = 0;
undef $ai_v{'useFollow_skill'};
while(1){
last if (!$config{"useFollow_skill_$i"});
if ((!$config{"useFollow_skill_$i"."_target"} || $config{"useFollow_skill_".$i."_target"} eq $players{$ID}{'name'})
&& distance(\%{$chars[$config{'char'}]{'pos_to'}}, \%{$players{$ID}{'pos_to'}} <= $config{"useFollor_skill_$i"."_distance"})
&& percent_sp(\%{$chars[$config{'char'}]}) >= $config{"useFollow_skill_$i"."_sp_lower"}
&& timeOut($config{"useFollow_skill_$i"."_timeout"}, $ai_v{"useFollow_skill_$i"."_time"})
&& (!$config{"useFollow_skill_$i"."_lockMap"} || ($config{"useFollow_skill_$i"."_lockMap"} && $config{'lockMap'} eq $field{'name'}))
){
if ($ai_seq[0] eq "attack"){
sendAttackStop(\$remote_socket);
sleep(1);
}
$ai_v{"useFollow_skill_$i"."_time"} = time;
if (!ai_getSkillUseType($skills_rlut{lc($ai_v{'useFollow_skill'})})) {
ai_skillUse($chars[$config{'char'}]{'skills'}{$skills_rlut{lc($config{"useFollow_skill_$i"})}}{'ID'}, 10, 0, 0, $ID);
} else {
ai_skillUse($chars[$config{'char'}]{'skills'}{$skills_rlut{lc($config{"useFollow_skill_$i"})}}{'ID'}, 10, 0, 0, $players{$ID}{'pos_to'}{'x'}, $players{$ID}{'pos_to'}{'y'});
}
last;
}
$i++;
}
}
835 :
834:03/09/12 12:56 ID:???
>>833 >実験段階で稼動させていたら10分ほどで「BOT?」と疑われたいわく付き。
カナリワロタ
漏れも簡易辻支援スキル
キャラ移動情報パケに潜り込ませれば実行でける。configは割愛ってことで。
当初「友達?」と一度WISもらった疑惑モノ
ブレ10・速度増加10を支援すれば効率2割増しってとこかな?設定次第では
無差別辻プリになれまっせ
ということで、2梅
だんだん近くなってきたね
あと150ほど
どうでもいいことなんだが、ここでコード晒すのと罠がどうのと何の関係があるんだろう
どうでもいいことなんだからどうでもいいか。
605氏のコードを使っておりました。ありがとう。またどこかで。
ウ(´ω`)ゞメ
ところでみんなどうやってコード追加してる?
俺は全部別ファイルに書いて、一番上でrequire
元コードを書き換え or 置き換えの時はその部分をコメントアウトして
変更後のコードをサブルーチンとして呼んでたりするのだが・・・
>>838 うちは直書き
サブルーチンは末尾に追加するようにしてる
で、Soloタン見習って、追加・変更部分にはサインを残すようにってとこかな。
>>838,839
・・・意見交換は流れに逆らってねぇか?
そうでもないのか・・・駄レススマソ
産め!
RO店のコード内でここに速度Pコードいれてぇなぁって書いてたので梅ついでに。
sub dopingPosionUse {
my $iIndex;
if (($concentFlag == 0) && ($rouseFlag == 0) && ($lunacyFlag == 0) && ($config{'useDopingPosion'} ne "")) {
#指定ポーションの現在取得アイテム番号を検索
$iIndex = findIndexString_lc(\@{$chars[$config{'char'}]{'inventory'}}, "name", $config{'useDopingPosion'});
if ($iIndex ne ""
&& ($chars[$config{'char'}]{'inventory'}[$iIndex]{'nameID'}==645
|| $chars[$config{'char'}]{'inventory'}[$iIndex]{'nameID'}==656
|| $chars[$config{'char'}]{'inventory'}[$iIndex]{'nameID'}==657)
&& $field{'name'} eq $config{'lockMap'}
&& timeOut(\%{$timeout{'ai_item_use_auto'}})) {
#指定ポーションを取得中で且つ指定LockMapに居る場合のみ使用
sendItemUse(\$remote_socket, $chars[$config{'char'}]{'inventory'}[$iIndex]{'index'}, $accountID);
print "Doping-Posion Use: $items_lut{$chars[$config{'char'}]{'inventory'}[$iIndex]{'nameID'}}\n";
$usePosionTime = time;
$timeout{'ai_item_use_auto'}{'time'} = time;
}
}
}
>>840 大して有益でもないから別にいいかなぁと思ったんだけど・・・・
どっちなんだろ?(゚∀。)?<ウメー
843 :
ネトゲ廃人@名無し:03/09/12 14:54 ID:2o6vALZU
こいつ呼んで。
後各フラグを#0196で切り替えるのと、各フラグと$usePosionTimeをマップ移動のタイミングででも初期化してくれ。
おまけで
my $pottime;
$pottime = 1800 - int(time - $usePosionTime);
if ($concentFlag == 1) {
print "集中のポーション($pottime)\n";
} elsif ($rouseFlag == 1) {
print "覚醒のポーション($pottime)\n";
} elsif ($lunacyFlag == 1) {
print "狂気のポーション($pottime)\n";
}
print"----------------------------\n";
これを"s"の下にでも。
って事で2梅っと。
|ω・)・・・コソットネ
if ($ai_seq[0] eq "attack"){
sendAttackStop(\$remote_socket);
sleep(1);
}
ウメ
すまねぇ。下げ忘れ。。なれない事するもんじゃないね。
846 :
844:03/09/12 14:59 ID:???
|凵M)アゲチャイヤン バカン
847 :
ネトゲ廃人@名無し:03/09/12 15:12 ID:j6VxcYJt
_、_ そ
( く_,` ) n て
 ̄ \ ( E) 癌ばってます
フ 禿 /ヽ ヽ_//
終わったかな・・・
とりあえず、隠し梅
RO店で売り切れるとまたログインしたてみたいな感じで売ってくれる機能プリーズ
一回売れきれると開いてくれないからKore終了してまた起動しないといけないし
外出する時は一機に並べないといけなくなる
相場安定のためにも誰かお願い・・・
Solo様に愛を込めて
if (($old_pos_from_x == $pos_x) && ($old_pos_from_y == $pos_y)) {
梅
_、_ そ
( く_,` ) n て
 ̄ \ ( E) 癌ばってます
フ 禿 /ヽ ヽ_//
マターリ見守ってたが
>>843に相当ムカついてきた
お前、リアルでもそうやって上司や友達から嫌われてんだろうな
UMEEEEEEE
_、_ そ
( く_,` ) n て
 ̄ \ ( E) 梅作業も癌ばってます
フ 禿 /ヽ ヽ_//
はいはい
もう終了だね
埋めっと
残念なことだが
別に気にせずママーリと終焉を迎えればイインジャネ?
>>843はもう・・・故意か?と言いたいな
実用性あるの書いちゃイカンよ・・・
ってことであってるよな?
ウメーるために無駄なことをカキカキ
って問題はageか(汗
まぁ勘違いしたけど埋まったからよしとしておこう
何で終わりになるのか分からんぞ・・・汗
もしかしてあそこで?
そして癌呆タンが一所懸命にageと入れてるわけだがな・・・
梅生め膿め埋め
>>860 すまんがもうちょい補足願えるか?
といいつつ楳♪
>>862 さすがにそのうめは読めないだろう
といいつつ楳
>>861 _、_ そ
( く_,` ) n て
 ̄ \ ( E) 応援ありがとうございます
フ 禿 /ヽ ヽ_//
気にせずに〜♪っと
ウメ(・ω・)ウメ
>ALL
猿でごめん。
俺は居なかった事にして梅加速してください(´・ω・`)
_、_ そ
( く_,` ) n て
 ̄ \ ( E) 今月の課金もよろしくお願いします
フ 禿 /ヽ ヽ_//
868 :
ネトゲ廃人@名無し:03/09/12 17:36 ID:H/dh3hXD
ちょっと埋め停止 かな
@とりあえず何故終焉ムードなのか? @
@とりあえず605氏はどうした? @
@とりあえず次スレはどうなったのか? @
もうする事がないから終焉ムード。 @
605氏はそれに嫌気が刺して去った。@
とりあえず次スレはたたない。 @
>>870 >@とりあえず何故終焉ムードなのか? @
ラグナロクの運営をあきらめて、10月いっぱいで終わるから
>@とりあえず605氏はどうした? @
実用コードが浮かばなくて絶命。
>@とりあえず次スレはどうなったのか? @
とりあえず、次スレは立てない方針で。
もう大半のネタが出尽くした
残りは趣味&ネタコード
そういうのは必要ない 消えろってことらしい
ってわけで消え&次スレはなし
まー、初心者スレに統合でいいんじゃない?
最初は1スレしかなかったわけで。
*****************
*・〜が〜匹以上きたので回避します。*
* *
*・RO店の鯖キャン対策 *
******************
|┃三 _________
|┃ /
|┃ ≡ _、_ < 話は全部聞かせて貰ったぞ!
____.|ミ\___( <_,` ) _ \
|┃=___ \  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
|┃ ≡ ) 癌 人 \ ガラッ
:::::::::::/ ヽ::::::::::::
:::::::::::| ば じ き i::::::::::::
:::::::::::.ゝ か つ み ノ:::::::::::
:::::::::::/ だ に は イ:::::::::::::
::::: | な。 ゙i ::::::
\_ ,,-'
――--、..,ヽ__ _,,-''
:::::::,-‐、,‐、ヽ. )ノ _,,...-
:::::_|/ 。|。ヽ|-i、 ∠_:::::::::
/. ` ' ● ' ニ 、 ,-、ヽ|:::::::::
ニ __l___ノ |・ | |, -、::
/ ̄ _ | i ゚r ー' 6 |::
|( ̄`' )/ / ,.. i '-
`ー---―' / '(__ ) ヽ 、
====( i)==::::/ ,/ニニニ
:/ ヽ:::i /;;;;;;;;;;;;;;;;
>>877 神キターーーーーーーーーーーーーーーーーーーーーーー
スタックした記録を残したいんだけど、チャットに残す方法教えて
******************
*・〜が〜匹以上きたので回避します。 *
* *
*・RO店の鯖キャン対策 *
******************
******************
*・〜が〜匹以上きたので回避します。 *
* *
*・RO店の鯖キャン対策 *
******************
コードキヴォン
>>872,873
設置系スキル回避って実用的じゃないんだろうか・・・・
>>884 まあまあ
そういう人が出だしたからこうなったのですよ。
お察し下さい
EEEEってのもわざわざこんなとこまで出っ張らんでヨロシ
マターリ終わらせるのが流れに沿ってるでしょ
ということで埋め
あっとスマン。
ちょっと考えれば、さすがに本人じゃないか
申し訳ないm(_ _)m
埋め
******************
*・〜が〜匹以上きたので回避します。 *
* *
*・RO店の鯖キャン対策 *
******************
コードキヴォン
一人のageが原因とは思わんが、こうなってしまったねぇ
605氏へのお疲れ様の意味も込めてマターリ終わって欲しかったけど、そうもいかんね
風情が無いというか・・・粋じゃねえなぁ
605氏、オツ!
埋め埋めっと
ちょいと
誰か今までの歴史を簡潔にまとめつつ埋めてくれる古参はいないのかね?
たのむよ
>>889 1192
いい国創ろうキャバクラ幕府
1999
MMR
2003
世界陸上織田信長
('A`)ノこんなんでいいか?
******************
*・〜が〜匹以上きたので回避します。 *
* *
*・RO店の鯖キャン対策 *
******************
コードキヴォン
>>889 03 8/19 暗号化
03 9/18 世界滅亡
こんな感じか
286だけはカンベンしてくれ
ムカムカするから
ああ、ちなみに、286が晒したと思われてるdllは遥か前にツールスレにて
BASE64で貼られてたけどな。177氏が解読に困ってるときにな。
286なんざただのパクリ屋だろ?
露店BOTで鯖キャン後に露店を開きなおさない現象の応急処置としてこれをしてくれ。
・バッチファイルによる強制再起動
まず本体をこう書き換える。
-------------------------------------------------------
} elsif ($conState == 4 && timeOut(\%{$timeout{'maplogin'}})) {
+quit();
print "Timeout on Map Server, connecting to Master Server...\n";
-------------------------------------------------------
} elsif ($conState == 5 && timeOut(\%{$timeout{'play'}})) {
+quit();
print "Timeout on Map Server, connecting to Master Server...\n";
で、メモ帳を開き、(ファイル名は何でも良い。autorun.txt)中身にこういう文章を100行くらい書き込む。
perl Kore.pl
(※perl 〜の 〜のファイル名はBOT本体の名前。rKore.pl なら perl rKore.plとしろ。)
で、このファイルをKore.plと同じディレクトリに保存し、拡張子を 「.bat」と書き換える。
(拡張子の書き換え方を知らない奴は自分で調べろ。)
で、KOREを起動するときは作成したautorun.batをダブルクリック。
ちなみに応用としてはあれだ。
自動リログ機能を使う条件分岐のところにquit();を書き加えても良いかもな。
つぅわけで宜しく。
面白い現象発見しますたin フェンリル
伊豆D1Fのワープポイントの奥にヒドラが沸いててそいつを叩こうとして島→伊豆D→島→伊豆D
こんな感じではまってるBOT大量に発見
まぁ、自分も困るので排除しておきまつ
Boterのみんなガン(゚Д゚)ガレ!
んじゃポタ付近敵回避コードでも
貼るわけないけどな。埋め
まあそういわずに貼ってやれよ
Д゚)ノ ポイ
undef $m_plDist;
for ($i = 0; $i < @portalsID; $i++) {
next if ($portalsID[$i] eq "");
$m_PoDist = distance(\%{$portals{$portalsID[$i]}{'pos'}}, \%{$monsters{$ai_v{'temp'}{'foundID'}}{'pos'}});
if ($m_PoDist <= 5) {
ウフン
}
}
しかし、本家は何でポタ回避付けないんだろうなぁ。
コンセプトがわからん
粘着くんが少ないんだよ
GMもな
>>877 スーパーハカーキター?
掲示板までハクされてる模様
あらら。
見事に・・・
そっちも追悼埋め
自作自演だろ('A`)ノ
サイト終わらせてあるな・・・
追悼倦め
↑こいつがここを終わらせたんだよな…
こいつとあとBOT販売所とか言う奴
【RoからBOTを排除しましょう!】
方法
1・BOTを各サーバに放置する
2・1月ほどZenyを稼ぐ
3・RMTの相場の半額で現金化する
これを繰り返していただくだけで結構です。
RMTの相場の半額でZenyを現金化することにより、相場が著しく低下します。
これによって、古参BOTerの儲け(RM)を減らし、BOTerを撃滅しようという作戦です。
一時、BOTは増える状態になりますが、相場低下によるうまみが無くなるため、
結局RMT目的のBOTerは激減するはずです。
*賛同者はこれをコピペしてください*
RO@BOTうざ
消えて欲しい
248 :ネトゲ廃人@名無し :03/09/13 11:04 ID:???
DOS窓を開くのはどこでするんでしょうか?
RO@BOTさんのインストール方法を見て
ppm
install time-hires
install io-zlib
install win32-api
install http-lite
すればいいというのが分かりません・・
RO@BOTのおかげでこんなのばっか('A`)ノ
しつこいようですが
・〜が〜匹以上きたので回避します。
誰か、私は見逃してしまいました・・・
print "回避対象の$monsters{$_}{'name'}を$mon_control{lc($monsters{$_}{'name'})}{'teleport_auto'}体発見しますた。戦線離脱!!\n";
RO@BOTのおかげでこんなのばっか('A`)ノ
これからは質問は全て放置で行こう
わざわざ新参者を手助けする理由なんてどこにもないからな
RO@BOTの管理人が消え去ればそんなことする必要ないんだけどな・・・
('A`)マンドクセ
>>912 foreach (@monstersID) {
if ($mon_control{lc($monsters{$_}{'name'})}{'teleport_auto'}) {
+$DangerMonsterCnt++;
+if($DangerMonsterCnt>=$mon_control{lc($monsters{$_}{'name'})}{'teleport_auto'}){
+print "回避対象の$monsters{$_}{'name'}を$mon_control{lc($monsters{$_}{'name'})}{'teleport_auto'}体発見しますた。戦線離脱!!\n";
useTeleport(1);
$ai_v{'temp'}{'search'} = 1;
last;
}
}
}
+$DangerMonsterCnt=0;
$timeout{'ai_teleport_away'}{'time'} = time;
>902
起動しないから、
ウフンのところにuseTeleport(1);て入れたけどやっぱ_・・・
>>918 Thx〜
でも起動しなくなったとさ_| ̄|○
やっと埋まりそうだね
ってことで梅加速
BOT大量に動かすとラグくならないか?
回線細いだけですかそうですか・・・光にしてぇぇぇぇ
回線とマシンスペック
925 :
ネトゲ廃人@名無し:03/09/13 16:46 ID:IAr6HlgD
猿が埋めたててるが、中級者は書きこんだりしないな。
相場が下がって困ってる連中が騒いでいるだけみたいだな。
くだらん。
がんがん相場を下げよう。
>>925 騒いでるやつらは、ROをビジネスでやってるやつらだろ。
もしくはRMTやらないと課金できない貧乏人とかなwWw
>>911 こんなの初心者でも調べればすぐなのにな・・・・
頭悪い奴ばっかだ('A`)ノ
>>901 ウフン笑ったw
928 :
901:03/09/13 17:41 ID:???
バレちまったか(笑
って、テクニカルでもなんでもないコードだからな。中級者in伊豆なら
入れてるだろ?
{'foundID'}を強制的に消せばイインダヨとヒントもだしつつ
とにもかくにも埋めってぇことで
929 :
フフリ:03/09/13 20:19 ID:???
____
/ \ ______________
/ /=ヽ \ /
| ・ ・ | < RO@BOT管理人うぜーぞ、オイ
| )●( | \
\ ー ノ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
/\____/
lニニニニニl=====⊂/\__〕 ノ
/丶2 |m; ブィーン
/ //7ゝ〇 ノ\ ブィーン
/ (_///⌒γノ/___) ブイーン
/ /// ///ノ//
// |/ ///◎) パラリラ
/ / / // パラリラ
// V ノ
アンパンマンが見えてるとウザイので梅
【RoからBOTを排除しましょう!】
方法
1・BOTを各サーバに放置する
2・1月ほどZenyを稼ぐ
3・RMTの相場の半額で現金化する
これを繰り返していただくだけで結構です。
RMTの相場の半額でZenyを現金化することにより、相場が著しく低下します。
これによって、古参BOTerの儲け(RM)を減らし、BOTerを撃滅しようという作戦です。
一時、BOTは増える状態になりますが、相場低下によるうまみが無くなるため、
結局RMT目的のBOTerは激減するはずです。
*賛同者はこれをコピペしてください*
*ツール使用方法がわからない方、作戦に対する質問はメールにて*
kore.pl
二つ機動しようとしたらline9116
とかでて機動できないのですが(;´Д`)
ちょっと質問。
敵を殴りに逝くときにルート計算に失敗していることが多い(特にノンアクティブ)ので、デバッグの方式を変更して詳細なログを採取してみた。
するとだ。敵を殴りに行くとき、実際は敵の居ない座標を目標地点設定して歩く事が多いんだね。
で、ATTACK部分を見てみた。
するとだ。敵の座標には、%monsterに格納されているキーpos_toの値を用いずai_v{'temp'}に保存された位置情報を用いているわけ。
で思ったことなんだけれども、そもそもai_v{'temp'}に値が格納されるタイミングはいつだよ?
このハッシュは色んなところで流動的に使われる値だから知らぬ間に値が変更されているんじゃないか?
どうなんだろ、、、これ?
あとあれだ。本家って、テレポ後に対する処理が色々と不十分な気がする。
まあ、梅とこ。
皆さん、もうそろそろ終焉ですぞ
マターリするもよし、ズザーするもよし、出来ればその他中級者のチョロネタコード
をもっと拝みたいですな
たまたまわけあってGM回避止めてたらちょうどその日に会うってどういうことだ・・・
連行はされてないがな(゚∀゚)
>>935 AUTO-ATTACKの件だと思うんだが、ai_v{'temp'}を使ってるのは、あくまで
{'foundID'}だろ?それって、敵から攻撃された場合・mon_controlに指定されている
敵・その他もろもろ、の攻撃IDを決定しているだけ。
攻撃しようとする敵に近づくのは、肉入りで言うと敵を攻撃するときにCTRL+左クリック
する動作と一緒なわけだから、後は鯖側の処理。
その部分は読み取りが違うと思われ。
違うかなぁ?
まあ梅っとな
前から思ってるんだけどさ。面白くも無いAAを延々貼る奴の頭ってどうなってるんだ?
not good
____
/ \ ______________
/ /=ヽ \ /
| ・ ・ | < オラオラ、梅てやるよ
| )●( | \
\ ー ノ  ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄ ̄
/\____/
lニニニニニl=====⊂/\__〕 ノ
/丶2 |m; ブィーン
/ //7ゝ〇 ノ\ ブィーン
/ (_///⌒γノ/___) ブイーン
/ /// ///ノ//
// |/ ///◎) パラリラ
/ / / // パラリラ
// V ノ
(・w・)ウメウメ
(・w・)ウメウメ2
(・w・)ウメウメ3
(・w・)ウメウメ4
(・w・)ウメウメ5
(・w・)ウメウメ6
>>935 ハエ使って目の前から居なくなったキャラの処理をしてないね。
精錬チートのやり方教えろや梅
あ、次スレ立ててくる。
# タゲ被り防止
NotAttackDistance
この設定の最大値ってどれくらいですか?
一般的に言ってフラグは1か0だよ
>>935 質問と返答がずれてるかもしれんがattackDistanceの値が小さすぎなんじゃね?
攻撃の挙動については
>>938ので充分だろ
なんでそんな動きするか考えて味噌
サ ラ イ の 空 へ 〜
この中級者スレは
ピンクレディーみたいに復活して微妙な存在になるより
ABBAみたいに二度と復活せずに伝説となってほしい
GungHo-ID登録したんだけどメールこない
時間かかるんだっけ?
登録メアド間違ってるんじゃね?
このスレの終焉とともにRO@BOTも終わって欲しい
(・w・)ウメウメ
成功→スルー
失敗→○○
これでいける
962 :
961:03/09/14 14:51 ID:???
Λ||Λ
RO@BOTのHPって誰か通報してねーの?
マジうざいんだが・・・
>>953 0か1じゃねーから聞いてんだろ鳩は黙ってろ。
残 り 34 と な っ て き ま す た ! ! !
阪神の優勝が決まるのと埋め立て完了するの、早いのどっちだ!?
>w<うにうに
>>935 moveAlongVectorは?
>>948 80パケのtype2じゃないんだろうか・・・・
どっちにしろ、本家がテレポ対策が甘いのは同意
結局、これがスタックバグの正体っぽいんで
漏れは、このテレポが引き起こしてるバグを修正したらスタックではまることがなくなった
自分に掛ける系統のスキルでuseSelf_skill_#_timeoutを使って
かけ直ししてるんだが、どうにも時間が狂いまくってる感じがするんだよ。
スキルのON→OFF状態を時間以外で取得して
かけ直しすることって出来ないか?
>>605氏・・
人避けコードはもう公表無で終わりなのでしょうか?
出来れば605氏もサイト建設希望なのですが・・・。
>>970 スキル発動失敗してるだけだよアホタリン
ちゃんといろいろ調べて来い
対策もうpしてくれてる親切なところがあるダニ
残り25梅!
(・w・)ウメウメ
高性能GM返答作ろうぜ。
アリの巣はきびしいんよ。なにせ全員にWIS送ってそうだからな
979 :
フフリ:03/09/14 20:51 ID:???
夕べ他の用事があってできなかった
ごめんよ 今から攻撃開始
ume