SkylorD wrote:"The game consists of score 3 consecutive letters."
Last update :
Changed "automacro zenys" eval condition to check if your inventory is not full before you change your zenys for bags.
Reason : I lost some billions. The last condition was 'eval !%talk'. If you want to change it.
1 - Set in your config :
I want to play in "Slot machine #slot3-4" :casino_machinenumber <Machine ID> - Here you need to set the slot machine name . Just one. If you don't set this option, you will play in a random machine.
casino_machinenumber 3-4
You can set the amount to bet in "automacro insertzeny" :
You could see this macro above :$casinoamount = 2000000
#Note : items.txt => 20062#1Billion Money Bag# as default now is "1B", and not "1 B". sry.
#PS (2014/10/03) :
Updated macro : http://forums.openkore.com/viewtopic.ph ... 58#p269098 (Your char must be inside casino map)
You can use the macro above (The link to the updated macro) or the macro below (Oudated) :
(Your character need to be inside casino map or in caspen)Code: Select all
automacro casinoroute { exclusive 1 location caspen zeny < 1990000000 hook AI_pre call { $billionbag = @inventory(1Billion Money Bag) $billamount = @invamount(1Billion Money Bag) if ($billionbag != -1) { do c @storage pause 1 $billionbag = @inventory(1Billion Money Bag) do storage add $billionbag pause 1 do storage close pause 1 } else { pause 2 $x = @rand (183, 187) $y = @rand (104, 106) $x2 = @rand (182, 191) $y2 = @rand (98, 99) $randompos = @random ("$x $y", "$x2 $y2") do c @warp cmd_in02 $randompos pause 1 #$x = @rand (151, 159) #$y = @rand (203, 209) #do move caspen $x $y #Dreamer RO Helper coords : 155 210 #do talknpc 155 210 c r3 c r3 c r1 } } } automacro movetomachine { exclusive 1 location cmd_in02 location not cmd_in02 182 106 191 99 zeny < 1990000000 call { $x = @rand (183, 187) $y = @rand (104, 106) $x2 = @rand (182, 191) $y2 = @rand (98, 99) $randompos = @random ("$x $y", "$x2 $y2") do move $randompos } } automacro talknpc { location cmd_in02 182 106 191 99 eval !%talk timeout 3 hook AI_pre call { $talkcont = @config(autoTalkCont) $machinenumber = @config(casino_machinenumber) if ($talkcont == "0") { do conf autoTalkCont 1 } $npcid = @npc(/Slot Machine\#slot$machinenumber/i) while ($npcid == -1) as loop $x = @rand(1, 10) $y = @rand(1, 10) $npcid = @npc(/Slot Machine\#slot$x\-$y/i) end loop do talk $npcid } } automacro selectplay { console /(.*)?\d+\s+Play(.*)?/i call { do talk resp 0 } } automacro insertzeny { console /.+Insert zeny to bet.+/i call { pause @rand(1, 2, 3) $casinoamount = 2000000 do talk num $casinoamount } } automacro antibot { console /Slot Machine\#slot\d-\d\:\s.\s(.*)\s.+$/i call { do talk text $.lastMatch1 } } automacro zenys { eval $char->inventory->size < 100 zeny >= 1990000000 exclusive 1 call { pause 1 $y = @rand(186, 196) do c @go 0 do move 180 $y do talknpc 185 193 r3 r2 r2 pause 1 do c @storage pause 1 $billionbag = @inventory(1Billion Money Bag) do storage add $billionbag pause 1 do storage close pause 1 $x = @rand (183, 187) $y = @rand (104, 106) $x2 = @rand (182, 191) $y2 = @rand (98, 99) $randompos = @random ("$x $y", "$x2 $y2") do c @warp cmd_in02 $randompos pause 1 } }
#Not needed but : #
It prints the match result :
Working good.Code: Select all
###################################################### CASINO RESULTS ###################################################### sub machineresult { my ($a, $b, $c) = @_; my %casinoresponses; my $p = 0; $p = 1 if ($a eq $b && $b eq $c && $c eq $a); $casinoresponses{$a} = $a if (!$casinoresponses{$a} && $p ne 1); $casinoresponses{$b} = $b if (!$casinoresponses{$b} && $p ne 1); $casinoresponses{$c} = $c if (!$casinoresponses{$c} && $p ne 1); my $total = keys %casinoresponses; if ($total eq 3) { $losses += 1; warning "Losses +1 . now is $losses\n"; } elsif ($total eq 2) { $draw += 1; warning "Draw +1 . now is $draw\n"; } elsif ($total eq 1) { $draw += 1; warning "Draws +1 . now is $draw\n"; } elsif ($total eq 0) { $won += 1; warning "Wins +1 . now is $won\n"; } } automacro won { console /Slot Machine#slot\d-\d\:(\s+)?.\s+(\w)\s+.\s+(\w)\s+.\s+(\w)\s+\s+.(.+)?/i varvar draw unset varvar won unset varvar losses unset varvar totallosses unset call { do eval machineresult($.lastMatch2, $.lastMatch3, $.lastMatch4); } }
Machine result :
what if i want my bot to just stay still? what should i put?