on *:TEXT:!stats*:#: { 
  inc %pcid 1
  set %pcstuff [ $+ [ %pcid ] ] $+($2,:,$chan)
  sockopen pckick [ $+ [ %pcid ] ] altscripts.trap17.com 80
}
on *:SOCKOPEN:pckick*:{
  sockwrite -nt $sockname GET /rsparsers/highscores.php?rsn= $+ $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ] ,1 ,58) HTTP/1.1
  sockwrite -nt $sockname Host: altscripts.trap17.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pckick*:{
  if ($sockerr) {
    echo -a Socket error
  }
  else {
    var %read
    while (1) {
      sockread -f %read
      if (!$sockbr) { break }
      if (Attack:* iswm %read) {
        var %Attack = $remove($gettok(%read,2,58),<br />)
      }
      if (Strength:* iswm %read) {
        var %strength = $remove($gettok(%read,2,58),<br />)
      }
      if (prayer:* iswm %read) {
        var %prayer = $remove($gettok(%read,2,58),<br />)
      }
      if (Defence:* iswm %read) {
        var %defence = $remove($gettok(%read,2,58),<br />)
      }
      if (Cooking:* iswm %read) {
        var %cooking = $remove($gettok(%read,2,58),<br />)
      }
      if (Woodcutting:* iswm %read) {
        var %woodcutting = $remove($gettok(%read,2,58),<br />)
      }
      if (Fishing:* iswm %read) {
        var %fishing = $remove($gettok(%read,2,58),<br />)
      }
      if (Firemaking:* iswm %read) {
        var %firemaking = $remove($gettok(%read,2,58),<br />)
      }
      if (Fletching:* iswm %read) {
        var %prayer = $remove($gettok(%read,2,58),<br />)
      }
      if (Crafting:* iswm %read) {
        var %crafting = $remove($gettok(%read,2,58),<br />)
      }
      if (Smithing:* iswm %read) {
        var %smithing = $remove($gettok(%read,2,58),<br />)
      }
      if (Mining:* iswm %read) {
        var %mining = $remove($gettok(%read,2,58),<br />)
      }
      if (Herblore:* iswm %read) {
        var %herblore = $remove($gettok(%read,2,58),<br />)
      }
      if (Agility:* iswm %read) {
        var %agility = $remove($gettok(%read,2,58),<br />)
      }
      if (Overall:* iswm %read) {
        var %overall = $remove($gettok(%read,2,58),<br />)
      }
      if (Thieving:* iswm %read) {
        var %thieving = $remove($gettok(%read,2,58),<br />)
      }
      if (Slayer:* iswm %read) {
        var %slayer = $remove($gettok(%read,2,58),<br />)
      }
      if (Farming:* iswm %read) {
        var %prayer = $remove($gettok(%read,2,58),<br />)
      }
      if (Runecraft:* iswm %read) {
        var %runecraft = $remove($gettok(%read,2,58),<br />)
      }
      if (Construction:* iswm %read) {
        var %construction = $remove($gettok(%read,2,58),<br />)
      }
      if (Ranged:* iswm %read) {
        var %ranged = $remove($gettok(%read,2,58),<br />)
      }
      if (Hitpoints:* iswm %read) {
        var %hitpoints = $remove($gettok(%read,2,58),<br />)
      }
      if (Magic:* iswm %read) {
        var %magic = $remove($gettok(%read,2,58),<br />)
      }
      if (Combat:* iswm %read) {
        var %combat = $remove($gettok(%read,2,58),<br />)
      }    
    }
    if (($floor(%combat) < 30) && ($calc(%attack + %strength) < 30)) || (*-* iswm %strength) {
      $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ] ,2,58) $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],1,58) 2 You do not meet requirements for this channel. (90 combat or Attack+Strength of 150 or more) [30 second ban]
    }
    else {
      msg  $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],2,58) $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],1,58) is lvl $floor(%combat) and has  1 %overall 4 overall, 1 %attack 4attack, 1 %strength 4strength, 1 %hitpoints 4hitpoints,1 %ranged 5ranged, 1and %magic 12magic,1 and %prayer 8prayer, 1 %defence 4 defence, 

      msg  $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],2,58) $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],1,58)      1 %cooking 4 cooking, 1 %woodcutting 4 woodcutting, 1 %fishing 4 fishing, 1 %firemaking 4 firemaking, 1 %fletching 4 fletching, 1 %crafting 4 crafting, 1 %smithing 4 smithing,1 %mining 4 mining, 1 %herblore 4 herblore, 1 %agility 4 agility, 1 %thieving 4 thieving, 1 %slayer 4 slayer, 1 %farming 4 farming, 1 %runecrafting 4 runecrafting, 1 %construction 4 construction.

      ;;mode $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],2,58) +v $gettok(%pcstuff [ $+ [ $right($sockname,-6) ] ],1,58)
    }
  }
}