rendered paste bodyon *:TEXT:!blist*:#:{ writeini blist.ini blacklisted $address($2,2) $3- }
alias see { /dialog -m watch watch }
dialog watch {
title "Watcher"
size -1 -1 223 187
option pixels
text "Nickname:", 1, 12 7 80 20
edit "", 2, 10 22 200 20, autohs
list 3, 10 43 200 78, size
button "Add", 4, 10 126 64 25
button "Remove", 5, 78 126 64 25
button "Status", 6, 147 126 64 25
check "Alerts On", 7, 39 159 73 20
button "Close", 9, 121 159 64 21
}
on 1:dialog:watch:init:*: {
set %watchCount 0
:watchloop
inc %watchCount 1
if (%watching [ $+ [ %watchCount ] ] == $null) { goto nowatch }
else if (%watching [ $+ [ %watchCount ] ] != $null) { did -a watch 3 %watching [ $+ [ %watchCount ] ] }
goto watchloop
:nowatch
if (%watchAlert == on) { did -c watch 7 }
did -f watch 2
}
on 1:dialog:watch:sclick:*: {
if ($did == 3) {
did -ra $dname 2 $did(watch,3,$did(watch,3).sel).text
}
if ($did == 4) {
if ($did(2)) { did -a watch 3 $ifmatch | did -r $dname 2 | $+ /watch + $did($dname,2) }
}
if ($did == 5) {
if ($did(3,$did(3).sel).text) { did -d watch 3 $did(3).sel | $+ /watch - $did($dname,2) }
}
if ($did == 6) {
if ($did(3,$did(3).sel).text) { $+ watch + $did($dname,2) }
}
if ($did == 9) {
set %watching1 $did(watch,3,1)
set %watching2 $did(watch,3,2)
set %watching3 $did(watch,3,3)
set %watching4 $did(watch,3,4)
set %watching5 $did(watch,3,5)
set %watching6 $did(watch,3,6)
set %watching7 $did(watch,3,7)
set %watching8 $did(watch,3,8)
set %watching9 $did(watch,3,9)
set %watching10 $did(watch,3,10)
set %watching11 $did(watch,3,11)
set %watching12 $did(watch,3,12)
if ($did($dname,7).state == 1) { set %watchAlert on }
else { set %watchAlert off }
dialog -x watch
}
}
raw 604:*:{ if (%watchAlert == on) { echo -a $1 is currently online. } }
raw 605:*:{ if (%watchAlert == on) { echo -a $1 is not online. } }
on $*:TEXT:/^[!@.]((def|set)?(name|rsn)|p(est|c)|stats?|overall?|totaa?l|co?mb|att|def|str|h(p|it)|rang|pray|mag[ie]|cook|w(c|ood)|flet|fish|f(m|iremak)|craft|smith|min|herb|agi|th(ie|ei)|slay|farm|r(c|une)|hunt|c(s|on))/Si:#:{
if ($regex($1,/^[!@](def|set)?(name|rsn)/Si)) {
if (!$2) notice $nick $+($c1,[,$c2,You didn't specify a name! Please type,$c1 $1 name ])
else { writeini C:\MIRCSaves\defname.ini Defname $address($nick,3) $hr($2-) | notice $nick $+($c1,[,$c2,The nick $c1,$2- $c2,is now set for your host,$c1,]) }
}
else { inc %sc | sockopen $+(stats.,%sc) o-ss.net 80
if ($regex($1,/^[!@]p(est|c)/Si)) sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($3,1),/^[#-]/Si),$iif($4,$hr($4-),$iif($readini(C:/MIRCsaves/defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($3,$hr($3-),$iif($readini(C:/MIRCsaves/defname.ini,defname,$address($nick,3)),$v1,$nick))) $+(p.,$StatsID($2)) $iif($regex($left($3,1),/^[#-]/Si),$remove($3,$chr(35),-))
else sockmark $+(stats.,%sc) $iif($regex($1,/^@/Si),msg $chan,notice $nick) $iif($regex($left($2,1),/^[#-]/Si),$iif($3,$hr($3-),$iif($readini(C:/MIRCsaves/defname.ini,defname,$address($nick,3)),$v1,$nick)),$iif($2,$hr($2-),$iif($readini(C:/MIRCsaves/defname.ini,defname,$address($nick,3)),$v1,$nick))) $StatsID($1) $iif($regex($left($2,1),/^[#-]/Si),$remove($2,$chr(35),-))
}
}
on *:SOCKOPEN:stats.*:{ sockwrite -nt $sockname GET /parsers/stats.php?user= $+ $gettok($sock($sockname).mark,3,32) HTTP/1.1 | sockwrite -nt $sockname Host: o-ss.net | sockwrite -nt $sockname $crlf }
on *:SOCKREAD:stats.*:{ var %rs | sockread %rs
if ((*does not feature* iswm %rs) && ($sockname)) { $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,any skill]) | sockclose $sockname }
elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == overall) && ($sockname)) { var %z = %rs, %c = 1
while (%c <= 23) { sockread %rs | tokenize 32 %rs | if ($3 != ranked) var %z = %z $+($gettok(%rs,1,32),: $c1,$gettok(%rs,3,32),$c2) | if (%c isnum 1-7) var %k = %k $iif($3 == ranked,$iif($1 == hitpoints,10,1),$3) | inc %c } | tokenize 32 %z
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Overall for $sr($gettok($sock($sockname).mark,3,32)),$c1,] [,$c2,Combat:,$c1 $cmb(%k $sockname) |,$c2 Total: $c1,$3 |,$c2 Rank: $c1,$2 |,$c2 Exp: $c1,$4,])
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$left($gettok(%z,5-,32),-3),$c1,]) | sockclose $sockname
}
elseif ((!$regex($gettok($sock($sockname).mark,4,32),/(overall|combat)/Si)) && ($+(*,$gettok($sock($sockname).mark,4,32),*) iswm %rs) && ($sockname)) {
if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$gettok($sock($sockname).mark,4,32),])
else { var %p = $calc($exp($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44)))
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$gettok($sock($sockname).mark,4,32) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),$iif($gettok(%rs,3,32) != 99,$+($chr(32),|,$c2 Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes(%p,bd))),])
if ($regex($gettok($sock($sockname).mark,4,32),/^(att|def|str|hit|ran)/Si)) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Monsters till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Bandits:,$c1 $bytes($iif($chr(46) isin $calc(%p / 204),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Greaters:,$c1 $bytes($iif($chr(46) isin $calc(%p / 348),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Dust Devil:,$c1 $bytes($iif($chr(46) isin $calc(%p / 420),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Dagannoth (92):,$c1 $bytes($iif($chr(46) isin $calc(%p / 480),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Abyssal Demon:,$c1 $bytes($iif($chr(46) isin $calc(%p / 600),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == hitpoints) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Monsters till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Bandits:,$c1 $bytes($iif($chr(46) isin $calc(%p / 68),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Greaters:,$c1 $bytes($iif($chr(46) isin $calc(%p / 116),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Dust Devil:,$c1 $bytes($iif($chr(46) isin $calc(%p / 140),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Dagannoth (92):,$c1 $bytes($iif($chr(46) isin $calc(%p / 160),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Abyssal Demon:,$c1 $bytes($iif($chr(46) isin $calc(%p / 200),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == agility) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Rounds/tickets till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Tickets (100):,$c1 $bytes($iif($chr(46) isin $calc(%p / 280),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Tickets (1000):,$c1 $bytes($iif($chr(46) isin $calc(%p / 320),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Barb Stronghold:,$c1 $bytes($iif($chr(46) isin $calc(%p / 139.5),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Ape Atoll:,$c1 $bytes($iif($chr(46) isin $calc(%p / 580),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Werewolf:,$c1 $bytes($iif($chr(46) isin $calc(%p / 540),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == cooking) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Food till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Salmon:,$c1 $bytes($iif($chr(46) isin $calc(%p / 90),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Lobsters:,$c1 $bytes($iif($chr(46) isin $calc(%p / 120),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Swordfish:,$c1 $bytes($iif($chr(46) isin $calc(%p / 140),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Monkfish:,$c1 $bytes($iif($chr(46) isin $calc(%p / 150),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Sharks:,$c1 $bytes($iif($chr(46) isin $calc(%p / 210),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == construction) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Items till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Oak Larders:,$c1 $bytes($iif($chr(46) isin $calc(%p / 180),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Teak Larders:,$c1 $bytes($iif($chr(46) isin $calc(%p / 750),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Teak Table:,$c1 $bytes($iif($chr(46) isin $calc(%p / 270),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Mahogany Tables:,$c1 $bytes($iif($chr(46) isin $calc(%p / 840),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == crafting) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Items till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Hard Leather:,$c1 $bytes($iif($chr(46) isin $calc(%p / 35),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Green D'hides:,$c1 $bytes($iif($chr(46) isin $calc(%p / 62),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Blue D'hides:,$c1 $bytes($iif($chr(46) isin $calc(%p / 70),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Red D'hides:,$c1 $bytes($iif($chr(46) isin $calc(%p / 78),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Black D'hides:,$c1 $bytes($iif($chr(46) isin $calc(%p / 86),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == firemaking) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Logs till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Magic:,$c1 $bytes($iif($chr(46) isin $calc(%p / 303.8),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Yews:,$c1 $bytes($iif($chr(46) isin $calc(%p / 202.5),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Mahogany:,$c1 $bytes($iif($chr(46) isin $calc(%p / 157.5),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Willows:,$c1 $bytes($iif($chr(46) isin $calc(%p / 90),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Oaks:,$c1 $bytes($iif($chr(46) isin $calc(%p / 60),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == fishing) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Fishies till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Salmon:,$c1 $bytes($iif($chr(46) isin $calc(%p / 70),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Lobsters:,$c1 $bytes($iif($chr(46) isin $calc(%p / 90),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Swordfish:,$c1 $bytes($iif($chr(46) isin $calc(%p / 100),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Monkfish:,$c1 $bytes($iif($chr(46) isin $calc(%p / 120),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Sharks:,$c1 $bytes($iif($chr(46) isin $calc(%p / 110),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == fletching) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Longbows till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Willow:,$c1 $bytes($iif($chr(46) isin $calc(%p / 83),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Maple:,$c1 $bytes($iif($chr(46) isin $calc(%p / 116.6),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Yew:,$c1 $bytes($iif($chr(46) isin $calc(%p / 150),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Magic:,$c1 $bytes($iif($chr(46) isin $calc(%p / 183),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == woodcutting) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Logs till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Magic:,$c1 $bytes($iif($chr(46) isin $calc(%p / 250),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Yews:,$c1 $bytes($iif($chr(46) isin $calc(%p / 175),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Mahogany:,$c1 $bytes($iif($chr(46) isin $calc(%p / 125),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Willows:,$c1 $bytes($iif($chr(46) isin $calc(%p / 67.5),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Oaks:,$c1 $bytes($iif($chr(46) isin $calc(%p / 37.5),$gettok($calc($v2 + 1),1,46),$v2),bd),])
elseif ($gettok($sock($sockname).mark,4,32) == prayer) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Bones till,$c1 $bytes($iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),bd),] [,$c2,Big:,$c1 $bytes($iif($chr(46) isin $calc(%p / 15),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Baby Dragon:,$c1 $bytes($iif($chr(46) isin $calc(%p / 30),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Dragon:,$c1 $bytes($iif($chr(46) isin $calc(%p / 72),$gettok($calc($v2 + 1),1,46),$v2),bd) |,$c2 Dragon (Altar):,$c1 $bytes($iif($chr(46) isin $calc(%p / 252),$gettok($calc($v2 + 1),1,46),$v2),bd),])
sockclose $sockname
}
}
elseif ((*attack* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combat) && ($sockname)) { var %c = $iif($gettok(%rs,3,32) != ranked,$v1,1), %z = 1
while (%z <= 6) { sockread %rs | var %c = %c $iif($gettok(%rs,3,32) != ranked,$v1,$iif($gettok(%rs,1,32) == hitpoints,10,1)) | inc %z } | tokenize 32 %c
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Combat: $c1,$cmb(%c $sockname),] [,$c2,Att:,$c1 $1 |,$c2 Str:,$c1 $3 |,$c2 Def:,$c1 $2 |,$c2 Hp:,$c1 $4 |,$c2 Ranged:,$c1 $5 |,$c2 Pray:,$c1 $6 |,$c2 Magic:,$c1 $7,])
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Stats till combat $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok($cmb(%c $sockname),1,46) + 1)),] [,$c2,$iif($gettok($cmb(%c $sockname),2,32) == melee,$+(Att/Str: $c1,$cc1($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$iif($gettok($cmb(%c $sockname),2,32) == ranged,$+(Ranged: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$&
$iif($gettok($cmb(%c $sockname),2,32) == magic,$+(Magic: $c1,$cc3($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))))),$chr(32),|,$c2 Hp/Def: $c1,$cc2($cmb(%c) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))) |,$c2 Pray: $c1,$cc4($cmb(%c $sockname) $iif($gettok($sock($sockname).mark,5,32),$calc($v1 - 1),$cmb(%c $sockname))),])
sockclose $sockname
}
elseif ((*overall* iswm %rs) && ($gettok($sock($sockname).mark,4,32) == combatp) && ($sockname)) { var %o = $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0), %z = 1
while (%z <= 7) { sockread %rs | var %c = $calc(%c + $iif($gettok(%rs,4,32),$remove($v1,$chr(44)),0)) | inc %z }
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Combat percentage of $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Total Exp:,$c1 $bytes(%o,bd) |,$c2 Combat Exp:,$c1 $bytes(%c,bd) |,$c2 Combat Percentage:,$c1 $round($calc((%c / %o) * 100),2),$chr(37),])
sockclose $sockname
}
elseif ((p.* iswm $gettok($sock($sockname).mark,4,32)) && ($+(*,$remove($gettok($sock($sockname).mark,4,32),p.),*) iswm %rs) && ($sockname)) {
if ($gettok(%rs,2,32) == not) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$sr($gettok($sock($sockname).mark,3,32)) $c2,does not feature in the highscores for $c1,$remove($gettok($sock($sockname).mark,4,32),p.),])
elseif ($gettok(%rs,3,32) == 99) $gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)) $c2,is already 99,$c1,])
else { var %m = $calc($gettok($calc(($read(C:/MIRCsaves/xp.txt,s,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))) / ($gettok($calc(($gettok(%rs,3,32) * $gettok(%rs,3,32)) / $iif($remove($gettok($sock($sockname).mark,4,32),p.) == prayer,12,6)),1,46) + 1)),1,46) + 1)
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,$remove($gettok($sock($sockname).mark,4,32),p.) for $c1,$sr($gettok($sock($sockname).mark,3,32)),] [,$c2,Level: $c1,$gettok(%rs,3,32) |,$c2 Rank: $c1,$gettok(%rs,2,32) |,$c2 Exp: $c1,$gettok(%rs,4,32),])
$gettok($sock($sockname).mark,1-2,32) $+($c1,[,$c2,Exp till level $c1,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1)),$c2,:,$c1 $bytes($calc($read(C:/MIRCsaves/xp.txt,s,$iif($gettok($sock($sockname).mark,5,32),$v1,$calc($gettok(%rs,3,32) + 1))) - $remove($gettok(%rs,4,32),$chr(44))),bd),] [,$c2,PC Tickets (1):,$c1 $bytes(%m,bd) |,$c2 PC Tickets (100):,$c1 $bytes($gettok($calc(((%m / 10) * 9) + 1),1,46),bd),])
sockclose $sockname
}
}
}