ろBOっと 中級者スレ[Part19]

>>373
fldは Y(縦)*幅+X（横)+4バイト で該当座標を割り出素事が出来る普通のビットマップ。

GD2のその座標って、確認してないけど前の階のportalがあった座標じゃないか？
SD1/SD2/SD4で決まった座標でハマっちゃうので調べたら
直前にいたマップのportalのある座標だったから、fldを塗りつぶして対処したんだけど。

>>375
fldはどうやって編集するんです？
教えてくだされ。お願いします；

fld編集の仕方
１．とりあえずメモ帳あたりで開いてみる
２．文字化けしまくりでよめねぇ！
３．じゃあバイナリエディタでも使ってみるか
４．バイナリエディタで開いてみる
５．数字の羅列が見える
６．さてどんなルールで並んでいるのかな？と考えてみる
７．どんな地形がどの数字で表されているかあたりをつける→検証の繰り返し
８．データに関する知識を得る
９．該当部分を書き換えてみる
１０．うまく行かなかったらもう一度６ぐらいからやり直し

さ、頑張れ。

B0 00 05 00
B0 00 07 00
これの正体は・・・？

６．さてどんなルールで並んでいるのかな？と考えてみる
７．どんな地形がどの数字で表されているかあたりをつける→検証の繰り返し

>>377
有難う！！
ちょっと頑張ってみます

>>375
あ、その通りです＜前の階のportalがあった座標
因果関係は漏れにはさっぱりですが、教えて頂いた内容で
無事謎座標潰せましたー。
つーか移動可能が00で不可が01だったんですね…、検証合わないはずだわ…。
myBotは無事駆け回ってます、ありがとうございました。

ここ中級者スレだよな？

>>374
だからその解決方法を教えやがれ

>>336
それだけ組みこんでも正常に動作しないのでは？
未設定の変数あるはず。
>>338
漏れ初心者だからわからんす；もっと丁寧に教えてくれると光栄です

といわけで、漏れは今時間毎に覚せい剤使うルーチンを組みこもうと必死でつ（遅い？
それに伴って、狩場でのみ２HQ・覚せい剤使うルーチンも組みこみたいのね
ただ、本気で狩場でしか使わない場合、移動中に強敵に襲われたらヤバイよねぇ
覚せい剤は２HQの補助剤として使うとすると、、、
２HQ→セーブマップ以外でのみ使う。
覚せい剤→狩り場でのみ使う。
これで良いのかなぁ。。なんとかできるかも。
ま、これ組みこむと騎士専用BOTになっちまうけどね。覚せい剤とその他自動アイテムの区別つけずに書いてるから。

出来たらうｐするね。但しあれでつ。初心者なのでコード汚いと思うけど勘弁して；
でははん。

覚醒剤コードおながいします…
useselfitemにtimeoutつけようとしたけどだめだった…(´・ω・`)

useskillの部分を抜き出してitemに書き換えて比べて見れ
timeoutつけるだけならすぐできる

出)歩きパターンが違うTools.c/Tools.dll 求)WM15k

壁沿いではないけど、最短距離を直線的に進むタイプ。
これまでよりはバレにくいと思うけど、やっぱり機械的かも

アイテムリストうｐお願いします

>>388
レス読めチンカス

お前より事細かく読んでるゼ。
パスワードとかなんかややこしい事して分かんねんだYO！
誰か優しい方教えて下さい。おにがいします(-ι- )

UZEEEEEEE
ここは中級者スレだっつーの！

>>390
>お前より事細かく読んでるゼ。
>パスワードとかなんかややこしい事して分かんねんだYO！

小学校で国語の勉強してきなさい

>>390
事細かく読んでるなら今回の追加分はこのスレの中にあったのぐらい分かるな？
旧リストぐらいどっかで拾って来い。

コモド後のtablesのうｐお願いします

>>388
鬱陶しいからいい加減やめなさい。
ネタか？
よく見ろ、必要なのほとんど乗ってるだろ

>>388
1、2mくらいの丈夫な縄を用意する
2、手ごろな木箱を用意する
3、縄の先端に半径20cmくらいの輪を作る
4、その縄を天井にぶら下げる (天井が高ければなお良し)
5、木箱に乗り首を縄の輪の部分に通す
6、木箱を蹴り飛ばす

図1↓
＿＿＿＿＿|＿|
　　∧||∧
　 （　⌒ ヽ
　 ∪　　ﾉ　
　　 Ｕ Ｕ

　　　　　/￣￣￣ /|
　　　　　|￣￣￣| 　|


もうアプロダにあがってるだろ！死ねよ知障・文盲。

>>388
WM1500で送信してやるよ

俺は餃子鯖のZeny１Mでいいよ

>>396
もうそれ見飽きた　きもい
>>398
まだｹｲｵｽ鯖やってるのかよwWwwWw

>>1からの抜粋
・sage進行。ageる馬鹿は放置
・質問する時は丁寧に
・10分以上調べて悩んでから質問する
・PC初心者、荒らし系統は放置
・初心者と中級者仲良くとは言わないが
　中級者だからとか初心者だからとか勝手な理由を付けないこと
(_ _)Zzz

388〜399
お前ら400様の言う事が分からんのかボケ
(_ _)Zzz

>390
もう少しだけ細かくよんでみて。

>355
ググっても露店開設の方法見つかんなかったから…
未出だと思ってたんだＹＯヽ（｀Д´）ﾉ

重量90%超えると特殊ﾊﾟｹくるな
漏れのアイテム回収用ノビﾀｿが動きがおかしい。

BOT大量起動しようとしたら重要なのはCPU？　メモリ？

お金です。

ｺｺ中級者ｽﾚだよな？
kurekureいうなら初心者ｽﾚでも行って吊ってろﾎﾞｹ

いちいち煽り＆駄レスしてないで

>>403
>>405
>>407
スレ違い
ttp://game3.2ch.net/test/read.cgi/mmosaloon/1053621648/l50

ってしてやれよ

糞スレになってきたなぁ〜（・∀・）ﾆﾔﾆﾔ

Delphinus#Ω,3B C0 0A 00,,,,10,1,[May 29 15:14:34 2003]
GM807.supporter,3B C0 0A 00,,,,8,1,[May 24 06:27:31 2003]

つか、上のもGMのグラフィックだよねぇ。
こんな名前でいいのかな？

>>403
露店BOTなら、今日、Jkore時代にあったやつを今のKoreに移植してみました
まあ、まだテストもしてなかったりするわけですが････
一応、一定時間たったら値下げする機能とか盛り込んでます

それにしてもパケエラーで困ってるのはなぜだろう？
0196のサイズを直したらコモド前よりパケのエラー減ったくらいなんだけど・・・・
もちろん、50%以上でもちゃんと動作しとります

0196って2HQ…のこと？

>>411 同意。コモド前よりむしろ安定して動いてる。
エラーが格段に減った。
ヒール、ブレス、速度増加ができないなんて言ってたから、露店開けるか心配でしたが
無事うちのkorekoreSHOPは開店してくれたよ。

>Botter聖職者のみなさん
プリBOT持ってないから知らないんだけど、まだスキルは使えないのかい？

>>411
俺のBOTアサシンなんで0196修正しても直らなかった('A`)

>>414　アサなんてBOTする意味あるのか？
BS・プリより低級だろ。

>>415
二刀流持たせてひたすらｲｽﾞｲｽﾞ。
ﾊﾞﾄﾞﾝｳﾏｰ

伊豆特化ならギリギリOKかな。
他にはアサシンの存在意義なんて今のところないよなあ・・・。
BBみたいなスキルがあれば激しく強そうだが。

0119
018a
011a

この三つのパケ長教えて。XPだから受け取りパケ取れない…。

>>413
スキル使った後に謎のパケットを受け取るんだが、他ははじめから全く問題なく動いてる。
謎のパケはブレス・ＩＡの後だからコモド後に表示されるようになったやつかと。
stいれてみるとちゃんとステが上がってるのが確認できるしね。

というわけで全く無問題。

俺はパケロスやたら多すぎなんだが…

いまだに0.90.11なんて使ってるからいけないのかね

パケロスてかパケエラか(´･ω･`)

>>420 俺0.92.8。まあ快適

>>422
ｱｯﾌﾟｷﾎﾞﾝ


って言ったら怒るかい？('A`)
てか修正箇所がわからんなぁ。
いちいちパケ調べなきゃいけないのか…？

0119はペコ、カート所持時の受信パケ、
018aはスキル使用？関係のパケ、
011aは…謎なんだが、

誰かお願い。Me/98/95だったら自分でやってるんだけど…。
お礼は、まぁ、新コードやら何らかの形ではするつもり。

今月でBOTもROもやめること決定しました。

あ〜たのしかった。
ちょっとは勉強になったから
ためになったってもんだ。。

でも、罠が流行した頃や、ウイルスが蔓延した頃、
133がいた頃(引き際ﾈ)が楽しかったなぁ。

ありがとうRO。
ありがとう、みんな。

まぁ、ガンガレぁ

>>423
おそらく、パケエラ系は、パケ長が変わってる。
よくDUMPってるパケの頭4数字XXXXが当てはまってるとこの
} elsif ($switch eq "XXXX") {
を探して、それ系のパケ長を調べる。
んで、$msg_size値を変更するっ…て感じに俺は解釈してるんだが。

>>425
乙。
つーかこういうの見るとBOTerの方がROを満喫してるっぽいなぁ…。

何レスもスマン。
>>424は、018Aと011A逆ね。

>>425
お疲れ様。

俺もそういう日いつかくるんだろうかなぁ
まぁ、とにかく乙彼

BOTのほうがROは面白い　正直そう思う
BOTで得たお金で、
初心者っぽい奴とか　かねねー奴になんかあげて
喜ばれると　いいことしたーって感じになる。
連BAN?　ｼﾗﾈ

コモド来てからMy娘が敵さんを叩かなくなったんだが。

例）
ヒドラ 1 0 0
タラフロッグ 1 0 0
ククレ 1 0 0

→ヒドラのみ攻撃

同じ症状いる？

スフィいってる人に聞きたいんだけど、
精錬してレベルいくつくらいからおいしい？
定点狩りならわしのＢＯＴでもなんとかいけるみたいなんだけど、
歩き回るとｼﾎﾞﾝﾇ。
でも定点だとおいしくない罠。

ちなみにわしのＢＯＴは精錬なしの店売り最強装備、
木琴ありでファイアフランペ装備
レベル77

ＳＴＲ51
ＡＧＩ67
ＶＩＴ60
ＤＥＸ20
って感じでつ。
現在はフリルドラマップにおります。

しまったスレまちがった。
別の場所いってきます。

っつか2ｃｈ専用ブラウザにまだなれてなくて
こんなんばっかだよ・・・

う〜ん、漏れも今のBOTはアサかなぁ
そもそもに、アイテム切れたらautostorage発動もアサのために
作ったようなもんだったりする・・・・
いや、2刀流持ち替えアサでSDの1kダメ連打したい・・・・と思ってやってるわけでして

ちなみに漏れは0.92.6

>>431
ほほえましいな。(専用使ってる辺り)
ｶﾞﾝｶﾞﾚ

>>426
それで、さっそくやってみようと、
9601を検索したが、でてこない。。
0096は違うよな
すまん　もうちょっとさぐってきま

>>430
ああ、伊豆は俺も同じ症状が出た。
多分Mobの番号が変わったとかそんなとこだろうけど
伊豆以外なら平気ナンで放ってあるよ。

2HQ修正ｔｈｘ！
見違えるほどパケエラー消えたよ！

馬鹿ばっか('A`)

〜 匹目で入手　ってのが再起の度にカウントがリセットされるんだが何が問題なんだ？
やっぱdefeat.txtに何もかかれてないのが問題なのか？

修正方法よろ＿|￣|○

あっぷっぷの121さんや、ここ見てたらcontrolとtableもついでにあｐってください

自分でperlの中身見ればある程度分かるじゃん

Vending部分のソースオボンヌ(´・ω・`)

あぷろだに要望書いて糞ファイル置いてる香具師！
いいものがどんどんログから消えていくわけだが
そしたら藻前さんたちみたいなｸﾚｸﾚが困るだけですよ

すんません、どなたかコモド以降含めたportals.txt上げて下さい…＿|￣|○

自分で歩けよ

>>444
ポータルはみんな自分の狩り場で使う部分だけ追加してると思うから
狩り場←→カプラの間のポータルだけportals.txtに追加汁

>>445
投げやりすぎですよ（＝＝

>>439
自分で導入したわけじゃないから間違ってたらすまんけど
sub record〜〜のとこでdefeat.txtを読み込ませるようにして
sub quitのとこでdefeatに書き込みさせるようにすれば
蓄積されるんでない？

>>444　狩場⇔カプラを歩け

正直SDは美味しくなくなったな。ダイヤが出なくなったし。
次ぎはあそこっぽぃ。

>>448
えと、ポイントウォークでやると思って、
saruMAPでroutepoint.txt作って、
route_pointWalk 1にしましたが、動かず座ってしまいます＿|￣|○

それバグ持ちだし。
過去スレいてら

敵の目の前で数秒止まって攻撃し始めるのを改善する方法plz('A`)
＿|￣|○別BOTにタゲ取られまくり

0196のサイズっていくつにすればいいの？
今日もDUMPが山のように(´･ω･`)

0196ってまでわかってなぜわからん…9に変更だよ

WPE　PROの使い方がわかりません。
BOTにテレポベルト装備させたまではいいんですが、
WPE　PROをどうすれば無限ハエパケができるのか教えてください｡｡

>>455

1、2mくらいの丈夫な縄を用意する
2、手ごろな木箱を用意する
3、縄の先端に半径20cmくらいの輪を作る
4、その縄を天井にぶら下げる (天井が高ければなお良し)
5、木箱に乗り首を縄の輪の部分に通す
6、木箱を蹴り飛ばす

図1↓
＿＿＿＿＿|＿|
　　∧||∧
　 （　⌒ ヽ
　　 ∪　　ﾉ　
　　　 Ｕ Ｕ

　　　　　　/￣￣￣ /|
　　　　　|￣￣￣| 　|

こないだ出てた、GM発見したら蝶使ってから落ちるコード張ってくだせい（；´Д｀）人
あの時は、別に必要ないからいいかって思ってたけど最近落ちただけでアリーナ送られるみたいなんで・・・。

>>457
自分でカスタムすれ、と無責任なことを言ってみる。
一番楽なのはテレポベルトを持ってsendrespawnを追加。

…じゃなくてuseTeleport(2);な。
間違え＋連書きスマン

>>452　timeout
>>453　過去ログ
>>454　過去ログ嫁って言ってやれ。でないと読む癖つかない。
>>457　過去ログ

すまん、えらそうなこと言ってageてしまった。

実際、過去ログかなり助かるよな

活用しない馬鹿多すぎ

フェイヨン07に居たはずなのになぜかコモドに飛んでた
なんだこりゃ

>>463
Ｉｒｉｓでない？
ジェラっていうプリースト　プレイヤーリストにいないか？

>>463　おお、恐。ポタ避けはやっぱりONの方がいいな。

増速POTコード

plzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz

いや本当に過去ログ読んでもみつからないんですよまでぃで
頼みます

>>455 スレ違い。チートスレいけ。

>>467
BOTをやめることをお勧めするよ

>>469
>>455を読む限り肉入りかと

>>464
ジェラって聞いてビックリΣ(￣ロ￣lll
漏れも以前、飛ばされたよ。こいつって有名なの？

スレ違いだが、激しく気になったので。スマソ m(_ _)m

テスツ

お、この串は書き込めるみたいだな。
全く早く規制解除して欲しいもんだ。

で、少し教えて欲しいんだけど、0.92.3と今出回ってるKoreの違いって何？
暫くROから離れてたんでイマイチ判らないんで主な変更点をまとめてくれればありがたい。
もちろんタダでとは言わないので。教えてくれたらタイムアウト付き自動アイテム使用コードでも貼るよ。

>>473
デフォルトで罠搭載

>>473
一度走らせてから追加したい機能のみ追加汁

ともかくまずは0196（2HQ）のパケ長を（過去ログ

>>458-460
自分でplをカスタマイズしてみますた。
うまく動いてくれるかどうかはまだわかんないけどどうもありがたうですた（´∀｀*）

いまさらかもしれないが　
「過去ログ嫁」
ばっかりで今のスレの意味がないような気がしてならない

>>475
アプロダにソース転がってたんだな・・・。
聞くまでも無かった_|￣|○
まぁ聞いてしまったんでとりあえずコード貼っとくよ。

　　if (($ai_seq[0] eq "" || $ai_seq[0] eq "route" || $ai_seq[0] eq "route_getRoute" || $ai_seq[0] eq "route_getMapRoute" || $ai_seq[0] eq "follow" || $ai_seq[0] eq "take" || $ai_seq[0] eq "items_gather" || $ai_seq[0] eq "items_take")
　　　　&& timeOut(\%{$timeout{'ai_item_use_auto'}})) {
　　　　$i = 0;
　　　　while (1) {
　　　　　　last if (!$config{"useSelf_item_$i"});
　　　　　　if (percent_hp(\%{$chars[$config{'char'}]}) <= $config{"useSelf_item_$i"."_hp_upper"}
　　　　　　　　&& percent_hp(\%{$chars[$config{'char'}]}) >= $config{"useSelf_item_$i"."_hp_lower"}
　　　　　　　　&& percent_sp(\%{$chars[$config{'char'}]}) <= $config{"useSelf_item_$i"."_sp_upper"}
　　　　　　　　&& percent_sp(\%{$chars[$config{'char'}]}) >= $config{"useSelf_item_$i"."_sp_lower"}
　　　　　　　　&& timeOut($config{"useSelf_item_$i"."_timeout"}, $ai_v{"useSelf_item_$i"."_time"})
　　　　　　　　&& !($config{"useSelf_item_$i"."_stopWhenHit"} && ai_getMonstersWhoHitMe())
　　　　　　　　&& $config{"useSelf_item_$i"."_minAggressives"} <= ai_getAggressives()
　　　　　　　　&& (!$config{"useSelf_item_$i"."_maxAggressives"} || $config{"useSelf_item_$i"."_maxAggressives"} >= ai_getAggressives())) {
　　　　　　　　undef $ai_v{'temp'}{'invIndex'};
　　　　　　　　$ai_v{'temp'}{'invIndex'} = findIndexString_lc(\@{$chars[$config{'char'}]{'inventory'}}, "name", $config{"useSelf_item_$i"});
　　　　　　　　$ai_v{"useSelf_item_$i"."_time"} = time;
　　　　　　　　if ($ai_v{'temp'}{'invIndex'} ne "") {
　　　　　　　　　　sendItemUse(\$remote_socket, $chars[$config{'char'}]{'inventory'}[$ai_v{'temp'}{'invIndex'}]{'index'}, $accountID);
　　　　　　　　　　$timeout{'ai_item_use_auto'}{'time'} = time;
　　　　　　　　　　last;
　　　　　　　　}
　　　　　　　　last;
　　　　　　}
　　　　　　$i++;
　　　　}
　　}

>>460
timeoutってのはもうわかってる訳だが(´Д｀；)
ai 2
ai_move_giveup 2
ai_attack 0
ai_attack_auto 0
ai_attack_giveup 6
ai_attack_waitAfterKill 0
ai_items_take_start 0
ai_items_take_end 0.5
ai_take 0
ai_take_giveup 4
ai_items_gather_giveup 6
ai_items_gather_auto 0
ai_items_gather_start 0
こうなってる
(´･ω･`)どこ弄ればいい？

０はやめれ

>>481
どうして？('A`；

>>482
timeoutの意味を考えてみろよ。0はありえないだろ。

>>482
バレるからだろ。
バレてもいいならそれでもいいと思うが



で漏れも敵の前で止まるんだが、しょうがないのかこれは。

初心者スレでさらっと流されちゃったからこっちで聞きます
国際sakray鯖でkore使うときの鯖情報教えてください・・・

わざわざ2000円近くも払って英語圏でBOTするとはご苦労なこった

>>479
ああ、ついに追加コードきたよ・・・・・
ひとまず、479のに狩場以外では速度POTを使わない機能を補足
さて、コードなにを貼ろうかなぁ

-if ($ai_v{'temp'}{'invIndex'} ne "") {
+if( $ai_v{'temp'}{'invIndex'} ne ""
&& !( ( $chars[$config{'char'}]{'inventory'}[$ai_v{'temp'}{'invIndex'}]{'nameID'}==645
|| $chars[$config{'char'}]{'inventory'}[$ai_v{'temp'}{'invIndex'}]{'nameID'}==656
|| $chars[$config{'char'}]{'inventory'}[$ai_v{'temp'}{'invIndex'}]{'nameID'}==657 )
&& $field{'name'} ne $config{'lockMap'} ) ){
sendItemUse(\$remote_socket, $chars[$config{'char'}]{'inventory'}[$ai_v{'temp'}{'invIndex'}]{'index'}, $accountID);
$ai_v{"useSelf_item_$i"."_time"} = time;
$timeout{'ai_item_use_auto'}{'time'} = time;
print qq~Auto-item use: $items_lut{$chars[$config{'char'}]{'inventory'}[$ai_v{'temp'}{'invIndex'}]{'nameID'}}\n~ if $config{'debug'};
last;
}

ちなみに漏れは

$ai_v{"useSelf_item_$i"."_time"} = time;

これはsendItemUseのあとにつけてるかなぁ
こっちなら

速度POTが切れる>速度POTを入手＞速度POTを即使用

となるんで

>>473 Kore 0.92.8 ベースの改造Kore
・tables日本語化
・スキルリストのズレ直し
・パッチサーバを通す
・再接続ウェイト
・ml/plコマンドの表示拡張
・ターゲット被り検知
・総ダメージ数表示
・アイテム名称の文字化け対策
・ログの切り分け
・プレイヤー情報の記録
・エモーションの記録
・ワープポータル回避
・アイスウォール検知＆回避
・ベノム被爆時の自動治癒(緑色ハーブが必要)
・mon_controlのデフォルト動作変更
・アイテム連続使用
・遠距離攻撃対策(移動途中停止)
・簡易時給表示の組み込み
・起動時にHPR/SPRスキルハック
・重要アイテムの即時取得
・自動返答
・GM回避
・ギルドメンバーのログイン・ログアウト
・武器の自動持ち替え
・スタック時の検知と回避
・アイテム取得時の自動カート追加

・アイテム修飾語
・ターゲット被り防止
・撃破数記録
・自動返答のアクションスクリプト拡張 by karasu@KoreKrew
・ギルド情報
・ギルドメンバーリスト
・ペット自動餌
・ペット情報
・カートから自動取得
・カートへの自動追加
・露店機能
・マップ視覚化ルーチン
・pointwalkとsarumap（point作成）

あとここで上がってた奴を適当に補完して使ってる。
・新GM避け
・倉庫引き出し
・速度POT
・lockmapへの移動中攻撃ON/OFF

とまあ俺のはこんな感じ。だけど最新版ではないと思われます。
これだけついてれば不便ないけどね。
復帰おめ。

kurekureさんに言っておくが、うｐはしないから。自分で探してね。

Kore 0.92.8使用者なのですがアイテムをカートに入れてくれません
cart_controlの書式は# 書式：<item name> <items in inventory>で
[config]cartGetAuto 0 cartAddAuto 1 cartMaxWeight 99 です
どこを修正すればよいのですか？

>>487
＞狩場以外では速度POTを使わない
minAggressivesを1にするじゃダメか？
まぁこれだと帰還or復帰途中に攻撃されるとその場で使ってしまうが・・・。
自分はAUTO-BUY/SELL/STORAGEは使わないんでこれで問題ないけど、
使っている人には些か問題ありだったかも。すまん＆補完Thx。

>>488-490
サンクス。助かる。
参考にさせてもらうよ。

つか、マップ変わる毎にPOTの効果がきれるわけだが・・・。

時間じゃなくて、ステタスの変化で判断するようにできればいいな。

あげちった・・

0.92.8って何だ？

>>493
細かいこと言うようだがマップ毎じゃなくて鯖毎。

いまさらな機能だけど、
ポタ回避で自分の足元にポタを発動させたPCだけを記録するコードって無かったですか？
簡易晒し用リストが作成できることが知れ渡ると、する香具師も減るんじゃ無いかと。
今でも100%回避はしてないようですし。

>>497
+chatLog("Ete","$players{$sourceID}{'name'}が使用。ポータルを回避\n");

テレポの下に。Eteがなければ、適当に追加。

>>498
流用させてもらいますたthx

>>491 こっちできいてみ
http://game3.2ch.net/test/read.cgi/mmosaloon/1053621648/

>>491
カートコントロールの設定が悪いんじゃねぇのかYO！？

ではそろそろ。今回のは殴られ途中にタゲを変更するやつ。

sub updateDamageTables {
my ($ID1, $ID2, $damage) = @_;
if ($ID1 eq $accountID) {
if (%{$monsters{$ID2}}) {
$monsters{$ID2}{'dmgTo'} += $damage;
$monsters{$ID2}{'dmgFromYou'} += $damage;
+$monsters{$ID2}{'atkNumFromYou'}++;
if ($damage == 0) {
$monsters{$ID2}{'missedFromYou'}++;
}
}
} elsif ($ID2 eq $accountID) {
if (%{$monsters{$ID1}}) {
$monsters{$ID1}{'dmgFrom'} += $damage;
$monsters{$ID1}{'dmgToYou'} += $damage;
+$monsters{$ID1}{'atkNumYou'}++;
if ($damage == 0) {
$monsters{$ID1}{'missedYou'}++;
}
}

} elsif (%{$monsters{$ID1}}) {
if (%{$players{$ID2}}) {
$monsters{$ID1}{'dmgFrom'} += $damage;
$monsters{$ID1}{'dmgToPlayer'}{$ID2} += $damage;
$players{$ID2}{'dmgFromMonster'}{$ID1} += $damage;
+$monsters{$ID1}{'atkNumPlayer'}++;
if ($damage == 0) {
$monsters{$ID1}{'missedToPlayer'}{$ID2}++;
$players{$ID2}{'missedFromMonster'}{$ID1}++;
}
if (%{$chars[$config{'char'}]{'party'}} && %{$chars[$config{'char'}]{'party'}{'users'}{$ID2}}) {
$monsters{$ID1}{'dmgToParty'} += $damage;
}
}

} elsif (%{$players{$ID1}}) {
if (%{$monsters{$ID2}}) {
$monsters{$ID2}{'dmgTo'} += $damage;
$monsters{$ID2}{'dmgFromPlayer'}{$ID1} += $damage;
$players{$ID1}{'dmgToMonster'}{$ID2} += $damage;
+$monsters{$ID2}{'atkNumFromPlayer'}++;
if ($damage == 0) {
$monsters{$ID2}{'missedFromPlayer'}{$ID1}++;
$players{$ID1}{'missedToMonster'}{$ID2}++;
}
if (%{$chars[$config{'char'}]{'party'}} && %{$chars[$config{'char'}]{'party'}{'users'}{$ID1}}) {
$monsters{$ID2}{'dmgFromParty'} += $damage;
}
}
}
}

+sub JudgeAttackPriority{
+my $ID=shift;
+my @temp;
+my $maxPriority;
+my $foundID;
+my $first=1;
+if($config{'JudgeAttackPriority'} && +$config{'JudgeAttackPriority'}>=$monsters{$ID}{'atkNumFromYou'}){
+@temp=ai_getAggressives();
+foreach (@temp) {
+next if (!$_);
+if($first || $maxPriority<$mon_control{lc($monsters{$_}{'name'})}{'attack_auto'}){
+$maxPriority=$mon_control{lc($monsters{$_}{'name'})}{'attack_auto'};
+$foundID=$_;
+undef $first;
+}
+}
+if($maxPriority>$mon_control{lc($monsters{$ID}{'name'})}{'attack_auto'} ){
+print "ターゲットを変更します\n";
+sendAttackStop(\$remote_socket);
+shift @ai_seq;
+shift @ai_seq_args;
+attack($foundID);
+}
+}
+}
--------------------------------------------
コンフィグにはこれ。この回数殴られる前に優先度が高いモブに殴られるとタゲを変更。
JudgeAttackPriority 3

shiftしないとまずかったことに気づいてなかったため、今調整したばっかです。
そのため、誤動作あるかも･････。
動作報告たのんます。

Timeout on Map Server, connecting to Master Server...
とでて1時間くらいで勝手にﾘﾛｸﾞするのは仕様ですか？
PCと回線が悪いのかと思って変えたりしたけどﾀﾞﾒでした。
設定はよっぽど大丈夫のはずですが、なぜか2体同時にﾀｲﾑｱｳﾄします、
やっぱり回線かPCが悪いのでしょうか？
使用PCは1GHz超ｸﾗｽなんで問題無いと思います。

追記。
ﾙｰﾀがぁゃιぃのかもしれないので一応、
BA8000Pro使ってます、これ使ってる方はどうですか？

>>605
本当に感謝です!!!!!!!!!!!!
前スレで晒してもらったコードを組みこんだんすけど、どうにも巧く動かなかったんですよ
んで、自分で色々弄って見たもののどうにもうまく動作しなくて。。

本当に有難う！！

>>605
お前みたいな奴　大好きだ　　　　　　　　　　　と心にも思ってないことを言ってみるテスツ







ﾏｼﾞｻﾝｸｽ!!!

>>前スレ605
質問させて頂きます。
この新しい関数はどの辺に組みこめばいいのでしょうか？；

ぅぅ、、俺は馬鹿だね；わからんす。

>>509
ヒントは”殴られ途中にタゲを変更するやつ”って書いてあんだろ
BOTが自分で考えて行動するところに入れるんだよ
後は自分で探せYO!!

アイドルのコラージュを発見したでつ。
あと、つるつるオマ○コも見れました。いいの？(*´Д`*)ハァハァ
http://plaza16.mbn.or.jp/~satchel/turuturu/

>>497
下手なことやって、困るのは漏れ達ではないかな？
キャラを晒すことよりも、回避用に名前挙げるのは使えるかもな。

他のkoreと差分取ってもたいした変化もないし動かなくてお助け願います
自分のPCでは不完全動作のをあっぷっぷの134にあげてみました
現在出てる症状はカートに積み込んでくれないことです

カートの書式を
add_0 ゼロピー
add_0_invAmount 0
add_1 ニンジン
add_1_invAmount 100
に変えたところ別アイテムを捨てる表示が出ましたがクライアントから覗くと何もおきてませんでした

>>491 根本的に間違ってる。
多分誰も教えないよ。ここは中級者スレ。
初心者スレ以下な質問持ってくんな知障

初心者スレ以下な質問に答えられない極小脳味噌の>>551がなんでこんな所にいるのですか(ﾌﾟｹﾞﾗｯﾁｮ

煽りでレス番間違いはみっともないよなと同情してみるテスト

>>513
スレチガイ
>>516
キチガイ


はい次！

>>前605
>>502>>503には+がついてないが全部+つくんだよな・・・？
sub関数だからケツにつければいいと思ってるんだが間違ってるかな

502、503で１つのコードですよね

Perl初心者なんで確認させてください･ﾟ･(ﾉД`)･ﾟ･

質問便乗させてください。
優先度が高いモンスターとあるのですが優先度設定する場所はどこですか？

すいません、前スレにありました。。

>>519
おまえはスキル不足なんだよ！・・・＿|￣|○

>>519
初心者は初心者スレへどうぞ。

>>523
ん？もう解決したから行く必要ねぇな

下の方にある@robotっておまえらの事ですか？（ﾜﾗ
http://www.geocities.co.jp/SiliconValley-Bay/2449/20030528/active_act1.htm

>>524みたいなこういう厨にはROであいたくねえな

ごめん、JudgeAttackPriorityをどこから呼び出せばいいのかさっぱり分かりません。
ヒント頂けないでしょうか

MyﾊﾝﾀのLv上げがだるくなったんでBOTでｷｬﾗﾒﾙ山に放置したけど、ぜんぜんうまくいかない・・。
なぜ？

DUMPでまくりで、攻撃できません、とか言われてさ・・。
ステータスもうまく表示されないよ？
ﾊﾝﾀｰとか使えなくなった？

>>525
ttp://that.2ch.net/robot/

あれだ、コードの話はこっち。
他の話は初心者に飛ばしたらどうだろう？

>>529
ﾜﾛﾀ

>>528　俺のは動いてる。特に問題もない。
こっちで聞いてみ。他に同じような奴がいたら原因も分かるかもよ。
http://game3.2ch.net/test/read.cgi/mmosaloon/1053621648/

どなたか最新のportals教えてはもらえないでしょうか？
エラーでまくりで・・・

>>533
教えてはもらえない(´・ω・`)

はい次！

>>532
優しいお前さんに萌え

初級いってきま

>>502-504
組み込めたって人、居ます？
504のが宙ぶらりん状態で、機能してくれません。
引数にIDを取ることから
##### AUTO ATTACK #####
##### ATTACK #####
どちらか（または両方）に加えると思うのですが、
具体的な位置は見当も付きません

う〜ん、たしかにJudgeAttackPriorityはどこから呼び出せばいいか書き忘れた・・・
まあ、初心者への敷居ってことでごまかしといていいのかな？
ところで、488の露天機能って独自？追加コードなんかでてきたら露店のコード
貼ろうと思ってたんでいらないようだと(´･ω･`)

ここは「中級者」スレだよな？
つまり此処にｱﾌｫな質問書き込んでる香具師は
自分が「初心者」ではなく「中級者」って思ってるんだよな。

（ ´,_ゝ｀）

またｶｰﾄﾞ落ちる確率下がってねぇか？

>>537
133最終koreには搭載されてないからたぶん独自

何かをターゲットしてると
アクティブをゾロゾロ引き連れたまま移動するの
修正ｷﾎﾞﾝﾇ
前605氏の上げたルーチンを改造するだけで出来そうだけど。

とりあえずAUTOATTACKのケツのつけたけど
間違ってるのかな・・・囲まれる状況なかなかならんからわからん

あれ、ものすごく見当違いな返答言ってるな、>>542無視してくれ

print "You attack Monster: $monsters{$ID2}{'name'} ($monsters{$ID2}{'binID'}) - Dmg: $dmgdisplay(Total: $monsters{$ID2}{'dmgTo'})\n";
+JudgeAttackPriority($ID2);
JudgeAttackSameTarget($ID2) if ($config{'useDetection'} > 0);

前スレ>>605　独自ではないよ。拾い物です。過去ログ参照。

脳波コントロールできるkoreきぼんぬ

最近蟻穴にMyBot放っているのですけど皆様はアイテム拾う速度とかって弄ってますか？
GetItemみてもやはり取りこぼしてるんですよね・・・
アンドレとかに吸収されてからGetというのもザラにあります。

[May 30 13:11:18 2003][I] *** ビタタカード を発見しました ***
[May 31 00:48:37 2003][I] *** ファミリアカード を発見しました ***
[May 31 00:48:38 2003][I] *** ファミリアカード をGETしました ***
[May 31 00:48:38 2003][I] *** ファミリア 7911 匹目で入手 ***
[May 31 06:47:32 2003][I] *** ビタタカード を発見しました ***
[May 31 06:47:32 2003][I] *** ビタタカード をGETしました ***
[May 31 06:47:40 2003][I] *** ピエール 18653 匹目で入手 ***

これでビタタの取りこぼしが3枚になっちゃいました。
肉入りで他の人見てみてみましたが、空中キャッチとかの高速な人はどうやっているのでしょうか？

>>547
timeoutを0にするだけ

最近、よくGMに遭遇する。そのたびにGM回避で逃げ延びてるけど
奴ら何がやりたいのか。アリーナ報告も少なくなってきてるし、以前より
連行基準が甘くなってるっぽくて不気味。

ん？本家復活してる？
http://kore.sourceforge.net/
これそうだよな・・・

あ〜ぁ、出しちゃったよ

ここから拾った他人様のコードを適当に加えて、適当に動いてるplのソースを見ながら
きっと重力のプログラマもこんな気持ちなんだろうなと思ったコードの書けない漏れ

>>548
ありがとうございます。これで少しでもこぼしがなくなることを祈ります。

timeout0にしちゃったら逆に拾わなくなっちゃうんじゃないの？

>>554
　何か言うときは自分で試してから言いましょうね

俺もGM落ち相当食らってるよ。その為にわざとｴﾙﾀﾞ森に1体放置してるんだけど。
未だに問題無し。まぁそりゃぁ「GMﾊｹｰｿ＞即蝶＞落ち」じゃなかなか捕まえれないよな。
・・・そろそろGMから直Wis来そうだから返答に「用事が入ったから後で」とか入れておくか。
いくら嘘だろうとﾘｱﾙの用事に口出しはできんだろうからな。
つーかｴﾙﾀﾞ森はｴﾙの暴落でｳﾏｸ無くなった。ここでｶｰﾄﾞ2枚出すより他で1枚拾ったほうがいいし。
ﾒｲﾝはｵｰｸDで女兄貴狩ってるよ。ｲｶﾘﾝｸﾞまだ0個だけどさ。

ところでS装備のﾄﾞﾛｯﾌﾟずいぶん下がってるよな、こりゃ価値上がるわけだ。

なぜか急に戦闘中にアイテム使ってくれなくなった…
敵を倒し終わらないとＰＯＴ使ってくれん…

はーい。最近GMからWisを食らいました〜。

GM遭遇
↓
ハエ逃げ（GM AFK対策）
を２，３回繰り返した後にGMからWis。

GMからのWisがきたら落ちるように手を入れてあったんで普通に落ちた。
その後に肉入りでびくびくしながらログインしてもお仕置き部屋ではない。

今も元気に働いてる。。。

ログはこんな感じ
[ETC] *** Warning!(264,131)にGM(GM045.pump) を発見しました!! ***
[ETC] *** Warning!(240,170)にGM(GM045.pump) を発見しました!! ***
[ETC] *** Warning!(67,190)にGM(GM045.pump) を発見しました!! ***
[ETC] *** Warning! GM(GM045.pump)よりWisされました!! ***
[ETC] ログアウトしました。

ついにハエ逃げまでもが駄目なのか･･･

>>540,545
Thx〜
133製のと400製のがあるのか・・・・・
現物が手に入れられなかったんでわからんのだけれど、どっちも昔の露店Koreに
機能を準じたものってことでいいのかなぁ
まあ、あまり出回ってなさそうだし、そういうことなら貼ってもよさそう
ｽﾃﾞﾆﾂｹﾁｬｯﾃﾙｶﾀﾆﾊﾜﾙｲﾃﾞｽｶﾞ････

とりあえず、なんかコードでてくるのを待つとします

そのうち視界に入ったキャラは無差別流刑とかやりそうだな
癌だし

>>550 tx

前>>605　なんか前言ってた露店機能便利そうだから結構期待。
露店koreが出回ると転売屋死にそうだな・・・。

まだ出てもないけど一言。
koreから露店開けるようになったんだから、あまり無茶な値段で安く売るなよ。
早く売りたいなら転売屋に流せ。（lydiaの奴はkemetan商店にでも売っとけ。あそこはBOT提携ギルドだからな。）
安定した儲けには、皆の協力で安定した相場を、だ。

>>550を見てX-KORE使ってみたけど今更だけどすごいね
133氏の最後のplをX-KOREにしたいんだけど全然ダメだ…

>>564はﾁｮｿだな
日本語勉強してこい!!(　ﾟдﾟ)ｺﾞﾙｧ

あなたが探してる話題あれはこれでしょ♪
http://endou.kir.jp/betu/linkvp/linkvp.html
http://s-rf9.free-city.net/page006.html

>>564 X-koreは重いだけで邪魔な気がするが・・・。
居マクロには最適なのかもしれないが。本垢でしてるやつとかな。

X-KoreはNPCリストとかポータルとか情報取るのに使ってるな。
あとは設定とか変えた後のBOTの動きを確認する時とか結構使えるぞ。

そんなことより聞いてくれよみんな
ｽﾚとは大幅にｽﾞﾚﾃﾙｹﾄﾞｻ
枝ﾃﾛ起こしませんか？枝ﾃﾛ
しかもIris　糞鯖
ﾎﾞｯﾀｰたちなら　枝数十本集めれるよな？
で、そんなことはどうでもいいんだけど、
実際に、人が街に入れないくらいの　大きな規模のテロ起こしたいんだけど、
無理か？
いや、すれ違いなんだけどさ、ﾏｼﾞﾃﾞ　ｲﾔﾏｼﾞﾃﾞ
できるとするなら、このスレで何人か引きずりこみたくって

どう思う？

すれ違いとかいわんでな　いやﾏｼﾞﾃﾞ

Irisか
Fenrirなら枝80本ぐらいあるから参加してたんだがな

って漏れもｽﾚﾁｶﾞｲだな
吊ってくる∧||∧

すみません、GM発見後に蝶使って落ちるコードで、
GMを発見した主を伝えるprint文の下に
useTeleport(2);
quit();
としているのですが、いざGMと遭遇するとuseTeleport(2);の行でエラーが出てしまい
quit関数が呼ばれない状況に陥っております。
プリBOTだしテレポもちゃんと覚えているのですが原因のわかる方はいらっしゃいますでしょうか？

とりあえず、respawnを入力した時に呼ばれる関数をそのままquit();の上に書いてみました。
これでいけるかわかりませんがダメだったらお力をお借りさせて頂ければ幸いでございます。

無事動きますたヽ(´ー｀)ノ
一人でスレ汚しスマソ(´･ω･`)

472+487のコード使わせてもらってるけど
速度ＰＯＴはうまく動いてくれてありがたいんだけど
通常の回復アイテムがstopwhenhitを切っていても戦闘中に使ってくれなくならない？

>>569
ある程度軽い鯖、もしくは人の少ない町で総計1000〜2000本使い切ればいける。
プロとかだと制圧する前に鯖が落ちる。

VIT騎士が多いBOT垢ならインデュアペコダッシュで枝連打しまくればmob振り切れるから、数集まればできるだろ。

あぁ、漏れはそもそも鯖違うし、んなどうでもいいことには参加しません。

枝なんか金のムダ。好きな香具師は勝手にやってろ。
それはそうと久し振りにポタとWisがきてますた。
何度見てもこういう香具師って痛いですね。
ある程度溜まったら晒してみようと思います。

晒しなんか時間のムダ。好きな香具師は勝手にやってろ。
そんな暇あったらBOTの改良に精を出した方が余程有意義

>>576
香ばしいログは収穫スレに是非お願いします。

１０００本の枝で３００００円ですよ？
一人でやってろ猿（ ´,_ゝ｀）

>>574
これじゃだめ?
if (($ai_seq[0] eq "" || $ai_seq[0] eq "route" || $ai_seq[0] eq "route_getRoute" || $ai_seq[0] eq "route_getMapRoute"
|| $ai_seq[0] eq "follow" || $ai_seq[0] eq "sitAuto" || $ai_seq[0] eq "take" || $ai_seq[0] eq "items_gather"
|| $ai_seq[0] eq "items_take" || $ai_seq[0] eq "attack")

>>580
直りました〜
助かりました。ありが�d

お前ら、一人数十本って文字の意味も理解できなかったか。。

馬鹿な猿、どっかで誘ってやってみま
本ﾇﾚいってもなぁ、、
まぁ逝ってｷﾏｽ

お〜し、猿が消えた（藁

私はユーザーが嫌いです
ユーザーは幼稚で、礼儀知らずで、気分屋で
前向きな姿勢と、無いものねだり
心変わりと、出来心で生きている。
甘やかすとつけあがり、放ったらかすと悪のりする
『ギルド治せ』『ラグが酷い』『カツラだ。』と、ハッキリ口に出して
人をはやし立てる無神経さ
　　
私はハッキリ言って“禿”です
“禿”です！
“禿”です！！

我慢の素振りも見せない　忍耐のかけらもない
人生の深みも、渋みも、何にも持ってない
そのくせ、金払ってるだろってあの態度
メンテの時は足でまとい　アップデートの時は悩みの種
いつもサーバーの問題児
そんなお荷物みたいな　そんな宅急便みたいな
そんなユーザーたちが私は嫌いだ
私は思うのです
この世の中からユーザーが１人もいなくなってくれたらと
メーカーだけの世の中ならどんなに良いことでしょう
私はユーザーにならないで良かったと、胸をなで下ろしています

私はユーザーが嫌いだ!!
うん!!
私はユーザーが嫌いだ!!

ユーザーがメーカーのために何かしてくれたことがあるでしょうか？
いいえ　ユーザーは常に私たちメーカーの足を引っ張るだけです

身勝手で･･･　鯖が重い!!

チート、2垢、BOT
支援ツール、升、バグ利用、RMT
好きな勝手なことしかしない
嫌いな者は叩きをする
文句言えば済むと思っているところがズルイ
何にも言わないユーザーも嫌いだ
スクスクとレベルばかり高くなり、定職もなくブラブラしやがって
ＨＰ立ち上げが速く　いつも弱者につく
あの世間体を気にしない目が嫌だ
あの計算高い、ゲーム好きって目が嫌だ
目が不愉快だ。
何が課金してるだ
何が冤罪してるだ
何が放置しがちな、ユーザーサポートだ。

http://homepage.mac.com/yuuka20/

そんなユーザーたちのために、私たちメーカーは何もする必要はありませんよ
第一、私たちメーカーが、そうやったところで、１人でもお礼を言うユーザーがいますか？　
これだけユーザーがいながら、１人として感謝する者なんていないでしょう
ありがとう
ネッ
私たち、メーカーだけで刹那的に生きましょう
ネッ
ユーザーは嫌いだ。
ユーザーは大嫌いだ

離せ!!
俺は○●○だぞ〜!!

誰が何と言おうと、私はユーザーが嫌いだ。
私は、ほんと〜うに、ユーザーが、嫌いだ〜〜〜!!

本家のX-koreじゃあ、EXE化してあるから自分の設定確認とか無理じゃないか？

>>588
controlフォルダ内のファイルだけなら確認できるんじゃね？（　´,_ゝ｀）

a

i

イバーラギィィィ

否！！
イバラキである！！

いばーらきぃっぅ？

休日は知障が大豊作ですね

# 粘着リストの読み込み
addParseFiles("tables/Nenchaku.txt", \@Nenchaku, \&parseDataFile3);
---------------------------------------------------
# 粘着回避
if (isNenchaku($ID)) {
　print "*** Warning! 粘着($players{$ID}{'name'}) を発見しました!! ***";
　chatLog("n", "*** 粘着 $players{$ID}{'name'} を発見しました!! ***\n");
　useTeleport(1);
}
---------------------------------------------------
# 粘着 判断
sub isNenchaku {
　my $ID = shift;
　my $name = $players{$ID}{'name'};
　　foreach (@Nenchaku) {
　　　if ($name eq $_) {
　　　return 1;
　　　}
　　}
　　return 0;
}
---------------------------------------------------
粘着を発見したらテレポするようにしてあるんですが　動作しなくなってしまいますた。
このコードに間違いがあれば指摘して下さると幸いです。

>>596
そのコード書き込んだ者だが…

1.tables/Nenchaku.txtがあるか
2.↑のテキストに名前を書いてるか

かな。GM避けをそのままパクっただけのコードだから間違いは
ないと思うんだけど…。
} elsif ( $type eq "gm") {
open CHAT, ">> $servers[$config{'server'}]{'name'}GMAppeared.txt";
+} elsif ( $type eq "n") {
+open CHAT, ">> $servers[$config{'server'}]{'name'}NenchakuAppeared.txt";
を追加してないからログ残ってないだけじゃない？
動いてることには動いてると思うよ。

ＳＤの粘着、他の所より桁外れなんですが。
koreが廃か。

>>597
あ、コード使わせてもらってます。ども。
指摘された部分ですが１、２ともにクリアしてます。
} elsif ( $type eq "n") {
open CHAT, ">> $servers[$config{'server'}]{'name'}NenchakuAppeared.txt";
もちゃんと書いてあります。

で、色々試していたら　動作する名前と動作しない名前　があるような気がしてきました。
というのも、自分の別垢キャラの名前をNenchaku.txtに追加して　BOTに近づいたらちゃんと動作したのですが、
あるキャラの名前の場合は動作してくれませんでした。

ちなみにその動作しなかった名前はキャスバルです。
某所で粘着されてかなり困ったので粘着リストに追加したのですが動作しなかったので・・・

何故なのでしょうか(´Д｀；)ｵﾃｱｹﾞ･･･

>>599
普通に動くがテキストにゴミが混ざってるとしか言いようがない。

はい次。

GM落ちしてアリーナいったのですがそのままＢＡＮ？
ちなみに１回目です

>>601
こっちで聞いてみ。
http://game3.2ch.net/test/read.cgi/mmosaloon/1053621648/

新フィールドの.fldファイルヽ( ﾟдﾟ)ﾉｸﾚﾖ！

>>603
過去ログ漁れ、中級者スレのな

>>603
ｸﾚｸﾚ君はｶｴﾚ!!（・∀・）

gef_fild03 にてGM013.trainee ﾊｹｰﾝ　in 狼
いや、下水で雄ｃが出たので調子に乗ってゴブ村に遠征したら・・・
（下水に再突入できなかったからだとはｗ）
下水はGMの監視が厳しい？

昔、カプラ番号が変更されたら自動でnpc.txtとコンフィグのカプラ番号を更新してくれるコードが載っていたけど、
これのnpc.txtへの更新のしかたがどうも気にくわないので自分で改造してみました。
はじめてBOTのコードを書いたので、かなり汚いかと思いますが、
前の自動更新コードをそのまま使っている人、もし良ければ使ってください。

sub CheckStorageNPC{
my $fExist;#カプラ存在フラグ
+my ($IDOld, $mapOld, $nameOld);
+my %posOld;
+%pos = ('x','0','y','0');
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
+$IDOld = $config{'storageAuto_npc'};
+$nameOld = $npcs_lut{$npcs{$_}{'nameID'}}{'name'};
+$mapOld = $npcs_lut{$npcs{$_}{'nameID'}}{'map'};
+%posOld = %{$npcs_lut{$npcs{$_}{'nameID'}}{'pos'}};
$npcs_lut{$npcs{$_}{'nameID'}}{'name'}="カプラ職員";
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
+WriteNPCLUT($IDOld, $mapOld, $posOld{'x'}, $posOld{'y'}, $nameOld);
-WriteNPCLUT();

sub WriteNPCLUT {
my $file="tables/npcs.txt";
my ($ID, $map, $x, $y, $name);
+my ($IDOld, $mapOld, $xOld, $yOld, $nameOld);
+($IDOld, $mapOld, $xOld, $yOld, $nameOld) = @_;
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

続き
foreach (sort keys %npcs_lut) {
+if($_ == $IDOld){
+($ID, $map, $x, $y, $name)=($IDOld, $mapOld, $xOld, $yOld, $nameOld);
+print FILE "$ID $map $x $y $name\n";
+}else{
($ID, $map, $x, $y, $name)=($_, $npcs_lut{$_}{'map'}, $npcs_lut{$_}{'pos'}{'x'}, $npcs_lut{$_}{'pos'}{'y'}, $npcs_lut{$_}{'name'});
print FILE "$ID $map $x $y $name\n";
+}
}

これを組みこむと、カプラ番号更新後にnpcs.txtに同じIDを持ったカプラ職員が存在するようになるのを回避できます。
動作としては、例えば
51079 morocc 160 258 カプラ職員
51073 prt_fild05 290 224 カプラ職員
で現在、自動倉庫の指定カプラが51073だったとします。
ここで51073のカプラIDが51079に変更された場合、npcs.txtは
51073 morocc 160 258 カプラ職員
51079 prt_fild05 290 224 カプラ職員
この様に書きかえられます。
まぁ、、、使いたい人がいるかわかりませんが、初コードうｐ嬉しいので晒しました。

最後の一文、日本語として意味が滅茶苦茶だなぁ。
取り合えず動作確認は取れてます。
あ、ちなみにこのもともとの自動倉庫番号更新機能には動作不良を起こす場合があるのですけれども
そこの修正は現在組みこみ中です。できたら晒します。
では失礼。

>>前605氏
いつもお世話になっております。
希望なのですが、このコードを批評して頂けると嬉しいです＾＾；
宜しくお願い致します。

479
のコードを追加してみたら、動かなくなった…
起動した瞬間に閉じてしまう…
で、コンフィグ読み取った瞬間に閉じてる気がして、
慌てて、全てのアイテムにTimeoutを付け足してみた
(集中のポーションだけTimeoutつけて他まだつけてなかった)
useSelf_item_6_timeout 1800
こんな風に
それでも動かないからよくもわからないコードをじっくり見てみた。
lastが無駄に一個多くないか？
と思って、後ろ二つにあるlastを片方づつとって実験してみた。


無理だった……
すいません、まだ調べ続けますが、同じ症状で誰か治った人いたら教えてもらえませんか・・？

>>607
次ＮＰＣ番号が変更されたらその時ありがたく追加させて頂きまつ

>>610
書き換え前のコードあるだろうから
それと>>479のコードじっくり見比べてから実装汁
>>479でエラーでるの藻前さんだけっぽいぞ

どうせ}が一個多いとか少ないとか　その程度の問題なんだろ(´ﾟc_,ﾟ` ) ﾌﾟｯ

>>609
動作不良ってどんなん?
私もそれ使かわしてもらってるけど近くに別のカプラがいるとそっちの方を記録してしまうってのはあった。
ただ、少しいじったのでそのせいかもしれないけど。。。
これじゃだめ?
%{$npcs_lut{$npcs{$_}{'nameID'}}{'pos'}}==%{$npcs{$_}{'pos'}}
これを
$npcs_lut{$config{'sellAuto_npc'}}{'pos'}{'x'}==$npcs{$_}{'pos'}{'x'}&&$npcs_lut{$config{'sellAuto_npc'}}{'pos'}{'y'}==$npcs{$_}{'pos'}{'y'}
してみた
あってるかﾜｶﾗﾝ。

>>610
たしかそのままでも動いたよ。
これじゃだめかもしれんけど
} が足りなかったり多かったりスペースが入ってたりしてないか確認。
あたってるかﾜｶﾗﾝけど。。。

最近ＲＯのアイテムの相場全体的に落ちてるからＲＭＴの
相場があがるかも。。
いや・・むりかな・・

>>614
自分もそうしてみましたが、perlの文法上
%{$npcs_lut{$npcs{$_}{'nameID'}}{'pos'}}==%{$npcs{$_}{'pos'}}
$npcs_lut{$config{'sellAuto_npc'}}{'pos'}{'x'}==$npcs{$_}{'pos'}{'x'}&&$npcs_lut{$config{'sellAuto_npc'}}{'pos'}{'y'}==$npcs{$_}{'pos'}{'y'}
は全く同じ意味だと思うのですよ。
で、その動作不良ってのが614ｻﾝのおっしゃる通りの動きです。
どういう状況下で動作不良が起こるか特定できないけど、たまーに起こる感じです。

こうなったら
カルテルでも組むか？
まぁ制裁の方法がねぇけどﾅｰ

現状でそれなりに稼ぎはあるし、新規BOTerを締め出せるから
デフレは寧ろ望むところ

とりあえず15000円前後ならいいけどね。
これ以上さがんないでﾏﾏﾝ。

っつかだれだよ、ｶｼﾞﾉで相場あがるとかいってたやつ。

前にスペイン語で書かれた露店BOTのコードがあったと思うけどどなたか持ってませんか？
諸事情で紛失してしまったので探しております。

>>617
%hoge == %fumo
と
$hoge{a} == $fumo{a} && $hoge{b} == $fumo{b}
はいっしょじゃないと思うのだが

my %hoge = (a => 5,b => 2);
my %fumo = (a => 1,b => 3);
if(%hoge == %fumo) {
print "一番めー\n";
}
if($hoge{a} == $fumo{a} && $hoge{b} == $fumo{b}) {
print "二番めー\n";
}
↑動かしてみたら、一番目の方は、%hogeと%fumoの中が何であろうと真になったぞ

>>617
ありゃ；本当ですね。。確かにその通りだ。
うぅーん。取り合えず私のコードはもともと６１４さんの様に直していて、
且つ、自分が晒したコードを組みこんでいるのですね。
私がPerlを良く知らずに変な書きこみしてしまって。。。
申し訳ないです。

全く同じ座標上に存在すれば直るだろうと思って、614さんと同じコードを書き加えたんですけれどね＾＾；
ただ、一つ気になるのは、614ｻﾝのように修正してあるコードでも、動作に不具合がでるのですよ。
（関係ないNPCを新カプラと誤認する）
これって、どうやって直せば良いのかなぁ。。。

フランス語だっつーの。
ラテン起源の言葉だからって間違えるなよ…

>>624
フランス語でしたかすいません。
いや手元にコード無くて何語だったか思い出せなかったんで・・・

ところでお持ちでしたら露店部分のコードかpl頂けませんでしょうか

>>623
モロク南でそれやって、カプラと商人勝手に書き換えられて
アンドレカードnpcに売りましたがなにか

>>626
煽るつもりはないがそれはお前さんが悪いかと。
不良コードの可能性を書いてあるのにカードを設定にいれるなんてな









アンドレ？価値ねぇだろ（藁

何度も書きこみスミマセン。
自動カプラ更新についてなのですが、動作不良が発生する条件を一部書きこみます。

BOTが自動倉庫発動条件を満たした状態で（指定重量OVER等）
・更新ターゲットNPCの他に関係の無いNPCが直ぐそばにいる辺りでBOTを起動する。
・更新ターゲットがいない場所（別MAPでも）でも、関係無いNPCがすぐ側に居る辺りでBOTを起動。
この条件下だと不具合が発生する模様です。
（※検証はそんなに多くこなしていないので、この条件下でも不具合が発生しないかもです。）
どなたか此れについて意見を書きこみして頂けると幸いです。

また、現在速度上昇ポーションを使わせながら狩りをさせているのですが、指定重量を越えていないにも関わらず
Calculating auto-storage route to:
が一定時間毎に発生し、その地点からBOTが動かなくなります。(この症状はたまにしか現れないです。無論、コンフィグ・テーブルは完璧)
この不具合が発生する条件として、次の事を考えてみました。
・Calculating auto-storage route to: が最初に発動した時に指定重量を越えていた。
　しかしその後、所持アイテム総重量が指定重量を下回った。
BOTをずっと眺めていて気付いた不具合では無いので、実際にこの条件で不具合が発生するかわかりませんけれども、
一先ず今はソースとにらめっこしてます＾＾；
どなたか同じような症状が出た方、その原因を推定できる方、何か書きこみして頂けると幸いです。
ちなみに自己解決できた場合、ここに報告します。

skore (露店機能付き）
http://ro.horoy.com/

ok?

>>629
ついに出しちゃった

みんな普通に知ってると思うが＞skore

今更もいいとこだし

ごめん、0.92.8のｿｰｽってﾃﾞﾌｫでどんな罠入ってる？(´・ω・`)

タイムリーにskoreのopenshop移植中だったんだが、罠の事すっかり忘れてた…。
>>474あたりでちらっとでてたんだけど…。

ID、Pass抜きはない……様な気がするんだが…。
0.92.8以外のｿｰｽ消しちゃったので比較できません。

罠コードの例をくださいませぬか？

>>629について。まあみんな分かってると思うけど・・・・

使い方聞いてくる奴いても放置な。もしくは、英語嫁！と一言だけ言ってあげてください。



まあちょっと使ってみたが俺のkoreのほうが使い易いな。

>>633 ここは中級者スレだぞ。コード移植できるなら自分で罠ぐらい探せるだろ。

>>635
漏れのもってる0.92.8のｿｰｽには今のところ罠がみつからないから
逆に>>474で不安になってるんだYO

PASS抜き、GMWis、やぁ僕（略）しか罠知らないせいもあるけど…。
他にもあるの？（；´Д｀）

しかしCHAOSは悲惨の一言だな。

チート発見。
今回はばらします(｡･_･｡)ノ
まず買いたい商品の値段以上のzenyを持って露天へ
アイテムを購入ウインドまでもっていき、後はbuyを押すだけのとこまで持っていく
そして、ショートカットに入れた蝿を使ってからbuyボタンを押す。
お金は減ってないけどアイテムは手元にある。
蝿を使ってすぐにbuyを押さず少し間をおくかんじ
最初は低価格アイテムで練習するのがいいかも、でも失敗してもただ買えないだけなので
そんなに慎重にならなくても平気です
すて垢などにお金渡してやった方がいいかも・・・？

>>629
ｻﾝｸｽ!
確かそれID管理なんだよね。早速コード弄ってきます。

>>638
出来るな、ﾜﾛﾀ
今露天出してる商人南無

露天ネタは噴水前かレア十字の露天を消してSSを

…露店側にはZeny残らないの？（;ﾟДﾟ）

露天に金残るな。
以前のESCがハエにかわっただけ

表示だけ減らないだけだろ
リログすれば減ってるよ

リログしたりNPCにアイテム売ったりするとちゃんとZeny減ってる罠。

露天取引パケを知ってれば出来ないことはすぐ分かるはず。
同じマップに居ればどこからでも購入可能だから
やるだけ無駄

蝶で鯖間移動すればOK？

と思ったら違った。ｽｲﾏｾﾝ；；

>>635
ちょうどコンペアしたところだけど見つからないんだが・・・

474を書いた者だが、ネタだ。
ただのｸﾚｸﾚ君に見えたからな

>>638
と言うか、ハエで飛んだらウインドウ消えるんじゃね？
どうやってbuy押すんだYO！(´Д` ；

# 簡易GM回避
sub isGameMaster {
if (isGameMaster($ID)) {
quit();
chatLog("n", "*** $players{$ID}{'name'} を発見しました ***\n");
} elsif ( $type eq "") {
open CHAT, ">> $servers[$config{'server'}]{'name'}GetGM.txt";
}
}
座標を記録してくれて耳打ちきたら落ちるってのこのレスにあったかとおもうんですが
それってどこかで出回ってます？

ベータ時代も露店のチートだとか言って
わざと高価な物を買わせてはめたりしてた事があったよね
ネタだって言うのにさ

他のスレで気がついたけどペットのモンスターに
BOTがついて行くなんて事があるのか…
古いKORE使ってるけどもしかしたらオレのBOTは今まで…(((( ;ﾟдﾟ)))ｱﾜﾜﾜﾜ

>>651　ほい、今はこんな感じになってる
--------------------------------
# 簡易GM回避
if (isGameMaster($ID)) {
($map_string) = $map_name =~ /([\s\S]*)\.gat/;
print "*** Warning!($map_string_$players{$ID}{'pos_to'}{'x'},$players{$ID}{'pos_to'}{'y'})にGM($players{$ID}{'name'}) を発見しました!! ***\n";
chatLog("etc", "*** Warning!($map_string_$players{$ID}{'pos_to'}{'x'},$players{$ID}{'pos_to'}{'y'})にGM($players{$ID}{'name'}) を発見しました!! ***\n");
useTeleport(1);
}

--------------------------------
※適当なところに追加（どことか聞かないでくださいな）

### GMリスト内のキャラにWisされると、ETCファイルにログを残しexitする
foreach (@GameMasters) {
if ($privMsgUser eq $_) {
chatLog("etc", "*** Warning! GM($privMsgUser)よりWisされました!! ***\n");
gamemasterRestart();
}
}

--------------------------------
同上

### 一定時間後にrestart(GM回避用) ###
sub gamemasterRestart {
useTeleport(2);
sleep(1);
if ($relogTimes >= $config{'relogTimesMAX'}) {
chatLog("END","一日で$config{'relogTimesMAX'}回目のGM遭遇なので終了します。\n");
quit();
} elsif ($config{'gmRestart'}) {
$relogTimes = $relogTimes + 1;
print "ろぐあうとします\n\n";
killConnection(\$remote_socket);
chatLog("ETC","ログアウトしました。\n");
print "ログアウトしました。\n";
sleep($config{'gmRestartTime'});
} else {
quit();
}
}

--------------------------------
configの中には
gmRestart　 　 　 　 　 Wisされたときにログアウトするかどうか
relogTimesMAX　 　 　何回までリログインするか（粘着GM対策かな）
relogTimes　 　 　 　 　何秒後にリログインするか

うお　レスの見込みないとおもったのに・・・・
ありがとう、（･∀･）ｲｲ!!人ですね；

あああああ

$map_string_$players{$ID}{'po
↓
$map_string $players{$ID}{'po

に直さなきゃフィールド名でないじゃん

なんとなく
気分がいい、今日この時間

新彼女できそうな夜間

うっ、カプラ自動更新が話題に･････
え〜と、犯人は漏れです
アンドレc売っちゃったかた申し訳ない････.
動作の不具合には気づいてましたが、ろくに話題にならなかったコードだったんで
需要ないと思いほっといてました
面目ない

>>607
正直、漏れ自身が知識も技術も未熟なんで批評は勘弁です
まあ、撃墜数を最初に貼ったときのコードと比べれば少しはましになったかなぁとは
思ってますが････
とりあえず、622のようになるのは(%hoge == %fumo)は要素数を比較してるから
これ+NPCIDがNULLのときが不具合の原因かなぁと考えてます

そういうわけで、以前不具合発生したときに修正したのと今回あがってたのを
混ぜたやつを貼っときます
前科者のコードなんで念のため動作確認たのんます

sub CheckStorageNPC{
my ($IDOld, $mapOld, $nameOld,%posOld);
my %pos=%{$npcs_lut{$config{'storageAuto_npc'}}{'pos'}};
foreach (@npcsID) {
next if (!$_);
if($npcs_lut{$config{'storageAuto_npc'}}{'map'} eq $field{'name'}
&& $pos{'x'}==$npcs{$_}{'pos'}{'x'}
&& $pos{'y'}==$npcs{$_}{'pos'}{'y'} ){
if($config{'storageAuto_npc'} ne $npcs{$_}{'nameID'}
&& $npcs{$_}{'name'} eq "カプラ職員" ){
$IDOld= $config{'storageAuto_npc'};
$mapOld = $npcs_lut{$npcs{$_}{'nameID'}}{'map'};
%posOld = %{$npcs_lut{$npcs{$_}{'nameID'}}{'pos'}};
$nameOld = $npcs_lut{$npcs{$_}{'nameID'}}{'name'};
$npcs_lut{$npcs{$_}{'nameID'}}{'name'}="カプラ職員";
$npcs_lut{$npcs{$_}{'nameID'}}{'map'}=$field{'name'};
%{$npcs_lut{$npcs{$_}{'nameID'}}{'pos'}}=%{$npcs{$_}{'pos'}};
WriteNPCLUT($IDOld,$mapOld,%posOld,$nameOld);
configModify("storageAuto_npc", $npcs{$_}{'nameID'});
chatLog("Status", "コンフィグとnpc.txtを書き換えました\n");
}
$fExist=1;
last;
}
}
if(!$fExist){
chatLog("Status", "カプラが指定の座標にいないため、終了します\n");
quit();
}
}

sub WriteNPCLUT {
my $file="tables/npcs.txt";
my ($IDOld,$mapOld,%posOLD,$nameOld) = @_;
unless(-e "$file"){
open(FILE,">$file");
close(FILE);
}
open(FILE,"+>$file");
foreach (sort keys %npcs_lut) {
if($_ == $IDOld){
print FILE "$IDOld $mapOld $posOLD{'x'} $posOLD{'y'} $nameOld\n";
}else{
print FILE "$_ $npcs_lut{$_}{'map'} $npcs_lut{$_}{'pos'}{'x'} $npcs_lut{$_}{'pos'}{'y'} $npcs_lut{$_}{'name'}\n";
}
}
close FILE;
}

sub openShop {
my $r_socket = shift;
$i = 0;
while ($shop{"name_$i"} ne "") {
print "#name:".$shop{"name_$i"}."\n";
$i++;
}
$totalitem = $i;
print "#totalitem:".int($totalitem)."\n";
$items_selling = 0;
for( $i=0; $i < $totalitem; $i++) {
$citem = -1;
for ( $j=0; $j < $cart{'items'}; $j++) {
if ($cart{'inventory'}{$cartID[$j]}{'name'} eq $shop{"name_$i"}) {
$items_selling++;
last;
}
}
}
print "#items_selling:".int($items_selling)."\n";
if ($items_selling > 12) {
$items_selling = 12;
}
my $length = 0x54 + 0x08 * $items_selling;
my $msg = pack("C*", 0x2F, 0x01) . pack("S*", $length) .
$shop{'shop_title'} . chr(0) x (36 - length($shop{'shop_title'})) . chr(0) x 44;
$items_selling = 0;
print "#items:".int($cart{'items'})."\n";

for( $i=0; $i < $totalitem; $i++) {
$citem = -1;
for ( $j=0; $j < $cart{'items'}; $j++) {
if ($cart{'inventory'}{$cartID[$j]}{'name'} eq $shop{"name_$i"}) {
print "#inv name:".$cart{'inventory'}{$cartID[$j]}{'name'}."\n";
print "#index:".$cart{'inventory'}{$cartID[$j]}{'index'}."\n";
$index = $cart{'inventory'}{$cartID[$j]}{'index'};
$citem = $j;
$items_selling++;
last;
}
}
next if ($citem == -1);
next if ($items_selling > 12);

if ($shop{"quantity_$i"} > 0) {
if ($shop{"quantity_$i"} > $cart{'inventory'}{$cartID[$citem]}{'amount'}) {
$amount = $cart{'inventory'}{$cartID[$citem]}{'amount'};
} else {$amount = $shop{"quantity_$i"};
}
} else {$amount = $cart{'inventory'}{$cartID[$citem]}{'amount'};
}
print "#amount:".int($amount)."\n";
if ($shop{"price_$i"} > 0) {
$price = $shop{"price_$i"};
} else {print "You have provided an invalid price.\n";
last;
}
print "#price:".int($price)."\n";
$msg .= pack("S*", $index) . pack("S*", $amount) . pack("L*", $price);
}
if( length($msg) == $length ) {
encrypt($r_socket, $msg);
print "Shop Opened.\n" ;#if ($config{'debug'} >= 2);
$shopstarted = 1;
}else{print "Error opening shop...\n";
}
}

うーん、動かん(´・ω・`)
sub内部でエラー吐くから、このsub自体Koreへ逆移植できないのかな…。

JKoreの頃portal(マップ境界)もnpcs.txtに入っていた
で最近のはportals.txt分かれてるよな、しかもID管理でなく場所管理になっている。
NPCも場所管理にしちゃえば良いんじゃないか?
たとえばportalは"マップ名 X座標 Y座標"をキーにしている
その後ろにIDやら名前やら入れてID違ってたら更新でいいんじゃねーの?
漏れは話しかける時の座標もその後ろに付けるかな
んじゃ コード書いてきま(portalsのコピペになるだろうが‥‥

これだとだとあれなんで、これまた貼った当時はほっておかれたコード貼っておきます
動作は最後にアタックしたときから指定した秒数経過するとテレポするというもの
つまり、ランダムウォーク→まわりにモブがいなくて戦闘がない→テレポという動きをします
十分に成長しているBOTならこれいれると単純に効率あがります

sub initMapChangeVars {
+$LastAttackTime=time;
---------------------------------------
+if (($ai_seq[0] eq "" || $ai_seq[0] eq "route" || $ai_seq[0] eq "route_getRoute" || +$ai_seq[0] eq "route_getMapRoute"
+|| $ai_seq[0] eq "take" || $ai_seq[0] eq "items_gather" || $ai_seq[0] eq "items_take")
+&& !($config{'itemsTakeAuto'} >= 2 && ($ai_seq[0] eq "take" || $ai_seq[0] eq +"items_take"))
+&& !($config{'itemsGatherAuto'} >= 2 && ($ai_seq[0] eq "take" || $ai_seq[0] eq +"items_gather"))
+&& $config{'IncreaseEfficiency'} && $LastAttackTime
+&& $config{'lockMap'} eq $field{'name'} ){
+if(time-$LastAttackTime>$config{'IncreaseEfficiency'} && !ai_getAggressives()){
+print "暇なんで飛ぶとします\n";
+useTeleport(1);
+$LastAttackTime=time;
+}
+}
##### ROUTE #####
-----------------------------------------
print "You attack Monster: $monsters{$ID2}{'name'} ($monsters{$ID2}{'binID'}) - Dmg: $dmgdisplay (Total:$monsters{$ID2}{'dmgTo'})\n";
+$LastAttackTime=time if($config{'IncreaseEfficiency'});

コンフィグにはこんなかんじで。最後の攻撃から20秒たつとランテレ
+IncreaseEfficiency 20

>>629
新しいtools.dllに地味にThx

とりあえず、漏れが作った露店コードはskoreの露店コードとは互換性ないです
でも、まだ販売の動作確認だけしてないからなぁ
どうしようか･････

>>全スレ605氏
いつも有難う御ざいます。なるほど。。条件分岐をその様にすると良いのか。
というより、カプラIDは数値として扱う物なのかそうじゃないのか(eq or == ?)、しっかり確認して無かったです。
御恥ずかしい＾＾；
ともあれ、何より感謝です。
自分、BOT歴まだ1ヶ月弱っすけどぶっちゃけた話、BOTいじる方がクライアントで普通にプレイするより楽しいです(´・ω・｀)
もう末期かしら？

>>663
そのコードskoreのものですよね？このソース「shop」で検索かけるとｶﾅﾘ色んなところで引っかかるから
ソース全体を隈なく調べる必要があるかもです。
ソースの最初の方に、ごちゃごちゃ設定が組みこまれていたような気が。。
良く解らないんですけれどね＾＾；私も。

>>667
sub initMapChangeVars { の
undef @{$cart{'inventory'}};

がskoreだと

#Cart List bugfix - chobit aska 20030128
undef @cartID;
undef %{$cart{'inventory'}};

なんだよね(´・ω・`)この辺関係ありそうなﾔｶﾝ。
カート関係も全面的に見直さないと機能しないのかなぁ。

本体の条件分岐にはちゃんと組み込んだつもりなんだけどなぁ（つД｀）

>>665
うぉ、今度自分で作ろうとしたコードが張られてる
ありがたやありがたや

age

最終ステってどんなかんじ？考えとか教えて
ＳＤ３：
ＧＤ３：
コボmap：
蟻Ｄ：
伊豆４：
こんなもんか

>>668
undef @{$cart{'inventory'}};
undef %{$cart{'inventory'}};
この二つは、結果的に一緒になるから問題なし
Perlではハッシュも結局はアレイだから

undef @cartID;
こっちはわからん。おそらくCartID(カーとの中のアイテムID)をリセットして、
もう一回検出してるのでは？
実際のコード見てないからなんともいえないけど

>>671
SD3：STR99 AGI99 VIT99 INT99 DEX99 LUK 99
GD3：STR99 AGI99 VIT99 INT99 DEX99 LUK 99
ｺﾎﾞ：STR99 AGI99 VIT99 INT99 DEX99 LUK 99
蟻：STR99 AGI99 VIT99 INT99 DEX99 LUK 99
伊豆4：STR99 AGI99 VIT99 INT99 DEX99 LUK 99

もちろん木琴と特化剣、ALL+5精錬な。

マジレスすると
騎士だったらSTR最低でも60↑だな。
で、いままではVIT極振りﾏﾝｾｰだったりしたが、コモドパッチ後はAGI型の微バランスが良い。

>>674
マジレスありがとう。
もうひとつ質問なんですが、これらのＭＡＰの咲いてステってどんな感じでしょうか？
ＧＤは２に変更です。
ちなみに今の自分のステが
剣士で　レベル５２　STR13 AGI70 VIT23 INT1 DEX23 LUK 2（補正込み）
それでこれからの方針はどうしようかなと悩み中です。

最近GMからのWisで逃げるなｺﾞﾙｧってのが多いらしいので
その対策としてGMからWis来た瞬間に蝿を一度使って
「寝落ちAFK」とか適当にﾁｬｯﾄ出すってのはどうかな？

コードなんて書けないのでｱｲﾃﾞｱ提供でつﾉｼ

>>675
フェイヨン⇒とかエギラ食っておけ
てか　レベルがまだまだ低い。
もうちょっと適当にあげてこい。まだまだあがる範囲。本当にあがらんとか思ったらここに聞きにこればいい

>>658
アンドレカード売っちゃった者です。
ここに上がってるコード組み込むのなんて当然自己責任なので気にしないで下さい

if ($cart{'inventory'}{$cartID[$j]}{'name'} eq $shop{"name_$i"}) {

>>679　ここでハッシュにできねーよｺﾞﾙｧって返されるのでやっぱりカート
関連かな…。意外に面倒そう(´・ω・`)

kore、バージョンによって$cart{'inventory'}{ID} と $cart{'inventory'}[index] のタイプがあるね。

>>679　露店koreややこしいよな。skoreじゃなくて露店機能つきのkore持ってて、以前話題に
上がったときにうｐしようかと思ったがだるかったからやめた。
たぶんskoreのコード移植に成功した奴いてもうｐはしないだろうね。
書き換え部分多すぎ・・・。というわけで露店kore持ってない奴は待ってても上がってこないぞ。
679みたいに頑張って自分で移植汁。

>>682
逆に移植できても、コピペするのが面倒な罠。
さっき>>663のsubだけで３レス取るハメになってるんだから、
書き換え部全部記述すると（お察し下さい

addParseFiles("tables/dummygm.txt",\@dummygm,\&parseDatafile3);

#GM判断
#Phase 0 案山子GMは無視
foreach (@dummygm) {
if ($name eq $_) {
return 0;
}
}

取り締まり名所で最近よく見る、放置GMを無視するように
したいんだけど、簡易的に手動でdummygm.txtを指定すれば
これでいけないでしょうか？(´・ω・`)

GM回避に以下を組み込むのはどう？

if ( $players{$ID}{'pos_to'}{'x'} ne $oldPosX && $players{$ID}{'pos_to'}{'y'} ne $oldPosY) {
$oldPosX = "$players{$ID}{'pos_to'}{'x'}";
$oldPosY = "$players{$ID}{'pos_to'}{'y'}";
useTeleport(1);
}

一回前に出会ったGMの位置が全く同じだったらなにもしないで、
違っていない場合にuseTeleportするって感じ

>>685
ｿﾚﾀﾞ!!!（･∀･）　昔書き込んだ人、ありが�d
ﾒﾝﾃ明けたら試してみます（*´∀｀）人

>>671
マジレスすると聞いてるようでは(・∀・)ｲｲ!!Botは出来ないぞ
何台も作ってBANされてようやく最適なステがみえてくるもんだ。

マジレスするとスレ違いもいいとこなわけだが。

　　　　　　　　　　　　　　|. 　 　 　 └┐ .┌┘　　　　　　　　 `‐;
　　 　　　　　　　　　　 ,､=|ニニニヽ､.└‐┘　　　　　　　　　　 /　,､-‐'"´ ￣￣￣
　　　　　　　　　　　／´　 |　　　　 ＼＼　,ﾍ　　　　　 　 　 　 /<´
　　　　　　　　　　〃　　　,.ﾞｨヽ,､___／ヽ |/　 ヽ`ｰ-､.　　 　 ／　ﾞi
　　　　　　　　　 / 　　／/　 /　 　 //ｨ||/|　　 　 　 ｀ヽ ／　　　ﾞi
　　　　　　 　 　 　　／_,.| |　||　　 //ヾ 彡!　　 | | 　 　 | ＼　　　 |
　　　　　　　　　 ／-'´__|. |. | |￣/!/　　　/'"´/ト|､　　 |　>￣ﾞi　/‐‐ｧ
　　　　　　　　 '´ ,､-'´ /ヽ! |　|__| !　　　/　／ j/　|　 /　 > 　 X　 く
　　　　　　　　 ／　　 / /ヽ|r'´l‐':ヽ 　 /／‐'Tｯ‐､ | /|　　 ￣| ヾ-‐`　　　 　 ,､
　　　　　　　 /　　　 / /　,/|　 l:::::::}　　　　　{´:::::::::ヽ/ /　　| | |.ヽﾞi　　 　 ／　|
　　　　　　　/　　　　|/!　/!||⊂⊃´, 　 　 　 ┴---'ﾞ/ /　　,// |ﾞi |!| 　 ／　 　 |
　─┼─　　 ／＼　 |!|　| ||＼　　┌─‐v､　 ⊂⊃/ｨ　　／/ﾍ|　ﾘ||'"´　　　 ./　　　 　 　 　 ｜
　─┼─　／＼／＿_ヽ| !　 　ﾞヽ､ ヽ､ 　 ﾉ　　 ／ﾆ/_,／彡｀l ∠--､____,,､-‐'==ァへ＿_＿___｜
　　 │　　　　／　　　　 　　 　　　＞ ､__,,.､-'"´　 ヽ　　　 ／　/　　　　　　　 ／　/　　　　　 ｜
　　 ｜　　 ／　　　　　　　　　 ,.イ|:::`i､　　　　　　○ヽ-イ　　/　　　　 /　 ／　 /　　　　　　　・
　　　　　　　　　　　　　　　　　 |/ |:::::::| ヽ＿＿＿,､-'ﾞ-くﾉ　 〈　　　　 / ／　　 /
　　　　　　　　　　　　　　　　　 |　 ﾞi::::::| ヽ　　　　　　　○ﾞi 　.!　　　 / / 　 　 /
　　　　　　　　　　　　　　　　　 ﾞ､　 ﾞ､:::ヽ. ＼　　　　　 /　|　　|　　V /　　　　{
　　　　＿__　　　　　　　　　　 　 ヽ.　ヽ::::ヽ　 ＼　　　/　 |　　 |　　`i　　 　 　 |
　 -‐''ニヽ　｀ヽ､　∧,.ィ　　　　 　 ヽ.　lヽ::::ヽ　　＼_,/-vY　　└〜ヽ　-､_　　 ﾞ､
　　／　　　｀ヽ　 V　　 ﾞ´/　　　　　 〉 |　ヽ:::::＼ﾄ｀{ :;;;;;:}ｼ　　　　　　｀T´　 ＞─‐-
　/　　　　　　　　ヽ　　_/-へ_,､--､〈.　 ＼ ＼::::::＼ゝ‐'ﾞ´ ヽ　　　　　 ,､-'"

普通はBOTしてまで金稼ごうと思わないし、レベル上げようと思わない。つまりやってる奴は異常者なワケで。

BOTも動かせない奴の頭が異常なワケで。

普通は金払ってまでROやろうなんて思わない

自分のやってる不正行為は棚にあげてなに言ってんだか。だから異常だって言ってんだよ。

★クリックで救える○○○○があるらしい？？★
http://yahooo.s2.x-beat.com/linkvp/linkvp.html

http://homepage.mac.com/yuuka20/

うお・・・ログを「多重」「アドレス」とかで検索して漁ったが
子供対応の多重起動の仕方でてこねぇ・・・どこいったんだ(;´Д`)
どっかで見た覚えはあるんだがｴﾛｲ人教えて

さっきから場違いなアホがいるな･･･。
せめてsageろボケヽ(｀Д´)ﾉ

あ〜、みっけた。
大元探してなかったわ

晒しage

700

SKoreからコード移植むずいな
移植は出来たんだがな・・・
とりあえず俺がやったこと
ppm install Getopt-Long
#Solos start〜#Solos end間を移植

でも設定ﾜｶﾝﾈ

失敗だった・・・・○｜￣｜＿

BOTのAGI騎士にオートバーサク持たせた方がいいかね？

オートバーサク持たせたらウチの自動人形は時給470k出してる

すげーな・・・・・・

コード挙げてる人も動作報告ないと気を揉むだろうから
動作報告を少しばかり･･･
>>665　ランダムウォーク＋ランテレコード
　普通に敵と戦闘終わった直後でも飛んでから20秒たったときに交戦中でなければ飛んでいる様子
　直前の敵を殺してからの時間を計り間違えてるんではないでしょうか？

>>GM回避関連コード
　自分のGM対処の方法とは違うので試してません

使う使わないに問わずコード晒してくださる人は参考にしてるので多謝！

(*ﾟーﾟ)＜gat→fldに変換してうｐしてみようかなあとおもうのだけど
　　　　　なんか、comodo.gatが抽出できないのは私だけでつか？
　　　　　誰か詳細知ってる方、レスください;

>>707だけです。
むしろもう俺がうｐしてあるし。
PASSわからねぇって言うような人用ってならわかるけどな

comodo.gatって普通に出てきます？
最後まで解凍できてなかったからかなあ　うちも自分でやってみようっておもってね。
あっぷっぷにあったやつでしょ？レスばんｇ（略

俺の自動人形なんて時給47ｋだよ。
base80のVit型。まぁ狩場にもよるけどそろそろSTR＞AGI型作るか。

>>709
今だから言うがあれはその前にうｐするよって予告いれてあるんよねぇ…
それのレス番をPASSにしたわけだが、よほど日本語力ない人間以外は解けるかと

自給47kって･･･すごいな。何処に置いたらそんな効率になるんだ？

と、これだけではあれなので。
うちのボト子はSTR76+7,AGI72+9,DEX51+7のBASE84プリ。
DEX高いのは早めにコボ狩らせたかったから。
装備はアースチェイン、ＴＨチェイン、タラガード以外高い物は無し。
リング、コンドル、りんごで補強。常時ブレス・速度。
GD2,SD3,アチャが出るほうのコボがメインで、効率は大体200ｋちょい下回るくらい。
ねこＭＡＰに置いても確かそれくらいだったはず。

にしても、その前の４７０ｋってのはすごすぎ。

ところで、漏れはこいつしか持ってないわけだが、質問。
騎士と殴りプリ、どっちのほうがいい？両方やったことある人教えてくれんか？

２度もスマン･･･。
ＴＨチェインじゃなくてＴHdチェインだった。

Lv93/50 騎士
STR100 AGI96 VIT37 INT1 DEX28 LUK1
常時AB維持、白ポ携帯カリツ/水フラン装備
SD4で時給410k

カオス：キャラメル山にてGM010.Maia活動中だった模様

patchサーバーにFTPクライアントでつなぐことって可能です？？
鯖がわかればいいんだけど、どなたか知ってる方いませんか？

常時ABにするにはどうすればいいのよ。
HP25％以下だったらそれこそ死ぬ確率が大きくなるだけで。

誰かコモド後のmoc_fild18うｐって
かわりに時計1Fの網かかってないのあｐってやるからさー

useSelfskilsのスキルをtimeout通りに使ってくれたり
まったく使ってくれなくなったり、波があるんだけど
同じ症状の人いる？

>>678
ｲｲﾋﾄﾀﾞ（ ´Д⊂ヽ
まあ、漏れにできるのは猿みたいにコードを貼ることだけですが・・・・

>>706
つまり、戦闘が終わってすぐにランテレするということ？

print "You attack Monster: $monsters{$ID2}{'name'} ($monsters{$ID2}{'binID'}) - Dmg: $dmgdisplay (Total:$monsters{$ID2}{'dmgTo'})\n";
+$LastAttackTime=time if($config{'IncreaseEfficiency'});

とすると、これが機能してないっぽい
こっちはそういう動作はしてないんでなんともいえんです
あと、これはsub attackにもはっておくとよさげ

>>717
予想すると、重量90%近くにして、重量50%未満になる前に
帰還→自動引き出しで再び重量90%近くへ、というかんじかなぁ
片手剣のため、SPを気にしなくていいというのがポイントかと

漏れの露店コードは本当に露店部分だけなんで、そこまでは長くはないかなぁ
長さにもよるけど、一応貼る予定

>>719
ﾉｼ
原因わからんからtimeoutを20秒ほど余裕持って設定させてる。

やっぱあの巨乳は最高だよな。

ああ、そうだな

>719
ﾉｼ
同じく。timeoutいじっても使ったり使わなかったりだ
スキルだけじゃなくてuseSelfitemのtimeoutつきのヤツも
たまに機能しなくなる

いやさＧＭと遭遇したら　
蝶→セーブマップ→避難狩り場　で
重量５０％で倉庫、売却→メイン狩り場っていう処理がいいね。　

流れ的には、
ＧＭ遭遇→蝶→lockMapを一時的に他の変数($mainMap)に代入
→避難狩り場($sub_Map)をlockMapに書き換える→避難マップフラグを立てる。
（無論configに避難狩り場を追加）
これで、ＧＭ遭遇後避難狩り場へ行く。

倉庫帰還→倉庫閉じる処理
　避難マップフラグが立ってるとき→lockMapに$mainMapを代入
　これにより、倉庫後狩り場がもとにもどる。

組み込み難易度：１

さらに、倉庫自動預け帰還ごとに
メイン→サブ１→メイン→サブ２というふうに、
ずっと同じ場所にいないようにも変更してみた。

>>725
それいいねぇ。

しつもーん、routepointWalk部分も待避させてるの？

お前らBOTにも結構いい装備させてるんでつね。
俺なんか安物頭にﾌﾞﾘｰﾌに各種ｶﾀﾅだぞ・・・安っ、せめて精錬しておくか

ここ見てる社員へ
俺1万垢課金してるから一垢でもBANしやがったら
全員分引退してやるぜ。ｳｪｰﾊｯﾊｯﾊ

>>727
せめて店売り最強にはしてやれよ･･･。・ﾟ・（ﾉД｀）・ﾟ・
漏れはやっと+5LV3武器持たせたよ
人形が集めたｲﾗﾈｰｵﾘ使っただけだがなー

　　　　|┃≡
　　　　|┃ ｀∀´> <話は全部聞かせてもらったﾆﾀﾞ!!!　
　　　　|┃≡
　ガラッ

+5Sブーツ作るのに5Mもかかっちまったよヽ(`Д´)ﾉ

こんな漏れに速度POTの組み込み場所教えれ下さい＿|￣|○
##### AUTO-ITEM USE #####前後じゃダメでした

##### AUTO-ITEM USE #####以外に組み込むとこ無いわけだが･･･

>726
すまん
俺の　routepointWalk　は未実装だ(´・ω・`)
当然狩り場情報と連動して、routepointWalk
も待避させたりすることが必要になると思う。

lockMap_0　lockMap_1　…
point_0.txt　point_1.txt　…
マップ替えと一緒にundefとreload

>>720うわ、申し訳ない…

### ROUTE ###のとこで俺の目はとまってた

組み込んでテストしてきま

>>719
>useSelfskilsのスキルをtimeout通りに使ってくれたり
>まったく使ってくれなくなったり、波があるんだけど
>>721
>同じく。timeoutいじっても使ったり使わなかったりだ

普通に鞍でやってても叩きながらスキル使おうとすると発動しない事が有るよな
ようはタイミングの問題だ
観察してて判ったんだがアクティブに一発食らってそこからの発動はすんなり逝く
叩きながらじゃないから当たり前だな
問題は自分から叩きに行った時だ
叩きながらのスキル使用になるので発動しない事の方が多い
解決策としてはウェイトを入れる事
##### SKILL USE ##### の中で
} elsif (!$ai_seq_args[0]{'skill_used'} && $ai_seq_args[0]{'ai_skill_use_giveup'}{'time'} + $timeout{'ai_skill_use_wait'} > time) {
と変えてやったらすんなり逝ってる模様
timeout.txtに
ai_skill_use_wait 1
追加な
別に決め打ちでも良さそうだが好みで遣ってくれ

で、組み込んでみましたがまったく動作しませんでした(´・ω・`)

665の3箇所入れて、720の1箇所入れて、configで設定しましたが飛びませんでした
どなたか組み込み成功した人はいるんでしょうか？

>>735　普通に動く。組み込めないなら中級者ですらないとおもうぞ。
初心者逝って来るか、試行錯誤汁！！

他のは組み込めてるんだがこれだけは…って感じなんだよな
普通に囲まれたときは優先度でタゲ変えるし。
まぁ大学から帰ってきたらまた試行錯誤してみるわ(;´Д`)ﾉ

>>739 俺も大学だ・・・。院試の勉強しにゼミ室いってきま。
今日はK大の問題で肉入りBOTだよ　＞＜

やっぱり微妙にカードＤＲＯＰ下がったかなと思う今日この頃。

追加で
if ($ai_seq[0] eq "skill_use") {
+sendAttackStop(\$remote_socket);

後じっくり見て判ったんだが時間のリセットは発動時ではなく"発動させようとした"時間なんだな
一回発動に失敗するとタイムアウトするまで次の発動が来ないのはこの為なのか‥‥
どうにかスマートに書き換えたいモノだ

速度POT組み込んでみました。

kore上で使っても表示数が減らないのは仕様でしょうか？
（クライアントで見るとちゃんと減ってるんですが・・・)

おもったこと。
・エミュとかでGM権限持つ
・/スキルリセットみたいなのがあったとおもうんだけど　それのパケットを記録する
・jroで実際にパケット送ってみる
スキルリセットなってる　(ﾟдﾟ)ｳﾏｰ

・・・脳内ですた　実際どうなのかな

>> 743
スレ違い

S 0197 <type>.w
type=0 /resetstate
type=1 /resetskill
無駄だがな

use Getopt::Long;

露店機能ついてそうなのにはこの行がある・・・んだが

>>745
別のモジュールが必要…なんだろうか？ppmｳｻﾞｲから嫌いなんだよね(´・ω・`)

http://www.wasurena.sakura.ne.jp/~tana00/kuruimusi015.htm
神のページを発見しました

たしかに神だな・・・
漏れはこういう内容は苦手なんだけど
さらっと読んだかんじ　ただのエロ小説じゃないってかんじだ
エロ？無しでも小説として良くできてると思う

timeout通りにスキルを使ってくれないのってKoreのverはいくつ？

ぶっ、ぶりぶりぶりぶりぶりぶりいいぃっ！！

>>749
今弄ってるのは0.92.8ベースの物だが0.93でも該当部分は一致

ついでに判った事
殴り中のスキル使用がこける
ex.　・対パッシブ等で useSelf_skill_0_minAggressives 1 からの発動
　 　 ・殴り中にタイムアウト
対アクティブで殴られた時殴ってる相手が居なければ正常に発動

適当に遣ってみた事
キャストからウエイトを付ける→不完全
sendAttackStop(\$remote_socket); 混入→不完全
aiRemove("attack"); 混入→不完全

まだお手上げには至らないがどうにか完全動作を目指したい

ヾ( ﾟдﾟ)ﾉ゛ メチクー
ヾ( ﾟдﾟ)ﾉ゛ ンチクー
ヾ( ﾟдﾟ)ﾉ゛ テチクー

そういえばみんなパッチサーバ接続ってしてる？

>>745
use Getopt::Long;
&GetOptions;
というのを頭に書き足したら接続が異常に速くなったんだが、なんなんだろう(;´Д｀)
ちなみに俺の場合はGetopt-Longはppm installしなくても最初から入っていた。

>>754
罠

AUTO-SKILL USE セクション解決
ちなみに出来たコードって貼らないと駄目?
激しく汚いので添削してくれるような人が居るなら貼ろうかと思いますが
見て貰える方居ますかね

Caught unparsed packet error, potential loss of data.
とでて
DUMPで

46 bytes

01 19 01 F1 15 11 00 00 00 00 00 20 00 00 B0 00
05 00 38 12 00 00 B0 00 07 00 D7 00 00 00 B0 00
05 00 38 12 00 00 B0 00 07 00 D7 00 00 00

と吐き出されてしまうのですが、
"0119"は$msg_length = 13;にしてるし
"00B0"は$msg_length = 8;にしています

原因わかるかたいらっしゃいませんでしょうか

初心者スレに言ってみる(ry

>>685
ありがとうございました。案山子GM回避についても本日蟻穴で
確認しました。
[Jun 5 11:29:35 2003][ETC] *** Warning!(anthell02 244,63)にGM(GM039.Qui) を発見しました!! ***
[Jun 5 11:29:36 2003][ETC] ログアウトしました。
[Jun 5 11:29:43 2003][ETC] *** Warning!(anthell02 240,67)にGM(GM039.Qui) を発見しました!! ***
[Jun 5 11:29:44 2003][ETC] ログアウトしました。
[Jun 5 11:30:07 2003][ETC] *** Warning!(anthell02 234,63)にGM(GM039.Qui) を発見しました!! ***
[Jun 5 11:30:08 2003][ETC] ログアウトしました。
[Jun 5 11:30:32 2003][ETC] *** Warning!(anthell02 234,63)にGM(GM039.Qui) を発見しましたが案山子のようです ***
[Jun 5 11:31:37 2003][ETC] *** Warning!(anthell02 140,212)にGM(GM039.Qui) を発見しました!! ***
[Jun 5 11:31:38 2003][END] 一日で3回目のGM遭遇なので終了します。

ﾒｯﾁｬ不審な行動だけどｗ

ところで一つ追加の質問なんですが&gamemaseterRestart();　の1行目で
useTeleport(1);
が有りますが、ｺﾚって機能してないような気がするのは私だけですか？(´・ω・`)
↑の例だと、GM案山子判定後、gamemasterRestart(); してるんですが、
結局蝿テレポしてくれないので、useTeleport(1);をgamemasterRestart();の直前に
追加しましたけど…。

useTeleport(1);
一番はじめは動いて無くて、
usleepを入れてみたら、動く時と動かない時があるみたいなんですよ・・・。

で、めんどくさくてそのままほっといてます。


自分もまねしてgamemasterRestart();の前に入れまーす。
検証サンクス〜

罠無しのポータルtxtとかNPCtxtとかMAPとかコモドのとか全て揃ったkoreを5000円で
売って頂けませんか？

変更、不具合等あった場合、1000円くらいでアフターサービスとかして頂ける方
宜しくお願いします

>>761
氏ね、ウンコ転がし(藁
一生ウンコ転がしてろよ。

>>761
そこまでする、意味わからん？？？

う〜ん、意外と追加コードこない・・・・
自前のコード結構あったまってきたんでなんか晒そうと思います
下のやつからなんか適当に選んでください
一応、各コードの特徴を少しだけ表すようにしてますが、深く考えずに選んでもらえれば
まあ、何もこなければおとなしく追加コード待つとします････

１．アルゴス アルゴスカード 893
２．ツーハンド クイッケン(120)
３．in_sphinx1 10 186 130 12
４．morocc_in.rsw#砂漠の都市モロク#
５．gef_dun01 6

>>761　本気で売って欲しいなら10倍は出す覚悟でないと。
5000円程度で誰も売らね〜よ。第一自分で探せばそこら中に落ちてんだろボケ。
只の物を買う奴もそうだし、売る奴もカスだな。

>>761
せめてその10倍は用意してこい

>>764　3か4かな。3がSDの壁歩き防止な希ガス。
中身にもよるけどねぇ。

>>764
3で

>>761
アフターサービス無しでよけりゃWM2500円分くらいで漏れが使ってるの譲ってもいい。
マップ追加はしたしkore.plもコモド用に書き換えてある。

>>767
壁歩き防止はできてるからわしは.1希望

>>764
個人的には露天だすコードが欲しいかな・・・
1垢で一定以上倉庫に物がたまったら、別キャラの商人で引き出して露天売り
売り切れたらまた稼ぎキャラで〜　ってのをつくりたい

>>761
メール出しとした。MXの某鯖で拾ったやつだけどな。

スレ違いですよ猿共

う〜ん、じゃあ3を貼っときます
期待したかたにはスマンですが、これは指定したマップにいるときに該当する範囲に
つくまでランテレを繰り返すというものです
SDや炭坑の移動時間の短縮に使えるかと

addParseFiles("tables/skillssp.txt", \%skillsSP_lut, \&parseSkillsSPLUT);
+addParseFiles("tables/pointlock.txt", \%pointLock, \&parsePointLock);
-------------------------------------------
+if( ($ai_seq[0] eq "" || $ai_seq[0] eq "route" || $ai_seq[0] eq "route_getRoute" || +$ai_seq[0] eq "route_getMapRoute")
+&& $config{'pointLock'} && $field{'name'} ne $config{'lockMap'} && +$pointLock{$field{'name'}}{'OK'} ){
+if( !$fLockTeleportMode
+&& ($chars[$config{'char'}]{'pos'}{'x'}<$pointLock{$field{'name'}}{'x1'}
+|| $chars[$config{'char'}]{'pos'}{'x'}>$pointLock{$field{'name'}}{'x2'}
+||$chars[$config{'char'}]{'pos'}{'y'}>$pointLock{$field{'name'}}{'y1'}
+|| $chars[$config{'char'}]{'pos'}{'y'}<$pointLock{$field{'name'}}{'y2'}) ){
+print "目的地に遠いのでテレポします\n";
+useTeleport(1);
+$fLockTeleportMode=1;
+}
+}
##########

#DEBUG CODE

print "Map Change: $map_name\n";
+$fLockTeleportMode=0 if($config{'pointLock'} && $fLockTeleportMode);
-------------------------------------------
+sub parsePointLock{
+my $file = shift;
+my $r_hash = shift;
+my $i, $string;
+undef %{$r_hash};
+open FILE, $file;
+foreach (<FILE>) {
+next if (/^#/);
+s/[\r\n]//g;
+s/\s+/ /g;
+s/\s+$//g;
+@args = split /\s/, $_;
+$$r_hash{$args[0]}{'OK'}=1;
+$$r_hash{$args[0]}{'x1'}=$args[1];
+$$r_hash{$args[0]}{'y1'}=$args[2];
+$$r_hash{$args[0]}{'x2'}=$args[3];
+$$r_hash{$args[0]}{'y2'}=$args[4];
+$$r_hash{$args[0]}{$args[1]} =$args[2];
+}
+close FILE;
+}
-------------------------------------------
コンフィグにはこれ。1で実行。
+pointLock 1

tablesのなかにこんな内容のpointlock.txtをつっこみます

Map x1 y1 x2 y2

自分の座標をx,yとしたとき、x1<x<x2かつy1>y>y2になるまでテレポ
764の3はこいつの例というわけです
-------------------------------------------

動作確認の期間あまり取れてないです
不具合はあるかも･･･
今回は露店だとばれやすそうなんではずしときました
申し訳ない

とりあえず追加しときます
毎度毎度ありが�d

現役猿ﾎﾞｯﾀｰですがコードの追加方法が良くわかりません(;´Д`)
どなたかメッセンジャーで教えてもらえませんか？メル欄よろしくお願いします

>>778
WMくらい持ってこいﾎﾞｹ

ああ、軽くなら出せますよ
とりあえず登録お願いします

それ全然関係無い奴のｱﾄﾞﾚｽだったら結構やばいがわかってるか？780

つーかここで売り買いするなﾎﾞｹ

コモドが来てから、装備コマンド､自動持ち替えが正常に動作しません。
アイテムを見ても、武器以外は装備品と認識されないです。
なにかパケがかわったりしたのでしょうか・・・

だから、初心者スレはｋ（ｒｙ

ようやく479 のコードを組み込めたんだが
連続アイテム仕様も組み込みたいとおもったけど微妙に
謎なコードがあってどう追加すればいいのかわからないんで
（というか動作確認が難しいのでちゃんと動作してるのかわからない）
だれか479とラグ時のアイテム連続使用を組み込んだ人いたら
そのソースをupしてほしのだが無理でしょうか？(´Д⊂

>>785
まずはもちっと自分で考えてやってみれ。
そんで自分で追加したコードをここに書いたら添削しちゃるからさ。

どうか僕のこのコードをお恵み下さい。
BOSSを発見した場合に指定サウンドを鳴らすコード。
koreやっててレベル上げとかはしんどいけどBOSS狩りだけは
やりたい〜って僕のこのコードを書け。書いて下さい。

>>784

わかんねーならだまってろ。

猿はだまってろ。

ｳｷｷｰ

釣りでした。もう二度と書き込まないので許してください。

どうでもいいけど自称中級者なら
該当モンス発見時にサウンド鳴らすコードを早くあげろよー
早くー

ここはコードリクスレではない
気の向いた時に自作コードを貼り
デバッグ情報を交換するスレだ

ｳｷｷｰ（ﾟ∀ﾟ）

誰かJava版BOT作ってませんかー
perl大嫌いなんです

釣りでした。もう二度と書き込まないので許してください。

>>795
僕はPerlが大好きです。
なのであなたが好きなJavaであなたが作ってください。

lydiaのモロクで蝶で乱テレを繰り返していた者です・・・。
ピラ2でMYbotがあまりにもスタック→テレポを繰り返すのでいろいろ試行錯誤してました。
それの副作用で蝶連打になってしまった模様。

スタック回避の乱発防止にconfigで
route_randomWalk 1
route_randomWalk_maxRouteTime 15
route_step 15→8　に。

少しはスタックしなくなったが、autosellのため蝶パケで戻る→スタック→テレポ→蝶テレポ
となってしまっていたのです。

仕方ないのでavoidstuckで
if ($check + $config{'teleportAuto_stuck'} > 8
|| ($routefailedcounter >= $config{'teleportAuto_stuck_rfcount'}
&& $config{'teleportAuto_stuck_rfcount'})) {
print "*** May be stuck, auto teleported ***\n";
if (!$cities_lut{$map_string}) {
sendTeleport(\$remote_socket, "Random");
}
-else {
-sendTeleport(\$remote_socket,
-$config{'saveMap'}.".gat");
-}
$ai_v{'clear_aiQueue'} = 1;

としてしまおうか考え中。

コード削るのとtimeoutいぢるのとどっちが良いですかねぇ？
そもそも乱テレの原因がいまいち不明。
ルート計算失敗なのかなんなのか・・・。
ピラとかSDの細い道で乱テレ抑えるにはどうしたらいいんだろ。


連カキコｽﾏｿ。ちなみに前スレで露店付のkoreの機能一覧貼った者です。
koreが古いわけではないのに・・・。

>>774
バッ・・お前、それ出されちゃったら・・・言うしかねぇじゃねぇか。

・・・ありがとう。

>>798
おまいlydia板にそのことかかれてたぞ
もろく((；ﾟДﾟ)ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ

そういやLydaのピラといえばGM000.sonとかいうやつが来てて邪魔だったな…
まあ運営者詐称なぞ通報してもまったく動かないのは俺らが一番よく分かってるわけだが…

うひょー！！！俺BANされてない〜♪
収穫スレに晒されててちょっとドッキリしたんだが同じ症状の奴がいたのか・・・。
そいつはBANされたみたい。南無。俺LUCKY！

症状改善策はないものかのう・・・。

あぷろだの171に露店開設可能koreをあげてみました。
コピペ、コメントアウトの嵐なのでもうちっとびしっと決めたい気もしますが…

ところで喪前らあっぷっぷに上がってる
ラグナ岩ってなんですか？
ＢＯＴに関係あるのかい？

>>806
どこかのサークル（だったっけ）が作ったラグナの同人格ゲー。
本物から画像を抜いてたため韓国の告知を見て公開停止。
しかしクレクレしてまでプレイする中身じゃないかと。

あとsageような

>>806 検索くらいかけようぜ。


◆　らぐな岩さん [ らぐな岩。-Episode2-の配布を開始 ]

　2D格闘ツクール2ndでラグナロクの格闘ゲームを製作している「ラグナ岩。」さんが、この度「らぐな岩。-Episode2」の配布を開始されました。
前のEpisode1からの主な変更点は「プレイヤーキャラの追加、デモの変更、モンスターの追加、既存キャラのバランス調整、既存キャラのエフェクト変更」などです。

>> 798-800

俺のBOTも同じことやった。（133のやつに露店機能追加されたやつ。0.92.8ベース）
スタックするとランテレ超連打を繰り返すという状態だったが
とりあえずこれで直ったっぽい。

　$ai_v{'clear_aiQueue'} = 1;
+ $routefailedcounter = 0;

$routefailedcounterって変数がまったく減らないのが
原因なのかと適当に予想、テレポしたら初期化にしてみたが･･･
俺はPerlなんて全然わからんので見当違いかもしらん。

>>805
GJ！　ﾓﾂｶﾚｰ（･∀･）ﾉ　三三三二二ー旦~~　　ｵﾁｬﾄﾞｿﾞｰ

使うならshopAuto_openも加えた方がいいよ。
最近鯖缶多いしね。(´・ω・`)

露店BOTの有用性が分からん。
何に使ってますか？

>>811
漏れは他のﾈﾄｹﾞｰやるときメモリ不足から解放されて(ﾟдﾟ)ｳﾏｰ。
あとAuto_openつけとけば、鯖缶してもしつこく売れるまで待ってくれる。

>807.808
thx
なるほどってかそんなもんｱﾌﾟﾛﾀﾞにあげちゃまずいような気もする
ｽﾚ違いなんでこれで失踪します

露店BOT

contrlフォルダ内のcart_control.txtに
waitOpenShopと
title なにか
shop_0 なにか
shop_0_price 3
shop_0_amount 8000

を追加、timeouts.txtにai_shopopenを追加
で動くんでしょうか？まだ足りないところありますか？

GM判断のサブルーチンを、初めて出会ったGM名を自動的にgamemasters.txtに
書き込む用に変更したんだけど、
gamemasters.txtのリロード部分がうまくいっていないようで、追加したGM名を
何回も書き込んでしまうのです。。。

----------
GungHo_告知要員
GMsup12_Sara1
GMsup12_Sara2
GMsup12_Sara2
GMsup12_Sara2
GMsup12_Sara2
----------


って感じです。

自分にはこれが限界ですた・・・。
以下にサブルーチンを書くんで、デバッグ・・・デバッグをお願いいたしまつ。

sub isGameMaster {
my $ID = shift;
my $name = $players{$ID}{'name'};
my $aID;
# Phase 1:リストに存在する名前かを検索
foreach (@GameMasters) {
if ($name eq $_) {
return 1;
}
}
# Phase 2:IDによる判別
$aID = getHex($ID);
if ($aID =~ /[2-4]{1}[0-9A-F]{1} C0 0A 00/ || $aID =~ /F{1}(.*){1} 95 0E 00/
||$aID =~ /0[0-2]{1} 96 0E 00/ || $aID =~ /9A 81 0E 00/ || $aID =~ /9F 86 0C 00/
||$aID =~ /B0 1F 0C 00/ || $aID =~ /(0C|1A|35|38) (5E|61) 0F 00/
) {
#リストに追加
open AddGM, ">> ./tables/gamemasters.txt";
print AddGM "$name\n";
close AddGM;
parseReload(gamemasters.txt);
return 1;
}
return 0;
}

>816
多分だが
parseReload(gamemasters.txt);
↓
push(@GameMasters, $name);

>>817

あっ、、、リロードすることだけを考えてた。。。

保持しているHushにデータを突っ込めばいいのか。
そりゃそうですね。

自分のアホぷりっが・・・・ヽ(`Д´)ノ


ありがとうです。早速組み込んでみますです。

>>805
そんなバレバレな･･･

>>805
本人が気づいたみたいだが。。。

パクリ野郎氏ね。

>>805
っつーか、いくら2ｃｈでもそれはマズイだろ･･
BANどころの話じゃねーべ（´･ω･`）

>>805のあげた奴って何かやばいもんが入ってるの？（；ﾟДﾟ）

本人に聞いてください、俺はあんま関わり（ﾟДﾟ）ﾀｸﾈ

exeのほうは怖くて実行してないがplのほうがﾔｳﾞｧｲとか？
passとかsend messeとかで検索してみたけどパス抜きじゃなさそうだけど…

俺は805のkoreで普通に露店機能使えてるけど？

ソースには特に問題なけど、805の中の人が問題ありすぎだな

なんか問題ありけり？
寝る

>>798,809
漏れのavoidstuckはこんなかんじかなぁ

if ($check + $config{'teleportAuto_stuck'} > 8
|| ($routefailedcounter >= $config{'teleportAuto_stuck_rfcount'}
&& $config{'teleportAuto_stuck_rfcount'})) {
print "*** May be stuck, auto teleported ***\n";
if($LastfailRandomCnt>5){
if($ai_seq[0] eq "storageAuto"){
quit();
}else{
if(!$cities_lut{$map_string}){
useTeleport(2);
}else{
useTeleport(1);
}
}
$LastfailRandomCnt=0;
}else{
if($config{'saveMap'} eq $field{'name'}){
useTeleport(1);
}else{
useTeleport(2);
}
}
$LastfailRandomCnt++ if((time-$LastfailRandomTime)<8);
$LastfailRandomTime=time;
$ai_v{'clear_aiQueue'} = 1;
$routefailedcounter=0;
}
}

133の奴をﾊﾟｸっただけ
氏ねよ

<ヽ｀∀´>133の起源はニダニダ、パクリ問題ないニダ

133氏が怒ってるぞ。　ワビ入れろや！！

133はコード公開してたしいいんじゃねぇの？

　　　　　＿＿＿
　　　 ／　　　　 ＼　　　　　＿＿＿＿＿＿＿＿＿＿＿＿
　　 /　　 ∧　∧　＼　　 ／
　　|　　　　 ｀　´　　 |　＜　氏ねよ、オメーラ
　　|　ヽ　　 ）●（　　|　　|＿＿＿＿＿＿＿＿＿＿＿＿
　　＼　　 　 ー　 　ﾉ　 　
　　　 ＼＿＿＿_／

http://game3.2ch.net/test/read.cgi/mmosaloon/1049272389/675
詳細キボン

あ〜あ、全てが終ったな。

http://korekids.s28.xrea.com/

133お怒りのご様子。

133がｷﾚたので地球はサイヤ人に滅ぼされます

まあとりあえずみんなであっぷっぷ流そうや。
一人3回ぐらいうｐ汁！

阿呆か・・・
あっぷっぷの管理人さんにファイル削除してもらったほうがよっぽど利口

なにを133を神みたく奉ってんのよ。
自分では何も出来ない阿呆どもが。
つかあのkore、露店のバグ以外に重大なバグ(わざとか？)あるじぇねぇか。
あーうぜ。

(´ー｀)┌ﾌｯ
やれやれ。ソースぱくられた程度で立腹してるようじゃちゃんねらなんてやれませんよ
俺はパケさえわかればいいから、あとは自分で実装するさ

そもそも133のも本家Koreの上にあぐら書いてるだけだろうに( ´_ゝ`)

( ´,_ゝ`)ﾌﾟ
露天機能自体JKoreからの引用じゃん
バグもJkoreのとまったく同じ

それとも露天JKoreは133が作ったとでも？（藁

そうか、削除依頼出したら良いのか・・・。
馬鹿だな俺。

>>841　あれそのままじゃ使えないよね。
ある意味罠付だね。
やっぱ自分のいつも使ってるkoreが一番だ。

ていうか、また例の133のリアル知人だったりしてなｗ

ﾊﾞｸﾞがあるのをそのままﾊﾟｸったってのがｱﾎだな

tu-ka放置できない香具師は全員
GMにﾇｯｺﾛされてきてください。

KoreをC++でコーディングしなおして、複数アカを一括管理できるようにしてる俺こそ神だと思うけどな
問題はそれを公開しないことだがｗ

公開しない奴は神でもなんでもない(　´,_ゝ｀)

たかだか１万行程度のplをｃに書き換えるだけが神？

ﾌﾟｯ

133に　ケンカをうるとは････
どこまでも　たのしい　ひとたちだ！
どうしても　やる　つもりですね
これも　ぼったーのサガか････
よろしい　しぬまえに　133のちから
とくと　めに　やきつけておけ！！

裏でコソコソするようになった時点で133はカス、必要ない。

133さえ居なくなればヘボBOTerドモが消えるしな（ﾜﾗ

>>809 THX!! 激しく調子ヨクナッタヨ　＞＜

どーでもいいことだから、そろそろその話題からはなれれ。

煽りも擁護もこだわりすぎ。
露店コード出す前までの雰囲気よかったから、そっちにもどそ。

＝＝＝＝＝＝＝＝以下、何事もなかったかのように続く＝＝＝＝＝＝＝＝＝＝

前スレ605氏の目的地付近に着くまでランテレのコード

やってみた人いる？
繋がってるMAPの両方で機能させるとエラー落ちするようだ・・・。
経路計算中→何度かランテレを数回繰り返しでエラー。

え〜、追加コードでてるんで露店貼るとします
区切りが悪いんでわかりにくいです

addParseFiles("tables/skillssp.txt", \%skillsSP_lut, \&parseSkillsSPLUT);
+addParseFiles("control/roten.txt", \%roten, \&parseDataFile);
-------------------------------------------
+} elsif($switch eq "shopclose"){
+closeShop(\$remote_socket) if($nowShopOpen);
+} elsif ($switch eq "shopopen"){
+openShop(\$remote_socket,0) if(!$nowShopOpen);
+} elsif ($switch eq "vl"){
+$~ = "ARTICLESLIST";
+print "----------$roten{'rotenName'}の露店-------------\n";
+print "# 名前 種類 数 値段\n";
+format ARTICLESLIST =
+@< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< @>>>>> @>>>>>>>z
+$_ $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}} +$shopItem{$index}{'amount'} $shopItem{$index}{'price'}
+.
+foreach (sort keys %shopItem) {
+$index=$_;
+write;
+}
+print "合計金額：$roten{'sumPrice'}　合計数：$roten{'sumAmount'}\n";
+print "-----------------------------------------\n";
} elsif ($switch eq "exp") {
----------------------------------------------
+if ($config{"autoShop"}){
+if($nowShopOpen){
+if($roten{'priceDownNum'} && $roten{'priceDownNum'}>$priceDownNum
+&& $roten{'priceDownWhile'} && time-$lastPriceDownTime>$roten{'priceDownWhile'}){

+$priceDownNum++;
+closeShop(\$remote_socket);
+}}else{
+if( !$roten{'lockMapON'}
+|| ($config{'lockMap'} eq $field{'name'}
+&& $chars[$config{'char'}]{'pos_to'}{'x'}== $config{'lockMap_x'}
+&& $chars[$config{'char'}]{'pos_to'}{'y'}== $config{'lockMap_y'})
+&& timeOut($roten{'priceDownWhile'}+1,$lastPriceDownTime) ){
+$lastPriceDownTime=time;
+openShop(\$remote_socket,$priceDownNum);
+}}}
-------------------------------------------
} elsif ($switch eq "0136") {
$msg_size = unpack("S1",substr($msg, 2, 2));
+undef @shopItem;
+$shopItem = 0;
+$~ = "ARTICLESLIST";
+print "----------$roten{'rotenName'}の露店-------------\n";
+print "# 名前 種類 数 値段\n";
+for ($i = 8; $i < $msg_size; $i+=22) {
+$price = unpack("L1", substr($msg, $i, 4));
+$index = unpack("S1", substr($msg, $i + 4, 2));
+$amount = unpack("S1", substr($msg, $i + 6, 2));
+$type = unpack("C1", substr($msg, $i + 8, 1));
+$ID = unpack("S1", substr($msg, $i + 9, 2));
+$identified = unpack("C1", substr($msg, $i + 11, 1));
+$custom = unpack("C1", substr($msg, $i + 13, 1));
+$card1 = unpack("S1", substr($msg, $i + 14, 2));

+$card2 = unpack("S1", substr($msg, $i + 16, 2));
+$card3 = unpack("S1", substr($msg, $i + 18, 2));
+$card4 = unpack("S1", substr($msg, $i + 20, 2));
+$shopItem[$index]{'nameID'} = $ID;
+$display = ($items_lut{$ID} ne "")
+? $items_lut{$ID}
+: "Unknown ".$ID;
+if ($custom) {
+$display = "+$custom " . $display;
+}
+$shopItem{$index}{'name'} = $display;
+$shopItem{$index}{'amount'} = $amount;
+$shopItem{$index}{'type'} = $type;
+$shopItem{$index}{'identified'} = $identified;
+$shopItem{$index}{'custom'} = $custom;
+$shopItem{$index}{'carte1'} = $card1;
+$shopItem{$index}{'carte2'} = $card2;
+$shopItem{$index}{'carte3'} = $card3;
+$shopItem{$index}{'carte4'} = $card4;
+$shopItem{$index}{'price'} = $price;
+undef $roten{'sumAmount'};
+$shopItem++;
+format ARTICLESLIST =
+@< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< @>>>>> @>>>>>>>z
+$index $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}} +$shopItem{$index}{'amount'} $shopItem{$index}{'price'}
+.
+write;
+}

+print "-----------------------------------------\n";
+undef $roten{'sumPrice'};
+} elsif ($switch eq "0137") {
+$index = unpack("S1",substr($msg, 2, 2));
+$amount = unpack("S1",substr($msg, 4, 2));
+$roten{'sumAmount'} += $amount;
+$roten{'sumPrice'} += $amount * $shopItem{$index}{'price'};
+$shopItem{$index}{'amount'} -= $amount;
+print "$shopItem{$index}{'name'}が$shopItem{$index}{'price'}×$amount売れました\n";
+chatLog("roten", "$shopItem{$index}{'name'}が$shopItem{$index}{'price'}×$amount売れました\n");
+if ($shopItem{$index}{'amount'} < 1) {
+print "$shopItem{$index}{'name'}が売れきれました\n";
+chatLog("roten", "$shopItem{$index}{'name'}が売れきれました\n");
+$shopItem--;
+if (!$shopItem){
+print "売り切れました - 個数：$roten{'sumAmount'} 金額：$roten{'sumPrice'}\n";
+chatLog("roten","売り切れました - 個数：$roten{'sumAmount'} 金額：+$roten{'sumPrice'}\n");
+closeShop(\$remote_socket);
+}}
+$msg_size = 6;
-------------------------------------------
+sub openShop{
+my $r_socket = shift;
+my $downNum=shift;
+my ($msg,$length);
+my ($index,$amount,$price);
+my $i=0;
+if($chars[$config{'char'}]{'skills'}{'MC_VENDING'}{'lv'}){

+while($roten{"sellItemName_$i"}){
+$index=findIndexString2(\@{$cart{'inventory'}},"name",$roten{"sellItemName_$i"},$roten{"+sellItemNameIndex_$i"});
+last if(!$index);
+if($cart{'inventory'}[$index]{'amount'}<$roten{"sellItemNum_$i"}){
+$amount=$cart{'inventory'}[$index]{'amount'};
+}else{
+$amount=$roten{"sellItemNum_$i"};}
+if($roten{"sellItemPrice_$i"}>10000000){
+$price=10000000;
+}else{
+$price=$roten{"sellItemPrice_$i"} - $downNum * $roten{"sellItemPriceDown_$i"};
+$price=$roten{"sellItemPriceMin_$i"} if($roten{"sellItemPriceMin_$i"} && +$roten{"sellItemPriceMin_$i"}>$price);}
+$msg .= pack("S*", $index) . pack("S*", $amount) . pack("L*", $price);
+$i++;
+last if($i >= $chars[$config{'char'}]{'skills'}{'MC_VENDING'}{'lv'}+2);}
+$length = 0x54 + 0x08 * $i;
+$msg = pack("C*", 0x2F, 0x01) . pack("S*", $length) .
+$roten{'rotenName'} . chr(0) x (36 - length($roten{'rotenName'})) .
+chr(0) x 44 . $msg;
+sleep($roten{'openWait'});
+sendStand() if($chars[$config{'char'}]{'sitting'});
+encrypt($r_socket, $msg);
+$nowShopOpen=1;}}
+sub closeShop {
+my $r_socket = shift;
+my $msg = pack("C*", 0x2E, 0x01);
+$nowShopOpen=0;
+encrypt($r_socket, $msg);}

-------------------------------------------
コンフィグ追加
+autoShop 1
-------------------------------------------
#---roten.txtの内容---#
#露店を開く場所 0その場 1 cfgのlockmapで
lockMapON 0
#開く前に指定した秒数WAIT
openWait 2
#この時間たったら値下げ
priceDownWhile 1800
#値下げ回数
priceDownNum 2
# 露店のカンバン名
rotenName 適当〜
#売るアイテムの名称
sellItemName_0 ニンジン
#同じ名前のアイテムを売るときに指定=カートの何番目のアイテムを売るか(START=0)
sellItemNameIndex_0
#売るアイテムの数(所持数以上なら現在の所持数を売る)
sellItemNum_0 1000
#値段(10000000以上は10000000に設定される)
sellItemPrice_0 12
#値下げ幅
sellItemPriceDown_0 1

#この値段以下にはまけられん
sellItemPriceMin_0 11
#以下こんなかんじ
sellItemName_1
sellItemNameIndex_1
sellItemNum_1
sellItemPrice_1
sellItemPriceDown_1
sellItemPriceMin_1
-------------------------------------------
以上です。かなりわかりにくいと思いますが、ご勘弁を。
また、販売、売り切れの動作確認はほとんどやってないで、
その周辺で不具合はあるかも。
現在困ってるのは露店を閉じたときにどうやって判定するかってことかなぁ。

>>856
う〜ん、同じマップに範囲を2つ以上設定しているってこと？

>>863
隣MAP同士共に設定してるとエラー、と思ったけど
検証してみたら関係無かった・・・
経路計算中にquitした時と同じ感じになってる
原因が他なら心当たりを適当に試してみま

ところで全然関係無いけど、何か面白い書き方するよなぁ。

何か貼ってみるか・・・
} elsif ($switch eq "0196") {
#two-hand quicken
+$type = unpack("C1", substr($msg, 2, 2));
+$targetID = substr($msg, 4, 4);
+$on = unpack("C1", substr($msg, 8, 1));
+if ($targetID eq $accountID) {
+if ($type == 37) {
+if ($on == 00) {
+$syuutyuuflag = 0;
+} elsif ($on == 01) {
+$syuutyuuflag = 1;
+}
+} elsif ($type == 38) {
+if ($on == 00) {
+$kakuseiflag = 0;
+} elsif ($on == 01) {
+$kakuseiflag = 1;
+}
+} elsif ($type == 39) {
+if ($on == 00) {
+$kyoukiflag = 0;
+} elsif ($on == 01) {
+$kyoukiflag = 1;
+}
+}
+}
-$msg_size = 8
+$msg_size = 9;

print "You are now in the game\n";
sendMapLoaded(\$remote_socket);
+$syuutyuuflag = 0;
+$kakuseiflag = 0;
+$kyoukiflag = 0;
-----
&& percent_sp(\%{$chars[$config{'char'}]}) <= $config{"useSelf_item_$i"."_sp_upper"} && percent_sp(\%{$chars[$config{'char'}]}) >= $config{"useSelf_item_$i"."_sp_lower"}
+&& (!$config{"useSelf_item_$i"."_syuutyuuflag"} || $config{'attackAuto'} >= 2 && $syuutyuuflag == 0)
+&& (!$config{"useSelf_item_$i"."_kakuseiflag"} || $config{'attackAuto'} >= 2 && $kakuseiflag == 0)
+&& (!$config{"useSelf_item_$i"."_kyoukiflag"} || $config{'attackAuto'} >= 2 && $kyoukiflag == 0)
-----
config.txt
集中ポーション切れたら使いたい場合
useSelf_item_#_syuutyuuflag 1
覚醒ポ（ｒｙ
useSelf_item_#_kakuseiflag 1
狂気ポ（ｒｙ
useSelf_item_#_kyoukiflag 1

スマートじゃない？まぁ…効率は良いよ('A`)

パクリ野朗が意気揚々としてますね（藁

自分で組めないならBOTすんなよ

↓ログ見てたんだけど戦闘が終わってから回復してるように見える。
これは仕様なんでしょうか？それとも漏れの設定が悪いのでしょうか？
だれか情報ｷﾎﾞﾝﾇ！(´Д⊂

Monster attacks You: サンドマン (0) - Dmg: Miss!
Monster attacks You: サンドマン (0) - Dmg: Miss!
----------------------------------------
You attack Monster: サンドマン (0) - Dmg: 174(Total: 3318)
Monster attacks You: サンドマン (0) - Dmg: Miss!
You attack Monster: サンドマン (0) - Dmg: 248(Total: 3566)
Target died
You used Item: ミルク (3) x 1
You used Item: ミルク (3) x 1
You used Item: ミルク (3) x 1

AUTO-ITEM-USEのところは前スレの492の覚醒ポーション組み込んだコードで
cofigは以下のとおりです。

useSelf_item_1 ミルク
useSelf_item_1_hp_lower 0
useSelf_item_1_hp_upper 80
useSelf_item_1_minAggressives 0
useSelf_item_1_maxAggressives 0
useSelf_item_1_sp_lower 0
useSelf_item_1_sp_upper 100
useSelf_item_1_stopWhenHit 0
useSelf_item_1_timeout 0

>>868
あぅそれ教えちゃうとメグミルク売れないんで･･･
ごめんなさいねぇ

>>870
そんなこといわず教えてくれＹＯ!ヽ(`Д´)ﾉｳﾜｧﾝ
つかこんな朝で即レスびっくりΣ(ﾟДﾟ)

>>856
回復アイテム切れる→useteleport(2)→倉庫→歩き（途中で605のランテレＭＡＰ有り）
→狩場

ってやってるんだけど倉庫に行こうとして蝶使用の時にいきなりエラー落ちしたり
ランテレ連打時にいきなりエラー落ちすることがある（問題なく動く時もある）
どっか他の場所に原因があるのかな？

>>871
たまたま最後の一撃で設定HP割ったのとちゃうのかと

>>871
うーんsコマンドを使ってログをみてたけど
ＨＰが７５％−７１％とか減っていって、８０％以下でも回復しなかったりします。
なにが原因なんだ(´Д⊂

Y(縦)*幅+X（横)+4バイト

この式の幅って何の幅のことでしょうか？

テメーでかんがえろ
初心者言って来い

>>874
頼むから過去ログ位は読んでくれYO
>>574>>580

BOTのきどーほーほーおしえてー

鼻輪は初心者に言ってこいYO!!

>>878
ダブルクリック

今回は追加コードの間が短いなぁ
764の1です
重要アイテムを取得したときに

現在の撃墜数-最後に取得したときの撃墜数

の数をだすようにするもの
本家ソースへの追加という形で貼っときます

addParseFiles("tables/skillssp.txt", \%skillsSP_lut, \&parseSkillsSPLUT);
+addParseFiles("control/defeat.txt", \%defeatMonster, \&parseDefeatControl);
*******************************************
} elsif ($switch eq "who") {
sendWho(\$remote_socket);
+} elsif ($switch eq "defeat") {
+$~ = "DEFEAT";
+format DEFEAT =
+@<<<<<<<<<<<<<<<<<<<<<<<< @>>>> 匹
+$defeatMonsterName $defeatMonsterNum
+.
+print "------ Defeated Monster List ------\n";
+foreach (sort keys %defeatMonster) {
+$defeatMonsterName = $_;
+$defeatMonsterNum = $defeatMonster{$_}{'default'};
+write;
+}
+print "-----------------------------------\n";

>>881
これいいね。追加してみるよ。

*******************************************
print "Target died\n";
+$LastDefeatMonster=$AttackedMonster;
+$defeatMonster{$LastDefeatMonster}{'default'}++ if($LastDefeatMonster);
*******************************************
print "Item added to inventory: $display ($invIndex) x $amount - $itemTypes_lut{$chars[$config{'char'}]{'inventory'}[$invIndex]{'type'}}\n";
+foreach (@ImportantItems) {
+if($display =~ /(.*)\Q$_\E/){
+print "*** 重要アイテム($display)GET！ ***\n";
+chatLog("i", "*** $display をGETしました ***\n");
+$i=$defeatMonster{$LastDefeatMonster}{'default'}-$defeatMonster{$LastDefeatMonster}{$display};
+chatLog("i", "*** ".$LastDefeatMonster." ".$i." 匹目で入手 ***\n");
+$defeatMonster{$LastDefeatMonster}{$display}=$defeatMonster{$LastDefeatMonster}{'default'};
+last;
+}
+}
*******************************************
sub quit {
$quit = 1;
+recordDefeatMonster();
print "Exiting...\n";
}
*******************************************
+sub recordDefeatMonster {
+my ($i,@temp);
+unless(-e ">control/defeat.txt"){
+open(FILE,">control/defeat.txt");

+close(FILE);
+}
+open(FILE,"+>control/defeat.txt");
+@temp=sort keys(%defeatMonster);
+for($i=0;$i<@temp;$i++){
+next if(!$temp[$i]);
+foreach(sort keys %{$defeatMonster{$temp[$i]}}){
+next if(!$_);
+print FILE $temp[$i] . " " . $_ . " " . $defeatMonster{$temp[$i]}{$_} . "\n";
+}
+}
+close(FILE);
+}
*******************************************
+sub parseDefeatControl {
+my $file = shift;
+my $r_hash = shift;
+my $i, $string;
+undef %{$r_hash};
+open FILE, $file;
+foreach (<FILE>) {
+next if (/^#/);
+s/[\r\n]//g;
+s/\s+/ /g;
+s/\s+$//g;
+@args = split /\s/, $_;
+$$r_hash{$args[0]}{$args[1]} =$args[2];
+}
+close FILE;
+}
*******************************************

つかっていたdefeat.txtを使いたい場合は
モブの名前と撃墜数の間にdefaultを挟んでください
defeat.txtにはこんなかんじで出力されます

アルゴス default 1963
アルゴス アルゴスカード 771

>>872
こっちは問題なく動いてるんでなんともいえんです
そういえば、エラーメッセージの内容はどうなってる？

>>前スレ605さん
露店コードのほうなんですが
if ($config{"autoShop"}){ 以下はどこへ貼り付けるのでしょうか？
#DEBUG CODEの前につけたのですが何故かエラーが出てしまいます。

>>885
872じゃないが、うちはアプリケーションエラーが出る。
経路探索中にquitとかした時と似た症状。

アイテムの取得なのですが何故か初めのうちは取るのですが
なんかの原因で途中から取らなくなってしまいます。
取らなくなるときの自分の所持アイテムと一度再起動した時の
所持アイテムが(アイテムの量とかです)違う(後者の方が多い)ようです。
カート量が越えてるとかではないみたいです。
ちなみにBSでカート付です。

すみませんがご意見宜しくお願いしますm(__)m

>>881

読み込みファイルはcontrol/defeat.txtより今のまま単にdefeat.txtの方が良くない？
人それぞれかもしれんが、controlファイルではないだろ。

>>881
とはいえ、貴重なコードｻﾝｸｽ。

>>888
特定条件下で必ず起こるなら罠入り。他のを使え。
数日に一度程度なら単なるエラーだから気にするコトはない

>>892
わかりました。ありがとうございます。
すいません、スレ汚してしまってm(__)m
でわ(^^)ﾉｼ

つーかなんでＲＯのＧＭってみえるのかな
リネみたいに透明にすればいいのに

>>877
ありがとーなんとか解決できた(´Д⊂
あんなこと疑問におもったのは漏れだけかと思ってたから
ほとんどみてなかった・・
これからはちゃんとログ読みます

>>886
場所はOKです
でてるエラーってコンパイルエラー？
>>887
とすると、こうすればいいかなぁ
テストキボンヌ
if( ($ai_seq[0] eq "" || $ai_seq[0] eq "route" || $ai_seq[0] eq "move")
&& $config{'pointLock'} && $field{'name'} ne $config{'lockMap'} && $pointLock{$field{'name'}}{'OK'} ){
>>889
う〜ん、たしかにcontrolではないかも
いろんな狩場での情報や、いろんな重要アイテムを記録したときのことを
考えると、むしろtableかなぁ
こっちは、defeat.txtをつかって別に専用のログをだしてるんで、defeat.txtは
ログとしては扱ってないです

>>894
(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ
(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ
(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ
(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ
(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ(・∀・)ﾆﾔﾆﾔ

>>894
（´,_ゝ｀）ﾌﾟｯ

>>894
（￣ー￣）ﾆﾔﾘ

　　　　　　　　　　∧＿∧ 　　　　弟「流石だよな894だな兄者。」
　　 ∧＿∧ 　　（´<_｀ 　）　 　　兄「そうだな。」
　　（　´_ゝ`）　　 /　　⌒i 　　　　弟「894みたいのがたくさんいると助かるよな。」
　 ／　　/￣￣￣￣/|　| 　　　　兄「そうだな。」
　/　　　/　 FMV　/　|　| 　　　　弟「兄者さっきからそうだなしか言ってないな。」
（__ﾆつ/＿＿＿＿/ 　|　|＿＿　兄「そうだな。」
　＼＿＿＿））＼　￣（uuuu)
　　　　　　 ⌒￣ 　　　

(エラー内容からすると無関係っぽいですが)やっぱり場所は合ってますか。
ちなみに出るエラーはこちらです
Undefined subroutine &main::findIndexString2 called at source\kore2.pl line 10280.

該当する行はこれです
$index=findIndexString2(\@{$cart{'inventory'}},"name",$roten{"sellItemName_$i"},$roten{"+sellItemNameIndex_$i"});
last if(!$index);

前スレの492の覚醒ポーションのコード組み込んだんだが

useSelf_item_0 覚醒のポーション
useSelf_skill_0_timeout 1800

にすると使うとき3連続で使って2HQを使わなくなったり
全く覚醒POT使わなくなったりするんだがどうすればいい？

よく見たらこのkoreにfindIndexString2のSubroutineはいってませんでした；；

今買って来たたこ焼きを開けたんですが傾いてたみたいで
かたっぽに寄ってしまってて天下大将軍みたいになってしまったのですが
どうすればいいですか？

皿に乗っけてレンジでチン汁。!!

>904
即レスthx！
無事解決いたしました。
本当にありがとう。

>> 前スレ605＠露店コード

R 0132 <ID>.l
露店看板消去

if ($ID == $accountID)
あたりでどうだろうか 露店IDに何が入ってるか確認してないけど
出店キャラIDであればこのパケで
違ったら‥‥出てる時に位置から自分の露店特定かな
暇な時にパケ覗いてみます

おぃ、おまいらもしかして漏れが考えてるＧＭとかなりちがうのか？
捜索してるＳＳとか張ってあったらてっきりそうかとおもってたのに
もしやＲＯも透明なのか！？((；ﾟДﾟ)ｶﾞｸｶﾞｸﾌﾞﾙﾌﾞﾙ
まだ、ＲＯはじめて1週間で2日自力プレイで3日目にはＲＭＴして
５日目にはなぐりゲーだなときずきＢＯＴをはじめたから
よく仕組みがわからないだＹＯ！誰か情報ｷﾎﾞﾝﾇ！

ところで話はかわるが
#タゲ被り防止距離
NotAttackDistance 6
これってちゃんと機能してる？
さっき漏れの人形が漏れを攻撃してる敵のタゲをもっていってしまったんだが
これって６セル範囲に人がいたらモンスを攻撃しない機能だと思ってたんだけど
もしかしてまったく違う機能なんだろうか・・・
誰か情（ｒｙ

>>909
ＰＴ組んでたり、ＰＴメンバーが殴っていると殴る設定に、
まさかしてないだろうな。でふぉはそうなってるが・・・。
中級スレなんで、まさかそんなあふぉではないと思うが。

　　　　　　　　　　∧＿∧ 　　　　弟「今頃からROやる奴っているんだな兄者。」
　　 ∧＿∧ 　　（´<_｀ 　）　 　　兄「そうだな。」
　　（　´_ゝ`）　　 /　　⌒i 　　　　弟「こんな奴らが中級者にいるってもの面白いな兄者。」
　 ／　　/￣￣￣￣/|　| 　　　　兄「そうだな。」
　/　　　/　 FMV　/　|　| 　　　　弟「このネタ飽きたな兄者。」
（__ﾆつ/＿＿＿＿/ 　|　|＿＿　兄「そうだな。」
　＼＿＿＿））＼　￣（uuuu) 　　弟「新しいネタ欲しいな兄者。」
　　　　　　　　　　　　　　　　　　　兄「そうだな。」

>>907
う〜ん、漏れもそれでいけるかなと思ってたんだけど
いざパケ調べてみたら
どうも、自分の露店閉じたときにはそのパケがとんでこないみたい
もう一回調べてみようかなぁ
>>903
うわぁ、申し訳ない
これ抜けてました

sub findIndexString2 {
my $r_array = shift;
my $match = shift;
my $ID = shift;
my $iNum=shift;
my ($i,$j);
for ($i = 0; $i < @{$r_array} ;$i++) {
if ((%{$$r_array[$i]} && $$r_array[$i]{$match} eq $ID)
|| (!%{$$r_array[$i]} && $ID eq "")) {
$j++;
return $i if($j>$iNum);
}
}
if ($ID eq "") {
return $i;
}
}

>>908
スレ違いだ、屑のサラブレッド

アイテムログ(カート移動も含む)のコード作ったら

[Jun 7 19:22:10 2003][I] ランタン
[Jun 7 19:22:11 2003][CART移動] タロウ

なんでランタン拾ったのにタロウいれてんの(w
すれ違いｺﾞﾒｿ

>>907
実際閉じた時にパケットって戻ってこんやろ
向こうの都合でこっちはずっと待ってないとあかんやろ
そんな情報無駄やしいらんわってのが普通やないんか？

>>914
知らねぇYO!!
お前の設定が間違ってるんだろう

　垢BAN、垢BANっと

　∧＿∧　まだ１週　　∧,,∧　　　894ﾀﾝ･･
（・∀・　）　間目・･･　　(；д；;:)＿＿＿＿＿
（　GM　つ∧,,∧　　　⊂⊂;:,.,:;;:)＠　　　　／＼
　Ｙ　　人(;;；д；) 　　／|￣;: : :: ￣;:;;::::;.,￣;.|＼／
　(＿_ﾉ_＠（;:っ:;っ　　..|;';捨て垢BOT#;:;:　;|／'
　　　　　　　　　　　　　￣￣￣￣￣￣￣
　　　　　894がGMにさらわれたでち・・・・
　　　　　初心者は人柱でち・・・
　　　　　哀れでち・・・

質問です。
今ビタタＣってでるんですか？
3日でてません。

スレ違い

うお、ログインしたらアリーナにいる。
警告もなにもﾅｼでアリーナ送りでした。

>>920
警告が無かった時はアリーナでGMに問いかけられる前に
スタック報告から文句垂れれば無罪放免。

嘘こけ、蝶ﾊﾟｹで脱出が主流だろ。GMいなけりゃ忘れてるさ。
つーか2体同じ場所に放流してﾏｼﾞで1週間ｶｰﾄﾞ無しです、重要ｱｲﾃﾑﾘｽﾄ更新されてません・・・
ｴﾙ・ｵﾘは拾ってるけどさ。

GMでコケたらおしまい

やっぱニーソックスは最高だよな。

　　　　　　　 ／￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　 |　アリーナから緊急浮上ぅぅぅ！！！
　　　　＼　　＼
　　　　　　　　　￣￣￣|／￣￣￣￣￣￣￣
　　　　　　＼　∧ ∧
　　　　　　　　(ﾟДﾟ∩
　　　　　　 ⊂/　　,ﾉ
￣　￣　　　「 _　　|〜　ﾄ　￣ ￣　￣
　　　　　　　∪ ヽ l　　 ｵ
　　　　　　　/　　∪　　＼
　　／　　　　　　　:　　 　ｵ
　　　　　/　　　　||　.　　 ｫ　　＼
　　　　　/　　　　 |　:　　　ｫ　　＼
　　　　/　　　　　　　.
　　　　　　　　　　　|　.　 　ｫ
　　　　　　　　　　 | | : .
　　　　　　　　　　　|:　 .
　　　　　　　　　　　||　.
　　　　　　　　　　　　.
　　　　　　　　　　　 |
　　　　　　　　　　　| | : .
　　　　　　　　　　　.　: .
　　　　　　　　　　　 |　.:




といって、上げる。

171氏の露天機能koreが
ログインしてすぐエラーでかたまる。。。

line4113 てでてかたまっちゃうです

605氏の CheckRecoveryItem を追加したのだけども
うちの朝娘、機能しないです。
すっごい便利そうなのに使えれない飼い主は、日曜日にkoreの
検証でもしてみようかな　っと

わからないところがわからない　というのは高校以来だYO

コモドでmoc_fild18の地形が変わってて
間違ってコモドフィールドに突っ込むとMaplockがエラー起こして帰ってこれません
誰かmoc_fild18.fldの更新お願いします

うるせーバカ

>>922
別に蝶パケで脱出してもいいけどさ、警告が無くて連行される場合は
同IDの全キャラが連行される、っていうかされた。

キャラスロに1匹しか登録してなかったり全員が蝶パケ使えるなら
別に蝶使って出てもいいんじゃね？
逃走したから黒確定ってとられても知らんけどな。

パケを片っ端から解析したけど、装備に影響するような変更は無かった。
追加したコード廻りも特にエラーが見つからなかった。

結局コモド後、テーブルを手動でいじったときに、
itemslots.txtにゴミが混入したためだった・・・
こーゆーの初級も中級も無いだろ・・・

なんなら、俺のかいた草の座標だけを拾って、ﾙｰﾄﾎﾟｲﾝﾄを書き出す
ルーチンを貼ろうか？
やくたたずですか、そうですか、レア狙ったほうもいいもんね＿|￣|○

罠無しのコモド実装後動くＢＯＴ売ってもらえませんか？
コード追加しても、動くものと動かないものがあって（自分がｱﾚなため、入れる場所間違ったっぽい）
機能に全く不満で、昨今のＢＯＴについていけません。。

自動預け・自動売買・武器持ち替え・魔法詠唱反応
ＧＭ対策（蝶ｵﾁ・ＷＩＳ拒否等）
とかあったらすごい助かります

アフター　　はいらないや。。
5ＫＷＭか5Ｍでお願い。。

[email protected]でつ

>>922
逃走したら御終い。すなおにスタックから送る
ただし２度目は救済してくれないのであきらめよう

>>933
メールしました。

133最終改＋fild編集+timeout激速拾い設定。

以上でよろしいですか？

>>927
じゃあline4113を見直せ。

>>933
そんな簡単な機能のKoreに5krmとか払うんなら、
自分で知識つけたほうがずっといいぞ。
知識ゼロから始めても1日あればそれくらいのKoreはできるし
perlも少しかじれるようになるから。

マジレスするとこんな感じ。どうでもいいんだけどね。

>>936
もう一度メールお願いできますか？
30日間ログインしてなかったから、アカウント無効になってました・・・
上記の機能があれば、得に不満は。。

コモド後のfildの修正・新MAPのfild追加、tableのコモド後に更新したもの（skills,items等）を売ってください。

とりあえずメールください。
よろしくお願いします。

ども、隠居してた前スレ474,589です。
最近は605氏のコードをまったり追加してたんですが、
ちょっとまたコード思いついたんで。

if ($config{'itemsTakeAuto'} && $monsters_old{$ai_v{'ai_attack_ID_old'}}{'dmgFromYou'} > 0) {
+undef $c_plDistance_small;
+$judgeFirst = 1;
+for ($i = 0; $i < @playersID; $i++) {
+next if ($playersID[$i] eq "");
+$c_plDistance = distance(\%{$chars[$config{'char'}]{'pos_to'}},\%{$players{$playersID[$i]}{'pos_to'}});
+if (($c_plDistance < $c_plDistance_small) || $judgeFirst == 1) {
+$c_plDistance_small = $c_plDistance;
+$judgeFirst = 0;
+}
+}

+if($c_plDistance_small <= 17 && $c_plDistance_small){
+if ($timeout{'ai_items_take_start'}{'timeout'} == 0 || $timeout{'ai_items_take_end'}{'timeout'} == 0.5) {
+print "設定を元に戻します。\n";
+setTimeout("ai_items_take_start", デフォ値);
+setTimeout("ai_items_take_end", デフォ値);
+}
+} else {
+if ($timeout{'ai_items_take_start'}{'timeout'} != 0 || $timeout{'ai_items_take_end'}{'timeout'} != 0.5) {
+print "珍速拾い設定にします。\n";
+setTimeout("ai_items_take_start", 0);
+setTimeout("ai_items_take_end", 0.5);
+}
+}

605氏の>>46を参考にしつつ、作ったコード。
内容は、近くにいるプレイヤーが17マス以内にいないorいない場合に
珍速拾い設定にするもの。（いた場合は元の設定に）
値を自由に変えたり（距離とかtimeoutとか）、
無駄な構文はずして単に回りにいるかいないかだけで判定したり、
使い方は任せます。
改良、動作確認等あればヨロシク。

前スレ605氏の露店コードで+8トリプルブラッディバスタードソードを売る場合はどうすればいい？
sellItemName_0 バスタードソード
sellItemName_0 トリプルブラッディバスタードソード
sellItemName_0 トリプルブラッディ バスタードソード
sellItemName_0 +8 トリプルブラッディ バスタードソード
sellItemName_0 +8トリプルブラッディバスタードソード
sellItemName_0 ゛+8 トリプルブラッディ バスタードソード゛
一応上記6種類で試したんだけどどうも露店に追加されない・・・

>>942
"i"でどう表示されてるか見たら？
多分
+8 トリプルブラッディバスタードソード
だと思うけど。

゛i゛だと
+8 トリプルブラッディ バスタードソード
だったんですよ
直接コピペしてもダメだったんで、悩んでいたのですが･･･
とりあえず二個目の半角スペース削って見ます。
ありがとうございます。

あとついでにバグ報告というか修正というか
vlで商品確認をすると1M以上の商品で桁が一つ少なく表示される。
最初はフォーマット変更で対応しましたが、原因はこっちでしょうか
$index $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}}
$shopItem{$index}{'amount'} $shopItem{$index}{'price'}
>>857のコピペでここの部分、改行(というか+を削除するだけ)忘れてしまったんだと思います。
ちなみに面倒なのでフォーマット変更で対応しっぱなし・・・

あとvl周りだと
連続した半角スペースは圧縮されるので@に置換したもの
#@@名前@@@@@@@@@@@@@@@@@@@@@@@@@@@種類@@@@@@@@@@@@@数@@@@@@値段\n";
コピペするときは再度置換で、こんな感じだと思います。
余り影響はありませんが合計金額 合計数も適当に直してます。

他にバグというか問題点を挙げると
・最初に質問したカード刺し武器が売れない
・上位に売り切れ済みアイテムがあると露店を開きなおしたとき下位のアイテムが露店に置かれない

改善点としては
・lockMap自体の問題でもありますがlockMapOnにして当該座標に人が居るとルート計算を繰り返す。
・カートになくなった場合のStorageGET&CartAdd発動
・売り切れた商品があった場合次の商品を新たに加える

とりあえず例のカード刺し武器が売れない謎を解明したらﾎﾞﾁﾎﾞﾁコード組んでみます。

>>946
改善・・・ｓKoreを使う。

>>944
cartではどう表示されてる？

>>947
skoreの方の露店組み込んだのは一応別に用意してあります。
でもあっちは構造がわかりにくいので改造しづらい・・・

>>941

ゴメ、
$c_plDistance_small <= 20
位にしたほうが良かった。すっかり三平方の定理を忘れてたよ。
大体、画面が16×12マスぽかったから、dist二乗 = 16二乗 + 12二乗
位に設定しないといけなかった…。
大事をとって22くらいにしてもいいかも。

itemのエラー潰し終わりました。属性カタール、特殊武器、テイミングアイテム、新3種POT全部コメントアウト（TT

で、起動しましたらNpcエラー…エラー内容は
// Error: Value: [event_zelopy] is not in a token map - GetWord
// Error: ﾇﾔｼ? ﾆﾄｶﾌﾅﾍ ｿ｡ｷｯ n [n]
// Error: Value: Func ｿ｡ｷｯ
// Error: if error
// Error: file ./npcdata/alberta/npc.sc line 272: if v[event_zelopy] == 0
とのことなんですが、NPCいじるのはじめてなんてどういじればいいのかわかりません
助言もらえないでしょうか？

ぉ、かなりの誤爆

.　 ｌヽﾐ ゝ`‐､_　　　＿_,. ‐´　 ／　 ,.ｲ　　 ＼　ヽ　　　 　 　 　 　 |
　　`‐､ヽ.ゝ、_　　　　＿,,.. ‐'´　 ／/l , ‐'´, ‐'`‐､＼　　　　　　　 |
　　ヽ､.三 ﾐﾆ､＿ ＿＿＿ _,. ‐'´／/-─==＝＝=-､ヾ 　 　 　 ／ヽ
　　　　　　　 ,.‐'´　`''‐- ､._ヽ 　 /.i　∠,. -─;==:- ､ゝ‐;----//　ヾ.､
　　　　　　　[　|､!　 /'￣r'bゝ}二. {`´ '´＿_ （_Y_）,. |.r-'‐┬‐l l⌒　| }
　　　　　　　 ﾞl |｀}　..:ヽ--ﾞ‐´ﾘ￣ヽd､　''''　 ￣￣　 |l　　　!ﾆ! !⌒ //
.　　　　　　 　 i.! l .:::::　　 　 ｿ;;:..　 ヽ､._　　　　　_,ノ'　　　　　ゞ）ノ./
　　　　　　　　 ｀ ｰ＝=--‐'´(__,. 　 ..、　￣￣￣　　　　　　i／‐'／
　　　　　　　　　 i　　　　 　 .:::ﾄ､ ￣ ´　　　　　　　　　　　 l､_／::|
　　　　　　　　　　!　　　　　　　　　　 　 　 　 　 　 　 　 　 |:　 　 |
　　　　 　 　 　 　 ヽ　　　　　ｰ‐==:ﾆﾆﾆ⊃　　　　　 　 　 !::　　　ト､
　　　　　　　　　　　 ヽ　　　　　､＿＿,,.. 　 　 　 　 　 　 /:;;:　　　.!; ＼
俺たちはとんでもない思い違いをしていたようだぞ。
「ロボット。」これをアルファベットに直すのは間違っていないだろう。
「robot」これに「一行スペース」を加えてみたらどうだろう。
「ro bot」
まてよ・・・？これは・・・
よし、ではこれを意味の通るような＝をつけてみよう。

「ro＝bot」

なんてことだ。
ROとはゲームではなくBOTをしてRMTを稼ぐためのただの作業だったんだよ！

>>953
独り言の多いキバヤシ君だね・・・。

ｷﾊﾞﾔｼ君RMTのTは要らないぞ

>>951
回毒してみますた
ｴﾗｰ ： いべんとじぇろぴーってこのマップ探してもあらへん
ｴﾗｰ ： ﾇｶｼﾔｶﾞﾚﾌｧｷﾝ!!
ｴﾗｰ ： ファンクションが違うんでね?
ｴﾗｰ ： 畏怖エラーってなんやねん
ｴﾛｰ ： アルベルタのNPCにイベントジェロピはないっす272を参照してくださいｗWw

>>938
メール再送しました。

ただ、お譲りするのは、>>937も言っているとおり、罠なし133最終を手に入れてから
過去ログに出ているコードを自分で組み込めば只で手に入るものです。
そこのところは予めご了承ください。

>>942,945
修正後の名前は使ってないです
つまり、カード指しも属性でも全部バスタードソードなわけです。
露店にでないのは別なところが原因じゃないかなぁ
桁がひとつ少なく表示される、カード差し武器がでないというのは
こちらでは正常にいきます
カード差し武器を並べてopenshop関数をちゃんととおってるかどうかみればいいんじゃないかと

上位に売り切れ済みのがあったときのはこっちでいけると思います

$index=findIndexString2(\@{$cart{'inventory'}},"name",$roten{"sellItemName_$i"},$roten{"sellItemNameIndex_$i"});
-last if(!$index);
+next if(!$index);

たぶん、これで売り切れた商品があった場合次の商品をだすのも解決するかと
それにしても、やっぱりコピペミスなのかなぁ？

追加コードでたんで764の2を貼っときます
内容は現在使ってるスキルの残り時間を表示するものです

addParseFiles("tables/skillssp.txt", \%skillsSP_lut, \&parseSkillsSPLUT);
+addParseFiles("tables/skillstime.txt", \%skillsTime_lut, \&parseSkillsSPLUT);
*******************************************
} elsif ($switch eq "s") {
〜〜〜〜〜〜〜〜〜〜
+foreach(sort keys %skillsTimeout){
+next if(!$_);
+if(time-$skillsTimeout{$_}{'time'}<$skillsTime_lut{$_}{$skillsTimeout{$_}{'lv'}} ){
+$iTemp=$skillsTime_lut{$_}{$skillsTimeout{$_}{'lv'}}-int(time-$skillsTimeout{$_}{'time'});
+print "$_($iTemp)\n";
+}
+}
+print"----------------------------\n";
} elsif ($switch eq "sell") {
*******************************************
+if($sourceID eq $accountID){
+if($skillsTime_lut{$skillsID_lut{$skillID}}{$amount}){
+$skillsTimeout{$skillsID_lut{$skillID}}{'time'}=time;
+$skillsTimeout{$skillsID_lut{$skillID}}{'lv'}=$amount;
+}
+}
$msg_size = 15;
} elsif ($switch eq "011C") {

*******************************************
skillstime.txtの書式はこんなかんじで
スキル名#
LV別発動時間#
@#

例

ツーハンド クイックン#
30#
60#
90#
120#
150#
180#
210#
240#
270#
300#
@

>>958
桁表示のコピペミスというのは>>857のFORMAT部分で
+@< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< @>>>>> @>>>>>>>z
+$_ $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}} +$shopItem{$index}{'amount'} $shopItem{$index}{'price'}
となっているものを直接コピペすると起こるものです。
↓
+@< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< @>>>>> @>>>>>>>z
+$_ $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}}
+$shopItem{$index}{'amount'} $shopItem{$index}{'price'}

カード刺し武器についてはちょうど今調べております。
売り切れ＆値下げのほうはlast→nextに変更することで上手く動いているようです。

原因がわかったらこちらに原因を書こうと思っております。
いつもお疲れ様です、大事に利用させていただきます。

え〜と、書き忘れ
skillstime.txtのスキル名はコンフィグで指定するときと同じように書いてください

う〜ん、次スレになったら前スレ605じゃなくなるのか・・・・

>>961
う〜ん、コピペしたとおりでした
もうちょっとわかりやすくすると、こうなってます

@< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< @>>>>> @>>>>>>>z”改行”
$_ $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}} $shopItem{$index}{'amount'} $shopItem{$index}{'price'}"改行"
."改行"

前スレ605さんはずっとそのままの名前でええと思うよ
つまらん書き込みすまそ

>>963
ああえと、要するに一行で表示する場合
$shopItem{$index}{'amount'}の前に+がついててミスったよ
ということです。舌足らずですいません。

myBOTの稼いだRMでRAG-FES夕食会に申し込みしてきますた
頼むからいいもん食わせろよ(#ﾟдﾟ)

>>966
おお！こんな質問してくれ「ＢＯＴ対策について聞きたいのですが（ ´,_ゝ`）」

>>966
孫にいいヅラがありますって言ってきてくださいな

>>965
あ〜、136パケを受け取ったときの表示のことかぁ
vlのとこと勘違いしてたんで漏れはアホな応答してたのか････
うん、確かにミスってます
+はずせばOKです
ｱﾀﾏﾜﾙｲﾓﾚ・・・・・

>>969
いえいえ、稚拙な文章で理解していただくのに苦労されたと思います。

vl関係もう一つ
shopを開きなおすとindexが累積されて表示されてしまいます。
なんかこのコード関係、私しか質問していないようで申し訳ないくらいです。

lockmapについたらteleportAuto_portalを1に。
lockmapではないmapに移動したら（町に戻ったときも含む）teleportAuto_portalを0にするコード
あったら便利だと思いませんか？(´・ω・`)

lockmapに戻れるなら0のままでいい

>>971
configmodifyを自力でこちょこちょ付け足しただけでできたよ(´･ω･`)

>>前スレ605さん
露店コード有難う御ざいます。私もなんとか組みこめました^^；
そこで色々動作確認をしてみて気付いたのですが、
同種の装備品等を複数売る事は可能でしょうか？（例えばﾌﾞﾛｰﾁｘ２とか）
roten.txtにて、
sellItemNameIndex_2 0
sellItemNum_2 1
この値を色々変えてみて挑戦しましたが、どうも無理な様です。
もし、可能であれば御教授頂きたいです＾＾；

原石5個持って行く
↓
結晶つくりのおっさんに話しかける
↓
落とすなりカートなりでアイテム欄から原石を除外又は結晶作るタイミングで部屋を出る
↓
そのまま会話を進める
↓
結晶できる
↓
精錬しまくる
↓
精錬完了
↓
あまった結晶を売りさばく
↓
そしてここでバグ公開
↓
利益を得るのは俺達だけ
↓
ウマー

ウマー
↓
GMが見てる
↓
修正
↓
(+д+)ﾏｽﾞｰ

いや、もう知っている人は利益でてるわけだし

>>974
こんなかんじ

sellItemName_1 魂のリング
sellItemNameIndex_1 1
sellItemNum_1 1
sellItemPrice_1 20000
sellItemPriceDown_1 500
sellItemPriceMin_1 18000
sellItemName_2 魂のリング
sellItemNameIndex_2 2
sellItemNum_2 1
sellItemPrice_2 20000
sellItemPriceDown_2 500
sellItemPriceMin_2 18000

あっ、やっぱ978のはこっちで
sellItemNameIndex_1 1→sellItemNameIndex_1 0
sellItemNameIndex_2 2→sellItemNameIndex_2 1

ようはindexは0がスタートということで

壁歩き防止コード組んでみました
動作を検証してもらいたいんで、追加コードでてないですがさっさと貼っときます
二垢持ってる方、不自然な動きをしてないか動作確認してもらえるとありがたいです

+modifiedWalk() if($config{'modifiedWalk'});
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 ($x,$y);
+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));
+for ($i = -1; $i < 2; $i++) {
+for ($j = -1; $j < 2; $j++) {
+next if ($i == 0 && $j == 0);
+if( $field{'field'}[($oldY + $i)*$field{'width'}+$oldX + $j]==1 ){
+$x=$j*-1*$config{'modifiedWalk'}+$oldX;
+$y=$i*-1*$config{'modifiedWalk'}+$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;
+}
+}
+}
+}
+}
*******************************************
コンフィグにはこれを追加。1以上で実行。また、この値だけ壁から離れる。
+modifiedWalk 2

>>980
今やってみたんだけど漏れのkoreではｴﾗー出て起動すらしなかったでつ。。

>>981
漏れのコピペミスかなぁ
エラー内容は？

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'});

の行で、　near "}["

間違ってたらごめんなさい

>>983に同じくでつ。

珍速拾いってﾊﾟｹ延滞とかで取り逃すこととか無いの？
それが怖いので4秒にしてあるんだけど

あ、さっき指摘されたばっかりなのにまた露店のときと同じように＋を･････
こっちになります、申し訳ない

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'});

>>前スレ605氏
いつもお世話になっております。
露店BOTの事でお伺いしたいのですが、sub openShop の中にある
$price=$roten{"sellItemPriceMin_$i"} if($roten{"sellItemPriceMin_$i"} && +$roten{"sellItemPriceMin_$i"}>$price);
これの+$roten{"sellItemPriceMin_$i"}>$priceについている＋は必要なのでしょうか？
値下機能の動作を確認してみた所、正常に動いている様に思えたのですが、
私、perlの構文が良く解らなくて；
くだらない質問で申し訳御座いませんが、もし宜しければお教え下さい。

>>987
ｱﾅﾀ足し算知らないｱﾙｶ?

>>987
いらないです・・・・・
申し訳ない・・・・・・
たぶん、他にもよけいな＋がついてるところあるんでないかと
ｺﾋﾟﾍﾟﾉﾍﾞﾝｷｮｳｶﾞﾋﾂﾖｳﾀﾞﾅｧ

>>980
訂正コード組み込んだら一発で起動しました。
2垢で見てみた結果はかなりｲｲ!!

modifiedWalk 5

くらいでもいいかもしれないですね。
見た目にはマップの中央はｶﾞｼｶﾞｼ歩いててかなりﾅﾁｭﾗﾙな動きです。
取りあえず今晩一晩動かして様子見てますね。

>>988
ん〜。。。
直前が論理積&&なのでこれは算術演算子の「+」では無いと考え、上の質問をしたのです。
仮にこの｢+｣が算術演算子の+であるならば、何に加算させているのか意味がつかめないのですよね。

>>前スレ605さん
お返事有難う御ざいます!!
perlには量指定子などがあるので、この＋の使い道がイマイチ理解できてませんでした；
ちなみにもう一つ同じようなところを発見したので載せておきます。

連書きこ申し訳無い＾＾；
この部分です。
if($config{'JudgeAttackPriority'} && +$config{'JudgeAttackPriority'}>=$monsters{$ID}{'atkNumFromYou'}){

新スレです。
http://game3.2ch.net/test/read.cgi/mmosaloon/1055083340/

>>990
動作確認Thx
二垢でみていけるんなら安心だなぁ
>>992
それもいらないです・・・・・
なんか、コピペミスが多かったんで該当するスレの修正箇所まとめてみました
ハァ〜

857

+$_ $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}} $shopItem{$index}{'amount'} $shopItem{$index}{'price'}
+.
*******************************************
859

+@< @<<<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<<<<<<<< @>>>>> @>>>>>>>z
+$index $shopItem{$index}{'name'} $itemTypes_lut{$shopItem{$index}{'type'}} $shopItem{$index}{'amount'} $shopItem{$index}{'price'}
*******************************************
861

+$index=findIndexString2(\@{$cart{'inventory'}},"name",$roten{"sellItemName_$i"},$roten{"sellItemNameIndex_$i"});
+next if(!$index);
*******************************************
+$price=$roten{"sellItemPriceMin_$i"} if($roten{"sellItemPriceMin_$i"} && $roten{"sellItemPriceMin_$i"}>$price);}
+$msg .= pack("S*", $index) . pack("S*", $amount) . pack("L*", $price);
*******************************************

912

まるまる追加
*******************************************
980

+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));
*******************************************

げｔ

ﾅﾝﾁｬｯﾃ!!!

正直、すまんかった。

いけた？

このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。