Trillian Socket v1.0 (Queryscript)

Zitat:

; –––––––––––––––––––––––––––––––––––––––––––––––– ; Trillian Socket v1.0 (QueryScript v1.0 by fiRe) ; © 2006 by scarface ; Visit http://www.die-ewigen.com/ & #planix @Gamesurge ; –––––––––––––––––––––––––––––––––––––––––––––––– on *:load: { set %mailaddy $input(Please enter your e-mail address,129) echo -a ו•••••••••••••••••••••••••••••••••• ••••• ••• •• •• •• • • echo -a Trillian Socket v1.0 (QueryScript v1.0 by fiRe) echo -a © 2006 by scarface echo -a Visit http://www.die-ewigen.com/ & #planix @Gamesurge echo -a ו•••••••••••••••••••••••••••••••••• ••••• ••• •• •• •• • • } alias awaytime { return $+($remove($shortdur($calc($ctime - %away.set. [ $+ [ $cid ] ] )).nosec,$chr(32))) } on *:open:?:*: { if (!$istok(-psybnc o l q f,$nick,32)) { inc %querynumber set %query.nick $nick sockclose trillian sockopen trillian www.de.xx-i-xx.de 80 } } on *:SOCKOPEN:trillian: { if ( $sockerr ) { echo -s Falsche IP oder falscher Port angegeben! | halt } sockwrite -n $sockname GET /TrillianStatus/index.php HTTP/1.1 sockwrite -n $sockname Host: www.de.xx-i-xx.de sockwrite -n $sockname $crlf } on *:SOCKREAD:trillian: { sockread %trillian.temp if (*<tr><td>ICQ</td><td><a href="http://www.icq.com/whitepages/cmd.php?uin=XXXXXXXXX&action=message" target="blank">XXXXXXXXX</a></td><td>*</td>* iswm %trillian.temp) { set %trillian.icq $remove($gettok(%trillian.temp,9,62),</td) } if (*<tr><td>MSN</td><td>XXX@hotmail.com</td><td>*</td>* iswm %trillian.temp) { set %trillian.msn $remove($gettok(%trillian.temp,7,62),</td) } if (%trillian.msn != $null) { if (%trillian.icq == online) { set %trillian.icq 9online } elseif (%trillian.icq == offline) { set %trillian.icq 4offline } elseif (%trillian.icq == away) { set %trillian.icq 7away } elseif (%trillian.icq == idle) { set %trillian.icq 11idle } if (%trillian.msn == online) { set %trillian.msn 9online } elseif (%trillian.msn == offline) { set %trillian.msn 4offline } elseif (%trillian.msn == away) { set %trillian.msn 7away } elseif (%trillian.msn == idle) { set %trillian.msn 11idle } if (!$away) { msg %query.nick 11::: Ich bin nicht away. Meine Idle Zeit: 8( $+ $shortdur($idle) $+  . Bitte warte einen Moment oder schreib eine Mail an: 8( $+  $+ %mailaddy $+  $+  . Danke. 11::: } else { msg %query.nick 11::: Ich bin away, Grund: 8( $+ $awaymsg $+   $+ . Seit: 8( $+ $duration($awaytime) $+  . Deine Nachricht wird gespeichert. Du kannst mir eine Mail schreiben an: 8( $+  $+ $iif(%mailaddy,%mailaddy,$emailaddr) $+  $+  . 11::: } msg %query.nick 11::: Sollte ich mich nicht melden kannst du mich auch über ICQ=XXXXXXXXX 8( $+ %trillian.icq $+   oder MSN=XXX 8( $+ %trillian.msn $+   kontaktieren. 11::: msg %query.nick 11::: Aktive Queries: 8( $+ $query(0) $+   $+ . Queries seit $asctime(%install.time,dd.mm.yyyy) $+ : 8( $+ %querynumber $+   $+ . Queries pro Tag 8( $+ $round($calc(%querynumber /(($ctime -%install.time)/86400)),1) $+   11::: sockclose trillian unset %trillian.* %query.nick halt } } ; –––––––––––––––––––––––––––––––––––––––––––––––– ;| Copyright © 2006 ;| Alle Rechte vorbehalten / All rights reserved ; –––––––––––––––––––––––––––––––––––––––––––––––– ;| Do not rip or edit this source code ;| End of Source code ; ––––––––––––––––––––––––––––––––––––––––––––––––

Dieser Beitrag wurde 5 mal editiert, zum letzten Mal von Scarface1: 13.01.2007 03:51.