AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Scriptreleases > KinoChart-Ticker 1.6 © sts
Normale Version: KinoChart-Ticker 1.6 © sts
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3

sts

27.11.2005, 15:58 Uhr
Description:
!kinocharts zeigt euch die aktuellen Kinocharts.

Code:
'+-------------------------------------+
'| KinoChart-Ticker 1.6 © sts                          
'|
'| Don`t change the author!
'|
'| Website : www.AnGelBot-Portal.de
'|-------------------------------------+
'| PartyLine Setup ------------[ ]
'| Anlegung einer INI-Datei ---[ ]
'| Channeleinstellungen ------ [x]
'|-------------------------------------+
'#################Einstellungen###############
'Channels indem das Script aktiv sein soll
Const AktivChans = "*"       'Mit "Leerzeichen trennen (* für alle Channels)

'Soll die URL zu den Filminformationen angezeigt werden?
Const ShowUrls = False       'True or False

'##########Don`t edit!!#######################

Const Host = "www.kinonews.de"
Const ScriptVersion = "KinoChart-Ticker 1.6 © sts"
Const ScriptName = "KinoCharts-Ticker 1.6"
Const DebugIt = False          'Erweiterte Meldungen

Dim Channels, LastNews, Recieved, aNick

Sub Init()
  SpreadFlagMessage 0, "+m", "7 " & ScriptVersion & " loaded"
  Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Param(Line, 1)) = "!kinocharts" Then
    If InStr(LCase(AktivChans), LCase(Chan)) > 0 Or AktivChans = "*" Then
      Sendline "PrivMsg " & Chan & " : Get informormations. Please wait a moment...",1
      aNick = Nick
      GetNews
    End If
  End If

End Sub

Sub GetNews()
  vSock = SockConnect(Host, 80, "SockEvent")
  If vSock = 0 Then
    SpreadFlagMessage 0, "+m", "5*** ShoutCast: 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."
      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.AnGeLBot-Portal.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)

        Dummy = "Stand:"
        Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
        tmp_Date = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "<") - 1 ))
        Sendline "PrivMsg " & aNick & " :2,15» Stand -  »»  " & tmp_Date & " ««",1

        Dummy = "<span class=""title-column-k"">"
        Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
        tmp_Titel = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "<") - 1 ))
        
        Dummy = "<span class=""headline"">"
        Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
        tmp_lastweek = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "<") - 1 ))        

        Dummy = "<a  href="""
        Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
        tmp_Url = Left(Recieved, InStr(1, Recieved, """") - 1 )
        If ShowUrls = True Then
          Sendline "PrivMsg " & aNick & " :  2,15» »» " & tmp_Titel & " - " & tmp_lastweek & " (InfoLink: " & tmp_Url & " ) ««",1
        ElseIf ShowUrls = False Then
          Sendline "PrivMsg " & aNick & " :  2,15» »»" & tmp_Titel & " -  " & tmp_lastweek & "««",1
        End If      
      
        For i = 1 to 9
          Dummy = "<span class=""title-column-k"">"
          Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
          tmp_Titel = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "<") - 1 ))
          
          Dummy = "<span class=""headline"">"
          Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
          tmp_lastweek = ReplaceHTMLCode(Left(Recieved, InStr(1, Recieved, "<") - 1 ))            
          
          Dummy = "<a  href="""
          Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
          tmp_Url = Left(Recieved, InStr(1, Recieved, """") - 1 )
          If ShowUrls = True Then
            Sendline "PrivMsg " & aNick & " :  2,15» »» " & tmp_Titel & " - " & tmp_lastweek & "(InfoLink: " & tmp_Url & " ) ««",1
          ElseIf ShowUrls = False Then
            Sendline "PrivMsg " & aNick & " :  2,15» »» " & tmp_Titel & " - " & tmp_lastweek & "««",1
          End If

        Next
      Else
        If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Couldn't recieve HTML page... Please contact the Author"
        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

Function ReplaceHTMLCode(Text)
'Für "Carriage return–linefeed combination."
  Text = Replace(Text, VbCrLf, "")
'Für "Line feed."
  Text = Replace(Text, vbLf, "")
'Für "Form feed; not useful in Microsoft Windows."
  Text = Replace(Text, vbFormFeed, "")
'Für "Platform-specific newline character; whatever is appropriate for the platform.
  Text = Replace(Text, vbNewLine, "")
'Für "Character having the value 0.
  Text = Replace(Text, vbNullChar, "")
'Für "Not the same as a zero-length string (""); used for calling external procedures.
  Text = Replace(Text, vbNullString, "")
'Für "Horizontal tab.
  Text = Replace(Text, vbTab, "")
'Für "Vertical tab; not useful in Microsoft Windows.
  Text = Replace(Text, vbVerticalTab, "")
  Text = Replace(Text, vbCr, "")
  Text = Replace(Text, "ü", "ü")
  Text = Replace(Text, "ä", "ä")
  Text = Replace(Text, "ö", "ö")
  Text = Replace(Text, "é", "é")
  Text = Replace(Text, "à", "à")
  ReplaceHTMLCode = Text
End Function

Rainbow76

30.11.2005, 17:19 Uhr
super script hat mir noch gefehlt

thx dafür funzt einwandfrei

PS: ich hoffe hier ist kein SPam verbot aber man sollte die Leute für die Mühe schonmal loben Smile

sts

01.12.2005, 22:07 Uhr
Spam ist was anderes Smile

randle

04.01.2006, 20:16 Uhr
kann ich auch gut gebrauchen, danke!

Wattwurm

10.01.2006, 19:08 Uhr
Geiles Script, aber irgendwie haut das Teil die Charts nur per QRY raus selbst wenn ich Chans eingestellt habe bzw. das "*" angestellt habe!

Dennoch klasse teil Smile

Watti

Kaesi

25.01.2006, 23:54 Uhr
Hiho,

STS bitte korrigieren wenn ich falsch liege..

Theoretischerweise müsstest du die Zeilen abändern in denen das hier (oder ähnlich) vorkommt :

Code:
Sendline "PrivMsg " & aNick & " :2,15» Stand -  »»  " & tmp_Date & " ««",1

in
Code:
Sendline "Notice " & Chan & " :2,15» Stand -  »»  " & tmp_Date & " ««",1

bzw. als PrivNachricht :

Code:
Sendline "PrivMsg " & Chan & " :2,15» Stand -  »»  " & tmp_Date & " ««",1

musst mal austesten.. kenne mich beim Coden noch net so dolle aus, aber an sowas hab ich auch schonmal rumgespielt... *ggg*

Greetings,
Markus

sts

26.01.2006, 01:20 Uhr
Will dich nicht enttäuschen, aber da liegst du etwas falsch...

Wenn du...

Code:
Sendline "Notice " & Chan & " :2,15» Stand -  »»  " & tmp_Date & " ««",1

machst, schickt der Bot an JEDEN User im Channel eine Notice. Bzw bei deinem dritten, die Charts in den Chan. Aber es ist gewollt, dass der User die Message als Notice bekomm, zwekcs Spam etc.

Grüße und gn8 sts

Wattwurm

26.01.2006, 01:30 Uhr
Es ist schon klar, das der Zwech einleuchtend ist (Spam)

Nur wäre es vllt. gut die Ausgabe auf 5 zeilen zu begrenzen (TOP5) und dann im Chan kommen zu lassen!

Ich erlebe es häufig, das ein User einen Befehl ausführt, dann nix passiert und danach ettliche selbes versuchen. Dann solls lieber einer machen, die Zeilen kommen im Chan und gut ist. Spammschutz von 5 Minten rein erledigt!

Ich denke, Chanops sollten so erwachsen sein, das sie selbst wissen, was sie im Chan öffentlich hergeben möchten bzw. zulassen und was nicht.

Erbarmt sich vllt einer einer doch die Änderung zu machen?

Kaesi

26.01.2006, 01:30 Uhr
*hmm* stimmt..

aber die zweite Zeile stimmt dann ?

Code:
Sendline "PrivMsg " & Chan & " :2,15» Stand -  »»  " & tmp_Date & " ««",1

dann kommts als PrivNachricht im Channel, oder ?

sts

26.01.2006, 14:50 Uhr
Ja.
Seiten: 1 2 3
AnGelBot-Portal² > Scripting > Scriptreleases > KinoChart-Ticker 1.6 © sts
Referenz-URLs