SHARE
TWEET

Untitled

a guest Aug 13th, 2017 53 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. on *:text:Sucesso, compraste*:#:{
  2.   var %i = $remove($7,$chr(44)))
  3.   var %j = %i / $3
  4.   var %k = $calc(($3 / 100) * 1)
  5.   var %l = $calc(%i / ($3 + %k))
  6.   if ($round(%j,0) != %j) { msg $chan 7 $nick 10compraste11 $3 10balas por5 $ $+ $round(%l,0) 10por bala. 4(Com Hammer) }
  7.   if ($round(%j,0) == %j) { msg $chan 7 $nick 10compraste11 $3 10balas por5 $ $+ %j 10por bala. 5(Sem Hammer) }
  8.   /notice $nick Serás lembrado quando puderes comprar balas de novo. Gl :º
  9.   var %Rem = $remove($address($nick,2),$chr(64),$chr(33),$chr(42),.users.omerta))
  10.   var %meh = [ %Rem ] $+ balas.txt
  11.   /write %meh $nick | /write balas.txt %meh
  12.   /timer 1 3600 /balas $chan %meh
  13. }
  14. alias balas {
  15.   var %t = $read($2, 1)
  16.   if (%t ison $1) { msg $1 7 %t 10Vai e compra balas baratas ( porque podes novamente) Boa sorte !! }
  17.   /remove $2
  18.   /write -dw $2 balas.txt
  19. }
  20. on *:PART:#: {
  21.   var %Rem = $remove($address($nick,2),$chr(64),$chr(33),$chr(42),.users.omerta))
  22.   var %meh = [ %Rem ] $+ balas.txt
  23.   if ($read(balas.txt, w, %meh) == $null) { halt }
  24.   else { /write -ds %meh balas.txt }
  25. }
  26. on *:QUIT: {
  27.   var %Rem = $remove($address($nick,2),$chr(64),$chr(33),$chr(42),.users.omerta))
  28.   var %meh = [ %Rem ] $+ balas.txt
  29.   if ($read(balas.txt, w, %meh) == $null) { halt }
  30.   else { /write -ds %meh balas.txt }
  31. }
  32. on *:NICK:{
  33.   var %Rem = $remove($address($newnick,2),$chr(64),$chr(33),$chr(42),.users.omerta))
  34.   var %meh = [ %Rem ] $+ balas.txt
  35.   if ($read(balas.txt, w, %meh) == $null) { halt }
  36.   else { /write -c %meh $newnick }
  37. }
RAW Paste Data
Top