on *:text:*:#:{ if (bot isin $nick) { $judii($chan,$1-) } }
alias -l judii {
  var %_a = $remove($strip($2-),$chr(126),$chr(33),$chr(64),$chr(35),$chr(36),$chr(37),$chr(94),$chr(38),$chr(42),$chr(40),$chr(41),$chr(95),$chr(45),$chr(43),$chr(61),$chr(92))
  var %_b = $remove(%_a,$chr(58),$chr(59),$chr(34),$chr(39),$chr(96),$chr(60),$chr(44),$chr(62),$chr(46),$chr(63),$chr(47),$chr(124),$chr(91),$chr(93),$chr(123),$chr(125))
  var %_c = $remove($regsubex(%_b,/[€-Ÿ|¡-ÿ]/g,*),$chr(42))
  if (*saya mengumumkan* iswm %_c) {
    goto $rand(a,c)
    :a | msg $1 huh..?! $gettok(%_c,7,32) kantoi??? wakakakakaka~!!! gelak! gelak! | goto end
    :b | msg $1 dengan ini aku mengumumkan bahawa $gettok(%_c,7,32) seorg penipu besar dlm banjir ini! heh~! ;P | goto end
    :c | msg $1 if ( $+ $gettok(%_c,7,32) == kantoi) return LOSER! | goto end
    :end
  }
  if (*banjir bagi mengesan penipu* iswm %_c) {
    goto $rand(1,3)
    :1 | msg $1 chait.. seb baek remot pawa.. (blagak sket..) :8) | goto endd
    :2 | msg $1 x kantoi pon.. | goto endd
    :3 | msg $1 the great remote comes with less 'kantoi'.. heh! ;P | goto endd
    :endd
  }
  if (*judi ini diberi nama JACKPOT* iswm %_c) {
    :ulangjudi
    var %jp1 = $rand(1,50), %jp2 = $rand(1,50), %jp3 = $rand(1,50)
    if (%jp1 != %jp2) && (%jp1 != %jp3) && (%jp2 != %jp3) {
      msg $1 !jackpot %jp1
      msg $1 !jackpot %jp2
      msg $1 !jackpot %jp3
    }
    else { goto ulangjudi }
  }
  if (*ertaan adalah PERCUMA* iswm %_c) { .timerjudic 1 3 msg $1 !serta }
  var %me = $+(*,$me,*)
  if (%me iswm $gettok(%_c,1-7,32)) {
    if (*pilih telah dipilih* iswm %_c) { msg $1 !jackpot $rand(1,50) }
    if (*teka nombor tu berapa* iswm %_c) { msg $1 !jackpot $rand(1,50) }
    if (*telah diambil oleh* iswm %_c) {
      var %no.sec = %ambil
      :ulangjudiku
      var %j1 = $rand(1,4), %j2 = $rand(1,4), %j3 = $rand(1,4), %j4 = $rand(1,4)
      if (%j1 != %j2) && (%j1 != %j3) && (%j1 != %j4) && (%j2 != %j3) && (%j2 != %j4) && (%j3 != %j4) {
        set %ambil $mid(%no.sec,%j1,1) $+ $mid(%no.sec,%j2,1) $+ $mid(%no.sec,%j3,1) $+ $mid(%no.sec,%j4,1)
        msg $1 !ambil %ambil
      }
      else { goto ulangjudiku }
    }
    if (*dapat meneka dengan tepat* iswm %_c) {
      goto $rand(d,g)
      :d | msg $1 yahooooooooooo~! pak cik kayooooooooooo~! ;P | goto tmt
      :e | msg $1 tenkiuuuuu.. tenkiuuuuu... ;8) | goto tmt
      :f | msg $1 pergh.. cam x percaya je aku teka dgn tepat! cam bomoh la plak.. kekekeke.. ;P | goto tmt
      :g | msg $1 ilex kwn2.. kebetulan je tu.. | goto tmt
      :tmt
    }
  }
  var %strip = $strip($2-)
  if (*Saham yang dibuka* iswm %strip) {
    var %c = $remove(%strip,$chr(120),$chr(91),$chr(124),$chr(45),$chr(93),$chr(58))
    var %d = $replace(%c,$chr(160),*)
    var %e = $replace(%d,**,*)
    var %floop = 2
    while ($gettok(%e,%floop,42) != $null) {
      .timerjudis $+ %floop 1 $calc(%floop * 2) msg $1 !labur $gettok(%e,%floop,42) 1000
      .inc -u5 %floop 1
    }
  }
  if (*kuda yang akan bertanding* iswm %_c) {
    var %-a = $regsubex($strip($1-),/[[:punct:]]/g,*)
    var %-b = $regsubex(%-a,/[€-Ÿ|¡-ÿ]/g,*)
    var %-c = $regsubex(%-b,/[[:cntrl:]]/g,*)
    var %floop = 4
    while ($remove($gettok(%-c,%floop,42),$chr(160)) != $null) {
      .timerjudit $+ %floop 1 $calc(%floop - 2) msg $1 !kuda $remove($gettok(%-c,%floop,42),$chr(160)) 100
      .inc -u5 %floop 1
    }
  }
  var %cok = $remove(%_c,$chr(160))
  if (*nombor rahsia yang tersembunyi* iswm %cok) {
    var %no.sec = $gettok(%cok,40,32), %n1 = 1, %n2 = 2, %n3 = 3, %n4 = 4
    :ulangjudik
    var %j1 = $rand(1,4), %j2 = $rand(1,4), %j3 = $rand(1,4), %j4 = $rand(1,4)
    if (%j1 != %j2) && (%j1 != %j3) && (%j1 != %j4) && (%j2 != %j3) && (%j2 != %j4) && (%j3 != %j4) {
      set %ambil $mid(%no.sec,%j1,1) $+ $mid(%no.sec,%j2,1) $+ $mid(%no.sec,%j3,1) $+ $mid(%no.sec,%j4,1)
      msg $1 !ambil %ambil
    }
    else { goto ulangjudik }
  }
}