rendered paste body;Casino Script
on *:TEXT:!8ball*:#:{
/set %8ball $rand(1,6)
if (%8ball == 1) .msg $chan 10No!
if (%8ball == 2) .msg $chan 10Yes
if (%8ball == 3) .msg $chan 10Maybe
if (%8ball == 4) .msg $chan 10of course
if (%8ball == 5) .msg $chan 10Are you crazy?!?!
if (%8ball == 6) /msg $chan 10How should I know?
}
on *:TEXT:!slotreg:#:{
if ($nick != darkblaze) if ((% [ $+ [ $nick ] ] < 20) || (% [ $+ [ $nick ] ] == $null)) /msg $chan 10 $nick has 100 dollars to use. good luck
if ($nick isop #jeffrey) if ((% [ $+ [ $nick ] ] < 20) || (% [ $+ [ $nick ] ] == $null)) .set % [ $+ [ $nick ] ] 99999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999999 }
on *:TEXT:!money*:#:{
if ($2 != $null) /msg $chan 10 $$2 has % [ $+ [ $$2 ] ] dollars
if ($2 == $null) /msg $chan 10 $nick has % [ $+ [ $nick ] ] dollars
}
on *:TEXT:!casino:*:{
/msg $chan 10Commands are !cointoss (money u want to bet) (heads or tails) , !lottery (numb) (numb) (numb) , !big1 (numb) , !slothelp , !give (nick) (money) , !slotreg , !slots , !money(nick) , !8ball (question) ,
}
on *:TEXT:!slots:#:{
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 1) /set %srand1 @
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 2) /set %srand1 %
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 3) /set %srand1 !
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 1) /set %srand2 @
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 2) /set %srand2 %
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 3) /set %srand2 !
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 1) /set %srand3 @
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 2) /set %srand3 %
if (% [ $+ [ $nick ] ] >= 20) if ($rand(1,3) == 3) /set %srand3 !
if (% [ $+ [ $nick ] ] >= 20) /set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] - 20)
if (% [ $+ [ $nick ] ] >= 20) .msg $chan 10the winning slots were ( %srand1 )( %srand2 )( %srand3 )
if (% [ $+ [ $nick ] ] >= 20) if (%srand1 == @) if (%srand2 == @) if (%srand3 == @) .msg $chan 10congrats $nick $+ !!! u have won 100 dollars!!!
if (% [ $+ [ $nick ] ] >= 20) if (%srand1 == %) if (%srand2 == %) if (%srand3 == %) .msg $chan 10congrats $nick $+ !!! u have won 200 dollars!!!
if (% [ $+ [ $nick ] ] >= 20) if (%srand1 == !) if (%srand2 == !) if (%srand3 == !) .msg $chan 10JACKPOT!!!! u have won 500 dollars $nick $+ !!!
if (% [ $+ [ $nick ] ] >= 20) if (%srand1 == @) if (%srand2 == @) if (%srand3 == @) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + 100)
if (% [ $+ [ $nick ] ] >= 20) if (%srand1 == %) if (%srand2 == %) if (%srand3 == %) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + 200)
if (% [ $+ [ $nick ] ] >= 20) if (%srand1 == !) if (%srand2 == !) if (%srand3 == !) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + 500)
if (% [ $+ [ $nick ] ] < 20) .msg $chan 10 $nick does not have enough money to play
}
on *:TEXT:!slothelp:#:{
if ($nick != darkblaze) /msg $chan 10 if u have not registered yet then please type !slotreg this will give u 100 dollars to play with, it costs 20 dollars to play slots , if u run out of money u must register again , to see how much money someone has then type !money (nick) , after u have registered then type !slots to play. @@@ = 50 dollars, %%% = 100 dollars, !!! = jackpot 500 dollars. u can give someone some of ur money by typing !give (nick) (how much money)
}
on *:TEXT:!give*:#:{
if ($nick != darkblaze) if (% [ $+ [ $nick ] ] < $3) /msg $chan 10sorry $nick . u do not have $3 dollars to give $$2
if ($nick != darkblaze) if (% [ $+ [ $nick ] ] >= $3) /set % [ $+ [ $$2 ] ] $calc(% [ $+ [ $$2 ] ] + $3 )
if ($nick != darkblaze) if (% [ $+ [ $nick ] ] >= $3) .msg $chan 10 $nick has given $$2 $3 dollars
if ($nick != darkblaze) if (% [ $+ [ $nick ] ] >= $3) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] - $3 )
}
on *:TEXT:!lottery*:#:{
if (% [ $+ [ $nick ] ] >= 50) /set %plot1 $2
if (% [ $+ [ $nick ] ] >= 50) /set %plot2 $3
if (% [ $+ [ $nick ] ] >= 50) /set %plot3 $4
if (% [ $+ [ $nick ] ] >= 50) /set %clot1 $rand(1,9)
if (% [ $+ [ $nick ] ] >= 50) /set %clot2 $rand(1,9)
if (% [ $+ [ $nick ] ] >= 50) /set %clot3 $rand(1,9)
if (% [ $+ [ $nick ] ] >= 50) if (((%plot1 == %clot1) && (%plot2 == %clot2) && (%plot3 == %clot3))) .msg $chan 10congrats $nick !!! u have just won 4000000 dollars!!!!
if (% [ $+ [ $nick ] ] >= 50) if (((%plot1 == %clot1) && (%plot2 == %clot2) && (%plot3 == %clot3))) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + 4000000)
if (% [ $+ [ $nick ] ] >= 50) if (((%plot1 != %clot1) || (%plot2 != %clot2) || (%plot3 != %clot3))) .msg $chan 10sorry $nick but u have lost 50 dollars. the numbers were -----> %clot1 %clot2 %clot3 <------. try again. remember if u win u get 4000000 dollars
if (% [ $+ [ $nick ] ] >= 50) if (((%plot1 != %clot1) || (%plot2 != %clot2) || (%plot3 != %clot3))) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] - 50)
if (% [ $+ [ $nick ] ] < 50) .msg $chan 10sorry but u do not have enough money. type !slotreg if u have no money
}
on *:TEXT:!big1*:#:{
if (% [ $+ [ $nick ] ] >= 100) /set %pbig $2
if (% [ $+ [ $nick ] ] >= 100) /set %cbig $rand(1,9)
if (% [ $+ [ $nick ] ] >= 100) if (%pbig == %cbig) .msg $chan 10congrats $nick !!! u have just won 1000 dollars!!!!
if (% [ $+ [ $nick ] ] >= 100) if (%pbig == %cbig) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + 1000)
if (% [ $+ [ $nick ] ] >= 100) if (%pbig != %cbig) .msg $chan 10sorry $nick but u have lost 100 dollars. the number was -----> %cbig <------. try again. remember if u win u get 1000 dollars
if (% [ $+ [ $nick ] ] >= 100) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] - 100)
if (% [ $+ [ $nick ] ] < 100) .msg $chan 10sorry but u do not have enough money. type !slotreg if u have no money
}
n *:TEXT:!cointoss*:#:{
if (% [ $+ [ $nick ] ] >= $2) set %coinflip $rand(1,2)
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip == 1) && ($3 == heads)) /msg $chan 10congratulations!!! u have won $2 dollars!!!
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip == 2) && ($3 == tails)) /msg $chan 10congratulations!!! u have won $2 dollars!!!
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip != 2) && ($3 == tails)) /msg $chan 10sorry but u lost. the coin landed on heads
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip == 2) && ($3 != tails)) /msg $chan 10sorry but u lost. the coin landed on tails
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip == 2) && ($3 == tails)) /set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + $2)
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip == 1) && ($3 == heads)) /set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] + $2)
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip == 2) && ($3 != tails)) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] - $2)
if (% [ $+ [ $nick ] ] >= $2) if ((%coinflip != 2) && ($3 == tails)) .set % [ $+ [ $nick ] ] $calc(% [ $+ [ $nick ] ] - $2)
if ($3 == $null) .msg $chan 10please indicate whether u r betting on heads or tails. ex. !cointoss (money) (heads or tails)
if (% [ $+ [ $nick ] ] < $2) /msg $chan 10sorry but $nick does not have $2 dollars to spend
}
on *:text:!delmoney*:#:{
if ($nick isop #jeffrey) {
unset % [ $+ [ $2 ] ]
notice $2 Oh No! Your Money Fell Out Of your pocket! Or a botoper deleted it :(
}
}