Чисто
Код
{$CLEO .cs}
0000: NOP
thread "Gm_Car"
:start
wait 1000
SAMP.Available
jf @start
0AF8: samp add_message_to_chat "{FFF700}GM car v1.0 çàãðóæåí. Àâòîð: {FF0000} Ozzz" color 0xFFF700
0B34: samp register_client_command "gm_car" to_label @activate
3@=true
1@=false
4@=false
5@=false
jump @check
:activate
wait 0
if
1@==false
then
1@=true
3@=false
0AF8: samp add_message_to_chat "{FF0000}GM car {FFF700}àêòèâèðîâàí" color 0xFFF700
else
1@=false
3@=true
0AF8: samp add_message_to_chat "{FF0000}GM car {FFF700}âûêëþ÷åí" color 0xFFF700
end
samp.CmdRet()
:check
wait 0
if and
Player.Defined($PLAYER_CHAR)
Actor.Driving($PLAYER_ACTOR)
then
if
1@==false
then
if
8AB0: key_pressed 16
then
2@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.SetImmunities(2@, 0, 0, 0, 0, 0)
Car.ImmuneToNonPlayer(2@) = False
03F5: set_car 2@ apply_damage_rules 1
if 4@==true
then
00BE: text_clear_all
4@=false
end
jump @check
else
:gm_enable
2@ = Actor.CurrentCar($PLAYER_ACTOR)
Car.SetImmunities(2@, 1, 1, 1, 1, 1)
053F: set_car 2@ tires_vulnerability 0
Car.ImmuneToNonPlayer(2@) = True
03F5: set_car 2@ apply_damage_rules 0
if
0B21: samp is_chat_opened
then
5@=true
else
5@=false
end
if and
5@==false
3@==true
then
4@=true
0ACD: show_text_highpriority "~R~GM car" time 99999
end
jump @check
end
else
jump @gm_enable
end
else
if 4@==true
then
00BE: text_clear_all
4@=false
end
end
jump @check
Добавлено (26.06.2016, 11:34)
---------------------------------------------
Автор: Ozzz. Прошлая тема - "click"