Baumstrukturmodus | Linearer Modus

Kaesi · 24.03.2007, 23:29 Uhr

jepp.. bin gespannt B-))

PattySTD · 24.03.2007, 23:34 Uhr

oki, das wars leider auch nicht :(

Kaesi · 24.03.2007, 23:46 Uhr

*hmmmm*
hab das Script eben bei mir auch mal geladen und den selben Fehler entdeckt..

ich persönlich verwende dieses Script hier (was bei mir wunderbar funzt)...

Code:

'###############################################################################​######## 

'# Wetter Script by Spiky                                                              # 

'###############################################################################​######## 

'#                                                                              ​       # 

'# Copyright 2006 by Spiky                                                             # 

'#                                                                              ​       # 

'###############################################################################​######## 

'###############################################################################​######## 

'# Verfügbare Variablen                                                                # 

'#                                                                              ​       # 

'#  %PLZ%   -   Postleitzahl                                                   # 

'#  %TEMP%   -   Temperatur                                                     # 

'#  %STATUS%   -   Bewölkt oder Sonnig etc.                                       # 

'#  %WIND%   -   Windrichtung und Stärke                                        # 

'#  %FEUCHT%   -   Luftfeuchtigkeit in Prozent                                    # 

'#  %SICHT%   -   Sicht in Km                                                    # 

'#  %DRUCK%   -   Luftdruck                                                      # 

'#                                                                              ​       # 

'###############################################################################​######## 

 Const vSkin = "1,0[7ø1] Wetter für %PLZ% 7¬1 %TEMP%, %STATUS% mit Wind %WIND% 1[7ø1] Die Luftfeuchtigkeit liegt bei %FEUCHT% und die Sicht beträgt %SICHT% 1[7ø1]" 

'###############################################################################​######## 

'###############################################################################​######## 

'# Zeit in Sekunden zwischen jeder Abfrage                                             # 

'###############################################################################​######## 

 Const vFlood = 1 

'###############################################################################​######## 

Dim vChan, vNick, vOrt, HTML, Temp, vCheck, vGet 

Const vHost = "de.weather.com" 

Sub Init() 

  Script "Wetter Script by Spiky" 

  Hook "Chan_Msg" 

End Sub 

Sub Chan_Msg(Chan, Nick, RegUser, Line) 

  If LCase(Param(Line, 1)) = CommandPrefix & "wetter" And vCheck = 0 Then 

    If IsNumeric(Param(Line,2)) Then 

      vCheck = 1: vChan = Chan: vNick = Nick: vOrt = Param(Line,2) 

      vSock = SockConnect(vHost, 80, "SockEvent") 

        If vSock = 0 Then 

          SpreadFlagMessage 0, "+s", "4*** " & vHost & ": Couldn't create socket" 

        End If 

    Else 

      SendLine "Notice " & vNick & " :Sie müssen eine PLZ angeben.",3 

    End If 

  End If 

End Sub 

Sub SockEvent(vSock, SEvent, SData) 

  Select Case SEvent 

    Case SE_ConnectFailed 

      SpreadFlagMessage 0, "+s", "4*** Connection to " & vHost & " failed" 

    Case SE_Connected 

      SockWrite vSock, "GET /weather/local/" & vORT & " HTTP/1.0"& vbCrLf & _ 

                       "Accept: text/html"  & vbCrLf & _ 

                       "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)" & vbCrLf & _ 

                       "Host: " & vHost & vbCrLf & _ 

                       "Pragma: no-cache" & vbCrLf & _ 

                       "Connection: close" & vbCrLf & vbCrLf 

    Case SE_Read 

      HTML = HTML & SData 

    Case SE_Closed 

      HTML = Replace(Replace(Replace(Replace(HTML, "&deg;", "°"), "&nbsp;", vbNullString), vbCr, VBNullString), vbLf, VBNullString) 

      If InStr(1, HTML, "<!-- Begin Main Content Here-->", VBTextCompare) > 0 Then 

        vGet = True 

        Dummy = vOrt 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 182) 

          vPLZ = Left(Temp, InStr(1, Temp, ",", VBTextCompare) - 1) 

          vPLZ = vPLZ & ", (" & vOrt & ")" 

        Dummy = "<TD COLSPAN="&CHR(34)&"2"&CHR(34)&" CLASS="&CHR(34)&"obsTempText"&CHR(34)&" VALIGN="&CHR(34)&"TOP"&CHR(34)&">" 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) + 1) 

          vTemp = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 ) 

        Dummy = "<TD colspan="&CHR(34)&"3"&CHR(34)&" align="&CHR(34)&"center"&CHR(34)&" CLASS="&CHR(34)&"obsText"&CHR(34)&">" 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) + 1) 

          vStatus = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 63 ) 

        Dummy = "<B>Wind:</B>" 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227) 

          vWind = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 ) 

        Dummy = "<B>Luftfeuchtigkeit:</B>" 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227) 

          vLuftfeuchtigkeit = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 ) 

        Dummy = "<B>Sicht:</B>" 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227) 

          vSicht = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 ) 

        Dummy = "<B>Luftdruck:</B>" 

          Temp = Right(HTML, Len(HTML) - InStr(1, HTML, Dummy, VBTextCompare) - Len(Dummy) - 227) 

          vLuftdruck = Left(Temp, InStr(1, Temp, "</TD>", VBTextCompare) - 1 ) 

      ElseIf InStr(1, HTML, "Lokale Wettervorhersage", VBTextCompare) > 0 Then 

        vGet = False 

      End If 

        If vGet = True Then 

          SendLine "PRIVMSG " & vChan & " : " & Replace(Replace(Replace(Replace(Replace(Replace(Replace(vSkin, "%PLZ%", vPLZ, VBTextCompare), "%TEMP%", vTemp, VBTextCompare), "%STATUS%", vStatus, VBTextCompare), "%WIND%", vWind, VBTextCompare), "%FEUCHT%", vLuftfeuchtigkeit, VBTextCompare), "%SICHT%", vSicht, VBTextCompare), "%DRUCK%", vLuftdruck, VBTextCompare),3 

          HTML = VBNullString: Temp = VBNullString: Dummy = VBNullString: vGet = VBNullString 

          TimedCommand "vCheck = 0", vFlood 

        Else 

          SendLine "Notice " & vNick & " :Es tut mir leid aber die PLZ: [ " & vOrt & " ] kenne ich nicht.",3 

          HTML = VBNullString: Temp = VBNullString: Dummy = VBNullString: vGet = VBNullString 

          TimedCommand "vCheck = 0", vFlood 

        End If 

  End Select 

End Sub

ggf. kannsts dir anguggen unter www.kaesbox.de

PattySTD · 24.03.2007, 23:48 Uhr

oki, teste ich mal gleich, is ja im grundegenommen egal welches, solange es funzt

Kaesi · 24.03.2007, 23:50 Uhr

so isses

bei mir mittlerweile seit vielen Monaten erfolgreich im einsatz Laughing

PattySTD · 24.03.2007, 23:54 Uhr

Code:

<SoulReaper> 3*** Scripting error in 'wetter.asc':

<SoulReaper> 10    Error   : 1045 (Literalkonstante erwartet)

<SoulReaper> 10    Position: Line 24, Column 500

<SoulReaper> 10    Context : "Const vSkin = "" & Chr(2) & "" & Chr(3) & "1,0[" & Chr(2) & "" & Chr(3) & "7ø" & Chr(3) & "1" & Chr(2) & "]" & Chr(2) & " " & Chr(2) & "W" & Chr(2) & "etter für %PLZ% " & Chr(3) & "7¬" & Chr(3) & "1 %TEMP%, %STATUS% mit Wind %WIND% " & Chr(3) & "1" & Chr(2) & "[" & Chr(2) & "" & Chr(3) & "7ø" & Chr(3) & "1" & Chr(2) & "] " & Chr(2) & "Die Luftfeuchtigkeit liegt bei %FEUCHT% und die Sicht beträgt %SICHT% " & Chr(3) & "1" & Chr(2) & "[" & Chr(2) & "" & Chr(3) & "7ø" & Chr(3) & "1" & Chr(2) & "]""

<SoulReaper> 3*** End of error message

<SoulReaper> 5*** Sorry, the script couldn't be added.

:((

Kaesi · 24.03.2007, 23:57 Uhr

*hmmm*
was benutzt du denn fürn Editor ??
komm doch mal ebent in meinen Chat, das geht einfacher, als hier hin und her zu tippeln...

http://www.kaesbox.de

oder per irc:

Code:

www.kaesbox.de

Port 6667

PattySTD · 25.03.2007, 00:27 Uhr

so, mal nen big thx für die Hilfe Wink

Nun funzt es wie es soll

Kaesi · 25.03.2007, 00:44 Uhr

für die Mitlesenden :

Problem war wohl ein Fehler beim kopieren des Quellcodes Wink

***Sp33d*** · 25.03.2007, 07:41 Uhr

Naja um ehrlich zu sein ists meine Schuld Smile

Hab automatisch alle Farbcodes durch Chr(2) usw. ersetzen lassen, das kommt in Konstanten nicht so gut und deswegen gabs den Fehler.

Werde mal schauen ob mans anders hinbekommen kann.

Möglicherweise verwandte Themen...
Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	Wetterscript lässt Angel abstürzen	witchmaster	6	1.558	21.02.2007 23:29 Uhr Letzter Beitrag: K1773R
	Angelbot beendet sich beim Wetterscript	neo0190	4	1.015	25.02.2004 14:54 Uhr Letzter Beitrag: nemo