LE-Smoky Mitglied
Posts: 44
|
Hallo,
hier mal ein mirc wetter script was auch ohne probleme funzt, (script von allewetter.de ThomasDieKleineLok) und von mir angepasst.
Einfach ein neues script anlegen und code einfügen.
Chat-Befehl: !wetter "PLZ oder ORT"
zB: !wetter Köln
Code:
on *:text:*:#:{
if ($1 == !wetter) && (!$2) { msg $chan bitte plz/ort eingeben }
elseif ($1 == !wetter) && ($2) { if (%allewetter.land == $null) { set %allewetter.get $+(/cgi-bin/alle-wetter/alle_stadt.pl?NAME=,$replace($2,ä,ae,ü,ue,ö,oe,ü,ue, ö,oe,ä,ae,Ã?,ß)) | set %allewetter.chan $chan | allewetter }
else { set %allewetter.get $+($chr(47),$gettok($read(allewetter.txt,$2),3,47),$chr(47),$gettok($read(allewetter.txt,$2),4,47),$chr(47),$gettok($gettok($read(allewetter.txt,$2),5,47),1,32)) | write -c allewetter.txt | allewetter }
}
}
alias allewetter { sockclose allewetter | sockopen allewetter www.allewetter.de 80 }
on *:sockopen:allewetter:{
if (!$sockerr) {
sockwrite -n $sockname GET %allewetter.get HTTP/1.1
sockwrite -n $sockname Host: www.allewetter.de
sockwrite -n $sockname $crlf
}
}
on *:sockread:allewetter:{
$event %allewetter.temp
if ($regex(%allewetter.temp,/<br><B><H3><FONT FACE=".*">(.*)</FONT></H3></B>/)) { write allewetter.txt Wettervorhersage für $regml(1) | set %allewetter.1 1 }
if (%allewetter.1 == 1) && (<TR> iswm %allewetter.temp) { set %allewetter.2 1 }
if (%allewetter.2 == 1) && (<TR> !iswm %allewetter.temp) && (*</TR>* !iswm %allewetter.temp) { write allewetter.txt %allewetter.temp }
if (%allewetter.2 == 1) && (</TR> iswm %allewetter.temp) { unset %allewetter.2 }
if (%allewetter.1 == 1) && (<TR><TD colspan=6><FONT FACE="Arial" SIZE=-2>* iswm %allewetter.temp) {
unset %allewetter.1
allewetter2
}
if (*<TD colspan="6"><BR><B><H3>* iswm %allewetter.temp) { write -c allewetter.txt | set %allewetter.4 1 | msg %allewetter.chan Es wurden folgende Orte gefunden: }
if (%allewetter.4 == 1) && (<TR> iswm %allewetter.temp) { set %allewetter.3 1 }
if (%allewetter.3 == 1) && ($regex(%allewetter.temp,/<TD class="normal" COLSPAN="6"><A HREF="(.*)">(.*)</A>/)) { set %allewetter.ausage $regml(1) | set %allewetter.ausgabe $regml(2) }
if (%allewetter.3 == 1) && (*<TD class="normal"* !iswm %allewetter.temp) && (</TD></TR> !iswm %allewetter.temp) && (</tr></table> !iswm %allewetter.temp) { set %allewetter.land %allewetter.temp }
if (%allewetter.3 == 1) && (</TD></TR> iswm %allewetter.temp) { inc %alle 1 | write allewetter.txt %allewetter.ausage | msg %allewetter.chan %alle %allewetter.ausgabe %allewetter.land | unset %allewetter.3 }
if (%allewetter.4 == 1) && (*<TR><TD colspan=6></div>* iswm %allewetter.temp) { msg %allewetter.chan $+(,Bitte wähle eine NR und tippe z.b.,$chr(32),!wetter %alle,$chr(32),für %allewetter.ausgabe) | unset %allewetter.4 | unset %alle | .timer.wetter.ende 1 30 allelöschen }
}
alias -l allewetter2 {
var %allwet 1
msg %allewetter.chan $+(,$read(allewetter.txt,1))
.timer.allewetter. $+ %allwet 1 %allwet msg %allewetter.chan $+(,$gettok($gettok($read(allewetter.txt,2),2,62),1,60),$chr(32),den,$chr(32),$gettok($gettok($read(allewetter.txt,3),2,62),1,60),$chr(32),werte von,$chr(32),$replace($remove($gettok($gettok($read(allewetter.txt,4),2,62),1,60), ),$chr(47),bis),$chr(32),Wetterlage,$chr(32),$repla($gettok($gettok($read(allewetter.txt,6),2,62),1,60)),$chr(32),$replace($gettok($gettok($read(allewetter.txt,7),2,62),1,60),NW,$+(NW))) | inc %allwet 1
.timer.allewetter. $+ %allwet 1 %allwet msg %allewetter.chan $+(,$gettok($gettok($read(allewetter.txt,8),2,62),1,60),$chr(32),den,$chr(32),$gettok($gettok($read(allewetter.txt,9),2,62),1,60),$chr(32),werte von,$chr(32),$replace($remove($gettok($gettok($read(allewetter.txt,10),2,62),1,60), ),$chr(47),bis),$chr(32),Wetterlage,$chr(32),$repla($gettok($gettok($read(allewetter.txt,12),2,62),1,60)),$chr(32),$replace($gettok($gettok($read(allewetter.txt,13),2,62),1,60),NW,$+(NW))) | inc %allwet 1
.timer.allewetter. $+ %allwet 1 %allwet msg %allewetter.chan $+(,$gettok($gettok($read(allewetter.txt,14),2,62),1,60),$chr(32),den,$chr(32),$gettok($gettok($read(allewetter.txt,15),2,62),1,60),$chr(32),werte von,$chr(32),$replace($remove($gettok($gettok($read(allewetter.txt,16),2,62),1,60), ),$chr(47),bis),$chr(32),Wetterlage,$chr(32),$repla($gettok($gettok($read(allewetter.txt,18),2,62),1,60)),$chr(32),$replace($gettok($gettok($read(allewetter.txt,19),2,62),1,60),NW,$+(NW))) | inc %allwet 1
.timer.allewetter. $+ %allwet 1 %allwet msg %allewetter.chan $+(,$gettok($gettok($read(allewetter.txt,20),2,62),1,60),$chr(32),den,$chr(32),$gettok($gettok($read(allewetter.txt,21),2,62),1,60),$chr(32),werte von,$chr(32),$replace($remove($gettok($gettok($read(allewetter.txt,22),2,62),1,60), ),$chr(47),bis),$chr(32),Wetterlage,$chr(32),$repla($gettok($gettok($read(allewetter.txt,24),2,62),1,60)),$chr(32),$replace($gettok($gettok($read(allewetter.txt,25),2,62),1,60),NW,$+(NW))) | inc %allwet 1
.timer.allewetter. $+ %allwet 1 %allwet msg %allewetter.chan $+(,$gettok($gettok($read(allewetter.txt,26),2,62),1,60),$chr(32),den,$chr(32),$gettok($gettok($read(allewetter.txt,27),2,62),1,60),$chr(32),werte von,$chr(32),$replace($remove($gettok($gettok($read(allewetter.txt,28),2,62),1,60), ),$chr(47),bis),$chr(32),Wetterlage,$chr(32),$repla($gettok($gettok($read(allewetter.txt,30),2,62),1,60)),$chr(32),$replace($gettok($gettok($read(allewetter.txt,31),2,62),1,60),NW,$+(NW))) | inc %allwet 1
unset %allewetter.*
.remove allewetter.txt
}
alias allelöschen { unset %allewetter* | unset %alle | .remove allewetter.txt }
alias -l repla { return $replace($1,ü,ü) }
|
|
Danke an allwetter.de für das Script.
Viel Spass beim mirc-wettern
Zuletzt modifiziert von LE-Smoky am 14.07.2013 - 00:24:01
|