Leal9001

Untitled

Sep 9th, 2011
252
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 1.67 KB | None | 0 0
  1. on *:text:.erth:#: {
  2.   if ($nick isop $chan) {
  3.     ;numbers :)
  4.     var %1 = $rand(1,50)
  5.     :number2  
  6.     var %2 = $rand(1,50)
  7.     if (%1 == %2) goto number2
  8.     :number3
  9.     var %3 = $rand(1,50)
  10.     if ((%1 == %3) || (%2 == %3)) goto number3
  11.     :number4  
  12.     var %4 = $rand(1,50)
  13.     if ((%1 == %4) || (%2 == %4) || (%3 == 4)) goto number4
  14.     :number5  
  15.     var %5 = $rand(1,50)
  16.     if ((%1 == %5) || (%2 == %5) || (%3 == %5) || (%4 == %5)) goto number5
  17.     var %m = msg $chan
  18.     var %t = .timer 1
  19.     var %full = %1 %2 %3 %4 %5
  20.     var %joker = $gettok(%full, $rand(1, $numtok(%full, 32)), 32)
  21.     %t 1 mode $chan +m
  22.     %t 5 %m Welcome to the eRep-Thousands Raffle
  23.     %t 10 %m The bets were set, now we'll see who won.
  24.     %t 15 %m Please wait while the raffle is occuring. Thank you.
  25.     %t 18 %m ~vrooom~ ball spining
  26.     %t 23 %m And the first number is...
  27.     %t 28 %m 4 $+ %1 $+ !!!
  28.     %t 32 %m Here goes the second one...
  29.     %t 37 %m 4 $+ %2 $+ !!!
  30.     %t 41 %m Ohhh!... Not the third one!...
  31.     %t 46 %m 4 $+ %3 $+ !!!
  32.     %t 50 %m And there goes the fourth...
  33.     %t 55 %m 4 $+ %4 $+ !!!
  34.     %t 59 %m Last but not least...
  35.     %t 64 %m 4 $+ %5 $+ !!!
  36.     %t 68 %m Now those are your numbers. Let's see what the joker is!
  37.     %t 71 %m And the joker is...
  38.     %t 81 %m 4 $+ %joker $+ !!!
  39.     %t 85 %m The raffle has now ended.
  40.     %t 88 %m The chosen numbers are 4 $+ $sorttok(%full, 32, n) and the joker is 4 $+ %joker $+ .
  41.     %t 92 %m All of these numbers have been chosen randomly with no interference from human hands.
  42.     %t 99 mode $chan -m
  43.   }
  44.   else msg $chan You are not part of the eRep-Thousands' staff.
  45. }
Advertisement
Add Comment
Please, Sign In to add comment