Código: Selecionar tudo
{$Cleo}
0000:
while true
wait 0
for 8@ = 97 to 102
if and
Actor.Driving($Player_Actor)
0AB0: key_pressed 77
0AB0: key_pressed 8@
jf continue
0@ = Actor.CurrentCar($Player_Actor)
if 8@ <= 100
then 0A8F: 1@ = 8@ - 95
else 0A8F: 1@ = 8@ - 101
end
if 2@(1@,1i) == 0.0
then
while 2@(1@,1i) < 1.0
wait 0
0079: 2@(1@,1i) += frame_delta_time * 0.05
if 2@(1@,1i) > 1.0
then 2@(1@,1i) = 1.0
end
08A6: set_car 0@ door 1@ rotation_to 2@(1@,1i)
end
else
while 2@(1@,1i) > 0.0
wait 0
007F: 2@(1@,1i) -= frame_delta_time * 0.05
if 2@(1@,1i) < 0.0
then 2@(1@,1i) = 0.0
end
08A6: set_car 0@ door 1@ rotation_to 2@(1@,1i)
end
end
end
end