229コメント81KB

perl2exe forRO vol.4

■ このスレッドは過去ログ倉庫に格納されています

0001デフォルトの名無しさん

NGNG

Perlで書かれたRagnarok beta 2　Client. emulator　
Koreのカスタマイズのための情報交換スレッドです

前スレ http://pc3.2ch.net/test/read.cgi/tech/1034085217/
【常時sage進行】
・教えてばかりではなく、自分も情報提供しましょう
・koreのセットアップの仕方などは聞かない答えない

0179デフォルトの名無しさん

NGNG

とりあえず、保守～

0180デフォルトの名無しさん

NGNG

保守しとくか・・・既存BOTが全滅するような仕様変更が来ますように（～人～）ﾅﾑﾅﾑ

0181デフォルトの名無しさん

NGNG

やるきのある奴は１３３サイトに移行気味ですかねー。
俺もチェックはしてるけど。

0182デフォルトの名無しさん

NGNG

133のサイトってどこ？

0183レイホウ＠６歳

NGNG

価格変更情報～

ハエの羽 100z -> 60z
蝶の羽 500z -> 300z
古く青い箱 2z -> 10000z
古木の枝 2z -> 50z
アンティペインメント 1000z -> 2000z
アロエべラ 2z -> 1500z
イグドラシルの実 2z -> 5000z
イグドラシルの種 2z -> 5000z
イグドラシルの葉 2000z -> 4000z
貝殻 2z -> 56z
貝のむきみ 2z -> 158z
ゴーグル 10000z -> 20z
ゴーグルS1 10000z -> 20z
スマイル 8000z -> 60z

0184レイホウ＠６歳

NGNG

ttp://misaki_chi.tripod.co.jp/ROData/index.html
こんなもの作ってみた

えいめ～ん

0185山崎渉

NGNG

(_ _)

0186デフォルトの名無しさん

NGNG

　test

0187デフォルトの名無しさん

NGNG

今日でこのスレが立ってちょうど半年か・・・

0188山崎渉

NGNG

（＾＾）

0189山崎渉

NGNG

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

0190デフォルトの名無しさん

NGNG

猿も木から落ちる。

0191がん研究＠UDプロジェクト参加しる！

NGNG

保守

0192TPascal

NGNG

おみやげ
ttp://unagi104.tripod.com/2Server.zip

0193デフォルトの名無しさん

NGNG

>>192
(ﾟдﾟ)ﾉｵﾋｻｼﾌﾞﾘ!

0194デフォルトの名無しさん

NGNG

　　　　/＼＿＿_／ヽ　　ヽ
　　／　　　　::::::::::::::::＼　つ
　 . | 　,,-‐‐　　‐‐-､ .:::|　わ
　　|　､_(o)_,:　 _(o)_,　:::|ぁぁ
. 　 |　　　　::<　　　　 .::|あぁ
　　＼　 /( [三] )ヽ ::／ああ
　　　／｀ー‐--‐‐―´＼ぁあ

0195デフォルトの名無しさん

NGNG

>>192
今でもTPascalさんのパッチ当てたkoreががんばってくれてますヽ(´ー｀)ノ
更新しなくても使えちゃうんだもの…

0196デフォルトの名無しさん

NGNG

ＤＢのおみやげ
ttp://unagi104.tripod.com/2ScriptDB.zip

zoneの方はもうちょっとまって

0197デフォルトの名無しさん

NGNG

ttp://unagi104.tripod.com/2Server.zip 更新

ttp://unagi104.tripod.com/2Inter.zip この書き込みから１０分後アップ

0198山崎渉

NGNG

　　　　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾）＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

0199デフォルトの名無しさん

NGNG

ttp://kanon.comic.to/hono/h72.jpg
・・・

ttp://kanon.comic.to/hono/h92.jpg
うぉぉぉぉぉぉ
対策せねば

ペットと同じモンスターを叩かなければＯＫ

0200デフォルトの名無しさん

NGNG

スレ違い

0201デフォルトの名無しさん

NGNG

>>200
今でもペットについてくるＢＯＴがたま～にいる

0202デフォルトの名無しさん

NGNG

おつかれーしょん>ばんそこう

0203デフォルトの名無しさん

NGNG

また暗号化か…
1週間くらいすれば本家が対応してくれることを祈って寝る

0204デフォルトの名無しさん

NGNG

>>203
本家は当てにならない罠

エミュ鯖板逝ってみれば？

0205デフォルトの名無しさん

NGNG

>>204
スマン、URL教えてください

0206デフォルトの名無しさん

NGNG

ｱｹﾞﾃｼﾏｯﾀ

0207デフォルトの名無しさん

NGNG

おまいらあんなオタくさいゲーム楽しいですか？

0208rascal

NGNG

すみませんkore以外のＢＯＴツール知りませんか？

0209デフォルトの名無しさん

NGNG

0210山崎渉

NGNG

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

0211山崎渉

NGNG

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

0212山崎渉

NGNG

（＾＾）

0213デフォルトの名無しさん

NGNG

開発してた人が撤退したためここも終わり

>ＲagnarokＯnline
>ﾚﾍﾞﾙはｻｸｻｸあがるが厨があまりにも多い。
>さらに他のｹﾞｰﾑより厨の質も悪い

0214山崎渉

NGNG

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

0215デフォルトの名無しさん

NGNG

Perlじゃなくて、VB製のBOTなかったっけ?

0216デフォルトの名無しさん

NGNG

あったよ

0217デフォルトの名無しさん

NGNG

perlだろうがVBだろうが大差無いだろう。
Cにすれば、メモリ消費量は抑えられると思うけど。

0218デフォルトの名無しさん

NGNG

>>217
perl は１つの起動で約14Mバイト使う
最新版は14M＋α

ウィンドウを最小化したら６Ｍになる（タスクマネージャでの表示）

消えた８Ｍは共通のライブラリかなんか

0219デフォルトの名無しさん

NGNG

単純にウィンドウを最小化するならDOSコマンドで十分じゃん。
あと、そんなにメモリの使用量変るものかね？
VRAMが少なくてDOSプロンプトの文字表記にメモリ食ってるとかだったりして。

0220デフォルトの名無しさん

NGNG

>>219
その辺謎

perlの起動時にソースをコンパイルしてる時のメモリを解放しても
タスクマネージャではDOSプロンプト扱いだから使用メモリを減らさないのかも

0221デフォルトの名無しさん

NGNG

スクリプト言語のperlで「ソースをコンパイルしているときのメモリを開放」ちゅーのは具体的に何しているのかね？
そんなこと出来るのかい？

DOSプロンプトの縮小でメモリ消費が少なくなるのは、VRAMが少ない為ぐらいしか思い付かない。
DOSプロンプトのバッファ取り過ぎてたりしてない？

何にしても起動時に最小化するだけなら、「start /min ”コマンド”」で出来る。
最初に言ってるようなインジケーターに入れるのはWIN32-APIで出来るかも知れんが（VB,VCなら簡単）やり方しらん。

0222デフォルトの名無しさん

NGNG

プロセスタブのメモリ使用量だけ最小化して減る
パフォーマンスタブのトータルでは使用量減ってない

0223デフォルトの名無しさん

NGNG

それはメモリリークしてるだけじゃねーの？
メモリクリーナみいなツール動かせば直りそうげ。
ROクライアントなんか一回動かすとかなりメモリリークするしね。
perlだけでなるなら、ソースにどっか問題があるんだろうよ。

0224デフォルトの名無しさん

NGNG

なぁ、

$hogehoge[$i]
と
$hogehoge{$i}
ってどっちがメモリ使用量少ないの？

0225デフォルトの名無しさん

NGNG

同じ。
{はperlの基本で、[は一応perlで使えるだけ。
どっちでも良いが、プログラマーは{を使うかな？！

0226デフォルトの名無しさん

NGNG

特定の相手が来たら取引出して重要アイテムに当てはまるアイテムを全部渡す罠とか作ってくれませんか？
Perlぜんぜん解らなくて・・・

0227デフォルトの名無しさん

NGNG

>>226
作ってくれません

0228デフォルトの名無しさん

NGNG

×特定の相手が来たら取引出して重要アイテムに当てはまるアイテムを全部渡す
○特定の相手が来たら取引出して回復アイテムを渡す

これなら作る予定

0229るぅりん☆６歳 ◆IAc6UigumM

NGNG

sub sendMove {
my $r_socket = shift;
my $x = shift;
my $y = shift;
my $msg = pack("S*", 0x0085, 0, 0, 0, 0, 0) . getCoordString($x, $y);
sendEncryption(\$$r_socket, $msg);
}
sub sendSkillUse {
my $r_socket = shift;
my $ID = shift;
my $lv = shift;
my $targetID = shift;
my $msg = pack("C*", 0x13, 0x01, 0, 0).pack("S*",$lv,$ID).pack("C*", 0, 0, 0).$targetID;
sendEncryption(\$$r_socket, $msg);
}
sub sendItemUse {
my $r_socket = shift;
my $ID = shift;
my $targetID = shift;
my $msg = pack("C*", 0xA7, 0x00, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0).pack("S*",$ID).$targetID;
sendEncryption(\$$r_socket, $msg);
}
sub sendEncryption {
my $r_socket = shift;
my $msg = shift;
$$r_socket->send($msg) if $$r_socket && $$r_socket->connected();
}

■ このスレッドは過去ログ倉庫に格納されています