claninfo

By anthony1293 on Aug 08, 2009

runescape claninfo script triggers are:
!ml
!memberlist

ON $*:TEXT:/^[@!.](ml|memberlist)/Si:#: {
  var %sckid = $right($ticks,6) 
  hmake clan. [ $+ [ %sckid ] ] 50
  hadd clan. [ $+ [ %sckid ] ] output $iif($left($1,1) == @,msg $chan,notice $nick)
  hadd clan. [ $+ [ %sckid ] ] nick $nick
  hadd clan. [ $+ [ %sckid ] ] clan $replace($2-,$chr(32),$chr(95))
  sockopen clan. [ $+ [ %sckid ] ] www6.runehead.com 80
}
on *:SOCKOPEN:clan.*: { 
  sockwrite -nt $sockname GET /feeds/lowtech/searchclan.php?search= $+ $hget($sockname,clan) HTTP/1.1 
  sockwrite -nt $sockname Host: www6.runehead.com 
  sockwrite -nt $sockname $crlf 
}
on *:SOCKREAD:clan.*: { 
  var %read
  sockread %read
  if (*Not Found* iswm %read) { $hget($sockname,output) $hget($sockname,clan) Was not found on the Runehead Clan database | hfree $sockname | halt } 
  if (*http://* iswm %read) { 
    tokenize 124 %read 
    %ml $hget($sockname,output) 14¤¤¤ [4 CLAN INFO 14]: [4 $+ $5 $+ ]4 $1 (4 $+ $2 $+ 14) $chr(124) Members:4 $6 14 $+ $chr(91) $+ 4Avg14 $+ $chr(93) $+ : Cmb: (F2P:4 $16 $+ 14 $chr(124) P2P:4 $7 $chr(124) 14HP:4 $8 $+ 14 $chr(124) Magic:4 $10 $+ 14 $chr(124) Ranged:4 $11 $+ 14 $chr(124) Skill Total:4 $bytes($9,b) $+ 14 $chr(124) $+ 4 $12 14Based (Homeworld4 $15 $+ 14) $chr(124) Cape:4 $14 $+ 14 $chr(124) Runehead:4 $3
    hfree $sockname
    sockclose $sockname
  }
}

Comments

Sign in to comment.
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.