API tools faq
paste
Guest User

Untitled

a guest
Jan 24th, 2018
84
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 8.69 KB | None | 0 0
raw download clone embed print report
  1. on *:text:!igraj*:#: {  
  2.   if (!$hget(Roully, $address($nick,2))) { notice $nick Nemaš nalog. Kucaj !novi da dobiješ jedan. | halt }
  3.   if ($3 !isnum) { notice $nick Nepravilno si odigrao, kucaj !pomoc ako nešto nisi razumeo | Halt }
  4.   if ($left($3,1) == $chr(45)) { notice $nick Nepravilno si odigrao, kucaj !pomoc ako nešto nisi razumeo | halt }
  5.   if ($3 <= 0) { notice $nick Nepravilno si odigrao, količina kredita koju unosiš mora biti pozitivna. | halt }
  6.   if ($3) && ($hget(Roully, $address($nick,2)) < $3) { notice $nick Nemaš toliko kredita. Imaš $chr(36) $+ $hget(Roully, $address($nick,2)) $+ . Obavesti operatora da bi dobio još. | halt }
  7.   if ($2 == crveno || $2 == crno || $2 == nepar || $2 == par || $2 == red1 || $2 == red2 || $2 == red3 ||  $2 == trecina1 || $2 == trecina2 || $2 == trecina3 ||  ( $2 < 48 && $2 >= 10 ) ) {
  8.     if ($2 != num || ( $2 < 48 && $2 >= 10 )) {
  9.       if (%rltimer != on) {
  10.         set %rltimer on
  11.         msg $chan Za 60 sekundi će biti pokrenuta loptica. Položite svoje opklade.
  12.         timer 1 60 msg $chan Ne možete više stavljati opklade. Loptica je pokrenuta.
  13.         timer 1 60 unset %rltimer
  14.         timer 1 60 /spin $chan
  15.       }
  16.       notice $nick Vaša opklada je dodata na sto.
  17.       write bets.txt $address($nick, 2) $nick $2 $3
  18.       hdec Roully $address($nick, 2) $3
  19.     }
  20.   }
  21.   else { notice $nick Nisi pravilno odigrao. Kucaj !pomoc ako nešto nisi razumeo. }
  22. }
  23. alias spin {
  24.   var %num = $rand(10,47)
  25.   msg $1 4 Rulet se zavrteo i sleteo na:6 %num
  26.   if (%num == 10) { var %bets = 10 crno par red1 trecina1 }
  27.   if (%num == 11) { var %bets = 11 crno nepar red2 trecina1 }
  28.   if (%num == 12) { var %bets = 12 crveno par red3 trecina1 }
  29.   if (%num == 13) { var %bets = 13 crno nepar red1 trecina1 }
  30.   if (%num == 14) { var %bets = 14 crveno par red2 trecina1 }
  31.   if (%num == 15) { var %bets = 15 crno nepar red3 trecina1 }
  32.   if (%num == 16) { var %bets = 16 crveno par red1 trecina1 }
  33.   if (%num == 17) { var %bets = 17 crno nepar red2 trecina1 }
  34.   if (%num == 18) { var %bets = 18 crveno par red3 trecina1 }
  35.   if (%num == 19) { var %bets = 19 crveno nepar red1 trecina1 }
  36.   if (%num == 20) { var %bets = 20 crno par red2 trecina1 }
  37.   if (%num == 21) { var %bets = 21 crveno nepar red3 trecina1 }
  38.   if (%num == 22) { var %bets = 22 crno par red1 trecina2 }
  39.   if (%num == 23) { var %bets = 23 crveno nepar red2 trecina2 }
  40.   if (%num == 24) { var %bets = 24 crno par red3 trecina2 }
  41.   if (%num == 25) { var %bets = 25 crveno nepar red1 trecina2 }
  42.   if (%num == 26) { var %bets = 26 crno par red2 trecina2 }
  43.   if (%num == 27) { var %bets = 27 crveno nepar red3 trecina2 }
  44.   if (%num == 28) { var %bets = 28 crno par red1 trecina2 }
  45.   if (%num == 29) { var %bets = 29 crno nepar red2 trecina2 }
  46.   if (%num == 30) { var %bets = 30 crveno par red3 trecina2 }
  47.   if (%num == 31) { var %bets = 31 crno nepar red1 trecina2 }
  48.   if (%num == 32) { var %bets = 32 crveno par red2 trecina2 }
  49.   if (%num == 33) { var %bets = 33 crno nepar red3 trecina2 }
  50.   if (%num == 34) { var %bets = 34 crveno par red1 trecina3 }
  51.   if (%num == 35) { var %bets = 35 crno nepar red2 trecina3 }
  52.   if (%num == 36) { var %bets = 36 crveno par red3 trecina3 }
  53.   if (%num == 37) { var %bets = 37 crveno nepar red1 trecina3 }
  54.   if (%num == 38) { var %bets = 38 crno par red2 trecina3 }
  55.   if (%num == 39) { var %bets = 39 crveno nepar red3 trecina3 }
  56.   if (%num == 40) { var %bets = 40 crno par red1 trecina3 }
  57.   if (%num == 41) { var %bets = 41 crveno nepar red2 trecina3 }
  58.   if (%num == 42) { var %bets = 42 crno par red3 trecina3 }
  59.   if (%num == 43) { var %bets = 43 crveno nepar red1 trecina3 }
  60.   if (%num == 44) { var %bets = 44 crno par red2 trecina3 }
  61.   if (%num == 45) { var %bets = 45 crveno nepar red3 trecina3 }
  62.   if (%num == 46) { var %bets = 46 }
  63.   if (%num == 47) { var %bets = 47 }
  64.   var %count = 1
  65.   while ($read(bets.txt, %count) != $null) {
  66.     var %add = $wildtok($read(bets.txt, %count), *, 1, 32)
  67.     var %nick = $wildtok($read(bets.txt, %count), *, 2, 32)
  68.     var %bet = $wildtok($read(bets.txt, %count), *, 3, 32)
  69.     var %ammount = $wildtok($read(bets.txt, %count), *, 4, 32)
  70.     if (%bet isin %bets) {
  71.       if (%bet == crveno || %bet == crno || %bet == nepar || %bet == par) {
  72.         hinc Roully %add $calc(%ammount * 2)
  73.         msg $1 11 %nick je osvojio %ammount sa svojom opkladom na %bet 
  74.       }
  75.       if (%bet == red1 || %bet == red2 || %bet == red3 || %bet == trecina1 || %bet == trecina2 || %bet == trecina3) {
  76.         hinc Roully %add $calc(%ammount * 3)
  77.         msg $1 11 %nick je osvojio $calc(%ammount * 2) sa svojom opkladom na %bet 
  78.       }
  79.       if (%bet == 0 || %bet == 1 || %bet == 2 || %bet == 3 || %bet == 4 || %bet == 5 || %bet == 6 || %bet == 7 || %bet == 8 || %bet == 9 || %bet == 10 || %bet == 11 || %bet == 12 || %bet == 13 || %bet == 14 || %bet == 15 || %bet == 16 || %bet == 17 || %bet == 18 || %bet == 19 || %bet == 20 || %bet == 21 || %bet == 22 || %bet == 23 || %bet == 24 || %bet == 25 || %bet == 26 || %bet == 27 || %bet == 28 || %bet == 29 || %bet == 30 || %bet == 31 || %bet == 32 || %bet == 33 || %bet == 34 || %bet == 35 || %bet == 36) {
  80.         hinc Roully %add $calc(%ammount * 37)
  81.         msg $1 11  %nick je osvojio $calc(%ammount * 36) sa svojom opkladom na %bet  
  82.       }
  83.     }
  84.     inc %count
  85.   }
  86.   var %color = $rand(0,100)
  87.   msg $1 4  Sve ostale opklade su izgubljene, više sreće drugi put! 
  88.   remove bets.txt
  89. }
  90. on *:text:!novi:#:{
  91.   if ($hget(Roully, $address($nick,2)) < 0 || $hget(Roully, $address($nick,2))) { notice $nick Već imaš nalog. | halt }
  92.   if (!$hget(Roully, $address($nick,2)) || $hget(Roully, $address($nick,2)) >= 0) {
  93.     hadd -m Roully $address($nick,2) 1
  94.     notice $nick Napravljen ti je nov nalog. Igraj se!
  95.   }
  96. }
  97. on *:text:!novac*:#:{
  98.   if (!$2) {
  99.     if ($hget(Roully, $address($nick,2)) > 1) { notice $nick Imaš $chr(36) $+ $hget(Roully, $address($nick,2)) kredita. }
  100.     else { notice $nick Nemaš kredita. | halt }
  101.   }
  102.   else if ($2 == $me) { msg $chan Pun sam para decxko! :p | halt }
  103.   else if ($2 != $me) {
  104.     if ($hget(Roully, $address($2,2)) > 1) { notice $nick $2 ima $chr(36) $+ $hget(Roully, $address($2,2)) kredita. }
  105.     else { notice $nick $2 nema kredita | halt }
  106.   }
  107. }
  108. on *:text:!dodaj*:#: {
  109.   if ($nick isop $chan) {
  110.     if (!$hget(Roully, $address($2, 2))) { notice $nick On nema akaunt. | halt }
  111.     hinc Roully $address($2,2) $3
  112.     msg $chan 6 Dodato je  $3 kredita na akaunt od $2
  113.   }
  114.   else { notice $nick Nisi operator! }
  115. }
  116. on *:text:!isplata*:#: {
  117.   if ($nick isop $chan) {
  118.     if ($hget(Roully, $address($2,2)) < 0 || !$hget(Roully, $address($2,2))) { msg $chan Nema tog akaunta. | halt }
  119.     if ($hget(Roully, $address($2,2)) || $hget(Roully, $address($2,2)) >= 0) {
  120.       if ($hget(Roully, $address( $2,2)) > 1) { msg $chan $2 ima $chr(36) $+ $hget(Roully, $address($2,2)) kredita. Toliko je potrebno isplatiti. }
  121.       else { msg $chan 8 $2 nema kredita. | halt }
  122.       hdec Roully $address($2,2) $hget(Roully, $address($2,2))
  123.       hinc Roully $address($2,2) 1  
  124.       msg $chan 5 $2ov račun je smanjen na nulu, novac treba donirati.
  125.     }
  126.   }
  127.   else { notice $nick Nisi operator }
  128. }
  129. on *:text:!daj*:#: {
  130.   if ($2) {
  131.     if (!$hget(Roully, $address($nick, 2))) { notice $nick Nemaš akaunt | halt }
  132.     if (!$hget(Roully, $address($2, 2))) { notice $nick On nema akaunt. | halt }
  133.     if ($hget(Roully, $address($nick,2)) > $3) {
  134.       hdec Roully $address($nick,2) $3
  135.       hinc Roully $address($2,2) $3
  136.       msg $chan $nick je dao $2 $ $+ $3 $+ .
  137.     }
  138.     else { notice $nick Ne možeš dati više nego što imaš! }
  139.   }
  140. }
  141. on *:text:!pomoc:#: {
  142.   notice $nick Igraš na komandu "!igraj pa_mod pa_veličina_uloga"
  143.   notice $nick Da vidiš modove kucaj "!modovi"
  144.   notice $nick A ko želiš link do orga za uplatu, kucaj !uplata
  145. }
  146. on *:text:!uplata:#: {
  147.   notice $nick Org za donacije je nepotreban
  148. }
  149. on *:text:!modovi:#: {
  150.   notice $nick Modovi su: Brojevi od 10 do 47 (Zbog baga nema prvih 10 brojeva, ispravićemo to uskoro), crvenoovi, boje i par/nepar
  151.   notice $nick Komande za modove su Crveno, Crno, Nepar, Par, Red1 - Red3, Trecina1-Trecina3, 10 - 47
  152. }
  153. on *:text:!komande*:#: {
  154.   notice $nick !Novi, !Novac/!Novac pa_nick, !Daj nick količina_novca, !Igraj (Opklada) (Količina)
  155. }
  156. on *:join:#: {
  157.   notice $nick Zdravo! Kucaj !novi da napraviš sebi akaunt. I obavesti operatora kanala ako treba da ti se doda neka količina čipova.
  158.   notice $nick Ako ti je potrebna pomoć kucaj "!pomoc"
  159.   notice $nick Za ostale komande i mogućnosti, kucaj "!komande"
  160.   if (!$hget(Roully, $address($nick,2)) || $hget(Roully, $address($nick,2)) >= 0) {
  161.     hadd -m Roully $address($nick,2) 1
  162.     notice $nick Napravljen ti je nov nalog. Igraj se!
  163.   }
  164. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!