#steal off
On *:TEXT:!pot:#:{ 
  mstat *s1 $iif(%pot.punten = 0,There are no points in the pot ! %pot.winner has removed them all :p,The jackpot is at present %pot.punten and the last winner was %pot.winner)  
} 

On *:TEXT:*@steal:#: { 
  set %speel.num. $rand(1,$nick($chan,0))
  set %speel.speler $nick($chan,%speel.num.)
  %stealr = $rand(a,u) 
  %pot.bedrag = $rand(500,1500) 
  %sponsor = $rand(1,3) 
  { if (%msg.steal. [ $+ [ $nick ] ] = played) {
      StealWait 
      Return 
    } 
    On owner:TEXT: !addpoints * : # :  { stx_addpoints $2 $3 } 
  } 
  { if ($hof(p,$nick) < 0) { 
      mstat *s1 You need to add Trivia points to your score $nick :d :d your already on $hof(p,$nick) :|  
      Return 
    } 
  } 
  { 
    if ($nick = %speel.speler) { 
      inc %pot.punten 150 
      stx_addpoints $nick -150 
      mstat *s2 $nick throws 150 points in the pot :d Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner  
    } 
    elseif (%stealr = p) { 
      inc %pot.punten 50 
      stx_addpoints $nick -50 
      mstat *s1 $nick throws 50 points in the pot :d Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner  
    } 
    elseif (%stealr = q) { 
      inc %pot.punten 75 
      stx_addpoints $nick -75 
      mstat *s1 $nick Throws 75 points in the pot :d Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner  
    } 
    elseif (%stealr = r) { 
      inc %pot.punten 140 
      stx_addpoints $nick -140 
      mstat *s1 $nick Throws 140 points in the pot :d Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner   
    } 
    elseif (%stealr = s) { 
      inc %pot.punten 130 
      stx_addpoints $nick -130 
      mstat *s1 $nick Throws 130 points in the pot :d Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner  
    } 
    elseif (%stealr = t) { 
      inc %pot.punten 120 
      stx_addpoints $nick -120 
      mstat *s1 $nick Throws 120 points in the pot :d Pot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner   
    } 
    elseif (%stealr = u) { 
      inc %pot.punten 110 
      stx_addpoints $nick -110 
      mstat *s1 $nick Throws 110 points in the pot :d Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner  
    } 
    elseif (%stealr = p) { 
      inc %pot.punten 500 
      stx_addpoints $nick -500 
      mstat *s1 $nick Throws 500 points in the pot :o Jackpot now stands at %pot.punten points :o ? 
      (Y)(Y)(Y) Last winner of the pot was: %pot.winner   
    } 
    elseif (%stealr = n) { 
      stx_addpoints $nick %pot.punten 
      mstat *s1 (*) $nick (*) has won the Jackpot :o it stood at %pot.punten points !!! 
      (*)(f)Well done(f)(*) !!!  
      set %pot.punten %pot.bedrag 
      mstat *s3 Sponsor found, Bill Gates : $read(sponsor.txt) ! has given %pot.bedrag points into the Jackpot :o  
      set %pot.winner  $nick 
    } 
    elseif (%stealr = o) { 
      stx_addpoints $nick %pot.punten 
      mstat *s1 (*) $nick (*) Has won the Jackpot :o it stood at %pot.punten points !!! 
      (*)(f)Well Done(f)(*) !!!  
      set %pot.punten %pot.bedrag  
      mstat *s3 Sponsor found, Oprah Winfrey : $read(sponsor.txt) ! has given %pot.bedrag points into the Jackpot :o  
      set %pot.winner $nick 
    } 
    elseif (%stealr = a) { 
      stx_addpoints $nick 50 
      stx_addpoints %speel.speler -50 
      mstat *s1 $nick steals 50 points from %speel.speler :o  
    } 
    elseif (%stealr = b) { 
      stx_addpoints $nick 110 
      stx_addpoints %speel.speler -110 
      mstat *s1 $nick steals 110 points %speel.speler :o  
    } 
    elseif (%stealr = c) { 
      stx_addpoints $nick 120 
      stx_addpoints %speel.speler -120 
      mstat *s1 $nick steals 120 points from %speel.speler :o   
    } 
    elseif (%stealr = d) { 
      stx_addpoints $nick 150 
      stx_addpoints %speel.speler -150 
      mstat *s1 $nick steals 150 points from %speel.speler :o  
    } 
    elseif (%stealr = e) { 
      stx_addpoints $nick 100 
      stx_addpoints %speel.speler -100 
      mstat *s1 $nick steals 100 points from %speel.speler :o   
    } 
    elseif (%stealr = f) { 
      stx_addpoints $nick 50 
      stx_addpoints %speel.speler -50 
      mstat *s1 $nick steals 50 points from %speel.speler :o    
    }
    elseif (%stealr = g) { 
      stx_addpoints $nick -100 
      stx_addpoints %speel.speler 100 
      mstat *s1 $nick gives away 100 of their hard earned points to %speel.speler (a)  
    } 
    elseif (%stealr = h) { 
      stx_addpoints $nick -120 
      stx_addpoints %speel.speler 120 
      mstat *s1 $nick gives away 120 of their points to %speel.speler (a)   
    } 
    elseif (%stealr = i) { 
      stx_addpoints $nick -125 
      stx_addpoints %speel.speler 125 
      mstat *s1 $nick gives away 125 of their hard earned points to %speel.speler (a)   
    } 
    elseif (%stealr = j) { 
      stx_addpoints $nick -130 
      stx_addpoints %speel.speler 130 
      mstat *s1 $nick gives away 130 of their hard earned points to %speel.speler (a)   
    } 
    elseif (%stealr = k) { 
      stx_addpoints $nick -140 
      stx_addpoints %speel.speler 140 
      mstat *s1 $nick gives away 140 of their hard earned points to %speel.speler (a)    
    } 
    elseif (%stealr = l) { 
      stx_addpoints $nick -250 
      stx_addpoints %speel.speler 250 
      mstat *s1 $nick gives away 250 of their hard earned points to %speel.speler (a)    
    } 
    elseif (%stealr = m) { 
      stx_addpoints $nick -175 
      stx_addpoints %speel.speler 175 
      mstat *s1 $nick gives away 175 of their hard earned points to %speel.speler (a)   
    } 
  } 
  set -u90 %msg.steal. [ $+ [ $nick ] ] played 
}

;;;; other aliases 

alias tell { 
  .ctcpreply $1 TIME $2- 
} 
alias StealWait { 
  tell $nick Thou Shalt Not Steal but once every 90 seconds 
  return 
} 
#steal end 
