31.08.2004, 21:23 Uhr
Hi all ich habe zur zeit das script on was die news von winfuture poostet könnte mir das einer für diese seite umschreiben? http://www.lod-ger.de/
wäre echt nett von euch...
wäre echt nett von euch...
Code:
'################################
'WinFuture News-Ticker
'ChannelSetup © Sp33d
'Rest © by sts
'Habt Anstand und macht aus diesem Script nicht euer eigenes, lernt selbst wie man scriptet!!!
'Support: www.forum.saug-hilfe-fuer-alle.com
'################################
Const Host = "www.winfuture.de"
Const INIFile = "ini_winfuture.ini"
Const ScriptVersion = "Winfuture-News-Ticker 1.0 by sts"
Const ScriptName = "WinFuture NewsTicker"
Const DebugIt = False 'Erweiterte Meldungen
Const Trigger = "winfuture"
Dim Channels, LastNews, Recieved
Sub Init()
SpreadFlagMessage 0, "+m", "3 " & ScriptVersion
Hook "Commands"
AddCommand Trigger, Cl_Mas, "+m", "2*** ." & Trigger & "##14Zeigt das " & ScriptName & " Setup in dem die Channel,##14in denen der Ticker angezeigt werden soll verändert##14werden können."
ReloadChannels
GetNews
SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." & Trigger & " ein."
End Sub
Sub ReloadChannels()
Channels = ReadINIString("Settings", "Channels", "", INIFile)
End Sub
Sub Commands(vSock, RegUser, Flags, Line)
If LCase(Param(Line, 1)) = "." & Trigger & "" Then
GrabUser vSock, "" & ScriptName & " Setup", "ChannelSetup"
SetSockTag vSock, "MainMenu"
ChannelSetup vSock, RegUser, Flags, ""
End If
End Sub
Sub ChannelSetup(vSock, RegUser, Flags, Line)
If Param(Line, 1) = "0" Then
TU vsock, "10*** Saving settings..."
ReleaseUser vSock
Exit Sub
End If
Select Case LCase(Param(GetSockTag(vSock), 1))
Case "mainmenu"
TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_______________________2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"
TU vSock, "11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_0,1 " & ScriptName & " Setup 1,1_2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"
TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_______________________2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"
TU vSock, " "
TU vSock, "Willkommen im Setup vom " & Version & "!"
TU vSock, "Du befindest dich im Hauptmenü."
TU vSock, " "
TU vSock, "0,1 Ticker Channels: "
Dummy = Split(Channels, " ")
For i = LBound(Dummy) To UBound(Dummy)
TU vSock, "14 - " & Dummy(i)
Next
TU vSock, " "
TU vSock, "0,1 Farben: 14 " & ReadINIString("Settings", "Farben", "Off", INIFile)
TU vSock, " "
TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen"
TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen"
TU vSock, " - color on um Farben zu aktivieren"
TU vSock, " - color off um Farben zu deaktiveren"
TU vSock, " - 0 um zurück auf die Partyline zu kommen."
SetSockTag vSock, "MainMenuOption"
Case "mainmenuoption"
Select Case LCase(Param(Line, 1))
Case "chan"
If LCase(Param(Line, 2)) = "add" Then
If Mid(Param(Line,3), 1, 1) = "#" Then
If Not InStr(1, Channels, Param(Line,3)) > 0 Then
Channels = Trim3(Channels & " " & Param(Line, 3))
WriteINIString "Settings", "Channels", Channels, INIFile
TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde hinzugefügt"
SetSockTag vSock, "MainMenu"
ChannelSetup vSock, RegUser, Flags, ""
Else
TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " bereits enthalten"
End If
Else
TU vSock, "5*** Syntax: chan <add | del> <#channel>"
End If
ElseIf LCase(Param(Line, 2)) = "del" Then
If Mid(Param(Line,3), 1, 1) = "#" Then
If InStr(1, Channels, Param(Line,3)) > 0 Then
Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), ""))
WriteINIString "Settings", "Channels", Channels, INIFile
TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde entfernt"
SetSockTag vSock, "MainMenu"
ChannelSetup vSock, RegUser, Flags, ""
Else
TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " nicht vorhanden"
End If
Else
TU vSock, "3*** Eingabe Ungülig: " & LCase(Param(Line, 3)) & " enthält kein #-Zeichen"
End If
Else
TU vSock, "5*** Syntax: chan <add | del> <#channel>"
End If
Case "color"
If LCase(Param(Line, 2)) = "on" Then
WriteINIString "Settings", "Farben", "on", INIFile
TU vSock, "3*** Farben wurden aktiviert"
SetSockTag vSock, "MainMenu"
StatusSetup vSock, RegUser, Flags, ""
ElseIf LCase(Param(Line, 2)) = "off" Then
WriteINIString "Settings", "Farben", "off", INIFile
TU vSock, "3*** Farben wurden deaktiviert"
SetSockTag vSock, "MainMenu"
StatusSetup vSock, RegUser, Flags, ""
Else
TU vSock, "5*** Syntax: color <on | off>"
End If
Case Else
TU vSock, "5*** Ungültiger Befehl"
End Select
End Select
End Sub
Sub GetNews()
vSock = SockConnect(Host, 80, "SockEvent")
If vSock = 0 Then
If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & Host & ": Couldn't create socket"
TimedCommand "GetNews", 120
End If
End Sub
Sub SockEvent(vSock, SEvent, SData)
Dim Header2
Select Case SEvent
Case SE_ConnectFailed
If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Connection to " & Host & " failed"
TimedCommand "GetNews", 120
Case SE_Connected
If Proxy = vbNullString Then
Header = "GET /"
Else
Header = "GET http://" & Host & "/"
End If
SockWrite vSock, Header & " HTTP/1.0" & vbCrLf & Header2 & _
"Accept: text/html" & vbCrLf & _
"User-Agent: AnGeL-Bot " & LongBotVersion & " (www.Saug-Hilfe-Fuer-Alle.com)" & vbCrLf & _
"Host: " & Host & vbCrLf & _
"Pragma: no-cache" & vbCrLf & _
"Connection: close" & vbCrLf & vbCrLf
Case SE_Read
Recieved = Recieved & SData
Case SE_Closed
If InStr(1, Recieved, "<!-- Navigation End //-->") > 0 Then
Recieved = Replace(Recieved, vbCrLf, vbNullString)
Dummy = "<!-- Navigation End //-->"
Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
Dummy = "<a href="""
Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
tmp_Url = "http://" & Host &"/" & Left(Recieved, InStr(1, Recieved, """") - 1 )
If DebugIt Then SpreadFlagMessage 0, "+m", tmp_Url
Dummy = "class=""news"">"
Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
tmp_Titel = Left(Recieved, InStr(1, Recieved, "<") - 1 )
If DebugIt Then SpreadFlagMessage 0, "+m", "Titel: " & tmp_Titel
Dummy = "2,15» New " & Host & " News - »» Titel: 2" & tmp_Titel & "2 «« »» Url: 2" & tmp_Url & "2 ««"
If Dummy <> LastNews Then
If DebugIt Then SpreadFlagMessage 0, "+m", "New news!"
LastNews = Dummy
Dummy = Split(Channels, " ")
For i = LBound(Dummy) To UBound(Dummy)
If DebugIt Then SpreadFlagMessage 0, "+m", "Sending to " & Dummy(i) & " :" & "PRIVMSG " & Dummy(i) & " :" & LastNews
color = ReadINIString("Settings", "Farben", "off", INIFile)
If color = "on" Then
SendLine "PRIVMSG " & Dummy(i) & " : " & LastNews, 2
ElseIf color = "off" Then
SendLine "PRIVMSG " & Dummy(i) & " : " & Strip(LastNews), 2
End If
Next
End If
Else
SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Couldn't recieve HTML page..."
End If
Recieved = vbNullString
TimedCommand "GetNews", 120
End Select
End Sub
Function Trim3(Text)
Trim3 = Replace(Replace(Trim(Text), " ", " "), " ", " ")
End Function