Diablo 1 Gamebots

[Hdx]

Code Select Expand

2  192.168.0.11:2862  63.240.202.130:6112  77  Send 
FF 1C 4D 00 ..M.
01 00 00 00 ....
00 00 00 00 ....
00 00 ..
00 00 ..
0F 00 00 00 ....
00 00 00 00 ....
62 6C 61 00 bla.
70 61 73 73 00 pass.
30 0D 0.
48 64 78 45 76 69 6C 46 69 72 65 31 0D 4C 54 52 44 20 31 20 30 20 30 20 33 30 20 31 30 20 32 30 20 32 35 20 31 30 30 20 30 00 HdxEvilFire1.LTRD 1 0 0 30 10 20 25 100 0.

3  63.240.202.130:6112  192.168.0.11:2862  8  Recv 
FF 1C 08 00 ....
00 00 00 00 ....

4  192.168.0.11:2862  63.240.202.130:6112  4  Send 
0000  FF 10 04 00 ....
A pacet log of Creating a game.

Code Select Expand

with PBuffer
  .InsertDWORD    &H0   'Open Game
  .IndertDWORD    &H0   'Unknown
  .InsertWORD     &H0   'Unknown
  .InsertWORD     &H0   'Unknown
  .InsertDWORD    &HF   'Unknown (F)
  .InsertDWORD    &H0   'Unknown
  .InsertNTString "Bla" 'Game Name
  .InsertNTString ""    'Game Pass
  .InsertBytes    "30 0D" 'Unknown
  .InsertNONNTString "HdxEvilFire1" 'UserName
  .InsertBYTE "0D" 'Unknown 0.o
  .InsertNTString "LTRD 1 0 0 30 10 20 25 100 0" 'Statstring
  .SendPacket &H1C
end with
Quik sketch 0.o
~-~(HDX)~-~

[Soul Taker]

Code Select Expand


  .InsertBYTE "oD" 'Unknown 0.o


I think you'll find that "oD" is not a valid hexadecimal byte.

[Hdx]

Whops, Make that a 0 not a o
~-~(HDX)~-~

[led]

 "30 0D" 'Unknown

Byte 30 is game difficulty.
30 = Normal
31 = Nightmare
32 = Hell

=X

[Hdx]

Code Select Expand

Public Sub MakeD1Game(GameName as string, Password as string, Username as string, SS as string, Diff as integer)
Dim DifByte as string
Select case Diff
  Case 0,1,2: DiffByte = "3" & Diff
  Case Else: DiffByte = "30"
wnd if

with PBuffer
  .InsertDWORD    iif(Password = "", &H0, &H1)
  .IndertDWORD    &H0   'Unknown
  .InsertWORD     &H0   'Unknown
  .InsertWORD     &H0   'Unknown
  .InsertDWORD    &HF   'Unknown (F)
  .InsertDWORD    &H0   'Unknown
  .InsertNTString GameName
  .InsertNTString Password
  .insertBytes    DiffByte
  .insertBytes    vbCr
  .InsertNONNTString UserName
  .InsertBYTE vbCr
  .InsertNTString SS
  .SendPacket &H1C
end with
End Sub
Try Dat
~-~(HDX)~-~

[led]

With that same Packet Buffer you're using Blake
---
Exit Game Routine
---
You can leave the Username and Stat string blank if you wanted too.

and hiya Blakey =X


With pbuffer
        .SendPacket &H2
       
        .InsertNTString " "      'Username
        .InsertNTString " "      'Stat String
        .SendPacket &HA
       
        .InsertNonNTString "LTRD"
        .SendPacket &HB
       
        .InsertDWORD &H2
        .InsertNTString "Diablo usa-1"      'Channel to join on exit
        .SendPacket &HC
End With

Should do Diablo Shareware to? Just for the heck of it? ;p

[Hdx]

Hay jesse, when you sighnup?
Anyways
To exit a game you just have to re-ente chat. 0x0A. And then 0x0C is used if you dont wana be in the void 0.o
0x02 & 0x0B are not needed.
Can somone post some in-game logs?
Have atlease 3 people joining/Leaving
and ya just Join/Leave

~-~(HDX)~-~