{$CLEO .cs}

//-------------MAIN---------------
0000: NOP
thread 'TXLGHTS'
1@ = 150 // integer values
2@ = 168 // integer values
3@ = 188 // integer values
4@ = 216 // integer values
5@ = 0 // integer values
6@ = 0 // integer values
7@ = 0 // integer values
8@ = 0 // integer values
9@ = 0 // integer values
10@ = 0 // integer values
14@ = 0 // integer values
15@ = 0 // integer values

:TXLGHTS_100
wait 0
if
   Player.Defined($PLAYER_CHAR)
jf @TXLGHTS_100
get_player_coordinates $PLAYER_CHAR 11@ 12@ 13@
if
05F0: 0@ = random_vehicle_near_point 11@ 12@ 13@ in_radius 500.0 find_next 0 pass_wrecked 0 //IF and SET
jf @TXLGHTS_100

:TXLGHTS_168
if or
   Car.Id(0@) == 1@
   Car.Id(0@) == 2@
   Car.Id(0@) == 3@
   Car.Id(0@) == 4@
   Car.Id(0@) == 5@
   Car.Id(0@) == 6@
   Car.Id(0@) == 7@
jf @TXLGHTS_249
gosub @TXLGHTS_355
jump @TXLGHTS_307

:TXLGHTS_249
if or
   Car.Id(0@) == 8@
   Car.Id(0@) == 9@
   Car.Id(0@) == 10@
   Car.Id(0@) == 14@
   Car.Id(0@) == 15@
jf @TXLGHTS_348
gosub @TXLGHTS_355

:TXLGHTS_307
if
05F0: 0@ = random_vehicle_near_point 11@ 12@ 13@ in_radius 500.0 find_next 1 pass_wrecked 0 //IF and SET
jf @TXLGHTS_100
jump @TXLGHTS_168

:TXLGHTS_348
jump @TXLGHTS_307

:TXLGHTS_355
046C: 11@ = car 0@ driver
if and
11@ > 0
803C:   $player_actor <> 11@
jf @TXLGHTS_401
if
   not Car.Wrecked(0@)
jf @TXLGHTS_441
00BF: 11@ = current_time_hours, 12@ = current_time_minutes
05E0: 13@ = read_memory 10553902 size 2 virtual_protect 0
if or
  11@ > 19 // integer values
  5 > 11@ // integer values
  13@ == 2 // integer values
  13@ == 3 // integer values
jf @TXLGHTS_441
Car.ToggleTaxiLight(0@) = True
return

:TXLGHTS_401
return

:TXLGHTS_441
Car.ToggleTaxiLight(0@) = False
return