Stuff

on $*:text:/^[@!]flip/Si:#huskrfreak88:{
  if ($($+(%,flipping.,$nick),2) == yes) { .notice $nick 3Flip in progress! | /halt }
  else { /set $+(%,flipping.,$nick) yes }
  if ($2 > 5000) { .notice $nick 4Please use a number under 5000! | /unset $+(%,flipping.,$nick) | /halt }  
  if (($2 == $null) || ($2 == isalpha)) { .notice $nick 3Format is 7!flip 12Number | /unset $+(%,flipping.,$nick) | /halt } 
  if ($2 isnum) {
    /set $+(%,flip.,$nick) 0
    /set $+(%,heads.,$nick) 0
    /set $+(%,tails.,$nick) 0
    while ($($+(%,flip.,$nick),2) < $2) {
      /set $+(%,coin.,$nick) $rand(1,2)      
      if ($($+(%,coin.,$nick),2) == 1) { inc $+(%,heads.,$nick) }
      if ($($+(%,coin.,$nick),2) == 2) { inc $+(%,tails.,$nick) }
      inc $+(%,flip.,$nick)
    }
    if ($left($1,1) == !) {    
      .notice $nick 3You flipped: 
      .notice $nick 7 $($+(%,heads.,$nick),2) Heads
      .notice $nick 7 $($+(%,tails.,$nick),2) Tails
      /unset $+(%,flipping.,$nick)  
      /unset $+(%,flip.,$nick) 
      /unset $+(%,heads.,$nick) 
      /unset $+(%,tails.,$nick)  
      /unset $+(%,coin.,$nick) 
    }
    else {
      .msg $chan 3You flipped: 
      .msg $chan 7 $($+(%,heads.,$nick),2) Heads
      .msg $chan 7 $($+(%,tails.,$nick),2) Tails
      /unset $+(%,flipping.,$nick)  
      /unset $+(%,flip.,$nick) 
      /unset $+(%,heads.,$nick) 
      /unset $+(%,tails.,$nick)  
      /unset $+(%,coin.,$nick)
    }
  }
}