on *:JOIN:#cruiser:{
  if ($nick == $me) {
    halt
  }
  else {
    timer 1 2 set %1 $nick
    timer 1 2 set %2 $address
    timer 1 2 msg P verify $nick
    timer 1 2 msg $me address %p %2
    timer 1 2 timer 1 1 unset %1
    timer 1 2 timer 1 1 unset %2
    halt
  }
}

on *:TEXT:join*:?:{
  if ($nick == $me) && % [ $+ [ %appid ] [ $+ [ voted [ $+ [ $2 ] ] ] ] ] == $null && $readini(app.ini,app,app) == on {
    msg $readini(adata.ini,$2,nick) Hello, $readini(adata.ini,$2,nick) $+ , poll: ( $+ $readini(pollid.ini,%appid,applicant) $+ 's application to join the Cruiser Community $+ ) is currently active and you have not yet voted. Type: !poll for more info.
    halt
  }
  else {
    halt
} }

on *:TEXT:address*:?:{
  if ($nick == $me) {
    writeini adata.ini %p lastaddress %2
    halt
  }
  else {
    halt
} }


on *:PART:#cruiser:{
  if ($readini(udata.ini,$address,pnick) != $null) {
    remini ndata.ini $readini(udata.ini,$address,nick)
    remini adata.ini $readini(udata.ini,$address,pnick) address
    remini adata.ini $readini(udata.ini,$address,pnick) nick
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $readini(udata.ini,$address,pnick) seen parting $chan $+ ,
    writeini adata.ini $readini(udata.ini,$address,pnick) lastaddress $address
    remini udata.ini $address
    halt
} }

on *:ACTION:*:#:{
  if ($readini(udata.ini,$address,pnick) != $null) {
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $readini(udata.ini,$address,pnick) seen talking in $chan saying: * $nick $1- $+ ,
    writeini adata.ini $readini(udata.ini,$address,pnick) lastaddress $address
    halt
} }


on *:KICK:#cruiser:{
  remini adata.ini $readini(ndata.ini,$knick,pnick) address
  remini adata.ini $readini(ndata.ini,$knick,pnick) nick
  set % $+ [ $readini(ndata.ini,$knick,pnick) ] $+ seen $ctime
  writeini adata.ini $readini(ndata.ini,$knick,pnick) seen being kicked from $chan $+ ,
  writeini adata.ini $readini(ndata.ini,$knick,pnick) lastaddress $readini(ndata.ini,$knick,address)
  remini udata.ini $readini(ndata.ini,$knick,address)
  remini ndata.ini $knick
  halt
} }

on *:NICK:{
  if ($readini(udata.ini,$address,nick) == $nick) {
    remini ndata.ini $nick
    writeini adata.ini $readini(udata.ini,$address,pnick) nick $newnick
    writeini udata.ini $address nick $newnick
    writeini ndata.ini $newnick nick $newnick
    writeini ndata.ini $newnick address $address
    writeini ndata.ini $newnick pnick $readini(udata.ini,$address,pnick)
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $readini(udata.ini,$address,pnick) seen changing nick to $newnick $+ ,
    writeini adata.ini $readini(udata.ini,$address,pnick) lastaddress $address
    halt
} }

on *:TEXT:*:#: {
  if ($readini(udata.ini,$address,pnick) != $null) {
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $readini(udata.ini,$address,pnick) seen talking in $chan saying: < $+ $nick $+ > $1- $+ ,
    writeini adata.ini $readini(udata.ini,$address,pnick) lastaddress $address
    halt
} }


on *:QUIT:{
  if ($readini(udata.ini,$address,pnick) != $null) {
    remini adata.ini $readini(udata.ini,$address,pnick) address
    remini adata.ini $readini(udata.ini,$address,pnick) nick
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $readini(udata.ini,$address,pnick) seen quitting irc with message ( $+ $1- $+ ) $+ ,
    writeini adata.ini $readini(udata.ini,$address,pnick) lastaddress $address
    remini udata.ini $address
    remini ndata.ini $nick
    halt
  }
}

on *:NOTICE:*:*: {
  if ($nick == P) && $6 == $null {
    notice %1 [ERROR] I Cannot authenticate you because you are NOT logged in to P. Login to P by typing: /msg p@cservice.netgamers.org LOGIN <your pnick> <password>, then type !login.
    halt
  }
  if ($nick == P) && $2 == is && $4 == CSC && $readini(adata.ini,$11,pnick) == $null && $readini(adata.ini,$11,access) == $null {
    set %p $11
    writeini adata.ini $11 pnick $11
    writeini adata.ini $11 nick %1
    writeini adata.ini $11 address %2
    writeini udata.ini %2 pnick $11
    writeini udata.ini %2 nick %1
    writeini ndata.ini %1 nick %1
    writeini ndata.ini %1 pnick $11
    writeini ndata.ini %1 address %2
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $11 seen joining $chan
    msg $me join $11
    msg $me kick $11
    timer 1 1 unset %p
    halt
  }
  if ($nick == P) && $2 == is && $4 == CSC && $readini(adata.ini,$11,pnick) == $null && $readini(adata.ini,$11,access) != $null {
    set %p $11
    writeini adata.ini $11 nick %1
    writeini adata.ini $11 address %2
    writeini udata.ini %2 pnick $11
    writeini udata.ini %2 nick %1
    writeini udata.ini %11 access $readini(adata.ini,$11,access)
    writeini udata.ini %2 automode $readini(adata.ini,$11,automode)
    writeini ndata.ini %1 nick %1
    writeini ndata.ini %1 pnick $11
    writeini ndata.ini %1 address %2
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $11 seen joining #cruiser
    msg $me join $11
    msg $me kick $11
    timer 1 1 unset %p
    halt
  }
  if ($nick == P) && $2 == is && $readini(adata.ini,$6,pnick) == $null && $readini(adata.ini,$6,access) == $null {
    set %p $6
    set %a $1
    writeini adata.ini $6 pnick $6
    writeini adata.ini $6 nick %1
    writeini adata.ini $6 address %2
    writeini udata.ini %2 pnick $6
    writeini udata.ini %2 nick %1
    writeini ndata.ini %1 nick %1
    writeini ndata.ini %1 pnick $6
    writeini ndata.ini %1 address %2
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $6 seen joining $chan
    msg $me join $6
    msg $me kick $6
    timer 1 1 unset %p
    timer 1 1 unset %a
    halt
  }
  if ($nick == P) && $2 == is && $readini(adata.ini,$6,pnick) == $null && $readini(adata.ini,$6,access) != $null {
    set %p $6
    set %a $1
    writeini adata.ini $6 nick %1
    writeini adata.ini $6 address %2
    writeini udata.ini %2 pnick $6
    writeini udata.ini %2 nick %1
    writeini udata.ini %2 access $readini(adata.ini,$6,access)
    writeini udata.ini %2 automode $readini(adata.ini,$6,automode)
    writeini ndata.ini %1 nick %1
    writeini ndata.ini %1 pnick $6
    writeini ndata.ini %1 address %2
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $6 seen joining #cruiser
    msg $me join $6
    msg $me kick $6
    timer 1 1 unset %p
    timer 1 1 unset %a
    halt
  }
  if ($nick == P) && $2 == is && $readini(adata.ini,$6,pnick) != $null && $readini(adata.ini,$6,access) == $null {
    set %p $6
    set %a $1
    writeini adata.ini $6 pnick $6
    writeini adata.ini $6 nick %1
    writeini adata.ini $6 address %2
    writeini udata.ini %2 pnick $6
    writeini udata.ini %2 nick %1
    writeini ndata.ini %1 nick %1
    writeini ndata.ini %1 pnick $6
    writeini ndata.ini %1 address %2
    set % $+ [ $readini(udata.ini,$address,pnick) ] $+ seen $ctime
    writeini adata.ini $6 seen joining #cruiser
    msg $me join $6
    msg $me kick $6
    timer 1 1 unset %p
    timer 1 1 unset %a
    halt
  }
  if ($nick == P) && $2 == is && $readini(adata.ini,$6,pnick) != $null && $readini(adata.ini,$6,access) != $null {
    set %p $6
    set %a $1
    writeini adata.ini $6 pnick $6
    writeini adata.ini $6 nick %1
    writeini adata.ini $6 address %2
    writeini udata.ini %2 pnick $6
    writeini udata.ini %2 nick %1
    writeini udata.ini %2 access $readini(adata.ini,$6,access)
    writeini udata.ini %2 automode $readini(adata.ini,$6,automode)
    writeini ndata.ini %1 nick %1
    writeini ndata.ini %1 pnick $6
    writeini ndata.ini %1 address %2
    set % $+ [ %p ] $+ seen $ctime
    writeini adata.ini $6 seen joining #cruiser,
    mode #cruiser $readini(adata.ini,$6,automode) %1
    msg $me join $6
    msg $me kick $6
    timer 1 1 unset %p
    timer 1 1 unset %a
    halt
  }
}