;##################################################
alias pdq.world {
  /window @WORLDLIST
  ;------------------------
  ; Settings
  ; %OMG.LVL is the trigger value notifying the channel.
  set %OMG.LVL.P 12
  set %OMG.LVL.N -12
  set %OMG.DELAY 30
  set %OMG.CHAN #vroooo
  set %OMG.YES FALSE
  Set %OMG.MSG WorldTracks:
  Set %OMG.F2P 1 3 4 5 7 8 10 11 13 14 16 17 19 20 25 29 30 33 34 35 37 38 41 43 47 49 50 55 57 61 62 73 74 75 80 81 87 90 93 102 105 106 108 113 118 120 123 134 135 136 141 149 152 153 154 155 161 165 167 169
  ;----------------------
  if ($1) {
    Set %OMG.TYPE $1
    if (!%wd) { msg %OMG.CHAN !wt (Loading %OMG.TYPE worlds...) Wait %OMG.DELAY for first track. Cutoff LVL is  %OMG.LVL.P / %OMG.LVL.N }
    if (%OMG.TYPE != OFF) { sockopen WT-PDQ. [ $+ [ $1 ] ] runescape.com 80 }
  }
}
;##################################################
on *:TEXT:!WT *:%OMG.CHAN:{
  ;if ($2 == ON) && (($checkLogin == TRUE) || ($checkOp == TRUE))
  ;old example above

  if ($1 == !WT) && ($2 == f2p) { /pdq.world f2p  | .timerWT-PDQ 0 %OMG.DELAY /pdq.world f2p }
  if ($1 == !WT) && ($2 == p2p) { /pdq.world p2p | .timerWT-PDQ 0 %OMG.DELAY /pdq.world p2p }
  if ($1 == !WT) && ($2 == OFF) {  .timerWT-PDQ off | /pdq.world OFF }
}

on *:INPUT:%OMG.CHAN:{
  ;Set delay between updates in seconds.
  if ($1 == !WT) && ($2 == f2p) { /pdq.world f2p  | .timerWT-PDQ 0 %OMG.DELAY /pdq.world f2p }
  if ($1 == !WT) && ($2 == p2p) { /pdq.world p2p | .timerWT-PDQ 0 %OMG.DELAY /pdq.world p2p }
  if ($1 == !WT) && ($2 == OFF) {  .timerWT-PDQ off | /pdq.world OFF }
}
;##################################################
alias buzz-fu {
  var %old $gettok(%WT-DATA,$1,32)
  var %change $calc($2 - %old)
  if ($gettok(%WT-DATA,0,32) <= $1) || (%WT-DATA == $null) { set %WT-DATA $instok(%WT-DATA,$2,$1,32) }
  else { set %WT-DATA $puttok(%WT-DATA,$2,$1,32) }
  echo @WORLDLIST $1 and $2 ... gettok $gettok(%WT-DATA,$1,32) ... old is/was %old  .. change %change  and %wd
  if (($istok(%OMG.F2P,%currentworld,32)) && (%OMG.TYPE == f2p)) ||  ((!$istok(%OMG.F2P,%currentworld,32)) && (%OMG.TYPE == p2p))  {
    if (%change >= %OMG.LVL.P) && (%wd) {
      ;---------------------------------------
      ;THIS IS WHERE YOU EDIT THE W2 ( GAIN )
      set %OMG.MSG %OMG.MSG W $+ $1 $+ ( %change )
      set %OMG.YES TRUE
    }
    if (%change <= %OMG.LVL.N) && (%wd) {
      ;---------------------------------------
      ;THIS IS WHERE YOU EDIT THE W2 ( LOSS )
      set %OMG.MSG %OMG.MSG W $+ $1 $+ ( %change )
      set %OMG.YES TRUE
    }
  }
}
;##################################################
on *:SOCKOPEN:WT-PDQ.*: {
  sockwrite -nt $sockname GET /slu.ws?order=WAMLP  HTTP/1.1
  sockwrite -nt $sockname Host: runescape.com
  sockwrite -nt $sockname $crlf
}
;##################################################
on *:SOCKclose:WT-PDQ.*:{
  if (%OMG.YES == TRUE) { msg %OMG.CHAN  %OMG.TYPE %OMG.MSG }
  if (%OMG.YES == FALSE)  && (%wd) { msg %OMG.CHAN %OMG.TYPE %OMG.MSG NONE FOUND }
  Set -u500 %wd $ctime
}
;##################################################
on *:SOCKREAD:WT-PDQ.*: {
  var %sockreader
  sockread %sockreader
  var %match1  $nohtml(%sockreader)
  if ($gettok(%match1,1,32) == world) && ($gettok(%match1,2,32) isnum) {
    ;echo @WORLDLIST WORLD is $gettok(%match1,2,32)
    set %currentworld $gettok(%match1,2,32)
  }
  if (*td*td* iswm %sockreader) {
    set %total NERF
    if (%match1 == FULL) { set %total 2000 }
    if (%match1 == OFFLINE) { set %total 0 }
    if (%match1 isnum) { set %total %match1 }
    if (%total != NERF) {
      ;echo @WORLDLIST W %currentworld has %total
      buzz-fu %currentworld %total
    }
  }
}