


Dim swim as long
dim swim2 as long
call readalong("WarRock", &H8B5288, swim)
swim2 = swim + &H54
call writealong("WarRock", swim2, 4)
copy this code to land
Dim land as long
Dim land2 as long
call readalong("WarRock", &H8B5288, land)
land2 = land + &H54
call writealong("WarRock", land2, 0)