Code:
'################################
'KinoCharts
'Copyright by sts
'Habt Anstand und macht aus diesem Script nicht euer eigenes, lernt selbst wie man scriptet!!!
'################################
'Don`t Change!!
Const Host = "www.kinonews.de"
Const INIFile = "ini_kinocharts.ini"
Const ScriptVersion = "KinoCharts-Ticker 1.0 by sts"
Const DebugIt = False 'Erweiterte Meldungen
Dim Channels, LastNews, Recieved, aNick
Dim Check
Sub Init()
SpreadFlagMessage 0, "+m", "3 " & ScriptVersion
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!kinocharts" Then
If Check = CBool(0) Then
Check = CBool(1)
Timedcommand "spamprotect", 1 * 30
aNick = Nick
GetNews
Else
Sendline "Notice " & Nick & " : Dieses Script besitzt eine FloodProtection von 20 Sekunden. Diese ist zurzeit aktiv. Please wait a moment...",3
End If
End If
End Sub
Sub GetNews()
vSock = SockConnect(Host, 80, "SockEvent")
If vSock = 0 Then
SpreadFlagMessage 0, "+m", "5*** Couldn't create socket"
End If
End Sub
Sub SockEvent(vSock, SEvent, SData)
Dim Header2
Select Case SEvent
Case SE_ConnectFailed
SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Connection to " & Host & " failed. Please contact the Author. ( admin@saug-hilfe-fuer-ale.com)"
Sendline "PrivMsg " & aNick & " : Connection to " & Host & " failed. Please contact your botowner",3
Case SE_Connected
If Proxy = vbNullString Then
Header = "GET /index.php/column_Kino-ChartsKN"
Else
Header = "GET http://" & Host & "/index.php/column_Kino-ChartsKN"
End If
SockWrite vSock, Header & " HTTP/1.0" & vbCrLf & Header2 & _
"Accept: text/html" & vbCrLf & _
"User-Agent: AnGeL-Bot " & LongBotVersion & " (www.Saug-Hilfe-Fuer-Alle.de)" & 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, "<!-- Anfang Content -->") > 0 Then
Recieved = Replace(Recieved, vbCrLf, vbNullString)
Sendline "PrivMsg " & aNick & " :2,15» Platzierung - »» 1,15 Titel ««",1
For i = 1 to 10
Dummy = "" & i & ".</span><span class=""title-column-top"">"
Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
tmp_Titel = Left(Recieved, InStr(1, Recieved, "<") - 1 )
tmp_Titel = Replace(Replace(Replace(tmp_Titel, "ä", "ä"), "ü", "ü"), "ö", "ö")
Sendline "PrivMsg " & aNick & " : 2,15» Platz " & i & " - »» 1,15" & tmp_Titel & " ««",1
If DebugIt Then SpreadFlagMessage 0, "+m", "Titel: " & tmp_Titel
Next
Else
If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": HTML Layout was changed... Please contact the Author ( admin@saug-hilfe-fuer-alle.com)"
Sendline "Notice " & aNick & " : The HTML Layout from www.kinonews.de was changend. Please contact your botowner",3
End If
Recieved = vbNullString
End Select
End Sub
Sub spamprotect()
If Check = CBool(1) Then
Timedcommand "spamprotect", 1 * 30
Check = CBool(0)
End If
End Sub
