Hardwareforum

Quellcode

; ––––––––––––––––––––––––––––––––––––––––––––––––
; Trillian Socket v1.0 (QueryScript v1.0 by fiRe)
; © 2006 by scarface
; Visit [url]http://www.die-ewigen.com/[/url] & #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 [url]http://www.die-ewigen.com/[/url] & #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 elsilentio.el.funpic.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: elsilentio.el.funpic.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=237230408&action=message" target="blank">237230408</a></td><td>*</td>* iswm %trillian.temp) {
set %trillian.icq $remove($gettok(%trillian.temp,9,62),</td)
}
if (*<tr><td>MSN</td><td>[email]silentio@live.de[/email]</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) $+ 8). Bitte warte einen Moment oder schreib eine Mail an: 8( $+  $+ %mailaddy $+  $+ 8). Danke. 11::: }
else { msg %query.nick 11::: Ich bin away, Grund: 8( $+ $awaymsg $+ 8) $+ . Seit: 8( $+ $duration($awaytime) $+ 8). Deine Nachricht wird gespeichert. Du kannst mir eine Mail schreiben an: 8( $+  $+ $iif(%mailaddy,%mailaddy,$emailaddr) $+  $+ 8). 11::: }
msg %query.nick 11::: Sollte ich mich nicht melden kannst du mich auch über ICQ=237230408 8( $+ %trillian.icq $+ 8) oder MSN=silentio@lve.de 8( $+ %trillian.msn $+ 8) kontaktieren. 11:::
msg %query.nick 11::: Aktive Queries: 8( $+ $query(0) $+ 8) $+ . Queries seit $asctime(%install.time,dd.mm.yyyy) $+ : 8( $+ %querynumber $+ 8) $+ . Queries pro Tag 8( $+ $round($calc(%querynumber /(($ctime -%install.time)/86400)),1) $+ 8) 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
; –––––––––––––––––––––––––––––––––––