Primeira mente boa tarde, dia ou noite sei la kkk
eu to usando um script de cassino, ele ta 100% funcional (funciona tudo sem erros nem bugs) já uso ele a algum tempo porem nesse novo ot que eu to jogando estou com alguns problemas
tipo, eu não fico online muito tempo, passo mais tempo afk, e o ot tem muitos cleans, o que me fode bastante :\ sempre perco o dado e acabo perdendo bastante dinheiro já que niguem consegue jogar.
gostaria que alguem me ajudasse a por pra rodar o dado na mao (left hand) já fiz algumas tentativas por conta propria mas todas sem sucesso já que não manjo muito de programação :s
se alguem puder me ajudar.
[Waypoints]
A 32352 32237 5 SETUP
set $max 100
set $min 2
set $perc 100
set $extrabp 2854
A 32352 32237 5 Place north
set $place $topitem.$posx.[$posy-1].$posz
if [$place == 3499 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {gotolabel 'Place ne'}
else {gotolabel 'Place south'}
A 32352 32237 5 Place south
set $place $topitem.$posx.[$posy+1].$posz
if [$place == 3497 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {gotolabel 'Place se'}
else {gotolabel 'Place north'}
A 32352 32237 5 Place ne
foreach 'screenplayers' $a { if [$a.posx == $posx-2 && $a.posy == $posy && $a.posz == $posz] {gotolabel 'Attack ne'}
else {gotolabel 'Place nw'} }
A 32352 32237 5 Place nw
foreach 'screenplayers' $a {if [$a.posx == $posx+2 && $a.posy == $posy && $a.posz == $posz && $a.isshootable ==1] {gotolabel 'Attack nw'}
else {gotolabel 'Repeat ne'}}
A 32352 32237 5 Repeat ne
set $place $topitem.$posx.[$posy-1].$posz | if [$place == 3499 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {gotolabel 'Place ne'} | else {gotolabel 'Place north'}
A 32352 32237 5 Place se
foreach 'screenplayers' $a {if [$a.posx == $posx-2 && $a.posy == $posy && $a.posz == $posz && $a.isshootable ==1] {gotolabel 'Attack se'}
else {gotolabel 'Place sw'}}
A 32352 32237 5 Place sw
foreach 'screenplayers' $a {if [$a.posx == $posx+2 && $a.posy == $posy && $a.posz == $posz && $a.isshootable ==1] {gotolabel 'Attack sw'}
else {gotolabel 'Repeat se'}}
A 32352 32237 5 Repeat se
set $place $topitem.$posx.[$posy+1].$posz | if [$place == 3497 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {gotolabel 'Place se'}
else {gotolabel 'Place north'}
A 32352 32237 5 Attack ne
foreach 'screenplayers' $a {if [$a.posx == $posx-2 && $a.posy == $posy && $a.posz == $posz] {attack $a.id | say 'Bem Vindo $target.name , Faça Sua Aposta! Payout $perc %!' | gotolabel 'Pre bet ne'} else {gotolabel 'Repeat attack ne'}}
A 32352 32237 5 Repeat attack ne
set $place $topitem.$posx.[$posy-1].$posz | if [$place == 3499 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {stopattack | clear target | gotolabel 'Attack ne'}
else {clear target | wait 1000 | stopattack | gotolabel 'Place north'}
A 32352 32237 5 Pre bet ne
if [$target.posx == $posx-2 && $target.posy == $posy && $target.posz == $posz] {closeallwindows | wait 200 | set $check [$max/50] | openbeltitem | gotolabel 'Bet ne'}
else {gotolabel 'Repeat attack ne'}
A 32352 32237 5 Bet ne
while [$check > 0] {collectitems $beltsolt.id 3043 | dec $check | wait 500} | gotolabel 'Bet check ne'
A 32352 32237 5 Bet check ne
countitemsvisible 3043
if [$count > 0] {gotolabel 'Bet money ne'}
else {closeallwindows | gotolabel 'Repeat bet ne'}
A 32352 32237 5 Repeat bet ne
gotolabel 'Pre bet ne'
A 32352 32237 5 Bet money ne
say 'Calculando...'
wait 500
set $bet $count
if [$bet > $max || $bet < $min ] {say 'Min $min kk Max $max kk' | wait 500 | gotolabel 'Bet backo ne'}
else {wait 500 | gotolabel 'Safe ne'}
A 32352 32237 5 Bet backo ne
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $change
wait 200
while [$outtimes > 0] {wait 200 | dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 100 | wait 200 | dec $outtimes}
closeallwindows
gotolabel 'Pre bet ne'
A 32352 32237 5 Safe ne
openbpitem
wait 700
moveitems 3043 $backslot.id
wait 700
countitemsvisible 3043
wait 700
set $restack $count
if [$restack <= ($bet*2) || $restack >= 1600 && $winitemcount.'$extrabp' > 0] {gotolabel 'Restack ne'}
closeallwindows
say 'Voce Apostou $bet kk! Fale h ou l'
gotolabel 'Roll ne'
A 32352 32237 5 Restack ne
openitemnew $extrabp 1 $backslot.id
wait 200
countitemsvisible 3043
wait 200
set $comp $count
if [$restack == $comp] {say 'Voce Apostou $bet kk! Fale h ou l!' | wait 200 | closeallwindows | gotolabel 'Roll ne'}
else {gotolabel 'Restack two ne'}
A 32352 32237 5 Restack two ne
set $extimes [$restack/100]
set $exchange [$restack-$extimes*100]
set $dif [$comp-$restack]
set $diftimes [$dif/100]
set $difchange [$dif-$diftimes*100]
if [$restack < ($bet*2)] {gotolabel 'Restack under ne'}
if [$restack >= 1600] {gotolabel 'Restack over ne'}
A 32352 32237 5 Restack under ne
say 'Please wait! Restacking!'
movenitems 3043 $difchange $backslot.id
wait 200
set $numb 5
while [$numb > 0] {wait 500 | movenitems 3043 100 $backslot.id | wait 200 | dec $numb | wait 200}
say 'Voce Apostou $bet kk! Fale h ou l!'
closeallwindows
gotolabel 'Roll ne'
A 32352 32237 5 Restack over ne
say 'Please wait! Restacking!'
movenitems 3043 $exchange $extrabp
wait 200
set $numb 6
while [$numb > 0] {wait 500 | movenitems 3043 100 $extrabp | wait 200 | dec $numb | wait 200}
say 'Voce Apostou $bet kk! Fale h ou l!'
closeallwindows
gotolabel 'Roll ne'
A 32352 32237 5 Roll ne
if [$target.posx == $posx-2 && $target.posy == $posy && $target.posz == $posz] {wait 500 | gotolabel 'Roll high ne'} | else {gotolabel 'Repeat attack ne'}
A 32352 32237 5 Roll high ne
wait 100 | if [$lastmsg.content == 'h' && $lastmsg.sender == $target.name] {wait 500 | gotolabel 'Trash high ne'} | else {wait 100 | gotoloabel 'Roll low ne'}
A 32352 32237 5 Roll low ne
wait 100 | if [$lastmsg.content == 'l' && $lastmsg.sender == $target.name] {wait 500 | gotolabel 'Trash low ne'} | else {gotolabel 'Repeat roll ne'}
A 32352 32237 5 Repeat roll ne
gotolabel 'Roll ne'
A 32352 32237 5 Trash high ne
set $food $topitem.$posx.[$posy-1].$posz | if [$food == 5792 || $food == 5793 || $food == 5794 || $food == 5795 || $food == 5796 || $food == 5797] {gotolabel 'High check ne'} | else {say 'Dice is trashed!' | gotolabel 'Bet back ne'}
A 32352 32237 5 Trash low ne
set $food $topitem.$posx.[$posy-1].$posz | if [$food == 5792 || $food == 5793 || $food == 5794 || $food == 5795 || $food == 5796 || $food == 5797] {gotolabel 'Low check ne'} | else {say 'Dice is trashed!' | gotolabel 'Bet back ne'}
A 32352 32237 5 High check ne
usegroundxyz $posx [$posy-1] $posz | wait 1000 | set $dice $topitem.$posx.[$posy-1].$posz | if [$dice == 5795 || $dice == 5796 || $dice == 5797] {wait 1000 | gotolabel 'Payout ne'} | else {gotolabel 'Trash check high ne'}
A 32352 32237 5 Low check ne
usegroundxyz $posx [$posy-1] $posz | wait 1000 | set $dice $topitem.$posx.[$posy-1].$posz | if [$dice == 5792 || $dice == 5793 || $dice == 5794] {wait 1000 | gotolabel 'Payout ne'} | else {gotolabel 'Trash check low ne'}
A 32352 32237 5 Payout ne
set $help [$bet*$perc]
wait 200
set $post [$help/100]
wait 200
set $win [$bet+$post]
wait 200
openbpitem
wait 200
countitemsvisible 3043
wait 200
set $all $count
set $allpiles [$all/100]
set $allchange [$all-$allpiles*100]
wait 200
if [$win < $allchange] {wait 200 | dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $win | closeallwindows | gotolabel ' Pre bet ne'}
else {gotolabel 'Payout two ne'}
A 32352 32237 5 Payout two ne
wait 500
dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $allchange
wait 200
set $win [$win-$allchange]
set $outtimes [$win/100]
set $change [$win-$outtimes*100]
wait 200
if [$outtimes == 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $win | closeallwindows | gotolabel 'Pre bet ne'}
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 100 | dec $outtimes | wait 500}
wait 500
dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $change
wait 200
wait 200
closeallwindows
gotolabel 'Pre bet ne'
A 32352 32237 5 Trash check high ne
if [$topitem.$posx.($posy-1).$posz != 5792 && $topitem.$posx.($posy-1).$posz != 5793 && $topitem.$posx.($posy-1).$posz != 5794] {wait 1000 | say 'Dice is trashed. Take your bet back!' | gotolabel 'Bet back ne'} | else {say 'Voce Perdeu, Tente Outra Vez!' | gotolabel 'Repeat bet ne'}
A 32352 32237 5 Trash check low ne
if [$topitem.$posx.($posy-1).$posz != 5795 && $topitem.$posx.($posy-1).$posz != 5796 && $topitem.$posx.($posy-1).$posz != 5797] {wait 1000 | say 'Dice is trashed. Take your bet back!' | gotolabel 'Bet back ne'} | else {say 'Voce Perdeu, Tente Outra Vez!' | gotolabel 'Repeat bet ne'}
A 32352 32237 5 Bet back ne
closeallwindows
openbpitem
wait 500
countitemvisible 3043
wait 500
set $monback $count
set $timeback [$monback/100]
set $chaback [$monback-$timeback*100]
if [$bet < $chaback] {wait 200 | dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $bet | closeallwindows | gotolabel 'Pre bet ne'}
wait 200
dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $chaback
wait 200
set $bet [$bet-$chaback]
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 100 | wait 200 | dec $outtimes}
wait 200
dropitemsxyzamount [$posx-2] [$posy-1] $posz 3043 $change
wait 200
closeallwindows
gotolabel 'Pre bet ne'
A 32352 32237 5 Attack nw
foreach 'screenplayers' $a {if [$a.posx == $posx+2 && $a.posy == $posy && $a.posz == $posz] {attack $a.id | say 'Bem Vindo $target.name , Faça Sua Aposta! Payout $perc %' | gotolabel 'Pre bet nw'} else {gotolabel 'Repeat attack nw'}}
A 32352 32237 5 Repeat attack nw
set $place $topitem.$posx.[$posy-1].$posz | if [$place == 3499 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {stopattack | clear target | gotolabel 'Attack nw'}
else {clear target | wait 1000 | stopattack | gotolabel 'Place north'}
A 32352 32237 5 Pre bet nw
if [$target.posx == $posx+2 && $target.posy == $posy && $target.posz == $posz] {closeallwindows | wait 200 | set $check [$max/50] | openbeltitem | gotolabel 'Bet nw'}
else {gotolabel 'Repeat attack nw'}
A 32352 32237 5 Bet nw
while [$check > 0] {collectitems $beltsolt.id 3043 | dec $check | wait 500} | gotolabel 'Bet check nw'
A 32352 32237 5 Bet check nw
countitemsvisible 3043
if [$count > 0] {gotolabel 'Bet money nw'}
else {closeallwindows | gotolabel 'Repeat bet nw'}
A 32352 32237 5 Repeat bet nw
gotolabel 'Pre bet nw'
A 32352 32237 5 Bet money nw
say 'Calculando...'
wait 500
set $bet $count
if [$bet > $max || $bet < $min ] {say 'Min $min kk Max $max kk' | wait 500 | gotolabel 'Bet backo nw'}
else {wait 500 | gotolabel 'Safe nw'}
A 32352 32237 5 Bet backo nw
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $change
wait 200
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 100 | wait 200 | dec $outtimes}
closeallwindows
gotolabel 'Pre bet nw'
A 32352 32237 5 Safe nw
openbpitem
wait 700
moveitems 3043 $backslot.id
wait 700
countitemsvisible 3043
wait 700
set $restack $count
if [$restack <= ($bet*2) || $restack >= 1600 && $winitemcount.'$extrabp' > 0] {gotolabel 'Restack nw'}
closeallwindows
say 'Voce Apostou $bet kk! Fale h ou l'
gotolabel 'Roll nw'
A 32352 32237 5 Restack nw
openitemnew $extrabp 1 $backslot.id
wait 200
countitemsvisible 3043
wait 200
set $comp $count
if [$restack == $comp] {say 'Voce Apostou $bet kk! Fale h ou l!' | wait 200 | closeallwindows | gotolabel 'Roll nw'}
else {gotolabel 'Restack two nw'}
A 32352 32237 5 Restack two nw
set $extimes [$restack/100]
set $exchange [$restack-$extimes*100]
set $dif [$comp-$restack]
set $diftimes [$dif/100]
set $difchange [$dif-$diftimes*100]
if [$restack < ($bet*2)] {gotolabel 'Restack under nw'}
if [$restack >= 1600] {gotolabel 'Restack over nw'}
A 32352 32237 5 Restack under nw
say 'Please wait! Restacking!'
movenitems 3043 $difchange $backslot.id
wait 200
set $numb 5
while [$numb > 0] {wait 500 | movenitems 3043 100 $backslot.id | wait 200 | dec $numb | wait 200}
say 'Voce Apostou $bet kk! Fale h ou l!'
closeallwindows
gotolabel 'Roll nw'
A 32352 32237 5 Restack over nw
say 'Please wait! Restacking!'
movenitems 3043 $exchange $extrabp
wait 200
set $numb 6
while [$numb > 0] {wait 500 | movenitems 3043 100 $extrabp | wait 200 | dec $numb | wait 200}
say 'Voce Apostou $bet kk! Fale h ou l!'
closeallwindows
gotolabel 'Roll nw'
A 32352 32237 5 Roll nw
if [$target.posx == $posx+2 && $target.posy == $posy && $target.posz == $posz] {wait 500 | gotolabel 'Roll high nw'} | else {gotolabel 'Repeat attack nw'}
A 32352 32237 5 Roll high nw
wait 100 | if [$lastmsg.content == 'h' && $lastmsg.sender == $target.name] {wait 500 | gotolabel 'Trash high nw'} | else {wait 100 | gotoloabel 'Roll low nw'}
A 32352 32237 5 Roll low ne
wait 100 | if [$lastmsg.content == 'l' && $lastmsg.sender == $target.name] {wait 500 | gotolabel 'Trash low nw'} | else {gotolabel 'Repeat roll nw'}
A 32352 32237 5 Repeat roll nw
gotolabel 'Roll nw'
A 32352 32237 5 Trash high nw
set $food $topitem.$posx.[$posy-1].$posz | if [$food == 5792 || $food == 5793 || $food == 5794 || $food == 5795 || $food == 5796 || $food == 5797] {gotolabel 'High check nw'} | else {gotolabel 'Bet back nw'}
A 32352 32237 5 Trash low nw
set $food $topitem.$posx.[$posy-1].$posz | if [$food == 5792 || $food == 5793 || $food == 5794 || $food == 5795 || $food == 5796 || $food == 5797] {gotolabel 'Low check nw'} | else {gotolabel 'Bet back nw'}
A 32352 32237 5 High check nw
usegroundxyz $posx [$posy-1] $posz | wait 1000 | set $dice $topitem.$posx.[$posy-1].$posz | if [$dice == 5795 || $dice == 5796 || $dice == 5797] {wait 1000 | gotolabel 'Payout nw'} | else {gotolabel 'Trash check high nw'}
A 32352 32237 5 Low check nw
usegroundxyz $posx [$posy-1] $posz | wait 1000 | set $dice $topitem.$posx.[$posy-1].$posz | if [$dice == 5792 || $dice == 5793 || $dice == 5794] {wait 1000 | gotolabel 'Payout nw'} | else {gotolabel 'Trash check low nw'}
A 32352 32237 5 Payout nw
set $help [$bet*$perc]
wait 200
set $post [$help/100]
wait 200
set $win [$bet+$post]
wait 200
openbpitem
wait 200
countitemsvisible 3043
wait 200
set $all $count
set $allpiles [$all/100]
set $allchange [$all-$allpiles*100]
wait 200
if [$win < $allchange] {wait 200 | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $win | closeallwindows | gotolabel ' Pre bet nw'}
else {gotolabel 'Payout two nw'}
A 32352 32237 5 Payout two nw
wait 500
dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $allchange
wait 200
set $win [$win-$allchange]
set $outtimes [$win/100]
set $change [$win-$outtimes*100]
wait 200
if [$outtimes == 0] {wait 500 | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $win | closeallwindows | gotolabel 'Pre bet nw'}
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 100 | dec $outtimes | wait 500}
wait 500
dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $change
wait 200
closeallwindows
gotolabel 'Pre bet nw'
A 32352 32237 5 Trash check high nw
if [$topitem.$posx.($posy-1).$posz != 5792 && $topitem.$posx.($posy-1).$posz != 5793 && $topitem.$posx.($posy-1).$posz != 5794] {wait 1000 | say 'Dice is trashed. Take your bet back!' | gotolabel 'Bet back nw'} | else {say 'Voce Perdeu, Tente Outra Vez!' | gotolabel 'Repeat bet nw'}
A 32352 32237 5 Trash check low nw
if [$topitem.$posx.($posy-1).$posz != 5795 && $topitem.$posx.($posy-1).$posz != 5796 && $topitem.$posx.($posy-1).$posz != 5797] {wait 1000 | say 'Dice is trashed. Take your bet back!' | gotolabel 'Bet back nw'} | else {say 'Voce Perdeu, Tente Outra Vez!' | gotolabel 'Repeat bet nw'}
A 32352 32237 5 Bet back nw
closeallwindows
openbpitem
wait 500
countitemvisible 3043
wait 500
set $monback $count
set $timeback [$monback/100]
set $chaback [$monback-$timeback*100]
if [$bet < $chaback] {wait 200 | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $bet | closeallwindows | gotolabel 'Pre bet nw'}
wait 200
dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $chaback
wait 200
set $bet [$bet-$chaback]
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 100 | wait 200 | dec $outtimes}
wait 200
dropitemsxyzamount [$posx+2] [$posy-1] $posz 3043 $change
wait 200
closeallwindows
gotolabel 'Pre bet nw'
A 32352 32237 5 Attack se
foreach 'screenplayers' $a {if [$a.posx == $posx-2 && $a.posy == $posy && $a.posz == $posz] {attack $a.id | say 'Bem Vindo $target.name , Faça Sua Aposta! Payout $perc %' | gotolabel 'Pre bet se'} else {gotolabel 'Repeat attack se'}}
A 32352 32237 5 Repeat attack se
set $place $topitem.$posx.[$posy+1].$posz | if [$place == 3497 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {stopattack | clear target | gotolabel 'Attack se'}
else {clear target | wait 1000 | stopattack | gotolabel 'Place north'}
A 32352 32237 5 Pre bet se
if [$target.posx == $posx-2 && $target.posy == $posy && $target.posz == $posz] {closeallwindows | wait 200 | set $check [$max/50] | openbeltitem | gotolabel 'Bet se'}
else {gotolabel 'Repeat attack se'}
A 32352 32237 5 Bet se
while [$check > 0] {collectitems $beltsolt.id 3043 | dec $check | wait 500} | gotolabel 'Bet check se'
A 32352 32237 5 Bet check se
countitemsvisible 3043
if [$count > 0] {gotolabel 'Bet money se'}
else {closeallwindows | gotolabel 'Repeat bet se'}
A 32352 32237 5 Repeat bet se
gotolabel 'Pre bet se'
A 32352 32237 5 Bet money se
say 'Calculando...'
wait 500
set $bet $count
if [$bet > $max || $bet < $min ] {say 'Min $min kk Max $max kk' | wait 500 | gotolabel 'Bet backo se'}
else {wait 500 | gotolabel 'Safe se'}
A 32352 32237 5 Bet backo se
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $change
wait 200
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 100 | wait 200 | dec $outtimes}
closeallwindows
gotolabel 'Pre bet se'
A 32352 32237 5 Safe se
openbpitem
wait 700
moveitems 3043 $backslot.id
wait 700
countitemsvisible 3043
wait 700
set $restack $count
if [$restack <= ($bet*2) || $restack >= 1600 && $winitemcount.'$extrabp' > 0] {gotolabel 'Restack se'}
closeallwindows
say 'Voce Apostou $bet kk! Fale h ou l'
gotolabel 'Roll se'
A 32352 32237 5 Restack se
openitemnew $extrabp 1 $backslot.id
wait 200
countitemsvisible 3043
wait 200
set $comp $count
if [$restack == $comp] {say 'Voce Apostou $bet kk! Fale h ou l!' | wait 200 | closeallwindows | gotolabel 'Roll se'}
else {gotolabel 'Restack two se'}
A 32352 32237 5 Restack two se
set $extimes [$restack/100]
set $exchange [$restack-$extimes*100]
set $dif [$comp-$restack]
set $diftimes [$dif/100]
set $difchange [$dif-$diftimes*100]
if [$restack < ($bet*2)] {gotolabel 'Restack under se'}
if [$restack >= 1600] {gotolabel 'Restack over se'}
A 32352 32237 5 Restack under se
say 'Please wait! Restacking!'
movenitems 3043 $difchange $backslot.id
wait 200
set $numb 5
while [$numb > 0] {wait 500 | movenitems 3043 100 $backslot.id | wait 200 | dec $numb | wait 200}
say 'Voce Apostou $bet kk! Fale h ou l!'
closeallwindows
gotolabel 'Roll se'
A 32352 32237 5 Restack over se
say 'Please wait! Restacking!'
movenitems 3043 $exchange $extrabp
wait 200
set $numb 6
while [$numb > 0] {wait 500 | movenitems 3043 100 $extrabp | wait 200 | dec $numb | wait 200}
say 'Voce Apostou $bet kk! Fale h ou l!'
closeallwindows
gotolabel 'Roll se'
A 32352 32237 5 Roll se
if [$target.posx == $posx-2 && $target.posy == $posy && $target.posz == $posz] {wait 500 | gotolabel 'Roll high se'} | else {gotolabel 'Repeat attack se'}
A 32352 32237 5 Roll high se
wait 100 | if [$lastmsg.content == 'h' && $lastmsg.sender == $target.name] {wait 500 | gotolabel 'Trash high se'} | else {wait 100 | gotoloabel 'Roll low se'}
A 32352 32237 5 Roll low se
wait 100 | if [$lastmsg.content == 'l' && $lastmsg.sender == $target.name] {wait 500 | gotolabel 'Trash low se'} | else {gotolabel 'Repeat roll se'}
A 32352 32237 5 Repeat roll se
gotolabel 'Roll se'
A 32352 32237 5 Trash high se
set $food $topitem.$posx.[$posy+1].$posz | if [$food == 5792 || $food == 5793 || $food == 5794 || $food == 5795 || $food == 5796 || $food == 5797] {gotolabel 'High check se'} | else {gotolabel 'Bet back se'}
A 32352 32237 5 Trash low se
set $food $topitem.$posx.[$posy+1].$posz | if [$food == 5792 || $food == 5793 || $food == 5794 || $food == 5795 || $food == 5796 || $food == 5797] {gotolabel 'Low check se'} | else {gotolabel 'Bet back se'}
A 32352 32237 5 High check se
usegroundxyz $posx [$posy+1] $posz | wait 1000 | set $dice $topitem.$posx.[$posy+1].$posz | if [$dice == 5795 || $dice == 5796 || $dice == 5797] {wait 1000 | gotolabel 'Payout se'} | else {gotolabel 'Trash check high se'}
A 32352 32237 5 Low check se
usegroundxyz $posx [$posy+1] $posz | wait 1000 | set $dice $topitem.$posx.[$posy+1].$posz | if [$dice == 5792 || $dice == 5793 || $dice == 5794] {wait 1000 | gotolabel 'Payout se'} | else {gotolabel 'Trash check low se'}
A 32352 32237 5 Payout se
set $help [$bet*$perc]
wait 200
set $post [$help/100]
wait 200
set $win [$bet+$post]
wait 200
openbpitem
wait 200
countitemsvisible 3043
wait 200
set $all $count
set $allpiles [$all/100]
set $allchange [$all-$allpiles*100]
wait 200
if [$win < $allchange] {wait 200 | dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $win | closeallwindows | gotolabel ' Pre bet se'}
else {gotolabel 'Payout two se'}
A 32352 32237 5 Payout two se
wait 500
dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $allchange
wait 200
set $win [$win-$allchange]
set $outtimes [$win/100]
set $change [$win-$outtimes*100]
wait 200
if [$outtimes == 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $win | closeallwindows | gotolabel 'Pre bet se'}
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 100 | dec $outtimes | wait 500}
wait 500
dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $change
wait 200
wait 200
closeallwindows
gotolabel 'Pre bet se'
A 32352 32237 5 Trash check high se
if [$topitem.$posx.($posy+1).$posz != 5792 && $topitem.$posx.($posy+1).$posz != 5793 && $topitem.$posx.($posy+1).$posz != 5794] {wait 1000 | say 'Dice is trashed. Take your bet back!' | gotolabel 'Bet back se'} | else {say 'Voce Perdeu, Tente Outra Vez!' | gotolabel 'Repeat bet se'}
A 32352 32237 5 Trash check low se
if [$topitem.$posx.($posy+1).$posz != 5795 && $topitem.$posx.($posy+1).$posz != 5796 && $topitem.$posx.($posy+1).$posz != 5797] {wait 1000 | say 'Dice is trashed. Take your bet back!' | gotolabel 'Bet back se'} | else {say 'Voce Perdeu, Tente Outra Vez!' | gotolabel 'Repeat bet se'}
A 32352 32237 5 Bet back se
closeallwindows
openbpitem
wait 500
countitemvisible 3043
wait 500
set $monback $count
set $timeback [$monback/100]
set $chaback [$monback-$timeback*100]
if [$bet < $chaback] {wait 200 | dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $bet | closeallwindows | gotolabel 'Pre bet se'}
wait 200
dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $chaback
wait 200
set $bet [$bet-$chaback]
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 100 | wait 200 | dec $outtimes}
wait 200
dropitemsxyzamount [$posx-2] [$posy+1] $posz 3043 $change
wait 200
closeallwindows
gotolabel 'Pre bet se'
A 32352 32237 5 Attack sw
foreach 'screenplayers' $a {if [$a.posx == $posx+2 && $a.posy == $posy && $a.posz == $posz] {attack $a.id | say 'Bem Vindo $target.name , Faça Sua Aposta! Payout $perc %' | gotolabel 'Pre bet sw'} else {gotolabel 'Repeat attack sw'}}
A 32352 32237 5 Repeat attack sw
set $place $topitem.$posx.[$posy+1].$posz | if [$place == 3497 || $place == 5792 || $place == 5793 || $place == 5794 || $place == 5795 || $place == 5796 || $place == 5797] {stopattack | clear target | gotolabel 'Attack sw'}
else {clear target | wait 1000 | stopattack | gotolabel 'Place north'}
A 32352 32237 5 Pre bet sw
if [$target.posx == $posx+2 && $target.posy == $posy && $target.posz == $posz] {closeallwindows | wait 200 | set $check [$max/50] | openbeltitem | gotolabel 'Bet sw'}
else {gotolabel 'Repeat attack sw'}
A 32352 32237 5 Bet sw
while [$check > 0] {collectitems $beltsolt.id 3043 | dec $check | wait 500} | gotolabel 'Bet check sw'
A 32352 32237 5 Bet check sw
countitemsvisible 3043
if [$count > 0] {gotolabel 'Bet money sw'}
else {closeallwindows | gotolabel 'Repeat bet sw'}
A 32352 32237 5 Repeat bet sw
gotolabel 'Pre bet sw'
A 32352 32237 5 Bet money sw
say 'Calculando...'
wait 500
set $bet $count
if [$bet > $max || $bet < $min ] {say 'Min $min kk Max $max kk' | wait 500 | gotolabel 'Bet backo sw'}
else {wait 500 | gotolabel 'Safe sw'}
A 32352 32237 5 Bet backo sw
set $outtimes [$bet/100]
set $change [$bet-$outtimes*100]
wait 200
dropitemsxyzamount [$posx+2] [$posy+1] $posz 3043 $change
wait 200
while [$outtimes > 0] {wait 500 | dropitemsxyzamount [$posx+2] [$posy+1] $posz 3043 100 | wait 200 | dec $outtimes}
closeallwindows
gotolabel 'Pre bet sw'
A 32352 32237 5 Safe sw
set $extimes [$restack/100]sx.($posy+1).$posz != 5793 &&
[CavebotOptions]
Rope: Rope
Shovel: Shovel
SkipNearbyNodes: 0
OpenNextBp: no
LootNearbyTargets: no
LootDistantTargets: no
[Alerts]
PlayerOnScreen:
GmDetected:
PlayerAttacking:
DefaultMessage:
PrivateMessage:
Disconnected:
Se forem testar o script não liguem com o Min e Max na aposta, na verdade o min é 20k e o max é 1kk. ele fala min 2kk e max 100kk pq a moeda no ot que eu estou jogando é editada =)
se eu estiver postando no local errado e algum moderador puder me mover eu agradeço ;*
a espera de um milagre