{$CLEO}
0000:
0A8D: 0@ = read_memory 0x8CD800 size 4 virtual_protect 1
0@ *= 2.0
0AB1: call_scm_func @__VarToOffset 1 varnumber 0 result 10@
0A8C: write_memory 0x52C9F9 size 4 value 10@ virtual_protect 1
0A8D: 1@ = read_memory 0x858628 size 4 virtual_protect 1
0AB1: call_scm_func @__VarToOffset 1 varnumber 1 result 11@
0A8C: write_memory 0x52CA17 size 4 value 11@ virtual_protect 1
while true
wait 0
gosub @CutsceneCheck
gosub @WideScreenCheck
if or
0818: actor $PLAYER_ACTOR in_air
04C8: actor $PLAYER_ACTOR driving_flying_vehicle
29@ == TRUE
28@ == TRUE
then
00A0: store_actor $PLAYER_ACTOR position_to 22@ 23@ 24@
02CE: 16@ = ground_z_at 22@ 23@ 24@
if
16@ >= 15.0
then
1@ = 100.0
0A8D: 0@ = read_memory 0x8CD800 size 4 virtual_protect 1
end
else
1@ = 100.0
1@ /= 3.0
0A8D: 0@ = read_memory 0x8CD800 size 4 virtual_protect 1
0@ *= 2.0
end
end
:__LabelToOffset
//0AB1: call_scm_func @__LabelToOffset 1 label @_bloodsmall_ store_to 29@
if
0@ == 0
then
0AB2: ret 1 0
end
0A9F: 1@ = current_thread_pointer
1@ += 0x10
0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0 // baseIP
0062: 1@ -= 0@ // label address
0AB2: ret 1 1@
:__VarToOffset
//0AB1: call_scm_func @__VarToOffset 1 varnumber 4 result 4@
0A9F: 23@ = current_thread_pointer
23@ += 0x3C
0@ *= 4
005A: 23@ += 0@ // address of the local variable
0AB2: ret 1 23@
:CutsceneCheck
if
06B9: cutscene_data_loaded
then
if
82E9: not cutscene_reached_end
then
29@ = TRUE
end
else
29@ = FALSE
end
return
:WideScreenCheck
0A8D: 27@ = read_memory 0xB6F065 size 4 virtual_protect 0
if
27@ == 1
then
28@ = TRUE
else
28@ = FALSE
end
return