Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("Warrock", &H1180400, NFD)
NFD1 = NFD + &H26
Call WriteAFloat("Warrock", NFD1, -999)
End If
Swim in Air
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H1180400, Swim)
Swim1 = Swim + &C16
Call WriteAFloat("Warrock", NFD1, 276)
End If
Swim in Air Off
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H1180400, Swim)
Swim1 = Swim + &C16
Call WriteAFloat("Warrock", NFD1, 282)
End If
SuperJump
Dim SPJ As Long
Dim SPJ1 As Long
Call ReadALong("Warrock", &H1180400, SPJ)
SPJ1 = Swim + &H178
Call WriteAFloat("Warrock", SPJ1, 2000)
End If
SuperJump With Text Field
Dim SPJ As Long
Dim SPJ1 As Long
Dim SPJ2 As Single
Call ReadALong("WarRock", &H1180400, SPJ)
SPJ = SPJ + &H178
SPJ2 = Text1.Text
Call WriteAFloat("WarRock", SPJ1, SPJ2)
D-X-T Crew Finded :
Full Bright
Adress = A14F88
Adress = A14F84
Adress = A14F80
Value = 1
Walk Underwater
Adress = 81935C
Value = 0
D-X-T C++ Adresses < Without NOP >
Deep Water
Adress = 81938C
Value = 0.219607993960381
Adress = 819388
Value = 0.227450996637344
Adress = 819384
Value = 1
Shallow Water
Adress = 819380
Value = 0.996078014373779
Adress = 81937C
Value = 0.996078014373779
Adress = 819378
Value = 1
Credits Goes To Me ( Dragooon ) & D-X-T Team!