main.ini tab

on *:START: {
  if ($readini(Raider,Info,Raider)) {
    /server irc.quakenet.org
    /server -m frostbrood.com:6667
  }
  Else { setup }
}
on *:Connect: {
  if ($network == Quakenet) {
    /auth $me enterpasswordhere*********************************
    /mode $me +x
    /join #pulsecrew
    /join #FAP
    /join #the-office
  }
  if ($network == RaidGod) {
    var %Chans $readini(Raider,n,info,chans)
    var %Auth $readini(Raider,n,Auth,user)
    var %pw $readini(Raider,n,Auth,pw)
    /join %Chans
    msg nickserv identify %auth %pw
    Login
  }
}

Alias Login {
  Sockclose Login*
  var %sUser $readini(Raider,n,Sigil,user)
  var %sPW $readini(Raider,n,Sigil,pw)
  var %tUser $readini(Raider,n,Torax,user)
  var %tPW $readini(Raider,n,Torax,PW)
  Sockopen Login.sigil. $+ %sUser $+ . $+ %sPW sigil.outwar.com 80
  Sockopen Login.torax. $+ %tUser $+ . $+ %tPW torax.outwar.com 80
}
on *:Sockopen:Login.*: {
  Tokenize 46 $Sockname
  var %server $2
  sockwrite -n $sockname POST /index HTTP/1.1
  sockwrite -n $sockname Host: %server $+ .outwar.com
  sockwrite -n $sockname User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.1) Gecko/20090624 Firefox/3.5
  sockwrite -n $sockname Accept-Language: en-us;en
  sockwrite -n $sockname Referer: http:// $+ %Server $+ .outwar.com/index
  sockwrite -n $sockname Connection: Close
  sockwrite -n $sockname Content-type: application/x-www-form-urlencoded
  sockwrite -n $sockname Content-Length: $len(login_username= $+ $3 $+ &login_password= $+ $4 $+ &remember=1)
  sockwrite -n $sockname $crlf
  sockwrite -n $sockname login_username= $+ $3 $+ &login_password= $+ $4 $+ &remember=1
  sockwrite -n $sockname $crlf
}
on *:Sockread:Login.*: {
  var %T
  sockread -f %T
  if (*rg_sess_id=* iswm %T) {
    tokenize 46 $Sockname
    writeini Raider $2 RGA $gettok($gettok(%T,2,61),1,59)
    echo -a Logged in $3
  }
  if (*/login?LE=1* iswm %T) { echo -a 4Invalid username/password }
  if (*failed to log in* iswm %T) { echo -a 4You have failed to log in too many times. Please wait 15 minutes and try again. }
}

Alias F3 {
  set %raidready Yes
  var %T = 1
  while ($scon(0) >= %T) {
    var %a 1
    var %Chans $readini(Raider,n,Info,Chans)
    while (%a <= $numtok(%Chans,44)) {
      scid $scon(%T) if ($network == Raidgod) { msg $gettok(%chans,%a,44) !here }
      inc %a
    }
    inc %t
  }
}
Alias F4 {
  unset %raidready
  var %T = 1
  while ($scon(0) >= %T) {
    var %a 1
    var %Chans $readini(Raider,n,Info,Chans)
    while (%a <= $numtok(%Chans,44)) {
      scid $scon(%T) if ($network == Raidgod) { msg $gettok(%chans,%a,44) !gone }
      inc %a
    }
    inc %t
  }
}
Alias F6 { login }

alias tpms { return $right($ctimems,3) }

;usage /ctimems : well revaluate the the offset values used to produce the $identifier results (2 second delay during this processing)
;usage $ctimems : returns $ctime and 3 digit decimal place being miliseconds, (2 second delay if no /ctimems call is made prior to this $identifier being used)
alias ctimems {
  if (!$var(%milliseconds.ticks,0) || !$var(%milliseconds.ctime,0) || (!$isid)) {
    var %ctime = $calc($ctime + 1)
    while (%ctime == $ctime) { }
    set -e %milliseconds.ticks $calc($ticks - 1000)
    set -e %milliseconds.ctime $calc($ctime - 1)
  }
  return $left($calc(%milliseconds.ctime + (($ticks - %milliseconds.ticks) / 1000) + .0001),-1)
}

Alias F7 echo -a $asc($?)