Last News Entries
Kategorie: Allgemein
TS3 Backup Server
Autor : LE-Smoky | 04.04.2023
Kategorie: Allgemein
BF3 Dedicated Server dank Venice Unleash...
Autor : LE-Smoky | 02.04.2021
Kategorie: Allgemein
NEUE TEAMSPEAK IP !!!
Autor : LE-Smoky | 03.07.2020

Battlefield 4

Battlefield 4
5 4 3 2 1

Latest Forum
Autor: LE-Smoky | Kategorie: Games
BomSF Server & Gamespy emu 0
Last Post: LE-Smoky | 30.01.16 - 01:54 Uhr
Autor: Spawn0705 | Kategorie: Games
Fehlermeldung MSVCP100dll [Gelöst] 2
Last Post: Spawn0705 | 27.01.16 - 18:22 Uhr
Autor: Spawn0705 | Kategorie: Community
Der Spawn0705 12
Last Post: Spawn0705 | 08.12.14 - 04:36 Uhr
Home » Forum » PC-Software » Programme » mirc Chat » mirc wetter script/snipped


mirc wetter script/snipped
LE-Smoky
Mitglied

User Pic

Posts: 44
# 14.07.2013 - 00:22:00
    zitieren


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),&nbsp;),$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),&nbsp;),$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),&nbsp;),$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),&nbsp;),$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),&nbsp;),$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,&uuml;,ü) }



Danke an allwetter.de für das Script.

Viel Spass beim mirc-wettern Zwinker


Zuletzt modifiziert von LE-Smoky am 14.07.2013 - 00:24:01