Tibia 10.99 rev6

Tibia 10.99 rev6

BlackdSafeCheats.vbp

@@ -39,8 +39,8 @@ Name="Tibia"
 HelpContextID="0"
 CompatibleMode="0"
 MajorVer=2
-MinorVer=3
-RevisionVer=9
+MinorVer=4
+RevisionVer=0
 AutoIncrementVer=0
 ServerSupportFiles=0
 VersionCompanyName="www.blackdtools.com"

BlackdSafeCheats.vbw

@@ -1,6 +1,6 @@
 modHardDisk = 66, 87, 698, 686, 
 modMemoryProtection = 88, 116, 720, 715, 
-modCommonFunctions = 116, 59, 748, 658, 
+modCommonFunctions = 116, 59, 748, 658, Z
 modMac = 132, 174, 764, 773, 
 frmMenuAutohealer = 109, 96, 995, 721, , 114, 38, 746, 637, C
 mdiMenu = 171, 104, 803, 703, , 122, 23, 754, 622, C

ZZZsetup.iss

@@ -2,7 +2,7 @@
 ; SEE THE DOCUMENTATION FOR DETAILS ON CREATING INNO SETUP SCRIPT FILES!
 
 #define MyAppName "Blackd Safe Cheats"
-#define MyAppVersion "2.3.8"
+#define MyAppVersion "2.4.0"
 #define MyAppPublisher "blackdtools.com"
 #define MyAppURL "http://blackdtools.com"
 #define MyAppExeName "Tibia.exe"
@@ -166,11 +166,12 @@ Source: "conf-1095.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1096.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1097.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1098.int"; DestDir: "{app}"; Flags: ignoreversion
-Source: "conf-1099.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1099-old0.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1099-old1.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1099-old2.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "conf-1099-old3.int"; DestDir: "{app}"; Flags: ignoreversion
+Source: "conf-1099-old4.int"; DestDir: "{app}"; Flags: ignoreversion
+Source: "conf-1099-old5.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "config.int"; DestDir: "{app}"; Flags: ignoreversion
 Source: "default.ini"; DestDir: "{app}"; Flags: ignoreversion
 Source: "lang_english.txt"; DestDir: "{app}"; Flags: ignoreversion

conf-1099.int → conf-1099-old5.int

@@ -24,28 +24,28 @@ LoginServerStep=&H30
 HostnamePointerOffset=&H4
 IPAddressPointerOffset=&H20
 PortOffset=&H28
-adrMulticlient=&H5CEAF5
+adrMulticlient=&H5CECC5
 PLAYER_Z=&HB0F05C
-LEVELSPY_NOP=&H58B200
-LEVELSPY_ABOVE=&H58B1FC
-LEVELSPY_BELOW=&H58B204
-LIGHT_TRICK_ADR=&H5AB722
+LEVELSPY_NOP=&H58B250
+LEVELSPY_ABOVE=&H58B24C
+LEVELSPY_BELOW=&H58B254
+LIGHT_TRICK_ADR=&H5AB742
 LIGHT_TRICK_CODE=BBFF000000EB11909090
 adrRSA=&H88ED40
 tibiachatlog_struct=&H971744>&H40>&H3C
 tibiachatlog_selchannel=&H971744>&H40>&H30>&H30
 tibia_popup_title=&H971740>&H54
-MAP_POINTER_ADDR=&HBB15E8
-OFFSET_POINTER_ADDR=&HBB6114
+MAP_POINTER_ADDR=&HBB1618
+OFFSET_POINTER_ADDR=&HBB6144
 adrConnectionKey=&H959C34
 adrXOR=&H971458
 adrMyHP=&HB0F000
 adrMyMaxHP=&HB0F048
 adrMyMana=&H97148C
 adrMyMaxMana=&H97145C
 adrMySoul=&H971474
-adrNameStart=&HB6B3B0
-adrNChar=&HB6B3B0
+adrNameStart=&HB6B3E0
+adrNChar=&HB6B3E0
 CharDist=&HDC
 LAST_BATTLELISTPOS=1299
 adrNum=&HB0F050
@@ -61,8 +61,8 @@ adrCharListPtrEND=&HB0BEF4
 adrXgo=&HB0F04C
 adrYgo=&HB0F044
 adrZgo=&HB0F008
-adrGo=&HB6B400
-adrPointerToInternalFPSminusH5D=&HB5C678
+adrGo=&HB6B430
+adrPointerToInternalFPSminusH5D=&HB5C6A4
 adrNumberOfAttackClick=&HB17328
 ; ]]]]]]]]]]]]]]]]]]]]]]]]]]]
 ; END - AUTOMATIC UPDATE ZONE

config.int

@@ -24,28 +24,28 @@ LoginServerStep=&H30
 HostnamePointerOffset=&H4
 IPAddressPointerOffset=&H20
 PortOffset=&H28
-adrMulticlient=&H5CEAF5
+adrMulticlient=&H5CECC5
 PLAYER_Z=&HB0F05C
-LEVELSPY_NOP=&H58B200
-LEVELSPY_ABOVE=&H58B1FC
-LEVELSPY_BELOW=&H58B204
-LIGHT_TRICK_ADR=&H5AB722
+LEVELSPY_NOP=&H58B250
+LEVELSPY_ABOVE=&H58B24C
+LEVELSPY_BELOW=&H58B254
+LIGHT_TRICK_ADR=&H5AB742
 LIGHT_TRICK_CODE=BBFF000000EB11909090
 adrRSA=&H88ED40
 tibiachatlog_struct=&H971744>&H40>&H3C
 tibiachatlog_selchannel=&H971744>&H40>&H30>&H30
 tibia_popup_title=&H971740>&H54
-MAP_POINTER_ADDR=&HBB15E8
-OFFSET_POINTER_ADDR=&HBB6114
+MAP_POINTER_ADDR=&HBB1618
+OFFSET_POINTER_ADDR=&HBB6144
 adrConnectionKey=&H959C34
 adrXOR=&H971458
 adrMyHP=&HB0F000
 adrMyMaxHP=&HB0F048
 adrMyMana=&H97148C
 adrMyMaxMana=&H97145C
 adrMySoul=&H971474
-adrNameStart=&HB6B3B0
-adrNChar=&HB6B3B0
+adrNameStart=&HB6B3E0
+adrNChar=&HB6B3E0
 CharDist=&HDC
 LAST_BATTLELISTPOS=1299
 adrNum=&HB0F050
@@ -61,8 +61,8 @@ adrCharListPtrEND=&HB0BEF4
 adrXgo=&HB0F04C
 adrYgo=&HB0F044
 adrZgo=&HB0F008
-adrGo=&HB6B400
-adrPointerToInternalFPSminusH5D=&HB5C678
+adrGo=&HB6B430
+adrPointerToInternalFPSminusH5D=&HB5C6A4
 adrNumberOfAttackClick=&HB17328
 ; ]]]]]]]]]]]]]]]]]]]]]]]]]]]
 ; END - AUTOMATIC UPDATE ZONE

mdiMenu.frm

@@ -1,7 +1,7 @@
 VERSION 5.00
 Begin VB.MDIForm mdiMenu 
    BackColor       =   &H00000000&
-   Caption         =   "Blackd Safe Cheats 2.3.3"
+   Caption         =   "Blackd Safe Cheats 2.4.0"
    ClientHeight    =   5400
    ClientLeft      =   165
    ClientTop       =   555
@@ -180,7 +180,7 @@ End Function
 
 Private Function LoadConfig(strPath As String) As String
   #If FinalMode Then
-    On Error GoTo gotErr
+    On Error GoTo goterr
   #End If
     Dim strInfo As String
     Dim i As Long
@@ -916,12 +916,12 @@ Private Function LoadConfig(strPath As String) As String
 
     LoadConfig = ""
     Exit Function
-gotErr:
+goterr:
     LoadConfig = "LoadConfig: Got error code " & Err.Number & ": " & Err.Description
 End Function
 Private Function LoadSettings(strPath As String) As String
   #If FinalMode = 1 Then
-  On Error GoTo gotErr
+  On Error GoTo goterr
   #End If
     Dim strInfo As String
     Dim i As Long
@@ -1342,13 +1342,13 @@ Private Function LoadSettings(strPath As String) As String
 
     LoadSettings = ""
     Exit Function
-gotErr:
+goterr:
     LoadSettings = "LoadSettings: Got error code " & Err.Number & ": " & Err.Description
 End Function
 
 
 Private Function LoadLanguage(strPath As String) As String
-    On Error GoTo gotErr
+    On Error GoTo goterr
     Dim strInfo As String
     Dim i As Long
     Dim lonInfo As Long
@@ -1371,11 +1371,11 @@ Private Function LoadLanguage(strPath As String) As String
 
     LoadLanguage = ""
     Exit Function
-gotErr:
+goterr:
     LoadLanguage = "LoadLanguage: Got error code " & Err.Number & ": " & Err.Description
 End Function
 Private Function SaveSettings(ByVal strPath As String) As String
-    On Error GoTo gotErr
+    On Error GoTo goterr
     Dim strInfo As String
     Dim i As Long
     strInfo = CStr(HPmanadelay1)
@@ -1473,7 +1473,7 @@ Private Function SaveSettings(ByVal strPath As String) As String
 
     SaveSettings = ""
     Exit Function
-gotErr:
+goterr:
     SaveSettings = "Got error code " & Err.Number & ": " & Err.Description
 End Function
 
@@ -1656,7 +1656,7 @@ End Sub
 
 
 Private Sub LoadSettingsFromFile()
-    On Error GoTo gotErr
+    On Error GoTo goterr
 
     Dim strRes As String
     Dim strRes2 As String
@@ -1702,14 +1702,14 @@ Private Sub LoadSettingsFromFile()
 '        End If
 '    End If
 '    Exit Sub
-gotErr:
+goterr:
     If Err.Number <> 32755 Then
         MsgBox "Unexpected error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "LoadSettingsFromFile"
     End If
 End Sub
 
 Private Sub SaveSettingsToFile()
-    On Error GoTo gotErr
+    On Error GoTo goterr
 
     Dim strRes As String
     Dim strRes2 As String
@@ -1756,7 +1756,7 @@ Private Sub SaveSettingsToFile()
 '        End If
 '    End If
 '    Exit Sub
-gotErr:
+goterr:
     If Err.Number <> 32755 Then
         MsgBox "Unexpected error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error"
     End If
@@ -1861,7 +1861,7 @@ Private Sub mSetLanguageFile_Click()
 End Sub
 
 Private Sub LoadLangFromFile()
-    On Error GoTo gotErr
+    On Error GoTo goterr
 
 
     Dim strRes As String
@@ -1910,7 +1910,7 @@ Private Sub LoadLangFromFile()
 '        End If
 '    End If
 '    Exit Sub
-gotErr:
+goterr:
     If Err.Number <> 32755 Then
         MsgBox "Unexpected error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "LoadLangFromFile"
     End If
@@ -1919,7 +1919,7 @@ End Sub
 
 
 Public Function autoGetTibiaFolder() As String
-    On Error GoTo gotErr
+    On Error GoTo goterr
     Dim tpath As String
     tpath = GetProgFolder()
     If Right$(tpath, 1) <> "\" Then
@@ -1932,13 +1932,13 @@ Public Function autoGetTibiaFolder() As String
         autoGetTibiaFolder = ""
     End If
     Exit Function
-gotErr:
+goterr:
     autoGetTibiaFolder = ""
 End Function
 
 Private Sub LoadTibiaPathFromFile()
   #If FinalMode Then
-    On Error GoTo gotErr
+    On Error GoTo goterr
   #End If
 
 
@@ -1987,7 +1987,7 @@ Private Sub LoadTibiaPathFromFile()
 '        End If
 '    End If
 '    Exit Sub
-gotErr:
+goterr:
     If Err.Number <> 32755 Then
         MsgBox "Unexpected error " & Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "LoadTibiaPathFromFile"
     End If

modCommonFunctions.bas

@@ -140,10 +140,10 @@ Private Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PR
   Public Declare Function GetTickCount Lib "user" () As Long
 #End If
 
-Public Const ProxyVersion = "42.7" ' Equivalent Blackd Proxy version
-Public Const myNumericVersion = 42700 ' Equivalent Blackd Proxy numeric version
-Public Const SafeVersion = "2.3.9" ' BSC version
-Public Const myNumericSafeVersion = 239 ' BSC numeric version
+Public Const ProxyVersion = "43.1" ' Equivalent Blackd Proxy version
+Public Const myNumericVersion = 43100 ' Equivalent Blackd Proxy numeric version
+Public Const SafeVersion = "2.4.0" ' BSC version
+Public Const myNumericSafeVersion = 240 ' BSC numeric version
 Public Const myAuthProtocol = 2 ' authetication protocol - NOT USED at this moment
 
 ' authentication key - not used at this moment