Menno kann mir bitte einer helfen ich hab SteahltBot und weiß nich wie er die games an sagt ich weiß nicht was ich bei dem scrip machen muss
Wenn einer mir sagen kann wo ich mein acc name usw hin schreiben muss dann wäre es cool hier mein scrip:
'fbp
'1.2
'&Fancy Baal Plugin:Spasm AKA spasm_attack
'&runs:runners:addrunner <account name> <L or NL>:delrunner <account name>
'&12757
'&The runner must be mutual on the bot's account's friends list.:Merely adding the runner to the friends list will not work, you must use the .addrunner command.:In order for the bot to respond, the user must be using Diablo II and must have joined the channel since you last reloaded the script.:This plugin was made for Tyrael's Legion.:Come check us out in Clan Baal!
'//Change the access for commands and other settings here.
fbp_runners_path = BotPath() & "plugins\runners.txt" '//Path to the list of runners. Default is in the plugins folder called runners.txt
Const fbp_runs_access = -1 '//Required access to use .runs command. Default is -1.
Const fbp_editrunners_access = -1 '//Required access to use .runners, .addrunner, and .delrunner commands. Default is 60.
Const fbp_antiabuse_seconds = 10 '//Timer for anti abuse of the .runs command. Default is 45 seconds.
Set Runners = CreateObject("Scripting.Dictionary")
Set Users = CreateObject("Scripting.Dictionary")
Public AntiAbuse, CharLevel, CharLadder, xSecond
Function ReadText(Filepath)
Dim File, FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
ReadText = ""
If FSO.FileExists(Filepath) Then
Set File = FSO.GetFile(Filepath)
If CInt(File.Size) > 0 Then
Set File = FSO.OpenTextFile(Filepath, 1)
ReadText = File.ReadAll()
File.Close
End If
End If
End Function
Function LCFindLine(filepath,text)
Dim Content, Count
text=LCase(text)
Content=ReadText(filepath)
Content=LCase(Content)
vLines = Split(content, vbCrLf)
Count=1
LCFindLine=0
For Each vLine in vLines
If InStr(vline,text) Then
LCFindLine=Count
Exit For
End If
Count=Count+1
Next
End Function
Sub WriteText(Filepath, Text)
Dim FSO, File
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File = FSO.OpenTextFile(Filepath, 2, True)
File.Write Text
File.Close
End Sub
Sub DeleteLine(filepath,line)
Dim Content, Count
Content=ReadText(filepath)
vLines = Split(content, vbCrLf)
Count=1
Content=""
For Each vLine in vLines
If Count<Line or Count>Line Then
Content=Content&vLine&vbCrLf
End If
Count=Count+1
Next
If Count<Line Then
Exit Sub
End If
Call WriteText(filepath,Content)
End Sub
Sub SplitQ(Message, Delimiter, Username, Source)
arrMsg = Split(Message, Delimiter)
For i = 0 To UBound(arrMsg)
If Len(curMsg & arrMsg(i) & ", ") < 200 Then
curMsg = curMsg & arrMsg(i) & ", "
Else
DSP Source, curMsg & "[more]", Username, VBBlue
curMsg = arrMsg(i) & ", "
If Not msgCount Mod 2 Then PadQueue
msgCount = msgCount + 1
End If
Next
DSP Source, Left(curMsg, Len(curMsg) - Len(Delimiter)), Username, VBBlue
End Sub
'// Fires when the bot executes.
Sub fbp_Event_Load()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set cFile = FSO.OpenTextFile(fbp_runners_path, 1, True)
Do Until cFile.AtEndOfStream
cLine = cFile.ReadLine
If cLine <> "" Then
Content = Content & cLine & vbCrLf
End If
Loop
cFile.Close
Call WriteText(fbp_runners_path, Content)
Set File = FSO.OpenTextFile(fbp_runners_path, 1, True)
xRunners = 0
Do Until File.AtEndOfStream
Line = Split(File.ReadLine)
If UBound(Line) <> 1 Then
AddChat VBRed, "Line " & xRunner & " in " & fbp_runners_path & " is corrupt!"
Exit Sub
End If
Runners.add Line(0), Line(1)
xRunners = xRunners + 1
Loop
File.Close
AddChat VBBlue, "Loaded " & xRunners & " runners"
TimerInterval "fbp", "AntiAbuse", fbp_antiabuse_seconds
TimerEnabled "fbp", "AntiAbuse", True
AntiAbuse = False
End Sub
'// Fires when the server sends a blue INFO-type message. (Includes ban and kick messages.)
Sub fbp_Event_ServerInfo(Message)
If Match(LCase(Message), "*: *, (mutual) using diablo ii lord of destruction in the game *baal*.", False) Then
Runner = LCase(Split(Split(Message, ",")(0), ": ")(1))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "game ")(1), " (pri")(0)
Ladder = Runners.Item(Runner)
If (CharLevel >= 60) and (CharLadder = Ladder) Then
AddQ Ladder & " Baal runs in " & Game & ", brought to you by *" & Runner & "."
TimerEnabled "fbp", "NoGames", False
End If
End If
End If
If Match(LCase(Message), "*: *, (mutual) using diablo ii lord of destruction in the game *chaos*.", False) Then
Runner = LCase(Split(Split(Message, ",")(0), ": ")(1))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "game ")(1), " (pri")(0)
Ladder = Runners.Item(Runner)
If CharLadder = Ladder Then
AddQ Ladder & " Chaos runs in " & Game & ", brought to you by *" & Runner & "."
TimerEnabled "fbp", "NoGames", False
End If
End If
End If
End Sub
'// Fires when a user on battle.net talks.
Sub fbp_Event_UserTalk(Username, Flags, Message, Ping)
If Left(LCase(Message), 10) = BotVars.Trigger & "delrunner" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_editrunners_access Then
fbp_ProcessCommand Username, Message, 1
End If
End If
If LCase(Message) = BotVars.Trigger & "runs" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_runs_access Then
If AntiAbuse = False Then
If Users.Exists(Username) Then
RawData = Users.Item(Username)
Data = Split(RawData, ":")
CharLevel = Data(0)
CharLadder = Data(1)
AddQ "/f l"
AntiAbuse = True
xSecond = 0
TimerInterval "fbp", "NoGames", 1
TimerEnabled "fbp", "NoGames", True
End If
End If
End If
End If
If LCase(Message) = BotVars.Trigger & "runners" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_editrunners_access Then
fbp_ProcessCommand Username, Message, 1
End If
End If
If Left(LCase(Message), 10) = BotVars.Trigger & "addrunner" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_editrunners_access Then
fbp_ProcessCommand Username, Message, 1
End If
End If
End Sub
'// Fires when a whisper is recieved.
Sub fbp_Event_WhisperFromUser(Username, Flags, Message)
If Left(LCase(Message), 10) = BotVars.Trigger & "delrunner" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_editrunners_access Then
fbp_ProcessCommand Username, Message, 3
End If
End If
If Left(LCase(Message), 10) = BotVars.Trigger & "addrunner" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_editrunners_access Then
fbp_ProcessCommand Username, Message, 3
End If
End If
If LCase(Message) = BotVars.Trigger & "runners" Then
GetDBEntry Username, Access, Flags
If Access >= fbp_runs_access Then
fbp_ProcessCommand Username, Message, 3
End If
End If
If Match(LCase(Message), "your friend * entered a diablo ii lord of destruction game called *baal*.", False) Then
Runner = LCase(Split(Split(Message, "friend ")(1), " entered")(0))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "called ")(1), ".")(0)
Ladder = Runners.Item(Runner)
AddQ Ladder & " *" & Runner & " has just started a Baal run at the game: " & Game & ". Hurry before it fills up!"
End If
End If
If Match(LCase(Message), "your friend * entered a diablo ii lord of destruction game called *chaos*.", False) Then
Runner = LCase(Split(Split(Message, "friend ")(1), " entered")(0))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "called ")(1), ".")(0)
Ladder = Runners.Item(Runner)
AddQ Ladder & " *" & Runner & " has just started a Chaos run at the game: " & Game & ". Hurry before it fills up!"
End If
End If
End Sub
'// Fires when a user joins the channel.
'// Level will contain 0 for no-level Warcraft III players or non-Warcraft III products.
'// Message contains the user's PARSED statstring.
'// OriginalStatstring contains the user's UNPARSED statstring.
Sub fbp_Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatString)
If Product = "D2XP" Then
If Match(LCase(Message), "*ladder*", False) Then
Data = Level & ":[L]"
Users.Add Username, Data
Else
Data = Level & ":[NL]"
Users.Add Username, Data
End If
End If
End Sub
'// Fires when a user leaves the channel.
Sub fbp_Event_UserLeaves(Username, Flags)
If Users.Exists(Username) Then
Users.Remove Username
End If
End Sub
Sub fbp_Event_PressedEnter(Text)
If LCase(Text) = "/runners" Then
fbp_ProcessCommand BotVars.Username, Text, 4
VetoThisMessage
End If
If Left(LCase(Text), 10) = "/delrunner" Then
fbp_ProcessCommand BotVars.Username, Text, 4
VetoThisMessage
End If
If Left(LCase(Text), 10) = "/addrunner" Then
fbp_ProcessCommand BotVars.Username, Text, 4
VetoThisMessage
End If
End Sub
Sub fbp_ProcessCommand(Username, Text, Source)
If Source = 4 Then
Trigger = "/"
Else
Trigger = BotVars.Trigger
End IF
If Left(LCase(Text), 10) = Trigger & "delrunner" Then
Runner = LCase(Split(Text)(1))
Line = LCFindLine(fbp_runners_path, Runner)
If Line < 1 Then
DSP Source, "Could not find " & Runner & " in the runners list. Make sure you spelled the name correctly.", Username, VBBlue
Else
Call DeleteLine(fbp_runners_path, Line)
Runners.Remove Runner
AddQ "/f r " & Runner
DSP Source, Runner & " has been removed from the runners list.", Username, VBBlue
End If
End If
If LCase(Text) = Trigger & "runners" Then
All = ReadText(fbp_runners_path)
SplitQ All, vbCrLf, Username, Source
End If
If Left(LCase(Text), 10) = Trigger & "addrunner" Then
Stuff = Split(Text)
If uBound(Stuff) <> 2 Then
DSP Source, "Invalid <ladder> argument. Correct usage is /addrunner <account name> <L or NL>", Username, VBBlue
Exit Sub
Else
Runner = LCase(Stuff(1))
Ladder = LCase(Stuff(2))
If Runners.Exists(Runner) Then
DSP Source, Runner & " is already a runner!", Username, VBBlue
Exit Sub
End If
If Ladder = "nl" Then
Set pFSO = CreateObject("Scripting.FileSystemObject")
Set wFile = pFSO.OpenTextFile(fbp_runners_path, 8, True)
wFile.WriteLine(Runner & " [NL]")
wFile.Close
Runners.add Runner, "[NL]"
AddQ "/f a " & Runner
DSP Source, "Non-ladder runner " & Runner & " succesfully added.", Username, VBBlue
ElseIf Ladder = "l" Then
Set pFSO = CreateObject("Scripting.FileSystemObject")
Set wFile = pFSO.OpenTextFile(fbp_runners_path, 8, True)
wFile.WriteLine(Runner & " [L]")
wFile.Close
Runners.add Runner, "[L]"
AddQ "/f a " & Runner
DSP Source, "Ladder runner " & Runner & " succesfully added.", Username, VBBlue
Else
DSP Source, "Invalid <ladder> argument. Correct usage is /addrunner <account name> <L or NL>", Username, VBBlue
End If
End If
End If
End Sub
Sub fbp_AntiAbuse_Timer()
AntiAbuse = False
End Sub
Sub fbp_NoGames_Timer()
If xSecond < 3 Then
xSecond = xSecond + 1
ElseIf xSecond = 3 Then
If CharLevel < 60 Then
AddQ "Sorry, there are no " & CharLadder & " Chaos runs at the moment, try back later."
Elseif CharLevel >= 60 Then
AddQ "Sorry, there are no " & CharLadder & " Baal or Chaos runs at the moment, try back later."
End If
TimerEnabled "fbp", "NoGames", False
End If
End Sub
Danke Wisp mich
Day95walker
in diablo
An sonsten Op DkT
