Verfügbare Informationen zu "irc"
Qualität des Beitrags: Beteiligte Poster: di3 Forenurl: Klick aus dem Unterforum: war Antworten: 1 Forum gestartet am: Sonntag 19.02.2006 Sprache: englisch Link zum Originaltopic: irc Letzte Antwort: vor 18 Jahren, 1 Monat, 5 Tagen, 7 Stunden, 41 Minuten
Alle Beiträge und Antworten zu "irc"
Re: irc
di3 - 08.04.2006, 21:28irc
alias dw.rmkosten {
var %tag = $1
var %droiden = $2
var %eisen = $calc(1000 + %droiden * 100 * %tag)
var %titan = $calc(2000 + %droiden * 10 * %tag)
var %oel = $calc(2500 + %droiden * 300 * %tag)
var %uran = $calc(1200 + %droiden * 600 * %tag)
return %tag $+ + $+ 1 mit %droiden droiden: eisen: %eisen $+ , titan: %titan $+ , öl: %oel $+ , uran: %uran
}
alias dw.kikosten {
var %s = $1
if $2 { var %level = $2 }
else { var %level = 1 }
if %s = ki { var %ki = 20 10 200 10 5 172 }
elseif %s = forschung { var %ki = 200 20 300 20 6 312 }
elseif %s = fabrik { var %ki = 500 20 10 0 4 295 }
elseif %s = verteidig { var %ki = 400 5 150 10 4 152 }
elseif %s = raksilo { var %ki = 200 250 400 100 7 421 }
elseif %s = pvg { var %ki = 100 250 300 210 5 315 }
elseif %s = hangar { var %ki = 150 10 0 0 1 91 }
elseif %s = lift { var %ki = 200 20 5 0 2 93 }
elseif %s = mission { var %ki = 50 100 200 5 128 }
elseif %s = komm { var %ki = 150 30 200 10 3 153 }
elseif %s = gdz { var %ki = 100 90 250 5 2 341 }
elseif %s = klonlab { var %ki = 20 200 150 40 20 230 }
elseif %s = rh { var %ki = 400 900 700 450 450 640 }
elseif %s = silo { var %ki = 200 10 0 0 1 174 }
elseif %s = eisen { var %ki = 400 100 20 0 4 136 }
elseif %s = titan { var %ki = 300 200 40 0 3 212 }
elseif %s = öl { var %ki = 100 200 10 0 5 267 }
elseif %s = uran { var %ki = 100 250 15 0 10 412 }
else { var %s = 0 }
if %s != 0 {
var %e = $calc(%level * %level * $gettok(%ki,1,32))
var %t = $calc(%level * %level * $gettok(%ki,2,32))
var %ö = $calc(%level * %level * $gettok(%ki,3,32))
var %u = $calc(%level * %level * $gettok(%ki,4,32))
var %g = $calc(%level * %level * $gettok(%ki,5,32))
var %t = $calc(%level * $calc($gettok(%ki,6,32) * 60))
return %s von $calc(%level -1) auf %level $+ , : eisen: %e $+ , titan: %t $+ , öl: %ö $+ , uran: %u $+ , gold: %g $+ , zeit: $sec2time(%t)
}
}
alias bpsdroid {
if $1 == Sprul { return 2 }
elseif $1 == Dega { return 4 }
elseif $1 == Dexon { return 4 }
elseif $1 == Merger { return 4 }
elseif $1 == Osrem { return 4 }
elseif $1 == Wrot { return 6 }
elseif $1 == Perior { return 6 }
elseif $1 == Nomic { return 8 }
elseif $1 == Trior { return 8 }
elseif $1 == Raxon { return 10 }
elseif $1 == Visvo { return 12 }
elseif $1 == Negator { return 14 }
elseif $1 == Dragoon { return 18 }
elseif $1 == Zengal { return 20 }
elseif $1 == Aspor { return 22 }
elseif $1 == Solaron { return 24 }
elseif $1 == Rhacal { return 60 }
elseif $1 == Sordron { return 100 }
else { return 0 }
}
alias dw.calcbps {
var %bps = 0
if $gettok($1-,0,44) == 1 {
if $1 isnum { var %anz = $1 | var %droid = $2 }
else { var %anz = $2 | var %droid = $1 }
var %bps = $calc($bpsdroid(%droid) * %anz)
}
else {
var %dec = $gettok($1-,0,44)
while %dec >= 1 {
if $gettok($gettok($1-,%dec,44),1,32) isnum { var %anz = $gettok($gettok($1-,%dec,44),1,32) | var %droid = $gettok($gettok($1-,%dec,44),2,32) }
else { var %anz = $gettok($gettok($1-,%dec,44),2,32) | var %droid = $gettok($gettok($1-,%dec,44),1,32) }
var %bps = $calc(%bps + $bpsdroid(%droid) * %anz)
dec %dec
}
}
echo -a %bps
}
alias TVCHECK {
set %tv_time $gettok($time,1,58)
sockclose httphelp
tv_html
}
alias remhtml {
set %remhtm $1-
while ($pos(%remhtm,<,1)) {
if $pos(%remhtm,>,1) == $null { return %remhtm | halt }
elseif $left(%remhtm,1) != < { set %remhtm $mid(%remhtm,$calc($pos(%remhtm,>,1) + 1),$len(%remhtm)) }
elseif $mid(%remhtm,$pos(%remhtm,<,1),$calc(($pos(%remhtm,>,1) + 1) - $pos(%remhtm,<,1))) == $null { set %remhtm $mid(%remhtm,$calc($pos(%remhtm,>,1) + 1),$len(%remhtm)) }
set %x $mid(%remhtm,$pos(%remhtm,<,1),$calc(($pos(%remhtm,>,1) + 1) - $pos(%remhtm,<,1)))
%remhtm = $remove(%remhtm,%x,$chr(9))
}
return %remhtm
}
alias tv_html {
set %help_chan $active
if ($sock(http_tv).status == active) { sockclose http_tv }
sockopen http_tv www.tvinfo.de 80
}
on *:sockopen:http_tv:{
sockwrite -n http_tv GET http://www.tvinfo.de/exe.php3?target=senderlist.inc&showSenderID= $+ %senderid
write -c rohhtml.txt
write -c tv.txt
write -c tvausgabe.txt
write tvausgabe.txt %f1 Sender: %f2 $upper(%sender)
}
ON *:SOCKREAD:http_tv: {
while $sockerr == 0 {
sockread &http_tv
bwrite rohhtml.txt -1 &http_tv
if $sockbr == 0 { return }
if $bfind(&http_tv, 1, </html>).text { sockclose http_tv | ausgabe }
}
http_tv_close $sock($sockname).ip $+ : $+ $sock($sockname).port Connection closed. Data recieved
sockclose http_tv
}
alias newhtml {
set %tv 1
while ( 50 > %tv ) { write tv.txt $remove($remhtml($read(rohhtml.txt,%tv)),$chr(9), ,Uhrzeit:,Sendung:,Kategorie:) | inc %tv }
}
alias http_tv_close {
if ($1-) ;echo -a *** Verbindung von $1 getrennt ( $+ $2- $+ )
}
ON *:SOCKCLOSE:http_tv: { newhtml }
alias ausgabe {
set %müll $read(rohhtml.txt, w, *output*)
set %tv $calc($readn + 1)
while ($calc($readn + 50) >= %tv) { write tv.txt $remove($remhtml($read(rohhtml.txt,%tv)),$chr(9), ,Uhrzeit:,Sendung:,Kategorie:) | inc %tv }
if ($read(tv.txt, w, %tv_time $+ *) != $null) { goto next }
dec %tv_time
while ($read(tv.txt, w, %tv_time $+ *,$readn) == $null) { inc %tv_time }
:next
set %tv.2line $readn
set %tv.line $readn
set %tva.line 2
:start
if (%tva.line == 5) || %tv.line >= $lines(tv.txt) { goto end }
else {
if Hinweis: isin $read(tv.txt,%tv.line) { goto end }
write -l %tva.line tvausgabe.txt $read(tvausgabe.txt,%tva.line) $read(tv.txt,%tv.line)
if (*:* iswm $read(tv.txt,$calc(%tv.line + 1))) && ($gettok($remove($read(tv.txt,$calc(%tv.line + 1)),:),1,32) isnum) { inc %tva.line | inc %tv.line | goto start }
elseif ($gettok($remove($read(tv.txt,$calc(%tv.line + 1)),:),1,32) isnum) && (*:* iswm $read(tv.txt,%tv.line)) { inc %tv.line | goto start }
else { inc %tv.line | goto start }
}
if %tv.line == $calc($readn + 1) { inc %tv.line | goto start }
elseif ($gettok($remove($read(tv.txt,%tv.line),:),1,32) isnum) { inc %tva.line | goto start }
else { goto start }
:end
next.tv
}
alias next.tv {
if (%TV.on == 1) { teste.2 }
if (%TV.on == 0) { tv.tv }
}
alias TV.TV { window -ekb @TV 75 2 900 200 | tv.win }
alias tv.win {
aline -p @TV 12 $str($chr(139),30)
if (%lesezähler == 5) { Halt }
var %lesezähler 1
while (%lesezähler <= $lines(tvausgabe.txt)) {
aline -p @TV $read(tvausgabe.txt,%lesezähler)
inc %lesezähler
}
else { halt }
aline -p @TV 12 $str($chr(139),30)
timerkilltv 1 5 killtv
}
alias killtv {
remove tvausgabe.txt
remove tv.txt
remove rohhtml.txt
unset %sender
unset %senderid
unset %TV.on
unset %tv_chan
unset %tv_time
unset %help_chan
unset %müll
unset %tv
unset %remhtm
unset %x
unset %tv.2line
unset %tva.line
unset %tv.line
}
alias teste.2 {
if (%lesezähler == 5) { Halt }
if (%lesezähler == 5) { Halt }
var %lesezähler 1
while (%lesezähler <= $lines(tvausgabe.txt)) {
msg %help_chan $read(tvausgabe.txt,%lesezähler)
inc %lesezähler
}
timerkilltv 1 5 killtv
else { halt }
}
menu channel,query,menubar,status {
TV
.Anzeigen
..Nur mir
...ARD:/set %sender ARD | set %senderid 37 | set %TV.on 0 | TVCHECK
...ZDF:/set %sender ZDF | set %senderid 36 | set %TV.on 0 | TVCHECK
...RTL:/set %sender RTL | set %senderid 23 | set %TV.on 0 | TVCHECK
...RTL2:/set %sender RTL2 | set %senderid 24 | set %TV.on 0 | TVCHECK
...SRTL:/set %sender SRTL | set %senderid 25 | set %TV.on 0 | TVCHECK
...SAT1:/set %sender SAT1 | set %senderid 38 | set %TV.on 0 | TVCHECK
...PRO7:/set %sender PRO7 | set %senderid 22 | set %TV.on 0 | TVCHECK
...VOX:/set %sender VOX | set %senderid 34 | set %TV.on 0 | TVCHECK
...3SAT:/set %sender 3SAT | set %senderid 2 | set %TV.on 0 | TVCHECK
...KABEL1:/set %sender KABEL1 | set %senderid 12 | set %TV.on 0 | TVCHECK
...ARTE:/set %sender ARTE | set %senderid 4 | set %TV.on 0 | TVCHECK
...MTV:/set %sender MTV | set %senderid 46 | set %TV.on 0 | TVCHECK
...MTV2:/set %sender MTV2 | set %senderid 124 | set %TV.on 0 | TVCHECK
...VIVA:/set %sender VIVA | set %senderid 32 | set %TV.on 0 | TVCHECK
...VIVA+:/set %sender VIVA+ | set %senderid 124 | set %TV.on 0 | TVCHECK
...Eurosprot:/set %sender Eurosport | set %senderid 10 | set %TV.on 0 | TVCHECK
...DSF:/set %sender DSF | set %senderid 7 | set %TV.on 0 | TVCHECK
..Im Channel
...ARD:/set %sender ARD | set %senderid 37 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...ZDF:/set %sender ZDF | set %senderid 36 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...RTL:/set %sender RTL | set %senderid 23 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...RTL2:/set %sender RTL2 | set %senderid 24 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...SRTL:/set %sender SRTL | set %senderid 25 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...SAT1:/set %sender SAT1 | set %senderid 38 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...PRO7:/set %sender PRO7 | set %senderid 22 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...VOX:/set %sender VOX | set %senderid 34 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...3SAT:/set %sender 3SAT | set %senderid 2 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...KABEL1:/set %sender KABEL1 | set %senderid 12 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...ARTE:/set %sender ARTE | set %senderid 4 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...MTV:/set %sender MTV | set %senderid 46 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...MTV2:/set %sender MTV2 | set %senderid 124 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...VIVA:/set %sender VIVA | set %senderid 32 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...VIVA+:/set %sender VIVA+ | set %senderid 124 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...Eurosport:/set %sender Eurosport | set %senderid 10 | set %TV.on 1 | set %tv_chan $active | TVCHECK
...DSF:/set %sender DSF | set %senderid 7 | set %TV.on 1 | set %tv_chan $active | TVCHECK
}
menu @TV {
TV
.Anzeigen
...ARD:/set %sender ARD | set %senderid 37 | set %TV.on 0 | TVCHECK
...ZDF:/set %sender ZDF | set %senderid 36 | set %TV.on 0 | TVCHECK
...RTL:/set %sender RTL | set %senderid 23 | set %TV.on 0 | TVCHECK
...RTL2:/set %sender RTL2 | set %senderid 24 | set %TV.on 0 | TVCHECK
...SRTL:/set %sender SRTL | set %senderid 25 | set %TV.on 0 | TVCHECK
...SAT1:/set %sender SAT1 | set %senderid 38 | set %TV.on 0 | TVCHECK
...PRO7:/set %sender PRO7 | set %senderid 22 | set %TV.on 0 | TVCHECK
...VOX:/set %sender VOX | set %senderid 34 | set %TV.on 0 | TVCHECK
...3SAT:/set %sender 3SAT | set %senderid 2 | set %TV.on 0 | TVCHECK
...KABEL1:/set %sender KABEL1 | set %senderid 12 | set %TV.on 0 | TVCHECK
...ARTE:/set %sender ARTE | set %senderid 4 | set %TV.on 0 | TVCHECK
...MTV:/set %sender MTV | set %senderid 46 | set %TV.on 0 | TVCHECK
...MTV2:/set %sender MTV2 | set %senderid 124 | set %TV.on 0 | TVCHECK
...VIVA:/set %sender VIVA | set %senderid 32 | set %TV.on 0 | TVCHECK
...VIVA+:/set %sender VIVA+ | set %senderid 124 | set %TV.on 0 | TVCHECK
...Eurosport:/set %sender Eurosport | set %senderid 10 | set %TV.on 0 | TVCHECK
...DSF:/set %sender DSF | set %senderid 7 | set %TV.on 0 | TVCHECK
}
alias wetter {
if ( $1 = ö ) {
set %öplz $iif($2,$2,$$?="Ort angeben:")
autwetter_ $me $iif($2-,$2-,%öplz)
}
else {
set %plz $iif($1,$1,$$?="Postleitzahl angeben:")
wetter_ $me $1
}
}
alias autwetter_ {
set %wetter.user $1
set %öplz $2-
if ( Aigen isin %öplz ) { set %plz AUXX0034 }
else if ( Amstetten isin %öplz ) { set %plz AUXX0038 }
else if ( Bad Gleichenberg isin %öplz ) { set %plz AUXX0039 }
else if ( Bad Goisen isin %öplz ) { set %plz AUXX0040 }
else if ( Bad Hofgastein isin %öplz ) { set %plz AUXX0062 }
else if ( Bad Ischl isin %öplz ) { set %plz AUXX0063 }
else if ( Baden isin %öplz ) { set %plz AUXX0001 }
else if ( Bergheim isin %öplz ) { set %plz AUXX0002 }
else if ( Bischofshofen isin %öplz ) { set %plz AUXX0041 }
else if ( Bregenz isin %öplz ) { set %plz AUXX0032 }
else if ( Bruck isin %öplz ) { set %plz AUXX0042 }
else if ( Eferding isin %öplz ) { set %plz AUXX0003 }
else if ( Eisenstadt isin %öplz ) { set %plz AUXX0004 }
else if ( Enns isin %öplz ) { set %plz AUXX0005 }
else if ( Friesach isin %öplz ) { set %plz AUXX0043 }
else if ( Gleisdorf isin %öplz ) { set %plz AUXX0006 }
else if ( Gmunden isin %öplz ) { set %plz AUXX0044 }
else if ( Gratkorn isin %öplz ) { set %plz AUXX0007 }
else if ( Graz isin %öplz ) { set %plz AUXX0008 }
else if ( Hallein isin %öplz ) { set %plz AUXX0009 }
else if ( Innsbruck isin %öplz ) { set %plz AUXX0010 }
else if ( Kirchdorf isin %öplz ) { set %plz AUXX0046 }
else if ( Kitzbuhel isin %öplz ) { set %plz AUXX0064 }
else if ( Klagenfurt-Flughafen isin %öplz ) { set %plz AUXX0034 }
else if ( Klosterneuburg isin %öplz ) { set %plz AUXX0011 }
else if ( Korneuburg isin %öplz ) { set %plz AUXX0012 }
else if ( Kufstein isin %öplz ) { set %plz AUXX0033 }
else if ( Lannach isin %öplz ) { set %plz AUXX0013 }
else if ( Lech isin %öplz ) { set %plz AUXX0067 }
else if ( Leibnitz isin %öplz ) { set %plz AUXX0014 }
else if ( Leonding isin %öplz ) { set %plz AUXX0015 }
else if ( Lienz isin %öplz ) { set %plz AUXX0036 }
else if ( Linz isin %öplz ) { set %plz AUXX0016 }
else if ( Mariazell isin %öplz ) { set %plz AUXX0035 }
else if ( Matrei isin %öplz ) { set %plz AUXX0047 }
else if ( Mauterndorf isin %öplz ) { set %plz AUXX0050 }
else if ( Mistelbach isin %öplz ) { set %plz AUXX0048 }
else if ( Modling isin %öplz ) { set %plz AUXX0017 }
else if ( Murau isin %öplz ) { set %plz AUXX0049 }
else if ( Retz isin %öplz ) { set %plz AUXX0030 }
else if ( Ried isin %öplz ) { set %plz AUXX0051 }
else if ( Salzburg isin %öplz ) { set %plz AUXX0018 }
else if ( Schladming isin %öplz ) { set %plz AUXX0052 }
else if ( Schwaz isin %öplz ) { set %plz AUXX0019 }
else if ( Seiersberg isin %öplz ) { set %plz AUXX0020 }
else if ( Sonnblick-Gletscher isin %öplz ) { set %plz AUXX0053 }
else if ( Sonnenkopf isin %öplz ) { set %plz AUXX0070 }
else if ( Spielberg isin %öplz ) { set %plz AUXX0061 }
else if ( St. Christoph isin %öplz ) { set %plz AUXX0069 }
else if ( St. Johann isin %öplz ) { set %plz AUXX0045 }
else if ( St. Pölten isin %öplz ) { set %plz AUXX0031 }
else if ( Steinach isin %öplz ) { set %plz AUXX0021 }
else if ( Steyregg isin %öplz ) { set %plz AUXX0022 }
else if ( Stockerau isin %öplz ) { set %plz AUXX0023 }
else if ( Stuben isin %öplz ) { set %plz AUXX0068 }
else if ( Traun isin %öplz ) { set %plz AUXX0024 }
else if ( Unken isin %öplz ) { set %plz AUXX0060 }
else if ( Voitsberg isin %öplz ) { set %plz AUXX0026 }
else if ( Waizenkirchen isin %öplz ) { set %plz AUXX0027 }
else if ( Weis isin %öplz ) { set %plz AUXX0028 }
else if ( Wien isin %öplz ) { set %plz AUXX0025 }
else if ( Zell am See isin %öplz ) { set %plz AUXX0054 }
else if ( Zeltweg isin %öplz ) { set %plz AUXX0055 }
else if ( Zurs isin %öplz ) { set %plz AUXX0066 }
else if ( Zwettl Stadt isin %öplz ) { set %plz AUXX0056 }
wettersock
}
alias wetter_ {
set %wetter.user $1
set %plz $2-
wettersock
}
alias wettersock {
sockclose Wetter
sockopen Wetter de.weather.com 80
set %send /weather/local/ $+ %plz
}
on *:sockopen:Wetter:{
sockwrite -n Wetter GET %send HTTP/1.1
sockwrite -n Wetter Host: de.weather.com $+ $crlf $+ $crlf
}
on *:sockread:Wetter:{
sockread %wetter
if ( *<TITLE>* - * - *, * ( $+ %plz $+ )</TITLE>* iswm %wetter ) { set %wetter.ort $remove($wildtok(%wetter,* - * - * $+ $chr(44) * ( %plz * $+ )</TITLE*,1,62),de.weather.com - Lokales Wetter - ,</TITLE)) }
if ( *<TITLE>* - * - *, *</TITLE>* iswm %wetter ) { set %wetter.ort $remove($wildtok(%wetter,* - * - * $+ $chr(44) *</TITLE*,1,62),de.weather.com - Lokales Wetter - ,</TITLE)) }
if ( *<TD CLASS="currentObsText">* $+(%,</TD>)* iswm %wetter ) { set %wetter.luft $remove($wildtok(%wetter,* $+(%,</TD)*,1,62),</TD) }
if ( <TD colspan="3" align="center" CLASS="obsText"> isin %wetter ) { set %wetter.lage $remove($gettok(%wetter,2,62),<BR) }
if ( *Gef*uuml*hlte* iswm %wetter ) && ( currentObsText !isin %wetter ) && ( obsTempText !isin %wetter ) && ( ° isin %wetter ) { set %wetter.fuehl $remove(%wetter,G,e,f,&,u,m,l,;,h,t,T,p,.,n,b,s,p,d,g,C,<,/,T,D,>,$chr(32)) $+ $chr(176) $+ C }
if ( <TD COLSPAN="2" CLASS="obsTempText" VALIGN="TOP"> isin %wetter ) { set %wetter.temp $remove($remove($gettok(%wetter,2,62),°C</TD), ) $+ $chr(176) $+ C }
if ( hPa isin %wetter ) { set %wetter.druck $remove(%wetter,<TD CLASS="currentObsText">,</TD>) }
if ( km/h isin %wetter ) { set %wetter.wind $remove($gettok(%wetter,2,62),</TD) }
if ( <TD CLASS="currentObsText"> isin %wetter ) && ( hPa !isin %wetter ) && ( km/h !isin %wetter ) && ( ° !isin %wetter ) && ( % !isin %wetter ) { set %wetter.sicht $remove($gettok(%wetter,2,62),</TD) }
if ( %wetter == 0 ) {
wetter.say $iif(%wetter.user,%wetter.user,$me) | unset %wetter.user }
}
alias wetter.say {
if ( $1 ) && ( $1 != $me ) {
if ( !%wetter.ort ) { .notice %wetter.user :: Postleitzahl/Ort bei de.weather.com nicht bekannt | unset %wetter.error }
else if ( %wetter.lage == - ) { .notice %wetter.user :: Daten für %wetter.ort zur Zeit nicht verfügbar }
else {
.notice $$1 :::::: Wetter Stats für: %wetter.ort
.notice $$1 :: Allgemeine Wetterlage: %wetter.lage
.notice $$1 :: Gemessene Temperatur: %wetter.temp
$iif(%wetter.fuehl,.notice $$1 :: Gefühlte Temperatur: %wetter.fuehl,)
$iif(%wetter.wind,.notice $$1 :: Wind: %wetter.wind,)
.notice $$1 :: Sichtweite: %wetter.sicht
.notice $$1 :: Luftfeuchtigkeit: %wetter.luft
.notice $$1 :: Luftdruck: %wetter.druck
.notice $$1 :::::: (de.weather.com)
echo -a :: Sent Wetter Stats to $$1
}
}
else {
if ( !%wetter.ort ) { echo -a :: Postleitzahl/Ort bei de.weather.com nicht bekannt | unset %wetter.error }
else if ( %wetter.lage == - ) { echo -a :: Daten für %wetter.ort zur Zeit nicht verfügbar }
else {
echo -a :::::: Wetter Stats für: %wetter.ort
echo -a :: Allgemeine Wetterlage: %wetter.lage
echo -a :: Gemessene Temperatur: %wetter.temp
$iif(%wetter.fuehl,echo -a :: Gefühlte Temperatur: %wetter.fuehl,)
$iif(%wetter.wind,echo -a :: Wind: %wetter.wind,)
echo -a :: Sichtweite: %wetter.sicht
echo -a :: Luftfeuchtigkeit: %wetter.luft
echo -a :: Luftdruck: %wetter.druck
echo -a :::::: (de.weather.com)
}
}
unset %wetter.ort
unset %wetter.lage
unset %wetter.temp
unset %wetter.fuehl
unset %wetter.wind
unset %wetter.sicht
unset %wetter.luft
unset %wetter.druck
unset %öplz
unset %plz
}
on *:text:%wettertrigger:*:{
if ( %usewettertrigger ) {
echo -a :: Wetter Anfrage von $nick ( $+ $2- $+ )
if ( !$2 ) { .notice $nick :: Bitte weitere Daten (PLZ/Ort) angeben }
if ( $sock(Wetter) ) { .notice $nick :: Sorry, es wird schon eine Anfrage bearbeitet }
if ( $2 = ö ) || ( $2 = Ö ) { autwetter_ $nick $3- }
else {
wetter_ $nick $2-
}
}
}
alias _wetter { dialog -m wetter wetter }
dialog wetter {
title "Wetter"
size -1 -1 100 55
option dbu
box "" 1, 2 2 95 17
box "" 8, 2 16 95 22
check "Enable trigger:" 2, 5 7 45 10
edit "" 3, 55 7 40 10
text "Lokal: /wetter [ö] [PLZ|Ort]" 4, 5 21 90 10
text "" 7, 5 29 90 10
button "Save" 5, 15 42 30 10, ok default
button "Cancel" 6, 55 42 30 10, cancel
}
on 1:dialog:wetter:init:0:{
if ( %usewettertrigger ) { did -c $dname 2 }
else { did -m $dname 3 | did -b $dname 7 }
did -a $dname 3 $remove(%wettertrigger,*)
did -a $dname 7 Trigger: $did(3) [ö] [PLZ|Ort]
}
on 1:dialog:wetter:sclick:*:{
did -ca $dname 7 Trigger: $remove(%wettertrigger,*) [ö] [PLZ|Ort]
if ( $did = 2 ) {
if ( %usewettertrigger ) { unset %usewettertrigger | did -m $dname 3 | did -u $dname 2 | did -b $dname 7 }
else { set %usewettertrigger 1 | did -n $dname 3 | did -c $dname 2 | did -e $dname 7 }
}
else if ( $did = 5 ) {
set %wettertrigger $did(3) $+ *
}
}
on 1:dialog:wetter:edit:3:{
did -ca $dname 7 Trigger: $did(3) [ö] [PLZ|Ort]
}
on *:load:{
set %wettertrigger !wetter*
set %usewettertrigger 1
echo -a :: Wetter Script
echo -a :: Zum Trigger-Einstellen /_wetter benutzen
echo -a :: Der Trigger ist für andere, die dann zB mit !wetter 19053 die Wetter Stats von euch abrufen könnten
echo -a :: Für Wetter-Stats aus Österreich einfach /wetter ö ORT benutzen, funktioniert hier nicht über PLZ sondern nur über größere Orte
echo -a :: Selbiges gilt für die Trigger, das würde also zB mit !wetter ö Wien gehen
echo -a :: Allgemeine Syntax also: wetter [ö] [Postleitzahl|Ort]
echo -a :: Die "Gefühlte Temperatur" hat hin und wieder ne Macke, scheint aber an der Seite zu liegen
echo -a :: Rückfragen oder sonstiges an hannes@firefuckerz.de bitte :)
_wetter
}
Mit folgendem Code, können Sie den Beitrag ganz bequem auf ihrer Homepage verlinken
Weitere Beiträge aus dem Forum Untitled
droiden: death - gepostet von di3 am Freitag 31.03.2006
Ähnliche Beiträge wie "irc"
IRC - Arc (Freitag 09.06.2006)
IRC!!!!!!!!11 - lord-regs (Montag 03.04.2006)
irc - CodeQ (Montag 23.10.2006)
IRC - kaiwolfsrudel (Freitag 21.07.2006)
Kontakt/IRC/ICQ und Co. - Basti (Donnerstag 06.09.2007)
Wir haben einen IRC channel ! - Sandtiger (Mittwoch 04.05.2005)
IRC Channel - Firedragon (Dienstag 05.06.2007)
Großes IRC treffen am Dienstag! - kodosDeRHenker (Montag 14.08.2006)
IRC - Skillox (Freitag 09.02.2007)
IRC Channel - Kutte (Dienstag 25.04.2006)