All pastes #247920 Raw Edit

Anonymous

public text v1 · immutable
#247920 ·published 2006-11-14 00:06 UTC
rendered paste body
on *:Text:!endGame*:#hotpotato:{
/timers off | msg $chan Game Ended. 
  unset $+(%,hpotato,.,$1)
  unset $+(%,hcarrier,.,$1)
  unset $+(%,hpon,.,$1)
  remini hpotato.ini $1
}



alias -l boom {
  kick $($+(%,hpotato,.,$1),2) $replace($($+(%,hcarrier,.,$1),2),$chr(40),[,$chr(41),]) BOOOOOOOOM! Too bad, You LOSE :)
  unset $+(%,hpotato,.,$1)
  unset $+(%,hcarrier,.,$1)
  unset $+(%,hpon,.,$1)
  remini hpotato.ini $1
}
alias -l hpcheck {
  if ($ini(hpotato.ini,$1,0) >= 3) {
    set $+(%,hpon,.,$1) yah
    msg $1 Game is on.
    set $+(%,hcarrier,.,$1) $ini(hpotato.ini,$1,$rand(1,$ini(hpotato.ini,$1,0)))
    $($+(timer,hp,$1),2) 1 $rand(30,60) boom $1
    msg $1 OMG $replace($($+(%,hcarrier,.,$1),2),$chr(40),$chr(91),$chr(41),$chr(93)) $+ , Type !pass to pass it, You have $timer($($+(hp,$1),2)).secs seconds left!
  }
  else { unset $+(%,hpotato,.,$1) | remini hpotato.ini $1 | msg $1 Sorry not enough ready players, Game terminated. }
}
on *:TEXT:*:#:{
  if ($1 == !hotpotato) {
    if ($($+(%,hpotato,.,$chan),2) == $null) {
      set $+(%,hpotato,.,$chan) $chan
      msg $chan Press !join to join the game (Must have 3 or more players(20 seconds))
      timer 1 20 hpcheck $chan
    }
    else { halt }
  }
  if ($($+(%,hpotato,.,$chan),2) == $chan) {
    if ($1 == !join) {
      if ($readini(hpotato.ini,$chan,$nick)) { notice $nick You're already playing this round. }
      else { msg $chan $nick has joined the game. | writeini hpotato.ini $chan $replace($nick,[,$chr(40),],$chr(41)) $nick }
    }
    if ($($+(%,hpon,.,$chan),2)) {
      if ($1 == !pass) {
        if ($($+(%,hcarrier,.,$chan),2) == $replace($nick,[,$chr(40),],$chr(41))) {
          set $+(%,hcarrier,.,$chan) $ini(hpotato.ini,$chan,$rand(1,$ini(hpotato.ini,$chan,0)))
          while ($($+(%,hcarrier,.,$chan),2) == $replace($nick,[,$chr(40),],$chr(41))) {
            set $+(%,hcarrier,.,$chan) $ini(hpotato.ini,$chan,$rand(1,$ini(hpotato.ini,$chan,0)))
          }
          msg $chan OMG $replace($($+(%,hcarrier,.,$chan),2),$chr(40),[,$chr(41),]) $+ , Type !pass to pass it, You have $timer($($+(hp,$chan),2)).secs seconds left!
        }
      }
    }
  }
}