Falls Ihr schon mal ein erstes Blick auf das Setup weren sollt könnt Ihr das gerne tun. Ihr könnt gerne noch Verbesserungsvorschläge und Bugs/Rechtschreibfehler melden.
Dieses Script bietet eine eigene Hel-Section damit auch wirklich jeder IRC/AnGeL-Bot-Anfänger dieses Script benutzen kann.
Code:
'+-------------------------------------+
'¦ Radio-Stream-Script 1.0 © by sts
'¦
'¦ Don`t change the author!
'¦
'¦ Website : www.angel-bot.org
'¦ Script Archive: www.angel-bot.org/system/anypage/index.php?id=2
'¦-------------------------------------+
'¦ PartyLine Setup ------------[x]
'¦ Anlegung einer INI-Datei ---[x]
'¦ Channeleinstellungen ------ [x]
'¦-------------------------------------+
'##############Einstellungen##################
Const INI = "radio.ini"
'###############Don't Change!!################
Const ScriptName = "Radio-Stream-Script 1.0 © by sts"
Dim Status
Sub Init()
Script "7 " & ScriptName
Hook "Commands"
AddCommand "radio", Cl_Mas, "+m", "2*** .radio##14Zeigt das " & ScriptName & " Setup"
SpreadFlagMessage 0, "+m", "7 " & ScriptName & " loaded"
Hook "Chan_Msg"
End Sub
Sub Commands(vSock, RegUser, Flags, Line)
If LCase(Param(Line, 1)) = ".radio" Then
GrabUser vSock, "" & ScriptName & " Setup", "Setup"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
End If
End Sub
Sub Setup(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, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||______________________________4,1©4,14©4,15©4,0sts4,15©4,14©4,1©"
TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 0,1 " & ScriptName & " Setup 4,1©4,14©4,15©4,0sts4,15©4,14©4,1©"
TU vSock, " 4,1©4,14©4,15©4,0 sts 4,15©4,14©4,1© 1,1___||______________________________4,1©4,14©4,15©4,0sts4,15©4,14©4,1©"
TU vSock, " "
TU vSock, "Willkommen im Setup vom " & Version & "!"
TU vSock, "Du befindest dich im Hauptmenü."
TU vSock, " "
TU vSock, "0,1 Aktuelle Einstellungen: "
Main = ReadINIString("Channels", "Main", "", INI)
Intern = ReadINIString("Channels", "Intern", "", INI)
Ausgabe = ReadINIString("Channels", "Ausgabe", "", INI)
Dummy = Split(Main, " ")
For i = LBound(Dummy) To UBound(Dummy)
TU vSock, "14 - MainChannel/s: " & Dummy(i)
Next
TU vSock, "14 - Interner Channel: " & Intern
Dummy = Split(Ausgabe, " ")
For i = LBound(Dummy) To UBound(Dummy)
TU vSock, "14 - AusgabeChannel/s: " & Dummy(i)
Next
TU vSock, " "
TU vSock, "- .help um weitere Hilfe zu bekommen"
TU vSock, " "
TU vSock, "0,1 Einstellungen - MainChannels: "
TU vSock, " - chan add main <#channel> um einen MainChannel der Liste hinzuzufügen"
TU vSock, " - chan del main <#channel> um einen MainChannel aus Liste zu löschen"
TU vSock, " "
TU vSock, "0,1 Einstellungen - AusgabeChannels: "
TU vSock, " - chan add ausgabe <#channel> um einen AusgabeChannel der Liste hinzuzufügen"
TU vSock, " - chan del ausgabe <#channel> um einen AusgabeChannel aus Liste zu löschen"
TU vSock, " "
TU vSock, "0,1 Einstellungen - TriggerChannels: "
TU vSock, " - chan add trigger <#channel> um einen TriggerChannel der Liste hinzuzufügen"
TU vSock, " - chan del trigger <#channel> um einen TriggerChannel aus Liste zu löschen"
TU vSock, " - chan set intern <#channel> um einen internen Channel zu setzten"
TU vSock, " "
TU vSock, "0,1 Einstellungen - Streamdaten: "
TU vSock, " - set name um den Namen Deines Radios anzugeben"
TU vSock, " - set page um die Homepage zu deinem Radio anzugeben (komplette Adresse)"
TU vSock, " - set server um Server/Host zu den Streaminformationen anzugeben (ohne http://)"
TU vSock, " - set port um den Port anzugeben"
TU vSock, " - set listen um die Adresse zur Listen.pls anzugeben (komplette Adresse) anzugeben"
TU vSock, " "
TU vSock, "0,1 Einstellungen - Topic: "
TU vSock, " - topic online setzt das Topic in den MainChannels wenn das Radio Online ist"
TU vSock, " - topic online setzt das Topic in den MainChannels wenn das Radio Offline ist"
TU vSock, " "
TU vSock, "0,1 Einstellungen - Sonstiges: "
TU vSock, " - other song <on | off> um die Songausgabe zu aktivieren/deaktivieren"
TU vSock, " "
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 LCase(Param(Line, 3)) = "main" Then
Channels = ReadINIString("Channels", "Main", "", INI)
Channels = Trim3(Channels & " " & Param(Line, 4))
WriteINIString "Channels", "Main", Channels, INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als MainChannel hinzugefügt"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
ElseIf LCase(Param(Line, 3)) = "ausgabe" Then
Channels = ReadINIString("Channels", "Ausgabe", "", INI)
Channels = Trim3(Channels & " " & Param(Line, 4))
WriteINIString "Channels", "Ausgabe", Channels, INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als AusgabeChannel hinzugefügt"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
ElseIf LCase(Param(Line, 3)) = "trigger" Then
Channels = ReadINIString("Channels", "Trigger", "", INI)
Channels = Trim3(Channels & " " & Param(Line, 4))
WriteINIString "Channels", "Trigger", Channels, INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als TriggerChannel hinzugefügt"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
Else
TU vSock, "5*** Syntax: chan add <main | ausgabe | trigger> <#channel>"
End If
ElseIf LCase(Param(Line, 2)) = "del" Then
If LCase(Param(Line, 3)) = "main" Then
Channels = ReadINIString("Channels", "Main", "", INI)
Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 4)), ""))
WriteINIString "Channels", "Main", Channels, INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als MainChannel entfernt entfernt"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
ElseIf LCase(Param(Line, 3)) = "ausgabe" Then
Channels = ReadINIString("Channels", "Ausgabe", "", INI)
Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 4)), ""))
WriteINIString "Channels", "Ausgabe", Channels, INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als AusgabeChannel entfernt entfernt"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
ElseIf LCase(Param(Line, 3)) = "trigger" Then
Channels = ReadINIString("Channels", "Trigger", "", INI)
Channels = Trim3(Replace(LCase(Channels), LCase(Param(Line, 4)), ""))
WriteINIString "Channels", "Trigger", Channels, INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als TriggerChannel entfernt entfernt"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
End If
ElseIf LCase(Param(Line,2)) = "intern" Then
If LCase(Param(Line,3)) = "set" Then
WriteINIString "Channels", "Intern", GetRest(Line,4), INI
TU vSock, "3*** Channel " & LCase(Param(Line, 4)) & " wurde als interner Channel gesetzt"
Else
TU vSock, "5*** Syntax: chan set intern <#channel>"
End If
Else
TU vSock, "5*** Syntax: chan <add | del> <#channel>"
End If
Case "set"
If LCase(Param(Line, 2)) = "name" Then
WriteINIString "Stream", "Name", GetRest(Line,3), INI
TU vSock, "3*** Radioname zu " & GetRest(Line,3) & " geändert"
ElseIf LCase(Param(Line, 2)) = "page" Then
WriteINIString "Stream", "Page", GetRest(Line,3), INI
TU vSock, "3*** Homepage des Radios zu " & GetRest(Line,3) & " geändert "
ElseIf LCase(Param(Line, 2)) = "port" Then
WriteINIString "Stream", "Port", GetRest(Line,3) , INI
TU vSock, "3*** Port geändert zu " & GetRest(Line,3)
ElseIf LCase(Param(Line, 2)) = "listen" Then
WriteINIString "Stream", "Listen", GetRest(Line,3) , INI
TU vSock, "3*** Listen.pls geändert zu " & GetRest(Line,3)
ElseIf LCase(Param(Line, 2)) = "server" Then
WriteINIString "Stream", "Sever", GetRest(Line,3) , INI
TU vSock, "3*** Serveradresse geändert zu " & GetRest(Line,3)
Else
TU vSock, "5*** Syntax: set <name | name | page | server | port>"
End If
Case "color"
If LCase(Param(Line, 2)) = "front" Then
WriteINIString "Settings", "Front", Param(Line,2), INI
TU vSock, "3*** Vordergrundfarbe zu """ & Param(Line,2) & """ geändert"
ElseIf LCase(Param(Line, 2)) = "back" Then
WriteINIString "Settings", "Hintergrund", Param(Line,2), INI
TU vSock, "3*** Hintergrundfarbe zu """ & Param(Line,2) & """ geändert"
Else
TU vSock, "5*** Syntax: color <on | off>"
End If
Case "other"
If LCase(Param(Line, 2)) = "song" Then
If LCase(Param(Line, 3)) = "on" Then
WriteINIString "Other", "Song", "On", INI
ElseIf LCase(Param(Line, 2)) = "off" Then
WriteINIString "Other", "Song", "On", INI
Else
TU vSock, "5*** Syntax: other song <on | off>"
End If
End If
Case ".help"
If Param(Line,2) = "" Then
TU vSock, "3Dies ist eine kleine Hilfedatei, damit das Konfrigieren dieses Scripts ## für einige User etwas leicht fällt."
TU vSock, ""
TU vSock, " Befehle: "
TU vSock, ".help"
TU vSock, " "
TU vSock, " chan"
TU vSock, " stream"
TU vSock, " color"
TU vSock, " other"
TU vSock, " "
TU vSock, "Gebe .help <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,2)) = "chan" Then
If Param(Line,3) = "" Then
TU vSock, " Befehle: "
TU vSock, "chan"
TU vSock, " main"
TU vSock, " ausgabe"
TU vSock, " trigger"
TU vSock, " intern"
TU vSock, " "
TU vSock, "Gebe .help chan <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(line,3)) = "main" Then
If Param(Line,4) = "" Then
TU vSock, " Befehle: "
TU vSock, "chan main"
TU vSock, " add"
TU vSock, " del"
TU vSock, " "
TU vSock, "Hier wird ein TriggerChannel hinzugefügt oder entfernt. In diesem Channel benötigt der Bot OP-Status um unter anderem das Topic"
TU vSock, "ändern zukönnen. In den MainChannels sind alle Trigger & Informationen (Intern-Commands ausgenommen) verfügbar. "
TU vSock, "Es wird das Topic geändert, aktuelle Sendeinformationen gesendet und es können Wünsche geäußert und Grüße gesendet werden."
TU vSock, "Desweiteren stehen folgende Commands zur Verfügung: !stream, !listener, !mod, !streaminfo."
TU vSock, " "
TU vSock, "Gebe .help chan main <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,4)) = "add" Then
TU vSock, " Befehl: "
TU vSock, "chan main add"
TU vSock, " "
TU vSock, "Fügt einen MainChannel hinzu."
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,4)) = "del" Then
TU vSock, " Befehl: "
TU vSock, "chan main del"
TU vSock, " "
TU vSock, "Entfernt einen MainChannel"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
ElseIf LCase(Param(Line,3)) = "ausgabe" Then
If Param(Line,4) = "" Then
TU vSock, " Befehle: "
TU vSock, "chan ausgabe"
TU vSock, " add"
TU vSock, " del"
TU vSock, " "
TU vSock, "Hier wird ein TriggerChannel hinzugefügt oder entfernt. In diesem Channel benötigt der Bot keine Rechte."
TU vSock, "Es werde nur aktuelle Streaminformationen gesendet und es stehen die üblichen öffentlichen Trigger zur Verfügung."
TU vSock, "Folgende Commands stehen zur Verfügung: !stream, !listener, !mod, !streaminfo."
TU vSock, " "
TU vSock, "Gebe .help chan ausgabe <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,4)) = "add" Then
TU vSock, " Befehle: "
TU vSock, "chan ausgabe add"
TU vSock, " "
TU vSock, "Fügt einen AusgabeChannel hinzu."
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,4)) = "del" Then
TU vSock, " Befehle "
TU vSock, "chan ausgabe del"
TU vSock, " "
TU vSock, "Entfernt einen AusgabeChannel"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
ElseIf LCase(Param(Line,3)) = "trigger" Then
If Param(Line,4) = "" Then
TU vSock, " Befehle: "
TU vSock, "chan trigger"
TU vSock, " add"
TU vSock, " del"
TU vSock, " "
TU vSock, "Hier wird ein TriggerChannel hinzugefügt oder entfernt. In diesem Channel benötigt der Bot keine Rechte."
TU vSock, "Es stehen die üblichen öffentlichen Trigger zur Verfügung."
TU vSock, "Folgende Commands stehen zur Verfügung: !stream, !listener, !mod, !streaminfo."
TU vSock, " "
TU vSock, "Gebe .help chan trigger <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,4)) = "add" Then
TU vSock, " Befehl: "
TU vSock, "chan trigger add"
TU vSock, " "
TU vSock, "Fügt einen TriggerChannel hinzu."
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,4)) = "del" Then
TU vSock, " Befehl: "
TU vSock, "chan trigger del"
TU vSock, " "
TU vSock, "Entfernt einen TriggerChannel"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
ElseIf LCase(Param(line,3)) = "intern" Then
If Param(Line,4) = "" Then
TU vSock, " Befehle: "
TU vSock, "chan intern"
TU vSock, " set"
TU vSock, " "
TU vSock, "Hier wird der Interne Channel gesetzt. Diese Channel dient dazu DJ`s, Sendungen sowie den Stream Online/Offline zu setzten."
TU vSock, "Der Bot benötigt keine Rechte. Es stehen alle öffentlich üblichen Commands zur Verfügung."
TU vSock, " "
TU vSock, "Gebe .help chan main <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,4)) = "set" Then
TU vSock, " Befehl: "
TU vSock, "chan intern set"
TU vSock, " "
TU vSock, "Setzt den Internen Channel."
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
End If
ElseIf LCase(Param(Line,2)) = "stream" Then
If Param(Line,3) = "" Then
TU vSock, "Das Stream-Script ist nur voll funktionstüchtig, wenn alle Daten richtig eingegeben wurden. ## Falls Unsicherheiten bestehen ist es möglich hier noch einmal nach zuschauen."
TU vSock, " Befehle: "
TU vSock, "stream"
TU vSock, " "
TU vSock, " name"
TU vSock, " page"
TU vSock, " server"
TU vSock, " port"
TU vSock, " listen"
TU vSock, " "
TU vSock, "Gebe .help stream <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,3)) = "name" Then
TU vSock, " Befehl: "
TU vSock, "stream name"
TU vSock, " "
TU vSock, "Hier wird der Name des Radios angegeben."
TU vSock, " "
TU vSock, "Beispiel: TheBestHipHop-Radio"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,3)) = "server" Then
TU vSock, " Befehl: "
TU vSock, "stream server"
TU vSock, " "
TU vSock, "Hier wird die Seite angegeben, von wo aus der Bot die Informationen zu dem Stream ausliest."
TU vSock, "Dazu gehören unter anderem: Peak, aktuelle Listener, Song etc."
TU vSock, " "
TU vSock, "Die Url unbedingt OHNE HTTP:// angeben"
TU vSock, " "
TU vSock, "Beispiel: server03.flashspace-net.de"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,3)) = "page" Then
TU vSock, " Befehl: "
TU vSock, "stream page"
TU vSock, " "
TU vSock, "Hier wird die Homepage zum Radio angegeben."
TU vSock, " "
TU vSock, "Beispiel: www.knuddelknutscher.de"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,3)) = "port" Then
TU vSock, " Befehl: "
TU vSock, "stream port"
TU vSock, " "
TU vSock, "Hier wird Port zum zugehörige StreamServer angegeben."
TU vSock, " "
TU vSock, "Nur den Port, kein "":"""
TU vSock, " "
TU vSock, "Beispiel: 7960"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,3)) = "listen" Then
TU vSock, " Befehl: "
TU vSock, "stream listen"
TU vSock, " "
TU vSock, "Hier wird der Link zur Listen.pls-Datei angegeben. Diese Datei wird benötigt damit die Listener direkt auf euer Radio"
TU vSock, "zugreifen können"
TU vSock, " "
TU vSock, "Hier muss die kompletten Adresse angegeben werden!"
TU vSock, " "
TU vSock, "Beispiel: www.knuddelknutscher.de/listen.pls (http:// ist nicht zwingend erforderlich)"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
ElseIf LCase(Param(Line,2)) = "topic" Then
If Param(Line,3) = "" Then
TU vSock, " Befehle: "
TU vSock, "topic"
TU vSock, " "
TU vSock, " online"
TU vSock, " offline"
TU vSock, " "
TU vSock, "Hier werden die Topics für die Mainchannels festgelegt. "
TU vSock, "Bestimmte feste Variablen können im jeweiligen Untersetup festgelegt werden."
TU vSock, " "
TU vSock, "Gebe .help topic <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,3)) = "online" Then
TU vSock, " Befehl: "
TU vSock, "topic online"
TU vSock, " "
TU vSock, "Hier wird das Topic festgelegt wärend das Radio Online ist"
TU vSock, " "
TU vSock, "Benutzt folgende Variablen für folgende Informationen. Beachte genau Schreibweise sowie Groß- und Kleinschreibung."
TU vSock, " "
TU vSock, "##DJ## --> Für den aktuell gesetzten DJ "
TU vSock, "##SENDUNG## --> Für die aktuell gesetzte Sendung"
TU vSock, "##STREAM## --> Für die Listen.pls zum Radio"
TU vSock, "##HOMEPAGE## --> Für die Homepage des Radios"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,3)) = "Offline" Then
TU vSock, " Befehl: "
TU vSock, "topic offline"
TU vSock, " "
TU vSock, "Hier wird das Topic festgelegt wärend das Radio Offline ist"
TU vSock, " "
TU vSock, "Benutzt folgende Variablen für folgende Informationen. Beachte genau Schreibweise sowie Groß- und Kleinschreibung."
TU vSock, " "
TU vSock, "##STREAM## --> Für die Listen.pls zum Radio"
TU vSock, "##HOMEPAGE## --> Für die Homepage des Radios"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
ElseIf LCase(Param(Line,2)) = "other" Then
If Param(Line,2) = "" Then
TU vSock, " Befehle: "
TU vSock, "other"
TU vSock, " "
TU vSock, " song"
TU vSock, " "
TU vSock, "Hier können sonstige Einstellungen vorgenommen werden."
TU vSock, " "
TU vSock, "Gebe .help other <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,3)) = "song" Then
If Param(Line,4) = "" Then
TU vSock, " Befehle: "
TU vSock, "other song"
TU vSock, " "
TU vSock, "Hier wird eingestellt ob der aktuelle Song in den Channel gesendet werden soll."
TU vSock, " "
TU vSock, "Sollte die Option auf ""on"" sein, so wird der Song in die Main- und in die AusgabeChannels gesendet"
TU vSock, " "
TU vSock, " on"
TU vSock, " off"
TU vSock, "Gebe .help other song <Befehl> ein um weitere Informationen zu erhalten"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
If LCase(Param(Line,4)) = "on" Then
TU vSock, " Befehl: "
TU vSock, "other song on"
TU vSock, " "
TU vSock, "Aktiviert die Songausgabe"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
ElseIf LCase(Param(Line,4)) = "off" Then
TU vSock, " Befehl: "
TU vSock, "other song on"
TU vSock, " "
TU vSock, "Deaktiviert die Songausgabe"
TU vSock, " "
TU vSock, "3 Gebe 1 ein um zurück zum Hauptmenü zu gelangen"
End If
End If
End If
Case "1"
SetSockTag vSock, "MainMenu"
Setup vSock, RegUser, Flags, ""
Case Else
TU vSock, "5*** Ungültiger Befehl"
End Select
End Select
End Sub
Der Rest wird später folgen.
MfG sts
News
Forum
Downloads
PasteIt
Scripting
INI Check
Chat
Suche
Mitglieder
