Hilfe BaalBot fbpFancyBaalPlugin.plug

[D2.PoseIDon]

Hallo erstmal

Also ich habe folgende probleme ich habe mittlerweile 3 baal scripts ausprobiert und davon läuft keines ....

bei 2 von 3 kann ich nicht mal die befehle nützen ...

Momentan probiere ich fbpFancyBaalPlugin.plug zum laufen zu bringen

Ich habe mein Sb schon ca 1 1/2 jahr hatte immer irgend welche probleme aber die konnte ich irgend wie lösen durch neue installationen usw. aber die Baalbots sind irgend wie nicht so benutzer freudlich man findet eigentlich keine informationen ausser den grund befehlen..

wo das problem liegt weis ich leider nicht

wenn ich also .Runs schreibe im Sb kommt das:

00:23:10] Your friends are:
1: Accountname, offline
2: D2.Accountname, offline
3: Accountname, offline
4: VAccountname, offline
5: Accountname, offline
6: D2.Accountname, (mutual) using Diablo II Lord of Destruction in the channel Op D2.Clan.
7: Accountname, offline
8: D2.Accountname, offline
9: D2.Accountname, offline
10: D2.Accountname, offline
11: D2.Accountnamet, offline
12: Accountname, offline
13: Accountname, offline
14: D2.Accountname, offline
15: D2.Accountname, offline
16: d2.Accountname., (mutual) using Diablo II Lord of Destruction in the game D2-baals-2 (private).


-> im Channel kommt: Sorry, there are no [L] Baal or Chaos runs at the moment, try back later.

Frage1. Ich verstehen nicht wiso sagt der bot dann das es keine games hatt(ich bin ja online) ?

Frage2. Wenn es funktioniert kann man die Acces auch tiefer setzten ?

Frage3. kann man das auch als Public benützten also das ich schreibe (xx-Baals-xx) und sobald ich das game joine sagt er es im channel an ?



Hoffe ihr könnt mir helfen

wenn jemand noch mehr informationen braucht/will bitte sagen was für welche...



Mein Script: hier vom Forum...

'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), "Ihr Freund * hat sich in ein Diablo II Lord of Destruction-Spiel mit dem Namen *baal* eingeklinkt.", True) Then
Runner = LCase(Split(Split(Message, "Freund ")(1), " hat")(0))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "Namen ")(1), " eingeklinkt")(0)
Ladder = Runners.Item(Runner)
If (CharLevel >= 60) and (CharLadder = Ladder) Then
AddQ Ladder & " *" & Runner & " has just started a Baal run at the game: " & Game & ". Hurry before it fills up!"
End If
End If
End If


If Match(LCase(Message), "Ihr Freund * hat sich in ein Diablo II Lord of Destruction-Spiel mit dem Namen *chaos* eingeklinkt.", True) Then
Runner = LCase(Split(Split(Message, "Freund ")(1), " hat")(0))
If Runners.Exists(Runner) Then
Game = Split(Split(Message, "Namen ")(1), " eingeklinkt")(0)
Ladder = Runners.Item(Runner)
If CharLadder = Ladder Then
AddQ Ladder & " *" & Runner & " has just started a Chaos run at the game: " & Game & ". Hurry before it fills up!"
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

Greet

 

[Nocard]

Hi,

ich bin nicht mehr so ganz vertraut mit dem Script, afaik ist das so, das du den Bot in deiner FL haben
und du als Runner geaddet sein musst. Dann zeigt der nur Games an die was mit *baal* im Namen haben.
Aber wie gesagt, bin mir nicht sicher.

Also, Bot in deine FL
Dich als Runner adden
Baal-Game erstellen und testen lassen

Auf Bald, bis dann Nocard

 

[D2.PoseIDon]

So erstmals ein FETTES an Nocard

Script läuft auf englisch ich hatte den rat befolgt und die deutschen zeilen kopiert es ging damit aber gar nicht....

hab es dann 2 mal gelöscht und nochmal kopiert und dann
irgendwie geht das hab nochmal das script aus deinem Thrade kopiert und jetzt geht das irgend wie ^^ auch egal

Frage 1.0

kann ich vlt. der acces auf ne tiefer stufe setzen?

ich habe es mittlerweile geschafft der befehlt *.runs* auf 0 zu setzen habe ihn bei der datei Acces.ini unter 0 eingetragen und so geht das

jetzt würde ich aber gerne leute addn mit denen ich zwar runne aber ich wil nicht das sie Leute kicken können (Sb accs 60)

Frage 2.0

Kann es sein das wenn ich in den channel komme und ich schreibe mein run xxBaalxx und gehe dann in das game rein schreibt der bot das game automatisch in den channel...

wenn das gehen würde wäre damit wohl auch ein Run Counter inbegriffen

wie das script
Hier auch hatt bei diversen Commands

Public | Public | :getinfo <username> | gets a player's run record
' Public | Public | :top | gets top runners

Vieleicht kann man mir noch helfen

Neue Sport Art
Synchron wincken



Grüsse

 

[741852]

Sry hab die frage nicht so richtig verstanden.
Aber ja das macht der Bot und im script stehn alle befehle und der is eig. auch richtig eingestellt

 

[741852]

Sry für double post aber ja kann man wenn du meinst das der bot deine freunde addet musst bei Bot -->Userlist-manager und dann da eingeben