IRC-Tools |
Scarface1
Jagdbootstaffelführer
Dabei seit: 20.09.2004
Beiträge: 654
|
|
Trillian Socket v1.0 (Queryscript) |
|
Hallo,
hier mal ein kleines ToDo um seinen Trillianstatus (z.B. ICQ, MSN) beim öffnen eines Querys anzeigen zulassen.
Voraussetzungen sind:
[list]eigener Webspace
Trillian 3 Pro.
TrillianStatus 2 (DJ16EL)
WebStatus Plugin
[/list]
Zunächst installiert ihr ganz gewöhnlich die Pro. Version von Trillian.
Eine Installationshilfe für TrillianStatus 2 und das Webstatus Plugin gibt es hier
Vorschau von TrillianStatus 2
Indem ihr in eurem IRC Clienten "alt+r" öffnet ihr die Remote wo ihr das folgende Skript reinkopiert. (File -> New)
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
; ––––––––––––––––––––––––––––––––––––––––––––––––
|
Folgend müssen diese Zeilen angepasst werden:
Rot == Eure IP oder Adresse vom Server
Grün == Das genaue Verzeichniss zum TrillanStatus auf eurem Webspace
Orange == Eure ICQ Nummer
Blau == MSN E-Mail Adresse
Skript mit MIRC 6.16 + NoName Skript getestet
Sollten noch Fragen oder sonst was sein stellt sie bitte.
Mit freundlichen Grüßen
scarface
Dieser Beitrag wurde 5 mal editiert, zum letzten Mal von Scarface1: 13.01.2007 03:51.
|
|
08.02.2006 04:30 |
|
|
Scarface1
Jagdbootstaffelführer
Dabei seit: 20.09.2004
Beiträge: 654
Themenstarter
|
|
Sondenbericht auswerten
Zitat: |
dialog DESonde {
title "
ie Ewigen - Sondenbericht"
size -1 -1 164 167
option dbu
box "Sondenbericht hier einfügen:", 1, 2 2 160 60
edit "", 2, 6 10 152 48, group result multi autohs autovs hsbar vsbar
box "Ergebnis:", 3, 2 64 160 60
edit "", 4, 6 72 152 48, read multi autohs autovs hsbar vsbar
button "In Chan posten", 5, 2 147 49 12, flat
button "Auswerten", 6, 53 147 35 12, flat
button "Löschen", 7, 90 147 35 12, flat
button "Schliessen", 8, 127 147 35 12, flat cancel
text "Copyright 2oo4 scarface", 9, 2 160 160 8, center
box "Optionen:", 10, 2 126 160 17
radio "
ie Ewigen 1.0", 11, 30 132 48 10, flat
radio "
ie Ewigen 2.0", 12, 95 132 46 10, flat
}
dialog DEInfo {
title "Warnung!"
size -1 -1 175 53
option dbu
box "", 1, 4 1 168 34
button "OK", 2, 62 38 50 12, ok
text %de.sonde.info, 3, 8 8 159 22
}
on *
IALOG
ESonde:INIT:0: {
if (%de.sonde.1) {
did -r DESonde 2
set %de.sonde.cnt 1
while (%de.sonde.cnt <= %de.sonde.lines) {
if (%de.sonde. [ $+ [ %de.sonde.cnt ] ] != $null) did -i DESonde 2 %de.sonde.cnt %de.sonde. [ $+ [ %de.sonde.cnt ] ]
inc %de.sonde.cnt
}
}
unset %de.sonde.cnt
did -c DESonde 12
set %de.sonde.radio 2
}
on *:dialog
ESonde:edit:2: {
set %de.sonde.cnt 1
set %de.sonde.lines $did(DESonde,2,0).lines
while (%de.sonde.cnt <= $did(DESonde,2,0).lines) {
set %de.sonde. [ $+ [ %de.sonde.cnt ] ] $did(DESonde,2,%de.sonde.cnt)
inc %de.sonde.cnt
}
unset %de.sonde.cnt
}
on *:dialog
ESonde:sclick:11: {
if (%de.sonde.radio != 1) set %de.sonde.radio 1
}
on *:dialog
ESonde:sclick:12: {
if (%de.sonde.radio != 2) set %de.sonde.radio 2
}
; # In Chan posten
on *:dialog
ESonde:sclick:5: {
if ($did(DESonde,2) && Sondenbericht != $gettok($did(DESonde,2,0),1,32)) {
set %de.sonde.info Falscher oder ungültiger Sondenbericht!
ShowDEInfoDLG
unset %de.sonde.info
halt
}
if ($did(DESonde,2) && %de.sonde.radio == 1) {
set %de.sonde.lines $did(DESonde,2).lines
set %de.sonde.cnt 1
while (%de.sonde.cnt <= %de.sonde.lines) {
if (Sondenbericht == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) {
set %de.sonde.name $gettok($did(DESonde,2,%de.sonde.cnt),3,32)
set %de.sonde.coords $remove($gettok($did(DESonde,2,%de.sonde.cnt),4,32),$chr(40),$chr(41))
}
if (Punkte == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.points $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if ((Schiffseinheiten == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) && (Bau != $gettok($did(DESonde,2,%de.sonde.cnt),3,32))) set %de.sonde.fleet $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Bau == $gettok($did(DESonde,2,%de.sonde.cnt),3,32)) set %de.sonde.build $gettok($did(DESonde,2,%de.sonde.cnt),4,32)
if (Verteidigungsanlagen == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.deffis $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Kollektoren == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.kollies $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Gebäude == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.builds $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Rasse == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.race $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
inc %de.sonde.cnt
}
msg $active 1,8::| Sondenbericht für $+ %de.sonde.name $+ $chr(40) $+ %de.sonde.coords $+ $chr(41) $chr(124) Online $+($chr(40),Letzten 12h,$chr(41),$chr(5
) $+ $upper(%de.sonde.online) $+ $chr(124) Punkte: %de.sonde.points |::
msg $active 1,8::| Schiffe $+ $chr(5
$+ %de.sonde.fleet $+ $chr(124) Deffis $+ $chr(5
$+ %de.sonde.deffis $+ $chr(124) Im Bau: %de.sonde.build $+ $chr(124) Kollies: %de.sonde.kollies $+ $chr(124) Gebäude: %de.sonde.builds $+ $chr(124) Rasse: %de.sonde.race |::
unset %de.sonde.*
dialog -x DESonde DESonde
halt
}
elseif ($did(DESonde,2) && %de.sonde.radio == 2) {
set %de.sonde.lines $did(DESonde,2).lines
set %de.sonde.cnt 1
while (%de.sonde.cnt <= %de.sonde.lines) {
if (Sondenbericht == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) {
set %de.sonde.name $gettok($did(DESonde,2,%de.sonde.cnt),3,32)
set %de.sonde.coords $remove($gettok($did(DESonde,2,%de.sonde.cnt),4,32),$chr(40),$chr(41))
}
if (Online == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.online $gettok($did(DESonde,2,%de.sonde.cnt),7,32)
if (Punkte == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.points $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Schiffseinheiten == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.fleet $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Verteidigungsanlagen == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.deffis $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Einheiten == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.build $gettok($did(DESonde,2,%de.sonde.cnt),4,32)
if (Kollektoren == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.kollies $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Gebäude == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.builds $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Rasse == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.race $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Multiplex == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.multiplex $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Dyharra == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.dyharra $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Iradium == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.iradium $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Eternium == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.eternium $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Tronic == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.tronic $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
inc %de.sonde.cnt
}
msg $active 1,8::| Sondenbericht für $+ %de.sonde.name $+ $chr(40) $+ %de.sonde.coords $+ $chr(41) $chr(124) Online $+($chr(40),Letzten 12h,$chr(41),$chr(5
) $+ $upper(%de.sonde.online) $+ $chr(124) Punkte: %de.sonde.points |::
msg $active 1,8::| Schiffe $+ $chr(5
$+ %de.sonde.fleet $+ $chr(124) Deffis $+ $chr(5
$+ %de.sonde.deffis $+ $chr(124) Im Bau: %de.sonde.build $+ $chr(124) Kollies: %de.sonde.kollies $+ $chr(124) Gebäude: %de.sonde.builds $+ $chr(124) Rasse: %de.sonde.race |::
msg $active 1,8::| Rohstoffe $chr(124) Multiplex $+ $chr(5
$+ %de.sonde.multiplex $+ $chr(124) Dyharra $+ $chr(5
$+ %de.sonde.dyharra $+ $chr(124) Iradium: %de.sonde.iradium $+ $chr(124) Eternium: %de.sonde.eternium $+ $chr(124) Tronic: %de.sonde.tronic |::
unset %de.sonde.*
dialog -x DESonde DESonde
halt
}
}
; # Auswerten
on *:dialog
ESonde:sclick:6: {
if ($did(DESonde,2) && Sondenbericht != $gettok($did(DESonde,2,0),1,32)) {
set %de.sonde.info Falscher oder ungültiger Sondenbericht!
ShowDEInfoDLG
unset %de.sonde.info
halt
}
if ($did(DESonde,2) && %de.sonde.radio == 1) {
set %de.sonde.lines $did(DESonde,2).lines
set %de.sonde.cnt 1
while (%de.sonde.cnt <= %de.sonde.lines) {
if (Sondenbericht == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) {
set %de.sonde.name $gettok($did(DESonde,2,%de.sonde.cnt),3,32)
set %de.sonde.coords $remove($gettok($did(DESonde,2,%de.sonde.cnt),4,32),$chr(40),$chr(41))
}
if (Punkte == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.points $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if ((Schiffseinheiten == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) && (Bau != $gettok($did(DESonde,2,%de.sonde.cnt),3,32))) set %de.sonde.fleet $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Bau == $gettok($did(DESonde,2,%de.sonde.cnt),3,32)) set %de.sonde.build $gettok($did(DESonde,2,%de.sonde.cnt),4,32)
if (Verteidigungsanlagen == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.deffis $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Kollektoren == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.kollies $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Gebäude == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.builds $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Rasse == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.race $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
inc %de.sonde.cnt
}
did -ri DESonde 4 1 1,8::| Sondenbericht für $+ %de.sonde.name $+ $chr(40) $+ %de.sonde.coords $+ $chr(41) $chr(124) Online $+($chr(40),Letzten 12h,$chr(41),$chr(5
) $+ $upper(%de.sonde.online) $+ $chr(124) Punkte: %de.sonde.points |::
did -i DESonde 4 2 1,8::| Schiffe $+ $chr(5
$+ %de.sonde.fleet $+ $chr(124) Deffis $+ $chr(5
$+ %de.sonde.deffis $+ $chr(124) Im Bau: %de.sonde.build $+ $chr(124) Kollies: %de.sonde.kollies $+ $chr(124) Gebäude: %de.sonde.builds $+ $chr(124) Rasse: %de.sonde.race |::
unset %de.sonde.*
halt
}
elseif ($did(DESonde,2) && %de.sonde.radio == 2) {
set %de.sonde.lines $did(DESonde,2,0).lines
set %de.sonde.cnt 1
while (%de.sonde.cnt <= %de.sonde.lines) {
if (Sondenbericht == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) {
set %de.sonde.name $gettok($did(DESonde,2,%de.sonde.cnt),3,32)
set %de.sonde.coords $remove($gettok($did(DESonde,2,%de.sonde.cnt),4,32),$chr(40),$chr(41))
}
if (Online == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.online $gettok($did(DESonde,2,%de.sonde.cnt),7,32)
if (Punkte == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.points $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Schiffseinheiten == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.fleet $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Verteidigungsanlagen == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.deffis $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Einheiten == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.build $gettok($did(DESonde,2,%de.sonde.cnt),4,32)
if (Kollektoren == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.kollies $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Gebäude == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.builds $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Rasse == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.race $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Multiplex == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.multiplex $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Dyharra == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.dyharra $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Iradium == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.iradium $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Eternium == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.eternium $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
if (Tronic == $gettok($did(DESonde,2,%de.sonde.cnt),1,32)) set %de.sonde.tronic $gettok($did(DESonde,2,%de.sonde.cnt),2,32)
inc %de.sonde.cnt
}
did -ri DESonde 4 1 msg $active 1,8::| Sondenbericht für $+ %de.sonde.name $+ $chr(40) $+ %de.sonde.coords $+ $chr(41) $chr(124) Online $+($chr(40),Letzten 12h,$chr(41),$chr(5
) $+ $upper(%de.sonde.online) $+ $chr(124) Punkte: %de.sonde.points |::
did -i DESonde 4 2 msg $active 1,8::| Schiffe $+ $chr(5
$+ %de.sonde.fleet $+ $chr(124) Deffis $+ $chr(5
$+ %de.sonde.deffis $+ $chr(124) Im Bau: %de.sonde.build $+ $chr(124) Kollies: %de.sonde.kollies $+ $chr(124) Gebäude: %de.sonde.builds $+ $chr(124) Rasse: %de.sonde.race |::
did -i DESonde 4 3 msg $active 1,8::| Rohstoffe $chr(124) Multiplex $+ $chr(5
$+ %de.sonde.multiplex $+ $chr(124) Dyharra $+ $chr(5
$+ %de.sonde.dyharra $+ $chr(124) Iradium: %de.sonde.iradium $+ $chr(124) Eternium: %de.sonde.eternium $+ $chr(124) Tronic: %de.sonde.tronic |::
unset %de.sonde.name %de.sonde.coords %de.sonde.online %de.sonde.points %de.sonde.fleet %de.sonde.deffis %de.sonde.build %de.sonde.kollies %de.sonde.builds %de.sonde.race %de.sonde.multiplex %de.sonde.dyharra %de.sonde.iradium %de.sonde.eternium %de.sonde.tronic
}
}
on *:dialog
ESonde:sclick:7: {
unset %de.sonde.*
did -r DESonde 2
did -r DESonde 4
}
menu channel {
-
Die Ewigen - Utilities
.Sondenbericht:ShowDESondeDLG
}
alias ShowDESondeDLG {
if ($dialog(DESonde) == $null) dialog -ma DESonde DESonde
}
alias ShowDEInfoDLG {
if ($dialog(DEInfo) == $null) dialog -ma DEInfo DEInfo
}
|
|
|
13.01.2007 03:45 |
|
|
|