egghelp/eggheads community

Help with getting info from site

2006-09-25T01:41:45-04:00

Code:

proc stats:private {nick uhost hand chan text} {  if {[set target [lindex [split $text] 0]] == ""} {    set target $nick  }  set site "http://kewlbot.us.jerrcs.net/stats2.php?name=$target"  set token [::http::geturl $site]  set content [::http::data $token]  ::http::cleanup $content  putserv "NOTICE $nick :\0035,0Runescape\00314,0 Hiscores Lookup for \0035,0$target\00314,0:\003"  set line [string trim $content]  putserv "NOTICE $nick :\00314,0$line\003"}

Statistics: Posted by metroid — Mon Sep 25, 2006 1:41 am

Help with getting info from site

2006-09-24T14:59:58-04:00

Sorry I didn't explain very well, I need it to return the statistics for the persons nickname if they don't specify a name, for example:

!stats
-Bot- Stats for RandomGuy
-Bot- Blablabla

Thanks.

Statistics: Posted by Hamish — Sun Sep 24, 2006 2:59 pm

Help with getting info from site

2006-09-22T16:45:37-04:00

Code:
proc stats:private {nick uhost hand chan text} {  if {![lindex $text 0]} {    set rsname $nick  } else {    set rsname [lindex $text 0]  }
Basically if the user doesn't specify a name (!stats NAME) it just uses there nickname instead. Please help.

That's because you have "set rsname $nick" there. If you want it to return an error msg or help msg, I'd change "if {[$lindex $text 0]}" to

Code:

if {$text == ""} {    puthelp "PRIVMSG $nick :Please supply a name!";return} else {

I would also suggest that you [split $text] to prevent problems with tcl special chars.

Statistics: Posted by rosc2112 — Fri Sep 22, 2006 4:45 pm

Help with getting info from site

2006-09-22T15:00:54-04:00

Ok, fixed up that (used string trim).
Now I have this code, it doesn't work, please tell me whats wrong with it.

Code:

proc stats:private {nick uhost hand chan text} {  if {![lindex $text 0]} {    set rsname $nick  }  else {    set rsname [lindex $text 0]  }  set site "http://kewlbot.us.jerrcs.net/stats2.php?name=$rsname"  set token [::http::geturl $site]  set content [::http::data $token]  ::http::cleanup $content  putserv "NOTICE $nick :\0035,0Runescape\00314,0 Hiscores Lookup for \0035,0$rsname\00314,0:\003"  set line [string trim $content]  putserv "NOTICE $nick :\00314,0$line\003"}

Basically if the user doesn't specify a name (!stats NAME) it just uses there nickname instead. Please help.

Statistics: Posted by Hamish — Fri Sep 22, 2006 3:00 pm

Help with getting info from site

2006-09-22T07:17:08-04:00

Cancel out the ( using a \ and the ) with a \. That should do it.

~Nara

Statistics: Posted by Nara — Fri Sep 22, 2006 7:17 am

Help with getting info from site

2006-09-20T11:10:41-04:00

Ok, rockon thanks.

I now have this, I have added some stuff for design reasons:

Code:

bind pub - !stats stats:privateproc stats:private {nick uhost hand chan text} {  set rsname [lindex $text 0]  set site "http://*/stats2.php?name=$rsname"  set token [::http::geturl $site]  set content [::http::data $token]  ::http::cleanup $content    putserv "NOTICE $nick :\0032,0(\0035,0Runescape hiscores lookup for\0032,0 $rsname)\003"  foreach line [split $content \n] {    putserv "NOTICE $nick :\0032,0(\0035,0$line\0032,0)\003"  }}

Ok, so now it looks nice but:

-Bot- (Runescape Hiscores Lookup for hamish150)
-Bot- (Overall: 970 Attack: 64 Defence: 60 Strength: 59 Hitpoints: 61 Ranged: 51 Prayer: 41 Magic: 50 Cooking: 62 Woodcutting: 56 Fletching: 34 Fishing: 61 Firemaking: 41 Crafting: 49 Mining: 55 Agility: 40 Thieving: 37 Slayer: 31 )
-Bot- ()

What's with the extra ()?

Statistics: Posted by Hamish — Wed Sep 20, 2006 11:10 am

Help with getting info from site

2006-09-20T09:00:59-04:00

Cool, thanks.

Do you think you could help me with colours too?

Colour and formatting codes

Statistics: Posted by Alchera — Wed Sep 20, 2006 9:00 am

Help with getting info from site

2006-09-20T03:00:48-04:00

Cool, thanks.

Do you think you could help me with colours too?

Statistics: Posted by Hamish — Wed Sep 20, 2006 3:00 am

Help with getting info from site

2006-09-19T14:54:40-04:00

Move the

putserv "NOTICE $nick :Runescape hiscores lookup for $rsname"

before (outside) the loop (foreach) and should say that just once.

Statistics: Posted by caesar — Tue Sep 19, 2006 2:54 pm

Help with getting info from site

2006-09-19T11:58:45-04:00

Ok I got this so far:

Code:

bind pub - !stats stats:privateproc stats:private {nick uhost hand chan text} {  set rsname [lindex $text 0]  set site "http://*/stats2.php?name=$rsname"  set token [::http::geturl $site]  set content [::http::data $token]  ::http::cleanup $content  foreach line [split $content \n] {    putserv "NOTICE $nick :Runescape hiscores lookup for $rsname"    putserv "NOTICE $nick :$line"  }}

I get this error:

-Bot- Runescape hiscores lookup for hamish150
-Bot- Overall: 970 Attack: 64 Defence: 60 Strength: 59 Hitpoints: 61 Ranged: 51 Prayer: 41 Magic: 50 Cooking: 62 Woodcutting: 56 Fletching: 34 Fishing: 61 Firemaking: 41 Crafting: 49 Mining: 55 Agility: 40 Thieving: 37 Slayer: 31
-Bot- Runescape hiscores lookup for hamish150

The site it connects is a single line containing the stats as shown in the second notice. What I need to do is, get rid of the third notice (the repeat of the the first one). I also need to know how to put it into colour, and, for the second notice to put all the words in darkred (5,0) and the numbers in darkblue (2,0).

I also need it so that if there are no numbers in $line it will return that the user's hiscores aren't ranked.

Also how would I be able to make it so that if the user types two words or more as a name, for example:

!stats jim bob jones

It will set $rsname as jim_bob_jones?

Thanks!

Statistics: Posted by Hamish — Tue Sep 19, 2006 11:58 am