All pastes #404252 Raw Edit

Someone

public text v1 · immutable
·published 2007-03-20 22:11 UTC
rendered paste body
on $*:TEXT:/^[!@]stats */Si:*: {
  if ($2) set %stat.target $2-
  elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set %stat.target $ifmatch
  elseif ($readini(DefRSN.ini,RSNs,$nick)) set %stat.target $ifmatch
  set %stat.return $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($len($2-) > 12) { %stat.return 7runescape 14nicknames can only contain up to7 12 14letters. | halt
  }
  else { sockopen statlook www.slushpuppy.silverinterlocution.org 80
  }
}
on *:SOCKOPEN:statlook*:{
  sockwrite -nt $sockname GET /rsstats.php?stats= $+ %stat.target HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf
} 

on *:SOCKREAD:statlook*:{
  if ($sockerr) {
    echo -a Error.
    halt
  }
  else {
    var %stat.html
    sockread %stat.html
    if (overall: isin %stat.html) {
      set %stat.overall $gettok($htmlfree(%stat.html),1,32)
      set %stat.overall.2 $gettok($htmlfree(%stat.html),2,32)
      ;:attack;:
      set %stat.attack $gettok($htmlfree(%stat.html),3,32)
      set %stat.attack.2 $gettok($htmlfree(%stat.html),4,32)
      ;:defence;:
      set %stat.defence $gettok($htmlfree(%stat.html),5,32)
      set %stat.defence.2 $gettok($htmlfree(%stat.html),6,32)
      ;:strength;:
      set %stat.strength $gettok($htmlfree(%stat.html),7,32)
      set %stat.strength.2 $gettok($htmlfree(%stat.html),8,32)
      ;:hitpoints;:
      set %stat.hitpoints $gettok($htmlfree(%stat.html),9,32)
      set %stat.hitpoints.2 $gettok($htmlfree(%stat.html),10,32)
      ;:ranged;:
      set %stat.ranged $gettok($htmlfree(%stat.html),11,32)
      set %stat.ranged.2 $gettok($htmlfree(%stat.html),12,32)
      ;:prayer;:
      set %stat.prayer $gettok($htmlfree(%stat.html),13,32)
      set %stat.prayer.2 $gettok($htmlfree(%stat.html),14,32)
      ;:magic;:
      set %stat.magic $gettok($htmlfree(%stat.html),15,32)
      set %stat.magic.2 $gettok($htmlfree(%stat.html),16,32)
      ;:cooking;:
      set %stat.cooking $gettok($htmlfree(%stat.html),17,32)
      set %stat.cooking.2 $gettok($htmlfree(%stat.html),18,32)
      ;:woodcutting;:
      set %stat.woodcutting $gettok($htmlfree(%stat.html),19,32)
      set %stat.woodcutting.2 $gettok($htmlfree(%stat.html),20,32)
      ;:fletching;:
      set %stat.fletching $gettok($htmlfree(%stat.html),21,32)
      set %stat.fletching.2 $gettok($htmlfree(%stat.html),22,32)
      ;:fishing;:
      set %stat.fishing $gettok($htmlfree(%stat.html),23,32)
      set %stat.fishing.2 $gettok($htmlfree(%stat.html),24,32)
      ;:firemaking;:
      set %stat.firemaking $gettok($htmlfree(%stat.html),25,32)
      set %stat.firemaking.2 $gettok($htmlfree(%stat.html),26,32)
      ;:crafting;:
      set %stat.crafting $gettok($htmlfree(%stat.html),27,32)
      set %stat.crafting.2 $gettok($htmlfree(%stat.html),28,32)
      ;:smithing;:
      set %stat.smithing $gettok($htmlfree(%stat.html),29,32)
      set %stat.smithing.2 $gettok($htmlfree(%stat.html),30,32)
      ;:mining;:
      set %stat.mining $gettok($htmlfree(%stat.html),31,32)
      set %stat.mining.2 $gettok($htmlfree(%stat.html),32,32)
      ;:herblore;:
      set %stat.herblore $gettok($htmlfree(%stat.html),33,32)
      set %stat.herblore.2 $gettok($htmlfree(%stat.html),34,32)
      ;:agility;:
      set %stat.agility $gettok($htmlfree(%stat.html),35,32)
      set %stat.agility.2 $gettok($htmlfree(%stat.html),36,32)
      ;:thieving;:
      set %stat.thieving $gettok($htmlfree(%stat.html),37,32)
      set %stat.thieving.2 $gettok($htmlfree(%stat.html),38,32)
      ;:slayer;:
      set %stat.slayer $gettok($htmlfree(%stat.html),39,32)
      set %stat.slayer.2 $gettok($htmlfree(%stat.html),40,32)
      ;:farming;:
      set %stat.farming $gettok($htmlfree(%stat.html),41,32)
      set %stat.farming.2 $gettok($htmlfree(%stat.html),42,32)
      ;:runecrafting;:
      set %stat.runecraft $gettok($htmlfree(%stat.html),43,32)
      set %stat.runecraft.2 $gettok($htmlfree(%stat.html),44,32)
      ;:hunter;:
      set %stat.hunter $gettok($htmlfree(%stat.html),45,32)
      set %stat.hunter.2 $gettok($htmlfree(%stat.html),46,32)
      ;:construction;:
      set %stat.construction $gettok($htmlfree(%stat.html),47,32)
      set %stat.construction.2 $gettok($htmlfree(%stat.html),48,32)
      ;:copyright;:
      set %copyr By|Smooth_Dudes
      ;:send to channel;:
      var %stat.half 14 %stat.attack $+ 7 %stat.attack.2 $+ 14 %stat.defence $+ 7 %stat.defence.2 $+ 14 %stat.strength $+ 7 %stat.strength.2 $+ 14 %stat.hitpoints $+ 7 %stat.hitpoints.2 $+ 14 %stat.ranged $+ 7 %stat.ranged.2 $+ 14 %stat.prayer $+ 7 %stat.prayer.2 $+ 14 %stat.magic $+ 7 %stat.magic.2 $+ 14 %stat.cooking $+ 7 %stat.cooking.2 $+ 14 %stat.woodcutting $+ 7 %stat.woodcutting.2 $+ 14 %stat.fletching $+ 7 %stat.fletching.2 $+ 14 %stat.fishing $+ 7 %stat.fishing.2 $+ 14 %stat.firemaking $+ 7 %stat.firemaking.2
      var %stat.half1 14 %stat.crafting $+ 7 %stat.crafting.2 $+ 14 %stat.smithing $+ 7 %stat.mining.2 $+ 14 %stat.mining $+ 7 %stat.mining.2 $+ 14 %stat.herblore $+ 7 %stat.herblore.2 $+ 14 %stat.agility $+ 7 %stat.agility.2 $+ 14 %stat.thieving $+ 7 %stat.thieving.2 $+ 14 %stat.slayer $+ 7 %stat.slayer.2 $+ 14 %stat.farming $+ 7 %stat.farming.2 $+ 14 %stat.runecraft $+ 7 %stat.runecraft.2 $+ 14 %stat.hunter $+ 7 %stat.hunter.2 $+ 14 %stat.construction $+ 7 %stat.construction.2 %copyr
      %stat.return 14runescape stats for7 %stat.target
      %stat.return 14 $+ %stat.overall $+ 7 %stat.overall.2
      %stat.return %stat.half %stat.half1
      timer 1 1 unset %stat.*
      sockclose statlook
      halt
    }
  }
}
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
  return %x
} 

on *:SOCKCLOSE:statlook:{
  if (%var == whatever) {
    unset %stat.*
    else {
      halt
    }
  }