[req] ym check - new feature !

elisca · Post by **elisca** » Wed Feb 20, 2008 8:08 am

anyone could help me to write this scripts yahoo-messenger-invisible-checker ?

 <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

iamdeath · Post by **iamdeath** » Wed Feb 20, 2008 12:44 pm

Code: Select all

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: Select all

[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.

elisca · Post by **elisca** » Wed Feb 20, 2008 1:59 pm

iamdeath thanks so much to write this..
but

Code: Select all

(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.

rosc2112 · Post by **rosc2112** » Wed Feb 20, 2008 4:11 pm

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.

elisca · Post by **elisca** » Wed Feb 20, 2008 4:27 pm

thanks for the info rosc2112

iamdeath · Post by **iamdeath** » Wed Feb 20, 2008 11:34 pm

didnt know that, thanks rosc

You're welcome elicsa

peace
death

elisca · Post by **elisca** » Sat Feb 23, 2008 10:41 am

there's a new feature from the web (Main Yahoo! ID detector!)..

could you put it on the scripts ?

thanks in advance

iamdeath · Post by **iamdeath** » Sat Feb 23, 2008 12:51 pm

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

elisca · Post by **elisca** » Sun Feb 24, 2008 2:40 am

thanks death

shahrul · Post by **shahrul** » Wed Apr 23, 2008 1:52 am

it's work, thanks man..

uffs · Post by **uffs** » Wed Jun 15, 2011 10:43 am

anyone could fixed this script ?

or suggest similiar scripts

TIA