Revised erep .erth for leal9001

on *:text:.erth:#: {
  if ($nick isop $chan) {
    ;numbers :)
    var %1 = $rand(1,50)
    :number2
    var %2 = $rand(1,50)
    if (%1 == %2) goto number2
    :number3
    var %3 = $rand(1,50)
    if ((%1 == %3) || (%2 == %3)) goto number3
    :number4
    var %4 = $rand(1,50)
    if ((%1 == %4) || (%2 == %4) || (%3 == 4)) goto number4
    :number5
    var %5 = $rand(1,50)
    if ((%1 == %5) || (%2 == %5) || (%3 == %5) || (%4 == %5)) goto number5
    var %m = msg $chan
    var %t = .timer 1
    var %1 $iif(%1 < 10,0 $+ $v1,$v1)
    var %2 $iif(%2 < 10,0 $+ $v1,$v1)
    var %3 $iif(%3 < 10,0 $+ $v1,$v1)
    var %4 $iif(%4 < 10,0 $+ $v1,$v1)
    var %full = %1 %2 %3 %4 %5
    var %full = $replace(%full,$chr(32),$chr(47)
    var %joker = $gettok(%full, $rand(1, $numtok(%full, 47)), 47)
    %t 1 mode $chan +m
    %t 5 %m Welcome to the eRep-Thousands Raffle
    %t 10 %m The bets were set, now we'll see who won.
    %t 15 %m Please wait while the raffle is occuring. Thank you.
    %t 18 %m ~vrooom~ ball spining
    %t 23 %m And the first number is...
    %t 28 %m 4 $+ %1 $+ !!!
    %t 32 %m Here goes the second one...
    %t 37 %m 4 $+ %2 $+ !!!
    %t 41 %m Ohhh!... Not the third one!...
    %t 46 %m 4 $+ %3 $+ !!!
    %t 50 %m And there goes the fourth...
    %t 55 %m 4 $+ %4 $+ !!!
    %t 59 %m Last but not least...
    %t 64 %m 4 $+ %5 $+ !!!
    %t 68 %m Now those are your numbers. Let's see what the joker is!
    %t 71 %m And the joker is...
    %t 81 %m 4 $+ %joker $+ !!!
    %t 85 %m The raffle has now ended.
    %t 88 %m The chosen numbers are 4 $+ $sorttok(%full, 47, n) and the joker is 4 $+ %joker $+ .
    %t 92 %m All of these numbers have been chosen randomly with no interference from human hands.
    %t 99 mode $chan -m
  }
  else msg $chan You are not part of the eRep-Thousands' staff.
}