All pastes #402932 Raw Edit

Rafi

public text v1 · immutable
·published 2007-03-20 02:10 UTC
rendered paste body
on *:text:!gof reset:#: {
  if ($address($nick,2) == $address($me,2)) { /unsetgof | /not Go Fish Unseted }
}
on *:text:!gofish *:%chan: {
  if (%gof.p1 != $null) { /not theres all ready a game going on, please wait till its finished |  halt }
  else {
    /set %gof.p1 $nick
    /set %gof.p2 $2
    /set %gofgame req
    /notice $2 $nick has requested to play gold fish with you. type !gof yes or !gof no
    /notice $nick please wait for $2 to answer
} }
on *:text:!gof yes:%chan: {
  if ($nick == %gof.p2) && (%gofgame == req) {
    /notice $nick you have accepted the game.
    /notice %player1 $nick has accepted the game. 
    /set %gofgame deal 
    halt
  }
  else { halt }
}
on *:text:!gof no:%chan: {
  if ($nick == %gof.p2) && (%gofgame == req) {
    /notice %player1 $nick has rejected the game
    /notice $nick you have rejected the game
    /unset %gof.p1
    /unset %gof.p2
    /unset %gofgame
} }
;;
on *:text:!gof deal:%chan: {
  if (%gofgame == deal) && ($nick == %gof.p2) || ($nick == %gof.p1) {
    /msg # $nick deals out the cards to both players
    var %dc = $rand(1,13)
    var %hc = $rand(1,13) 
    var %cc = $rand(1,13)
    var %dc = $rand(1,13)
;;i stopped here ;;;;;
  } 
}
;;
alias unsetgof {
  /unset %gof*
}