AnGelBot-Portal² / PasteIt / Eintrag #242

[-]
PasteIt Eintrag #242
Autor: eXploder
Titel: Bundesliga Live-Ticker v2.0 by sts & paradoxon
Beschreibung: siehe script
 

Code
  1. '+--------------------------------------------------+
  2. '¦ Bundesliga Live-Ticker v2.0 by sts & paradoxon
  3. '¦ ChannelSetup © Sp33d
  4. '¦
  5. '¦ Don`t change the author!
  6. '¦
  7. '¦ Website : www.AnGelBot-Portal.de
  8. '¦
  9. '¦--------------------------------------------------+
  10. '¦ PartyLine Setup ------------[x]
  11. '¦ Anlegung einer INI-Datei ---[x]
  12. '¦ Channeleinstellungen ------ [x]
  13. '¦--------------------------------------------------+
  14. '##############Help#######################
  15. 'Das Script wird individuell gestartet. Trigger legt Ihr in den Konstanten
  16. '(StartTrigger & EndTrigger) fest. Standardmäßg sind diese
  17. '"!bl_start" zum Starten und "!bl_end" zum Beenden des Scripts.
  18. 'Wie oft der Bot dann nach neuen Ereignissen schauen soll, legt Ihr
  19. 'selbst fest. Dies erfolgt wieder über eine Kostante(CheckTime), die Ihr
  20. 'vor dem Laden des Scripts festlegt. Den Trigger für das
  21. 'Partyline Setup Ihr setzt wieder mit Hilfe einer Konstanten,
  22. 'welche Ihr wieder vor dem Laden des Script festlegen müsst.
  23. 'Die aktiven Channels legt Ihr dann in diesem Setup fest.
  24.  
  25. '##############Einstellungen##################
  26.  
  27. Const nFlag = "m"        'Benötigter Flag im Bot zum Starten des Scripts
  28. Const StartTrigger = "!bl_start"    'Trigger um das Script zu starten
  29. Const EndTrigger = "!bl_end"    'Trigger um das Script zu beenden
  30. Const DebugIt = False        'Erweiterte Meldungen
  31. Const Trigger = "bundesliga"        'Konfigurationtrigger auf der Partyline
  32. Const CheckTime = 20     'Zeitgabe wann der Bot nach neuen News schauen soll (in s)
  33.  
  34. '###############Don't Change!!################
  35.  
  36. Const Host = "linpop.zdf.de"
  37. Const INIFile = "FileArea\INI\bundesligaliveticker2.ini"
  38. Const ScriptVersion = "v2.0"
  39. Const ScriptName = "Bundesliag Live-Ticker"
  40. Const ScriptAuthor = "sts, Sp33d & paradoxon"
  41.  
  42. Dim Channels, LastNews, Recieved
  43.  
  44. Sub Init()
  45.   Dim xx
  46.  
  47.   Script "1,0 «4•1» 4[ " & ScriptName & " ]1 Script 4[ " & ScriptVersion & " ]1 by 4[ " & ScriptAuthor & " ] 1«4•1» "
  48.   SpreadFlagMessage 0, "+m", "1,0 «4•1» 4[ " & ScriptName & " ]1 Script 4[ " & ScriptVersion & " ]1 by 4[ " & ScriptAuthor & " ]1 loaded 1«4•1» "
  49.   Hook "Commands"
  50.   Hook "Chan_Msg"
  51.   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."
  52.   ReloadChannels
  53.   SpreadFlagMessage 0, "+m", "3Um das Script zu konfigurieren gib nun ." & Trigger & " ein."
  54.   SpreadFlagMessage 0, "+m", ""
  55.   SpreadFlagMessage 0, "+m", "Script Informationen:"
  56.   SpreadFlagMessage 0, "+m", ""
  57.   Status = ReadINIString("Settings", "Status", "", INIFile)
  58.   If Status = "on" Then
  59.     xx = "aktiv"
  60.   ElseIf Status = "off" Then
  61.     xx = "nicht aktiv"
  62.   End If
  63.   SpreadFlagMessage 0, "+m", "Script: " & xx
  64.   SpreadFlagMessage 0, "+m", ""
  65.   SpreadFlagMessage 0, "+m", "Benötigter Flag zum Starten und Beendes des Scripts: +" & nFlag
  66.   SpreadFlagMessage 0, "+m", "Trigger zum Starten des Scripts: " & StartTrigger
  67.   SpreadFlagMessage 0, "+m", "Trigger zum Beenden des Scripts: " & EndTrigger
  68.   SpreadFlagMessage 0, "+m", "News CheckTime: " & CheckTime
  69.   SpreadFlagMessage 0, "+m", "Name der INIDatei: " & INIFile
  70.   SpreadFlagMessage 0, "+m", "Partyline Trigger: ." & Trigger
  71.   SpreadFlagMessage 0, "+m", "Scriptname: " & Scriptname
  72. End Sub
  73.  
  74. Sub ReloadChannels()
  75.   Channels = ReadINIString("Settings", "Channels", "", INIFile)
  76. End Sub
  77.  
  78. Sub Chan_Msg(Chan, Nick, RegUser, Line)
  79.   Status = ReadINIString("Settings", "Status", "off", INIFile)
  80.  
  81.   If MatchFlags(GetUserFlags(RegUser), "+" & nFlag) Then
  82.     If InStr(1, Channels, Chan) > 0 Then
  83.       If LCase(Param(Line,1)) = StartTrigger Then
  84.         If Status = "on" Then
  85.           Sendline "Notice " & Nick & " : Script ist schon aktiv",3
  86.         Else
  87.           GetNews
  88.           WriteINIString "Settings", "Status", "on", INIFile
  89.           If DebugIt Then SpreadFlagMessage 0, "+m", "Script wurde soebend von " & Nick & " im " & Chan & " aktiviert"
  90.           Sendline "Notice " & Nick & " : Script wurde soebend von dir gestartet",3
  91.         End If
  92.       ElseIf LCase(Param(Line,1)) = EndTrigger Then
  93.         If Status = "off" Then
  94.           Sendline "Notice " & Nick & " : Script ist zurzeit nicht aktiv",3
  95.         Else
  96.           LastNews = ""
  97.           WriteINIString "Settings", "Status", "off", INIFile
  98.           If DebugIt Then SpreadFlagMessage 0, "+m", "Script wurde soebend von " & Nick & " im " & Chan & " beendet"
  99.           Sendline "Notice " & Nick & " : Vielen Da für die Benutzung des Scripts. Bis zum nächsten Spieltag.",3
  100.         End If
  101.       End If
  102.     End If
  103.   End If
  104. End Sub
  105.    
  106. Sub Commands(vSock, RegUser, Flags, Line)
  107.   If LCase(Param(Line, 1)) = "." & Trigger Then
  108.     GrabUser vSock, "" & ScriptName & " Setup", "StatusSetup"
  109.     SetSockTag vSock, "MainMenu"
  110.     StatusSetup vSock, RegUser, Flags, ""
  111.   End If
  112. End Sub
  113.  
  114. Sub StatusSetup(vSock, RegUser, Flags, Line)
  115.  
  116.   If Param(Line, 1) = "0" Then
  117.     TU vsock, "10*** Saving settings..."
  118.     ReleaseUser vSock
  119.     Exit Sub
  120.   End If
  121.  
  122.   Select Case LCase(Param(GetSockTag(vSock), 1))
  123.     Case "mainmenu"
  124.       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%,"
  125.       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%,"
  126.       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%,"
  127.       TU vSock, " "
  128.       TU vSock, "Willkommen im Setup vom " & Version & "!"
  129.       TU vSock, "Du befindest dich im Hauptmenü."
  130.       TU vSock, " "
  131.       TU vSock, "0,1Ticker Channels:"
  132.  
  133.       Dummy = Split(Channels, " ")
  134.       For i = LBound(Dummy) To UBound(Dummy)
  135.         TU vSock, "14 - " & Dummy(i)
  136.       Next
  137.      
  138.       Dim xx
  139.      
  140.       Status = ReadINIString("Settings", "Status", "off", INIFile)
  141.       If Status = "on" Then
  142.         xx = "aktiv"
  143.       ElseIf Status = "off" Then
  144.         xx = "nicht aktiv"
  145.       End If
  146.  
  147.  
  148.       TU vSock, " "
  149.       TU vSock, "0,1Farben: 14 " & ReadINIString("Settings", "Farben", "On", INIFile)
  150.       TU vSock, "0,1Script ist zurzeit 14 " & xx
  151.       TU vSock, " "
  152.       TU vSock, " - chan add #channel um einen Channel der Liste hinzuzufügen"
  153.       TU vSock, " - chan del #channel um einen Channel aus Liste zu löschen"
  154.       TU vSock, " - codes on um Colors/UnderLine/Blod zu aktivieren"
  155.       TU vSock, " - codes off um Colors/UnderLine/Blod zu deaktiveren"
  156.       TU vSock, " - 0 um zurück auf die Partyline zu kommen."
  157.       SetSockTag vSock, "MainMenuOption"
  158.     Case "mainmenuoption"
  159.       Select Case LCase(Param(Line, 1))
  160.         Case "chan"
  161.           If LCase(Param(Line, 2)) = "add" Then
  162.             Channels = Trim3(Channels & " " & Param(Line, 3))
  163.             WriteINIString "Settings", "Channels", Channels, INIFile
  164.             TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde hinzugefügt"
  165.             ReloadChannels
  166.             SetSockTag vSock, "MainMenu"
  167.             StatusSetup vSock, RegUser, Flags, ""
  168.           ElseIf LCase(Param(Line, 2)) = "del" Then
  169.             Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 3)), ""))
  170.             WriteINIString "Settings", "Channels", Channels, INIFile
  171.             ReloadChannels
  172.             TU vSock, "3*** Channel " & LCase(Param(Line, 3)) & " wurde entfernt"
  173.             SetSockTag vSock, "MainMenu"
  174.             StatusSetup vSock, RegUser, Flags, ""
  175.           Else
  176.             TU vSock, "5*** Syntax: chan <add | del> <#channel>"
  177.           End If
  178.         Case "status"
  179.           If LCase(Param(Line, 2)) = "on" Then
  180.             WriteINIString "Settings", "Status", "on", INIFile
  181.             TU vSock, "3*** Script wurden aktiviert"
  182.             SetSockTag vSock, "MainMenu"
  183.             StatusSetup vSock, RegUser, Flags, ""
  184.           ElseIf LCase(Param(Line, 2)) = "off" Then
  185.             WriteINIString "Settings", "Status", "off", INIFile
  186.             TU vSock, "3*** Script wurden deaktiviert"
  187.             SetSockTag vSock, "MainMenu"
  188.             StatusSetup vSock, RegUser, Flags, ""
  189.           Else
  190.             TU vSock, "5*** Syntax: color <on | off>"
  191.           End If
  192.         Case "codes"
  193.           If LCase(Param(Line, 2)) = "on" Then
  194.             WriteINIString "Settings", "Farben", "on", INIFile
  195.             TU vSock, "3*** Farben wurden aktiviert"
  196.             SetSockTag vSock, "MainMenu"
  197.             StatusSetup vSock, RegUser, Flags, ""
  198.           ElseIf LCase(Param(Line, 2)) = "off" Then
  199.             WriteINIString "Settings", "Farben", "off", INIFile
  200.             TU vSock, "3*** Farben wurden deaktiviert"
  201.             SetSockTag vSock, "MainMenu"
  202.             StatusSetup vSock, RegUser, Flags, ""
  203.           Else
  204.             TU vSock, "5*** Syntax: color <on | off>"
  205.           End If
  206.         Case Else
  207.           TU vSock, "5*** Ungültiger Befehl"
  208.       End Select
  209.   End Select
  210. End Sub
  211.  
  212. Sub GetNews()
  213.   vSock = SockConnect(Host, 80, "SockEvent")
  214.   If vSock = 0 Then
  215.     If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & Host & ": Couldn't create socket"
  216.     TimedCommand "GetNews", 120
  217.   End If
  218. End Sub
  219.  
  220. Sub SockEvent(vSock, SEvent, SData)
  221.   Dim Header2
  222.  
  223.   Select Case SEvent
  224.     Case SE_ConnectFailed
  225.       If DebugIt Then SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Connection to " & Host & " failed"
  226.       TimedCommand "GetNews", CheckTime
  227.     Case SE_Connected
  228.       If Proxy = vbNullString Then
  229.         Header = "GET /sport/bl1/konferenz.htm"
  230.       Else
  231.         Header = "GET http://" & Host & "/sport/bl1/konferenz.htm"
  232.       End If
  233.  
  234.       SockWrite vSock, Header & " HTTP/1.0" & vbCrLf & Header2 & _
  235.                       "Accept: text/html"  & vbCrLf & _
  236.                       "User-Agent: AnGeL-Bot " & LongBotVersion & " (www.AnGelBot-Portal.de)" & vbCrLf & _
  237.                       "Host: " & Host & vbCrLf & _
  238.                       "Pragma: no-cache" & vbCrLf & _
  239.                       "Connection: close" & vbCrLf & vbCrLf
  240.     Case SE_Read
  241.       Recieved = Recieved & SData
  242.     Case SE_Closed
  243.       Status = ReadINIString("Settings", "Status", "", INIFile)
  244.       If Status = "on" Then
  245.         If DebugIt Then SpreadFlagMessage 0, "+m", "Script: aktiv"
  246.               If InStr(1, Recieved, "<div class=""message-box-top"">") > 0 Then
  247.         Recieved = Replace(Recieved, vbCrLf, vbNullString)
  248.  
  249.         Dummy = "<div class=""message-box-left"">"
  250.         Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  251.  
  252.         Dummy = "<div class=""minute"">"
  253.         Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  254.  
  255.         tmp_minute = Left(Recieved, InStr(1, Recieved, "</div>") - 1 )
  256.         If DebugIt Then SpreadFlagMessage 0, "+m", "Minute:" & tmp_minute
  257.  
  258.         Dummy = "class=""message-header"">"
  259.         Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  260.    
  261.         tmp_spiel = Left(Recieved, InStr(1, Recieved, "</a>") - 1 )
  262.         If DebugIt Then SpreadFlagMessage 0, "+m", "Spiel: " & tmp_spiel
  263.    
  264.         Dummy = "<p>"
  265.         Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  266.    
  267.         tmp_beschreibung = Left(Recieved, InStr(1, Recieved, "</p>") - 1 )
  268.     tmp_beschreibung = Replace(tmp_beschreibung, vbLf, "")
  269.     tmp_beschreibung = Replace(tmp_beschreibung, "    ", "")
  270.    
  271.     If InStr(1, tmp_beschreibung, "<img src=") Then
  272.       Dummy = "class=""message-player-img"" />"
  273.       Recieved = Right(Recieved, Len(Recieved) - InStr(1, Recieved, Dummy) - Len(Dummy) + 1)
  274.    
  275.       tmp_beschreibung = Left(Recieved, InStr(1, Recieved, "</p>") - 1 )
  276.       tmp_beschreibung = Replace(tmp_beschreibung, vbLf, "")
  277.       tmp_beschreibung = Replace(tmp_beschreibung, "    ", "")
  278.     End If
  279.    
  280.         If DebugIt Then SpreadFlagMessage 0, "+m", "Beschreibung: " & tmp_beschreibung
  281.  
  282.         If Not tmp_minute = vbNullString Then
  283.       Dummy = "1,0 «4•1» 4[ " & tmp_minute & " Minute ] [ " & tmp_spiel & " ] 1" & tmp_beschreibung & " 1«4•1» "
  284.     Else
  285.       Dummy = "1,0 «4•1» 4[ " & tmp_spiel & " ] 1" & tmp_beschreibung & "1«4•1» "
  286.     End If
  287.  
  288.           If Dummy <> LastNews Then
  289.             If DebugIt Then SpreadFlagMessage 0, "+m", "New news!"
  290.             LastNews = Dummy
  291.             Dummy = Split(Channels, " ")
  292.             For i = LBound(Dummy) To UBound(Dummy)
  293.               If DebugIt Then SpreadFlagMessage 0, "+m", "Sending to " & Dummy(i) & " :" & "PRIVMSG " & Dummy(i) & " :" & LastNews
  294.               color = ReadINIString("Settings", "Farben", "on", INIFile)
  295.               If color = "on" Then
  296.                 SendLine "PRIVMSG " & Dummy(i) & " : " & LastNews, 2
  297.               ElseIf color = "off" Then
  298.                 SendLine "PRIVMSG " & Dummy(i) & " : " & Strip(LastNews), 2
  299.               End If
  300.             Next
  301.           End If
  302.  
  303.         Else
  304.           SpreadFlagMessage 0, "+m", "5*** " & ScriptName & ": Couldn't recieve HTML page..."
  305.         End If
  306.         Recieved = vbNullString
  307.  
  308.         TimedCommand "GetNews", CheckTime
  309.       ElseIf Status = "off" Then
  310.         If DebugIt Then SpreadFlagMessage 0, "+m", "Script nicht aktiv. Script wird nun beendet"
  311.         Exit Sub
  312.         LastNews = ""
  313.       End If
  314.   End Select
  315. End Sub
  316.  
  317. Function Trim3(Text)
  318.   Trim3 = Replace(Replace(Trim(Text), "   ", " "), "  ", " ")
  319. End Function


Kontakt | AnGelBot-Portal | Nach oben | Zum Inhalt | Archiv-Modus | RSS-Synchronisation