Valhalla Legends Archive

*Waits for laughs and giggles to this thread*

Anyway..

I've done everything that I have should for installing CSB to the bot, and getting it to connect, however I believe I have the wrong version of CSB. For some reason it does say "[5:20:55 PM] Version check failed, bad version." however I dont believe that is a problem with CSB... A wrong game version? Im beat. cuphead.valhallalegends.com is down so I really cant check there. And the bot does connect to bnet and bnls

[5:20:54 PM] Connecting To BNLS
[5:20:54 PM] Connected To BNLS
[5:20:55 PM] Loging in BNLS
[5:20:55 PM] Connecting To useast.battle.net
[5:20:55 PM] Connected to useast.battle.net
[5:20:55 PM] Version check failed, bad version.

i've tried diablo2, starcraft, and broodwar. All the same message. Anyone got a clue?

Yes.  You're probably passing the wrong parameters to BNLS, resulting in it giving you a bad answer.

I'm curious to know how he's connecting to BNLS if it's unreacheable.

chances are your product codes are the wrong way round

Starcrat = RATS
Warcraft 2 = NB2W

ETC

Quote from: LordNevar on August 28, 2004, 04:28 PM
I'm curious to know how he's connecting to BNLS if it's unreacheable.

Using www.valhallalegends.com works fine as BNLS server.

Well don't I feel like an idiot.  

Public msChannelName As String
Public ver As String
Public Nick As String
Public formwidth As Long
Public formheight As Long


Private Sub CleanSlateBot1_BnetConnected()
addText "Connected to " & CleanSlateBot1.Server, vbGreen
End Sub

Private Sub CleanSlateBot1_BnetConnecting()
addText "Connecting To " & CleanSlateBot1.Server, vbGreen

End Sub

Private Sub CleanSlateBot1_BnetDisconnected()
addText "Disconnected From " & CleanSlateBot1.Server, vbRed

End Sub

Private Sub CleanSlateBot1_BnetError(ErrorNumber As Integer, Description As String)
addText "ERROR B.NET: " & Description, vbRed

End Sub

Private Sub CleanSlateBot1_BNLSAuthEvent(Success As Boolean)
If Success Then
addText "Loging in BNLS", vbYellow
Else
addText "Unable To Login BNLS", vbYellow
End If
End Sub

Private Sub CleanSlateBot1_BNLSConnected()
addText "Connected To BNLS", vbYellow

End Sub

Private Sub CleanSlateBot1_BNLSConnecting()
addText "Connecting To BNLS", vbYellow

End Sub

Private Sub CleanSlateBot1_BNLSDisconnected()
addText "Disconnected From BNLS", vbRed

End Sub

Private Sub CleanSlateBot1_BNLSError(ErrorNumber As Integer, Description As String)
addText "ERROR BNLS: " & Description, vbRed

End Sub

Private Sub CleanSlateBot1_JoinedChannel(ByVal ChannelName As String, ByVal flags As Long, SimulatedEvent As Boolean)
msChannelName = ChannelName
frmMain.RoomList.ListItems.Clear
addText "Joined channel " & ChannelName & vbCrLf, vbYellow
End Sub


Private Sub CleanSlateBot1_LoggedOnAs(Username As String)
addText "Logged On As " & Username, vbGreen
Nick = Username
Me.Caption = "Blah " & ver & " - By: Blah" & " >> Connected [ Username: " & Username & ", Server: " & CleanSlateBot1.Server & " ]"
End Sub

Private Sub CleanSlateBot1_LogonEvent(Message As Long)

If Message = "0" Then addText "Failed logon, account doesn't exist.", vbRed
If Message = "1" Then addText "Failed logon, bad password.", vbRed
If Message = "2" Then addText "Successful logon.", vbGreen
If Message = "3" Then addText "Attempting to create the account.", vbGreen
If Message = "4" Then addText "Successfully created account.", vbGreen

End Sub

Private Sub CleanSlateBot1_ServerError(ByVal Message As String, SimulatedEvent As Boolean)
addText "Error: " & Message, vbRed

End Sub

Private Sub CleanSlateBot1_ServerInfo(ByVal Message As String, SimulatedEvent As Boolean)
addText "Info: " & Message, vbYellow

End Sub

Private Sub CleanSlateBot1_UserInChannel(ByVal Username As String, ByVal flags As Long, ByVal Message As String, ByVal Ping As Long, ByVal Product As String, SimulatedEvent As Boolean)
 Dim Icon As Integer
 Icon = GetIconCode(Product, flags)


   frmMain.RoomList.ListItems.Add , , Username, , Icon
   frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , , Module1.GetLagIcon(Ping, flags)
   frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , Ping

frmMain.text1.Text = msChannelName & " [" & frmMain.RoomList.ListItems.Count & "]"

   'addText Username & "Is Here, With the Ping of " & Ping & " has joined using " & Message & vbCrLf, vbGreen

End Sub

Private Sub CleanSlateBot1_UserJoins(ByVal Username As String, ByVal flags As Long, ByVal Message As String, ByVal Ping As Long, ByVal Product As String, SimulatedEvent As Boolean)
 Dim Icon As Integer
 Icon = GetIconCode(Product, flags)

   frmMain.RoomList.ListItems.Add , , Username, , Icon
   frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , , Module1.GetLagIcon(Ping, flags)
   frmMain.RoomList.ListItems(frmMain.RoomList.ListItems.Count).ListSubItems.Add , , Ping

frmMain.text1.Text = msChannelName & " [" & frmMain.RoomList.ListItems.Count & "]"

   addText Username & "Has joined the channel, With the Ping of " & Ping & " has joined using " & Message & vbCrLf, vbGreen

End Sub

Private Sub CleanSlateBot1_UserLeaves(ByVal Username As String, ByVal flags As Long, SimulatedEvent As Boolean)
On Error Resume Next
frmMain.RoomList.ListItems.Remove frmMain.RoomList.FindItem(Username).Index
addText Username & " has left the channel" & vbNewLine, &H80000003
End Sub

Private Sub CleanSlateBot1_UserTalk(ByVal Username As String, ByVal flags As Long, ByVal Message As String, ByVal Ping As Long, SimulatedEvent As Boolean)
AddChat vbWhite, "<", vbYellow, Username, vbWhite, "> ", vbWhite, Message & vbCrLf, vbWhite
End Sub

Private Sub CleanSlateBot1_VersionCheck(Message As Long)

If Message = "0" Then addText "Version check and CD-Key check passed. ", vbGreen
If Message = "1" Then addText "Version check failed, bad version.", vbRed
If Message = "2" Then addText "CD-Key check failed, bad key.", vbRed
If Message = "3" Then addText "Version check failed, need updated hashes.", vbRed
If Message = "4" Then addText "CD-Key check failed, key is for another game.", vbRed
If Message = "5" Then addText "CD-Key check failed, key is banned.", vbRed
If Message = "6" Then addText "CD-Key check failed, key is in use.", vbRed

End Sub

Private Sub Form_Load()
ver = App.Major & "." & App.Revision
   formwidth = frmMain.Width
   formheight = frmMain.Height
   Me.Caption = "Blah " & ver & " - By: blah >> Disconnected"
End Sub

Private Sub Form_Resize()
On Error Resume Next

   Dim CWIDTH As Long
   Dim CHeight As Long
   
   If frmMain.WindowState = 2 Or frmMain.WindowState = 0 Then
   CWIDTH = frmMain.Width - formwidth
   CHeight = frmMain.Height - formheight
   
   txtRecieve.Width = txtRecieve.Width + CWIDTH
   txtRecieve.Height = txtRecieve.Height + CHeight

   text1.Left = text1.Left + CWIDTH
   
   RoomList.Height = RoomList.Height + CHeight
   RoomList.Left = RoomList.Left + CWIDTH

   txtSend.Width = txtSend.Width + CWIDTH
   txtSend.Top = txtSend.Top + CHeight
   
   formwidth = frmMain.Width
   formheight = frmMain.Height
   
   End If
End Sub

Private Sub mnuConnect_Click()
On Error GoTo Disconnect
CleanSlateBot1.BNLSBotID = ""
CleanSlateBot1.BNLSBotPassword = ""
CleanSlateBot1.CDKey = "KEY"
CleanSlateBot1.Product = "RATS"
CleanSlateBot1.HomeChannel = "Op Abyss"
CleanSlateBot1.Password = "pw"
CleanSlateBot1.Username = "name"
CleanSlateBot1.NewPassword = "bleh"
CleanSlateBot1.ChangePassword = False
CleanSlateBot1.Server = "useast.battle.net"
CleanSlateBot1.Accept = -65
CleanSlateBot1.Connect

Dim Connected As String
Connected = CleanSlateBot1.Connected
Exit Sub
Disconnect:
CleanSlateBot1.Disconnect
Me.Caption = "Blah " & ver & " - By: Blah >> Disconnected"
End Sub



Private Sub mnuDisconnect_Click()
CleanSlateBot1.Disconnect
Me.Caption = "Blah " & ver & " - By: Blah >> Disconnected"
End Sub

Private Sub txtSend_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
CleanSlateBot1.Send txtSend.Text
AddChat vbWhite, "<", vbCyan, Nick, vbWhite, "> ", vbWhite, txtSend.Text & vbCrLf, vbWhite
   KeyAscii = 0
   txtSend.Text = ""
End If
End Sub



I do believe there is an updated version, however.. this should work still..

your accept is wrong. use the search function it there somewhere.

CleanSlateBot1.Accept = -65

correct?

Wrong the accept value is 579728(positive as in + not -65 thats old)

Quote from: ChRoNiC on August 28, 2004, 05:18 PM

Quote from: LizArD on August 28, 2004, 05:17 PM

Code Select Expand

CleanSlateBot1.Accept = -65

correct?

Quote from: Meh on August 28, 2004, 05:14 PM
your accept is wrong. use the search function it there somewhere.

No it's incorrect !!

sorry to confuse u, I was just wondering if that was the right part of code, I obviously knew the number was wrong.

OK, did it work?

I updated it so it is now

CleanSlateBot1.Accept = "579728"

and now when i press connect it does.. well nothing

Where does it stop. If its stoping at connecting to BNLS then it wont work as BNLS is down.

Quote from: LizArD on August 28, 2004, 05:23 PM
I updated it so it is now

Code Select Expand

CleanSlateBot1.Accept = "579728"

and now when i press connect it does.. well nothing

Don't put the Accept in quotes.