package autoTrade;

#ported from messykorexp by Joseph
#original code by systeman

use strict;
use Globals;
use Log qw(message warning error debug);
use AI;
use Misc;
use Network::Send;
use Utils;

Plugins::register('autoTrade', 'automated chat room dealing', \&Unload);
my $hook1 = Plugins::addHook('AI_pre', \&call);
my $hook2 = Plugins::addHook('parseMsg/pre', \&packet);

# load table file
our %trade_lut;
my $file = "$Settings::control_folder/autotrade.txt";
my $cfID = Settings::addConfigFile($file, \%trade_lut, \&FileParsers::parseDataFile_lc);
Settings::load($cfID);
undef $file;

sub Unload {
Plugins::delHook('AI_pre', $hook1);
Plugins::delHook('parseMsg/pre', $hook2);
Settings::delConfigFile($cfID);
}

my $dealTrade;
my $dealFinalize;
my $tradeDealAddItem;
my $itemAddTimeout;

# TIMEOUTS: you can change these if you want

# time to wait for them to add items before cancelling?
my $itemWaitTime = 10;
# time to wait before accepting deal request?
my $dealAcceptTime = 2;
# time to wait before adding zeny once they finalize their item choices?
my $zenyAddDelay = 2;

sub packet {
my $hookName = shift;
my $args = shift;
my $switch = $args->{switch};
my $msg = $args->{msg};

if ($switch eq "00E9") {
my $amount = unpack("L1", substr($msg, 2,4));
my $ID = unpack("S1", substr($msg, 6,2));
if ($ID > 0) {
# they added an item, so reset the timeout
$tradeDealAddItem = 1;
}
}
if ($switch eq "01F4") {
#deal request, wait before accepting
$itemAddTimeout = time;
}
if ($switch eq "00E5" || $switch eq "01F4") {
#deal request, wait before accepting
$itemAddTimeout = time;
}
if ($switch eq "00EC") {
my $type = unpack("C1", substr($msg, 2, 1));
if ($type == 1) {
#they finalize their item selections
$itemAddTimeout = time;
}
}
}

sub call {
AUTOTRADE: {
if (AI::is("","tradeAuto", "deal") && $config{tradeAuto} && $char->{skills}{NV_BASIC}{lv} > 4) {
if (AI::action ne "tradeAuto" && AI::action ne "deal" && $::currentChatRoom ne "") {
message "Begin auto-trade mode.\n", "autoTrade";
if ($config{dealAuto}) {
$config{dealAuto} = 0;
Misc::configModify("dealAuto", $config{dealAuto});
}
AI::queue("tradeAuto");
}

last AUTOTRADE if !AI::is("tradeAuto","deal");

if (Utils::timeOut($itemAddTimeout,$dealAcceptTime) && $::incomingDeal{name} && !$::currentDeal{name}) {
Network::Send::sendDealAccept(\$remote_socket);
undef $dealFinalize;
undef $dealTrade;
$itemAddTimeout = time;
message "Sent deal accept, begin trading\n", "autoTrade";
}
last AUTOTRADE if (!$::currentDeal{name});
if (!Utils::timeOut($itemAddTimeout,$itemWaitTime) && $tradeDealAddItem) {
$itemAddTimeout = time;
undef $tradeDealAddItem;
}
if (($::currentDeal{other_finalize} && Utils::timeOut($itemAddTimeout,$zenyAddDelay)) || Utils::timeOut($itemAddTimeout,$itemWaitTime)) {
if ($::currentDeal{other} eq ()) {
message "Other person didn't add any items, cancelling...\n", "autoTrade";
Network::Send::sendCurrentDealCancel(\$remote_socket);
$itemAddTimeout = time;
} elsif (!$dealFinalize) {
my $sumvalue;

my @currentDealOther;
foreach (keys %{$::currentDeal{other}}) {
push @currentDealOther, $_;
}
my $max = @currentDealOther;
for (my $i = 0;$i < $max;$i++) {
my $found = 0;
my $ID = $currentDealOther[$i];
my $name = lc main::itemName($::currentDeal{other}{$ID});
if (defined $trade_lut{$name}) {
message "Add ".$trade_lut{$name}."z x $::currentDeal{other}{$ID}{amount} to deal\n", "autoTrade";
$sumvalue += ($::currentDeal{other}{$ID}{amount} * $trade_lut{$name});
} else {
message "Other person added item which is not in buy list, cancelling...\n", "autoTrade";
Network::Send::sendCurrentDealCancel(\$remote_socket);
last AUTOTRADE;
}
}
message "Trading $sumvalue zeny and confirming\n", "autoTrade";
Network::Send::sendDealAddItem(\$remote_socket, 0, $sumvalue);
sleep(0.5);
Network::Send::sendDealFinalize(\$remote_socket);
$dealFinalize = 1;
$itemAddTimeout = time;
}

}
if ($::currentDeal{you_finalize} && Utils::timeOut($itemAddTimeout,$itemWaitTime)) {
message "Other person didn't accept the final trade, cancelling...\n", "autoTrade";
Network::Send::sendCurrentDealCancel(\$remote_socket);
$itemAddTimeout = time;
}
if (!$dealTrade && $::currentDeal{you_finalize} && $::currentDeal{other_finalize}) {
message "Accepting final trade\n", "autoTrade";
Network::Send::sendDealTrade(\$remote_socket);
$dealTrade = 1;
}
}
}
}

return 1;




san po yan ilalagay? at mai kailangan pa po ba baguhin sa function.pl? ayaw kasi gumana... d ko lam panu gmtin yan.... help po...

copy and paste this code to notepad and save it as "autotrade.pl" to a folder named "plugins"

then on your config.txt you should have this:

tradeAuto 1

and you should make "autotrade.txt" under control folder and it should contain this inside or you can specify what you wanted to buy from other players.

# [item name] [price]

Zargon 5
Jellopy 1
Witherless Rose 20000
Elunium 50000

and if still it doesnt work you need to have a CVS version instead

and note: you are double posting on this thread...WARNING
http://pragnarokonline.com/forums/index.ph...&st=0&#entry804


This post has been edited by blueknight: Mar 20 2006, 09:01 AM

ow sorry about that...

it doesn't really work... look at this..:



whenever my bot will put zeny, it will cancel the deal...

tnx nlng po pla.... i got it working na...



sorry nga po pla sa doble msgs....

elo po pde po pa help ate??
balak k po kc gumawa ng autotrde dn e...
mag buy ako ng karvodailnirol @ 90k each..
panu po yun sa macro at sa config??
pls help!

@question

Ok this is what you need to do:

1. create a file inside your control/plugins folder named autotrade.pl and paste this:

package autoTrade;

#ported from messykorexp by Joseph
#original code by systeman

use strict;
use Globals;
use Log qw(message warning error debug);
use AI;
use Misc;
use Network::Send;
use Utils;

Plugins::register('autoTrade', 'automated chat room dealing', \&Unload);
my $hook1 = Plugins::addHook('AI_pre', \&call);
my $hook2 = Plugins::addHook('parseMsg/pre', \&packet);

# load table file
our %trade_lut;
my $file = "$Settings::control_folder/autotrade.txt";
my $cfID = Settings::addConfigFile($file, \%trade_lut, \&FileParsers::parseDataFile_lc);
Settings::load($cfID);
undef $file;

sub Unload {
Plugins::delHook('AI_pre', $hook1);
Plugins::delHook('parseMsg/pre', $hook2);
Settings::delConfigFile($cfID);
}

my $dealTrade;
my $dealFinalize;
my $tradeDealAddItem;
my $itemAddTimeout;

# TIMEOUTS: you can change these if you want

# time to wait for them to add items before cancelling?
my $itemWaitTime = 10;
# time to wait before accepting deal request?
my $dealAcceptTime = 2;
# time to wait before adding zeny once they finalize their item choices?
my $zenyAddDelay = 2;

sub packet {
my $hookName = shift;
my $args = shift;
my $switch = $args->{switch};
my $msg = $args->{msg};

if ($switch eq "00E9") {
my $amount = unpack("L1", substr($msg, 2,4));
my $ID = unpack("S1", substr($msg, 6,2));
if ($ID > 0) {
# they added an item, so reset the timeout
$tradeDealAddItem = 1;
}
}
if ($switch eq "01F4") {
#deal request, wait before accepting
$itemAddTimeout = time;
}
if ($switch eq "00E5" || $switch eq "01F4") {
#deal request, wait before accepting
$itemAddTimeout = time;
}
if ($switch eq "00EC") {
my $type = unpack("C1", substr($msg, 2, 1));
if ($type == 1) {
#they finalize their item selections
$itemAddTimeout = time;
}
}
}

sub call {
AUTOTRADE: {
if (AI::is("","tradeAuto", "deal") && $config{tradeAuto} && $char->{skills}{NV_BASIC}{lv} > 4) {
if (AI::action ne "tradeAuto" && AI::action ne "deal" && $::currentChatRoom ne "") {
message "Begin auto-trade mode.\n", "autoTrade";
if ($config{dealAuto}) {
$config{dealAuto} = 0;
Misc::configModify("dealAuto", $config{dealAuto});
}
AI::queue("tradeAuto");
}

last AUTOTRADE if !AI::is("tradeAuto","deal");

if (Utils::timeOut($itemAddTimeout,$dealAcceptTime) && $::incomingDeal{name} && !$::currentDeal{name}) {
Network::Send::sendDealAccept(\$remote_socket);
undef $dealFinalize;
undef $dealTrade;
$itemAddTimeout = time;
message "Sent deal accept, begin trading\n", "autoTrade";
}
last AUTOTRADE if (!$::currentDeal{name});
if (!Utils::timeOut($itemAddTimeout,$itemWaitTime) && $tradeDealAddItem) {
$itemAddTimeout = time;
undef $tradeDealAddItem;
}
if (($::currentDeal{other_finalize} && Utils::timeOut($itemAddTimeout,$zenyAddDelay)) || Utils::timeOut($itemAddTimeout,$itemWaitTime)) {
if ($::currentDeal{other} eq ()) {
message "Other person didn't add any items, cancelling...\n", "autoTrade";
Network::Send::sendCurrentDealCancel(\$remote_socket);
$itemAddTimeout = time;
} elsif (!$dealFinalize) {
my $sumvalue;

my @currentDealOther;
foreach (keys %{$::currentDeal{other}}) {
push @currentDealOther, $_;
}
my $max = @currentDealOther;
for (my $i = 0;$i < $max;$i++) {
my $found = 0;
my $ID = $currentDealOther[$i];
my $name = lc main::itemName($::currentDeal{other}{$ID});
if (defined $trade_lut{$name}) {
message "Add ".$trade_lut{$name}."z x $::currentDeal{other}{$ID}{amount} to deal\n", "autoTrade";
$sumvalue += ($::currentDeal{other}{$ID}{amount} * $trade_lut{$name});
} else {
message "Other person added item which is not in buy list, cancelling...\n", "autoTrade";
Network::Send::sendCurrentDealCancel(\$remote_socket);
last AUTOTRADE;
}
}
message "Trading $sumvalue zeny and confirming\n", "autoTrade";
Network::Send::sendDealAddItem(\$remote_socket, 0, $sumvalue);
sleep(0.5);
Network::Send::sendDealFinalize(\$remote_socket);
$dealFinalize = 1;
$itemAddTimeout = time;
}

}
if ($::currentDeal{you_finalize} && Utils::timeOut($itemAddTimeout,$itemWaitTime)) {
message "Other person didn't accept the final trade, cancelling...\n", "autoTrade";
Network::Send::sendCurrentDealCancel(\$remote_socket);
$itemAddTimeout = time;
}
if (!$dealTrade && $::currentDeal{you_finalize} && $::currentDeal{other_finalize}) {
message "Accepting final trade\n", "autoTrade";
Network::Send::sendDealTrade(\$remote_socket);
$dealTrade = 1;
}
}
}
}

return 1;

2. in your control folder create a file named autotrade.txt and paste this. assuming you wanted to buy it ea at 10000

# [item name] [price]

Karvodailnirol 10000

3. create a file in your control folder again named macros.txt and paste this:

automacro openchatroom {
map prontera
move 279 203
run-once 1
delay 20
call openchat
}

macro openchat {
chat create "B>Karvodailnirol =10K ea" 2 0 password
}

#Note:
# you must install macro plugins.
# for these commands you need macro version lower than 1.2 from openkore

4. in your config.txt, disable lockmap, your auto attack because you only wanted to pub chat and trade.

5. READ THE MANUAL.

ei bkt d cya naglalagay ng zeny???

additional info: you should also add tradeAuto in your config, make it tradeAuto 1 to enable the plugin. and dealAuto should be dealAuto 0.

make sure that your plugins folder is named 'plugins' not plugin.

when your bot created a chatroom, you should see this line:

d prn po gumagana....w8 k nlng po reply nyu maztahvoodoo

***let's pin this one too***

version ng macro mo at openkore mo?

it's working with me... what is te version or your macro and when you type "macro list" in the console, what was the result?

how about when you type "plugin"


Ok, I tried this on my Openkore 1.9 with macro 1.2 - it was not working

But with my old version, here is the result:

======================

*** OpenKore 1.6.4 - Custom Ragnarok Online client ***
*** http://openkore.sourceforge.net ***

Loading plugin plugins/autotrade.pl...
Loading control/autotrade.txt...
Loading plugin plugins/macro-0.9.3.pl...
Loading control/macros.txt...
Loading control/macros.txt...
<cut>
[macro] automacro openchatroom triggered.
Calculating route to: Prontera City(prontera): 155, 125
Destination reached.
Chat Room Created
Begin auto-trade mode.
Config 'dealAuto' set to 0 (was 0)
dlsu_taft (level 7) Requests a Deal
Type 'deal' to start dealing, or 'deal no' to deny the deal.
Sent deal accept, begin trading
Engaged Deal with dlsu_taft
dlsu_taft added Item to Deal: Empty Bottle x 8
dlsu_taft finalized the Deal
Add 1000z x 8 to deal
Trading 8000 zeny and confirming
You finalized the Deal
Accepting final trade
Deal Complete
Item added to inventory: Empty Bottle (19) x 8 - Non-usable
======================

With this, i think you know already know the answer.

I will try to modify this for Openkore 1.9

when i used openkore 1.9, this is what happened:



then i tried other versions, still not working, but when i tried the plugin with openkore 1.6.4, it worked:

prang may mali po sa macro kc hnd cya nagwalk d kagaya sau...tinry k n rn po sa higher version ng macro pero ayaw prn tlga gumana e...

e2 macros.txt ko:
automacro openchatroom {
map prontera
move 279 203
run-once 1
delay 10
call openchat
}

macro openchat {
chat create "B>karvo 80k" 2 0 password
}

ang nkakainis pa dyan..d nagaactivate ung autotrade plugin!

This post has been edited by question: Apr 29 2006, 03:33 AM

@question

try upgrading your macros.pl to macro 0.9.3 from

http://openkore.sourceforge.net/macro/#download

then...

check again the place of your files:

1. autotrade.txt should be in your controls folder
2. autotrade.pl should be in plugins folder
3. macros.txt should be in your controls folder

check your config.txt

1. remove the lockmap
2. include this in your config.txt to activate the plugin and monitor your bot

Xkore 1
tradeAuto 1

this should work... pinagpuyatan ko kagabi yan a... hehehe

@jexiv14

anong server mo?

kse Chaos ok naman 2ng plugins na ito... sa Loki kaya?

ok nman xa kahit saan server ng pRO. bsta 1.6.4 gamit ko. last night, question showed me his macro.txt, then sabi ko try nya na, gumagana na daw ung macro, nagccreate na daw ng room, pero the problem is, whenever nkacreate na xa ng room, hindi lumalabas ung "Begin auto-trade mode." pero supposedly, pag kagagawa ng room, lalabas un, that's why sabi nya hindi naglalagay ng zeny, kasi d nga nkaactivate, i checked his config, nka activate nman ung tradeAuto. he said he was using openkore 1.6.6.

supposedly dapat gana yun e... pero 1.6.6? d ko pa na try...

ang problem nia kanina nag YM sa akin d naman daw pumupunta sa location...

i checked yung macros.txt nia tama naman...

sabi ko dl siya kahit yung macro na 0.9.3, did not worked...

mmmmm

something must be wrong there..



im working on a spam skill plugins....

post ko na lang pag gumana...

kuya nasend k n po buong folder sa inyu...

i check mo din yung filename bka nasave mo na txt file lang sha.

cguraduhin mo na 'PL' ang file type nung autotrade plugin.