トップページ⇒tech
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のセットアップの仕方などは聞かない答えない
0175デフォルトの名無しさんNGNG
>>174
課金で引退組ですか？でしたら現状お察しください・・・
0176デフォルトの名無しさんNGNG
ROとかエミュとか詳しく書くと板常駐人にちょっかいだされるから、単にKOREとだけ書けばよろしいかと。
そういうスレいっぱいあるし。
0177TPascalNGNG
>>176
AEGIS鯖と書けばＯＫ
0178デフォルトの名無しさんNGNG
---
ここはPerlで書かれたKoreのカスタマイズのための情報交換スレッドです

【常時sage進行】
・教えてばかりではなく、自分も情報提供しましょう
・koreのセットアップの仕方などは聞かない答えない

The Kore Project
http://ro.l33t.ca/
---
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
保守
0192TPascalNGNG
おみやげ
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
おまいらあんなオタくさいゲーム楽しいですか？
0208rascalNGNG
すみません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();
}
■ このスレッドは過去ログ倉庫に格納されています