| View previous topic :: View next topic |
| Author |
Message |
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
 Posted: Wed Feb 20, 2008 8:08 am Post subject: [req] ym check - new feature ! |
 |
|
anyone could help me to write this scripts yahoo-messenger-invisible-checker ?
| Code: | <me> !ym elisca
<bot> Status Invisible (if she/he invisible)
and
<me> !ym elisca
<bot> Status Online (if she/he online)
<me> !ym elisca
<bot> Status Offline (if she/he offline)
|
thanks in advance
Last edited by elisca on Sat Feb 23, 2008 10:39 am; edited 2 times in total |
|
| Back to top |
|
 |
iamdeath
Master
Joined: 11 Feb 2005
Posts: 323
Location: *HeLL*
|
| Posted: Wed Feb 20, 2008 12:44 pm Post subject: |
|
|
| Code: | package require http
bind pub -|- !ym yahoo:status
proc yahoo:status {nick host hand chan arg} {
set yahooid [join [lindex [split $arg] 0]]
set token [http::config -useragent "lynx"]
set token [http::geturl "http://invisible.ir/getstatus?yahooid=$yahooid"]
set html [http::data $token]
putlog "\00304 Checking online status for $yahooid."
if {[string match "*Online*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is Online!."
return 0
}
if {[string match "*Offline*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is Offline!."
return 0
}
if {[string match "*Invisible*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is Invisible!."
return 0
}
if {[string match "*Server is busy*" $html]} {
puthelp "PRIVMSG $chan :The server seems busy or invalid user id, try next."
return 0
}
if {[string match "*Main Yahoo*" $html]} {
puthelp "PRIVMSG $chan :$yahooid is a Main Yahoo ID!."
return 0
}
}
putlog "Yahoo Messenger Status loaded sucessfully." |
| Code: | [21:40] <iamdeath`> !ym vrdead
[21:40] <Cricket> The server seems busy or invalid user id, try next.
[21:40] <iamdeath`> !ym vrdead
[21:40] <Cricket> vrdead is Online!.
[21:40] <iamdeath`> !ym zk_chachar
[21:40] <Cricket> zk_chachar is Offline!. |
Tested and working.
A copy of this script is loaded at:
Yahoo Status Checker
peace
death.
Edit: Removed http.tcl link.
Edit: Added one more option, Main Yahoo ID.
_________________
|AmDeAtH @ Undernet
Death is only the *Beginning*...
Last edited by iamdeath on Sat Feb 23, 2008 12:51 pm; edited 4 times in total |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Wed Feb 20, 2008 1:59 pm Post subject: |
|
|
iamdeath thanks so much to write this..
but 
| Code: | (Bot [17:43] Tcl error in file 'Bot.conf':
12:53(Bot [17:43] conflicting versions provided for package "http": 2.5.0, then 2.5.001
12:53(Bot while executing
12:53(Bot "package provide http 2.5.001"
12:53(Bot (file "scripts/http.tcl" line 29)
12:53(Bot invoked from within
12:53(Bot "source scripts/http.tcl"
12:53(Bot (file "Bot.conf" line 288)
12:53(Bot [17:43] * CONFIG FILE NOT LOADED (NOT FOUND, OR ERROR)
12:53(Bot [22] Chat closed |
could u tell me why ?
Note : I remove http.tcl and yahoo.tcl run good without it.
Last edited by elisca on Wed Feb 20, 2008 7:13 pm; edited 1 time in total |
|
| Back to top |
|
|
rosc2112
Revered One
Joined: 19 Feb 2006
Posts: 1454
Location: Northeast Pennsylvania
|
| Posted: Wed Feb 20, 2008 4:11 pm Post subject: |
|
|
You don't need http.tcl, since you're using "package http" which is part of libtcl.
I think http.tcl (as well as egghttp.tcl) are obsoleted by package http. |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Wed Feb 20, 2008 4:27 pm Post subject: |
|
|
thanks for the info rosc2112  |
|
| Back to top |
|
|
iamdeath
Master
Joined: 11 Feb 2005
Posts: 323
Location: *HeLL*
|
| Posted: Wed Feb 20, 2008 11:34 pm Post subject: |
|
|
didnt know that, thanks rosc 
You're welcome elicsa
peace
death
_________________
|AmDeAtH @ Undernet
Death is only the *Beginning*... |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Sat Feb 23, 2008 10:41 am Post subject: |
|
|
there's a new feature from the web (Main Yahoo! ID detector!)..
could you put it on the scripts ?
thanks in advance  |
|
| Back to top |
|
|
iamdeath
Master
Joined: 11 Feb 2005
Posts: 323
Location: *HeLL*
|
| Posted: Sat Feb 23, 2008 12:51 pm Post subject: |
|
|
Done and use the edited script but if you focus on the change you will see it's not a big deal, if you just try you can add options yourself..
peace
death
_________________
|AmDeAtH @ Undernet
Death is only the *Beginning*... |
|
| Back to top |
|
|
elisca
Halfop
Joined: 27 Jan 2007
Posts: 65
Location: in the middle of nowhere
|
| Posted: Sun Feb 24, 2008 2:40 am Post subject: |
|
|
| thanks death |
|
| Back to top |
|
|
shahrul
Voice
Joined: 06 Mar 2005
Posts: 27
|
| Posted: Wed Apr 23, 2008 1:52 am Post subject: |
|
|
| it's work, thanks man.. |
|
| Back to top |
|
|
uffs
Voice
Joined: 17 Apr 2008
Posts: 14
Location: 6°10.5S-106°49.7E
|
| Posted: Wed Jun 15, 2011 10:43 am Post subject: |
|
|
anyone could fixed this script ?
or suggest similiar scripts
TIA |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
