Создание легкой системки для атаки объектов на транспорт

[legenda]

Доброго времени суток. После открытия мною темы [0.3e] [FS] Система тюнинга мне потребовался скрипт для атаки объектов на авто и т.к. в пабле я его не нашел (минуты 2 искал:ca я решил написать его т.к. для меня это быстрее чем юзать googlexD
Начнём... В самый верх скрипта:

#include <a_samp>
new message[256];
new Object[3];
new Float:Poss[7];

Далее заходим в:

public OnFilterScriptInit()
{
Poss[0]=0.01; //Координаты которые в основном и будут менять позицию объекта...
Poss[3]=1.00; //Координаты Z чтоб объект появился над машинай а не в нутри неё, смотря какая машина ещё:D
return 1;
}

Далее заходим в:

public OnPlayerCommandText(playerid,cmdtext[])
{
if(strcmp("/object",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",0);
DestroyObject(Object[2]);
for(message[0]=1;message[0]<6;message[0]++){
if(message[0]==3)continue;
Poss[message[0]]=0.0;
}
Poss[3]=1.0;
ShowPlayerDialog(playerid,2,1,"{ffffff}Объект:","{ffffff}Введите id объекта:","Ок",""); //Настроятельно рекомендую использовать ID объекта который вы знаете точно.. Некоторые можно посмотреть по ссылке в низу.
return 1;
}
if(strcmp("/x",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",1);
return 1;
}
if(strcmp("/y",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",2);
return 1;
}
if(strcmp("/z",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",3);
return 1;
}
if(strcmp("/xx",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",4);
return 1;
}
if(strcmp("/yy",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",5);
return 1;
}
if(strcmp("/zz",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",6);
return 1;
}
if(strcmp("/stop",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",0);
format(message,sizeof(message),"AttachObjectToVehicle(%d,GetPlayerVehicleID(playerid),%f,%f,%f,%f,%f,%f);\r\n",Object[1],Poss[1],Poss[2],Poss[3],Poss[4],Poss[5],Poss[6]);
SendClientMessage(playerid,-1,message); //Почему я использовал месегу?? да потому что смысл делать сохранение когда он сохраняет текст чата, место нахождения этого файла: C:\Users\USER\Documents\GTA San Andreas User Files\SAMP\chatlog.txt Единственная проблема при перезаходе на сервер весь текст стирается.
return 1;
}
if(strcmp("/delete",cmdtext,true,10) == 0)
{
SetPVarInt(playerid,"GetPos",0);
DestroyObject(Object[2]);
for(message[0]=1;message[0]<6;message[0]++){
if(message[0]==3)continue;
Poss[message[0]]=0.0;
}
Poss[3]=1.0; //Описывал в init
SendClientMessage(playerid,-1,"Объект уничтожен.");
return 1;
}
return 0;
}

Теперь заходим в:

public OnPlayerKeyStateChange(playerid, newkeys, oldkeys){
if(GetPVarInt(playerid,"GetPos")==0)return 1;
if(newkeys==KEY_YES){
Poss[GetPVarInt(playerid,"GetPos")]+=Poss[0];
AttachObjectToVehicle(Object[2],GetPlayerVehicleID(playerid),Poss[1],Poss[2],Poss[3],Poss[4],Poss[5],Poss[6]);
return 1;}
if(newkeys==KEY_NO){
Poss[GetPVarInt(playerid,"GetPos")]-=Poss[0];
AttachObjectToVehicle(Object[2],GetPlayerVehicleID(playerid),Poss[1],Poss[2],Poss[3],Poss[4],Poss[5],Poss[6]);
return 1;}
return 1;
}

После в:

public OnDialogResponse(playerid,dialogid,response,listitem,inputtext[])
{
if(dialogid==2){
if(!response)return 1;
if(!IsPlayerInAnyVehicle(playerid))return SendClientMessage(playerid,-1,"Вы не в авто.");
Object[1]=strval(inputtext);
Object[2]=CreateObject(strval(inputtext),0.0,0.0,0.0,0.0,0.0,0.0);
AttachObjectToVehicle(Object[2],GetPlayerVehicleID(playerid),Poss[1],Poss[2],Poss[3],Poss[4],Poss[5],Poss[6]);
format(message,sizeof(message),"Объект: №{ff0000}%d{ffffff} создан...",strval(inputtext));
SendClientMessage(playerid,-1,message);
return 1;}
return 1;
}

Ссылка об объектах:

Чтобы видеть скрытое содержание Зарегистрируйтесь на форуме!

:ay:
© by legenda for pawno-info.ru