AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Scriptreleases > Wetter Script Version 1.0 (Beta) by Spiky
Normale Version: Wetter Script Version 1.0 (Beta) by Spiky
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3 4

FfFC-VipeR

15.01.2007, 15:11 Uhr
Hmm, wenn das Script erst gar nicht gestartet werden kann, muss einer am Code ge(ver)fummelt haben. Bei mir läuft es astrein Smile
Hier noch mal der Code:
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, "°", "°"), " ", 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

bebub

15.01.2007, 16:55 Uhr
kommt immer noch der fehler


|16:52:40| <ichwarsnicht> Error : 1032 (Ungültiges Zeichen)
|16:52:40| <ichwarsnicht> Position: Line 1, Column 0
|16:52:40| <ichwarsnicht> Context : "ÿþ"
|16:52:40| <ichwarsnicht> *** End of error message
|16:52:40| <ichwarsnicht> *** Sorry, the script couldn't be added.


was is das für ein fehler ?

hab das wetterscript von nem bekannten bekommen ( das selbe wwas ich hatte ) und das funzt.

mach ich was beim kopieren und einfügen im Editor falsch ?

Christian

15.01.2007, 20:05 Uhr
Da ich der Coder bin äußere ich mich auch mal ^^ bei mir gehts 1A ohne probleme da hasste wohl was falsch kopiert.

bebub

16.01.2007, 10:21 Uhr
also hab das script von nem bekannten bekommen, das geht, is übrigens das selbe.
Wenn ich hier eins rauskopier kommt immer die selbe fehlermeldung.
Wir haben es mit dem bombenscript probiert, das selbe. bei gehts nicht, bei ihm schon, er schickts mir und es geht.

was mach ich da falsch ? ich fügs in den editor rein und nix geht :(
Was bedeutet eigentlich der fehler ? vllt hilft mir das ja weiter.

Christian

16.01.2007, 12:36 Uhr
ja das du falsch markierst und kopierst würd ich mal sagen.

bebub

16.01.2007, 13:04 Uhr
hab beide scripte verglichen, meines und das von meinem bekannten, sind identisch.

Christian

17.01.2007, 11:43 Uhr
Zitat:(11:43:13) (@SI|Spiky) .wetter 47167
(11:43:14) (@AnGelBot) [ø] Wetter für Duisburg, (47167) ¬ 11°C, Bewoelkt< mit Wind aus dem Südsüdwesten mit 26 km/h [ø] Die Luftfeuchtigkeit liegt bei 76 % und die Sicht beträgt 10,0 km [ø]

Firefox

02.02.2007, 21:10 Uhr
@ bebub: Speicherst du das dann als .txt oder als .asc ab ?

K1773R

22.02.2007, 00:00 Uhr
wie kann ich die plz rausfinden? also für die schweiz Wink

bebub

06.03.2007, 12:47 Uhr
@K1773R

http://www.romankoch.ch/geografie/gds.as...&liste=plz

hoffe das hilft weiter
Seiten: 1 2 3 4
AnGelBot-Portal² > Scripting > Scriptreleases > Wetter Script Version 1.0 (Beta) by Spiky
Referenz-URLs