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 

up :\

Esta é uma mensagem automática! Este tópico foi movido para a área correta.
Pedimos que você leia as regras do fórum.

Mostrar conteúdo oculto

This is an automated message! This topic has been moved to the correct area.
Please read the forum rules.