All pastes #445190 Raw Edit

Miscellany

public text v1 · immutable
·published 2007-04-17 19:15 UTC
rendered paste body
on *:text:*:#: {
  if ($1-3 == Where is setsukun?) || ($1-3 == Where is setsukun) || ($1-4 == Where is everyone ever?)  || ($1-4 == Where is everyone ever) {
    var %Idle = $duration($idle)
    var %AM = $active
    var %System = $duration($calc($dll(DLLs/SystemIdle.dll,GetIdleTime,.) / 1000))
    var %Window = $dll(DLLs/gfw.dll,getfw,)
    var %mIRC = $upper($left($appstate,1)) $+ $mid($appstate,2-)
    if ($os == Vista) var %Xfire = $readini(D:\Users\setsukun\AppData\Roaming\Xfire\status.ini,STATUS,Summary)
    else var %Xfire = $readini(C:\Documents and Settings\setsukun.NOR\Application Data\Xfire\status.ini,STATUS,Summary)
    if (%Xfire == In Game) {
      var %Xfire.finding = 1
      if ($os == Vista) var %Xfire2 = $readini(D:\Users\setsukun\AppData\Roaming\Xfire\status.ini,STATUS,InGame)
      else var %Xfire2 = $readini(C:\Documents and Settings\setsukun.NOR\Application Data\Xfire\status.ini,STATUS,InGame)
      var %Xfire = $readini(C:\Program Files\Xfire\xfire_games.ini,%Xfire2,LongName)
    }
    if (%Xfire.finding) && (!%Xfire) var %Xfire = $readini(D:\Program Files\Xfire\xfire_games.ini,%Xfire2 $+ _1,LongName)
    if (%Xfire.finding) && (!%Xfire) var %Xfire = $readini(D:\Program Files\Xfire\xfire_games.ini,%Xfire2 $+ _2,LongName)
    if (%Xfire.finding) && (!%Xfire) var %Xfire = $readini(D:\Program Files\Xfire\xfire_games.ini,%Xfire2 $+ _3,LongName)
    if (%Xfire.finding) && (!%Xfire) var %Xfire = $readini(D:\Program Files\Xfire\xfire_games.ini,%Xfire2 $+ _4,LongName)
    if ($appactive) var %Window = mIRC
    if (*Mozilla Firefox* iswm %Window) var %Window = Mozilla Firefox
    if (!%Away) var %Status = Here
    if (*s* iswm $chan(%Lastline.window).mode) && ($chan !== %Lastline.window) var %Lastline.window2 = Secret channel
    if (*p* iswm $chan(%Lastline.window).mode) && ($chan !== %Lastline.window) var %Lastline.window2 = Private channel
    if (*s* iswm $chan(%AM).mode) && ($chan !== %AM) var %AM = Secret channel
    if (*p* iswm $chan(%AM).mode) && ($chan !== %AM) var %AM = Private channel
    msg $chan mIRC; %mIRC Status; $iif(%Status,%Status,%Away) $iif(%Away,; $duration($calc(($ticks - %Away.ticks) / 1000))) Idle; %Idle System idle; %System mIRC Window; %AM Application; %Window Last message; %Lastline ( $+ %Lastline.time ( $+ $iif(%Lastline.window2,%Lastline.window2,%Lastline.window) $+ )) $iif(%Xfire,Xfire; %Xfire)
  }
}