irc

Untitled
Verfügbare Informationen zu "irc"

  • Qualität des Beitrags: 0 Sterne
  • 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 17 Jahren, 11 Monaten, 19 Tagen, 14 Stunden, 32 Minuten
  • Alle Beiträge und Antworten zu "irc"

    Re: irc

    di3 - 08.04.2006, 20:28

    irc
    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),&nbsp;,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),&nbsp;,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 ) && ( &deg 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),&deg;C</TD),&nbsp;) $+ $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 ) && ( &deg; !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)