Plugin 'Baalscript'

Nocard · 19 Februar 2007

Das Orginale ist HIER zu finden.
Deutsche Übersetzung ist noch nicht verfügbar.

Um diese Plugin zu speichern, macht Rechtsklick auf den Link, wählt Ziel Speichern unter... und
Speichert es in eurem Plugin Ordner des Stealthbot Ordners

Befehle:

.runs listet die aktuell laufenden Runs auf
.runners zeigt die User an die sich als runner gespeichert haben (60 access erforderlich)
.addrunner <account name> <L or NL> speichert den User in einer extra *.txt datei als runner (60 access erforderlich)
.delrunner <account name> löscht dich aus der Liste der Runer (60 access erforderlich)

Info:

es müssen offene baal* runs od. chaos* runs sein
der Runner muss den Bot in seiner f-list haben

Die Hp ist wohl nicht mehr erreichbar.
Hier das Script, welches als fbpFancyBaalPlugin.plug im Plugins Ordner gespeichert werden muss:

'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

diskusionen hier rein...

socrates · 19 Februar 2007

Hi,

erstmal danke für die schnellen Bemühungen.
Ist es denn moeglich, dass der Bot (auf Befehl) erkennt in welches game man sich einklinkt und auf Befehl rausgibt?

Nocard · 19 Februar 2007

eben das oder so ähnlich macht der befehl .baal

wenn du im channel .baal schreibst antwortet der Bot

[20:09:07] <Nocard> [ GoW-Nocard ] : [ C ] [ op Nocard ] das C steht nun dafür das ich im channel stehe

kannst du in op Nocard testen

Auf Bald, bis dann Nocard

Das ist ein anderer Script und hat keine bedeutung!!!!!!!

Nocard · 20 Februar 2007

Ich habe noch ein anderes Plugin gefunden und den ersten Beitrag editiert.

socrates · 20 Februar 2007

Klasse Script und nochmals danke für die Hilfe :top:

Sandiman86 · 21 Februar 2007

so hab nun ziel gespeichert, nun hab ich eine plug-datei in dem order stealthbot wo auch die andern sachen wie z.b. script etc drin sind, kann diese aber nicht öffnen...
wie öffne ich diese datei ?
kann ich den text einfach so in script reinkopiern ?
oder muss ich es so wie in dem video erklärt wird machen und die script dat über den bot austauschen??

hoffe auf hilfe und danke im voraus

-sandiman

Nocard · 21 Februar 2007

lese dir bitte erstmal den ersten fixierten post durch: Plugin System

Wenn du dann immernoch fragen hast, kannst du sie gerne stellen

Auf Bald, bis dann Nocard

Sandiman86 · 22 Februar 2007

€: habs hinbekommen rest erklärt sich fast von allein oder schaff ich schon danke^^^^^
juhu er reagiert

-sandiman

€: jetzt nur noch die frage... kann man das so machen das er sobald der runner einen baalrun betritt das er es im channel sagt ohne befehl...?

sprich wenn ich jetzt sag ich baale und will das es die leute im channel erfahren die ich nicht fl hab... ich join den run der bot sieht es und gibt es sofort bekannt...
das wäre einfach nur geil, habs heute in op xp_ gesehn so wollt ich das auch^^
in op olybaal isses ja nicht anders wenn man da ein sogenannter channelfriend is... sagt der bot die games ja auch automatisch an... btw befehl: ".baal" tuts bei mir nicht^^
wie gesagt wär echt der hammer, danke schonmal für bemühungen antworten etc.
gruß sandiman :angel:

brauch man acces um .runs zufragen? wenn ja lohnts nicht, alle die acces haben sind eh fl leute...

Nocard · 22 Februar 2007

es handelt sich hierbei um das original Plugin. Da ich mit vb-scripting nicht auskenne
kann ich dir da nicht helfen.

"brauch man acces um .runs zufragen? wenn ja lohnts nicht, alle die acces haben sind eh fl leute..."

-->.runs listet die aktuell laufenden Runs auf <-- steht nix dabei, oder

Auf Bald, bis dann Nocard

Luzifer-LtD · 18 März 2007

folgendes, ich hab das script so installiert wie dus gepostet hast... aber das funzt bei mir nicht?? warum??

Nocard · 19 März 2007

more input pls

Luzifer-LtD · 19 März 2007

kannste vielleicht nen neuen Download link machen?? Der funzt net.. die Seite gibts nimmer...

Nocard · 19 März 2007

hab das Script ins erste Post editiert

Auf Bald, bis dann Nocard

Luzifer-LtD · 19 März 2007

jo danke geht jetzt!!! :top:

Aber das mit dem Befehl: .baal oder !baal oder welcher Trigger auch immer davor ist... bei mir funzt der nicht... muss ich da noch Befehle einfügen oder so???

Nocard · 19 März 2007

Nocard schrieb:
Befehle:

.runs listet die aktuell laufenden Runs auf

.runners zeigt die User an die sich als runner gespeichert haben (60 access erforderlich)

.addrunner <account name> <L or NL> speichert den User in einer extra *.txt datei als runner (60 access erforderlich)

.delrunner <account name> löscht dich aus der Liste der Runer (60 access erforderlich)

Auf Bald, bis dann Nocard

Luzifer-LtD · 19 März 2007

ja das weis ich.... aber oben steht nen post vonwegen .Baal.... und wollte fragen wie ich den bekomme :rolleyes:

Nocard · 19 März 2007

Das ist ein anderer Script und hat keine Bedeutung

karteikarte · 5 April 2007

hmm.. irgendwie funzt bei mir das nicht das der bot schriebt das ich nen game join..

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), "ihr freund * hat sich in ein diablo ii lord of destruction-spiel mit dem namen *dia* eingeklinkt.", False) Then
Runner = LCase(Split(Split(Message, "freund ")(1), " hat")(0))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "namen ")(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

hab den unteren teil mal übersetz glaube aber net das es daran liegt... hab auch das "chaos" durch "dia" ersetzt das tut zumindest bei dem runs(bei mir !game) befehl
nur kommt jetzt immer

[02:22:37] WhisperFromUser Call Error On File> C:\Programme\StealthBot\plugins\fbpFancyBaalPlugin.plug
[02:22:37] Error Number: 9 Description: Subscript out of range

im bot... und ich weis net weiter.
wenn ichs auf english lasse sagt der gar nix...und auf deutsch kommt halt der fehler...
naja wäre cool wen ihr mir helfen könnt

Nocard · 5 April 2007

hmm, versuch es nochmal mit dem Orginalem aus dem erstem Post.

Auf Bald, bis dann Nocard

karteikarte · 5 April 2007

hm ja danke ich habs versucht aber irgendwie bekomme ich das net zum laufen...
das der das game ansagt ich kann es halt über nen customm command aber dann sagt der alle games wo ich join... und net nur die wo baal/dia sind...

Plugin 'Baalscript'

Active member

New member

Active member

Active member

New member

Sandiman86

Guest

Active member

Sandiman86

Guest

Active member

Luzifer-LtD

Guest

Active member

Luzifer-LtD

Guest

Active member

Luzifer-LtD

Guest

Active member

Luzifer-LtD

Guest

Active member

Member

Active member

Member