Objects tests in GTA:SA

{$CLEO .cs}

0000: NOP
0001: wait 5 ms

:Loop
0001: wait 0 ms
0050: gosub @ScriptsCheck
0002: jump @Loop

:ScriptsCheck

// ---------- version 1. doesn't work. game crashes. ----------

// 0006: 23@ = 2754 // (SLOT_MACHINE)
// 0006: 25@ = 2640 // (VIDPOK)
// 0006: 26@ = 1978 // (ROULETTE)
// 0006: 27@ = 2188 // (BLACKJ)
// 0006: 28@ = 2754 // (OTB_SCRIPT)
// 0006: 29@ = 2964 // (POOL_SCRIPT)
// 00D6: if and
// 0472:   not actor $PLAYER_ACTOR near_object_in_rectangle 23@ radius 5.0 5.0 flag 0 on_foot
// 0472:   not actor $PLAYER_ACTOR near_object_in_rectangle 25@ radius 5.0 5.0 flag 0 on_foot
// 0472:   not actor $PLAYER_ACTOR near_object_in_rectangle 26@ radius 5.0 5.0 flag 0 on_foot
// 0472:   not actor $PLAYER_ACTOR near_object_in_rectangle 27@ radius 5.0 5.0 flag 0 on_foot
// 0472:   not actor $PLAYER_ACTOR near_object_in_rectangle 28@ radius 5.0 5.0 flag 0 on_foot
// 0472:   not actor $PLAYER_ACTOR near_object_in_rectangle 29@ radius 5.0 5.0 flag 0 on_foot
// 0AA1: return_if_false

// ---------- version 2. doesn't work. game crashes. ----------

// 04C4: store_coords_to 23@ 25@ 27@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
// 0866: get_object_in_sphere 23@ 25@ 27@ radius 5.0 handle_as 31@
// 0984: 30@ = object 31@ model
// 0006: 23@ = 2754 // (SLOT_MACHINE)
// 0006: 25@ = 2640 // (VIDPOK)
// 0006: 26@ = 1978 // (ROULETTE)
// 0006: 27@ = 2188 // (BLACKJ)
// 0006: 28@ = 2754 // (OTB_SCRIPT)
// 0006: 29@ = 2964 // (POOL_SCRIPT)
// 00D6: if and
// 803B:   not 23@ == 30@ // and reverse 30@ == 23@
// 803B:   not 25@ == 30@ // and reverse 30@ == 25@
// 803B:   not 26@ == 30@ // and reverse 30@ == 26@
// 803B:   not 27@ == 30@ // and reverse 30@ == 27@
// 803B:   not 28@ == 30@ // and reverse 30@ == 28@
// 803B:   not 29@ == 30@ // and reverse 30@ == 29@
// 0AA1: return_if_false

// ---------- version 3. doesn't work. game crashes. ----------

// 04C4: store_coords_to 23@ 25@ 27@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
// 0866: get_object_in_sphere 23@ 25@ 27@ radius 5.0 handle_as 30@
// 0984: 31@ = object 30@ model
// 0085: 23@ = 31@ // (int)
// 0085: 25@ = 31@ // (int)
// 0085: 27@ = 31@ // (int)
// 0085: 28@ = 31@ // (int)
// 0085: 29@ = 31@ // (int)
// 00D6: if and
// 8039:   not 23@ == 2754 // (SLOT_MACHINE)
// 8039:   not 25@ == 2640 // (VIDPOK)
// 8039:   not 27@ == 1978 // (ROULETTE)
// 8039:   not 28@ == 2188 // (BLACKJ)
// 8039:   not 29@ == 2754 // (OTB_SCRIPT)
// 8039:   not 31@ == 2964 // (POOL_SCRIPT)
// 0AA1: return_if_false

// ---------- version 4. doesn't work. game crashes. ----------

// 04C4: store_coords_to 23@ 25@ 27@ from_actor $PLAYER_ACTOR with_offset 0.0 0.0 0.0
// 0866: get_object_in_sphere 23@ 25@ 27@ radius 5.0 handle_as 31@
// 00D6: if and
// 89CC:   not object 31@ model_is 2754 // (SLOT_MACHINE)
// 89CC:   not object 31@ model_is 2640 // (VIDPOK)
// 89CC:   not object 31@ model_is 1978 // (ROULETTE)
// 89CC:   not object 31@ model_is 2188 // (BLACKJ)
// 89CC:   not object 31@ model_is 2754 // (OTB_SCRIPT)
// 89CC:   not object 31@ model_is 2964 // (POOL_SCRIPT)
// 0AA1: return_if_false

0050: gosub @WeaponIconMain
0051: return

:WeaponIconMain
// some code... works fine without "object tests" in :ScriptsCheck
0051: return