bgam.es | Browsergames | Forum (http://forum.bgam.es/index.php)
- Die Ewigen (deutsch/german) (http://forum.bgam.es/board.php?boardid=1)
-- Programmierer- und Grafikerecke (http://forum.bgam.es/board.php?boardid=125)
--- IRC-Tools (http://forum.bgam.es/thread.php?threadid=17427)
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 ; –––––––––––––––––––––––––––––––––––––––––––––––– |
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 } |
Forensoftware: Burning Board 2.3.6, entwickelt von WoltLab GmbH