Jump to content
  • 0

Ajutor Neon

andy4

Asked by andy4,

 Share

Question

andy4 Explorer

andy4

Posted
Posted

Salut , caut peste tot un fs de neon functionabil ! Eu gasesc doar nefunctionabile , imi poate da cineva un fs de neon functionabil ?

5 answers to this question

Recommended Posts

DarkyTheAngel Mentor

DarkyTheAngel

Posted
Posted 

/**********************************************************************************************************/
#include                                                                                          < a_samp >
#include                                                                                          <  zcmd  >
/**********************************************************************************************************/
new                                                                                              Menu:Neon ;
/**********************************************************************************************************/
public OnFilterScriptInit() {
	Neon = CreateMenu("Neon system", 2, 200.0, 100.0, 150.0, 150.0);
	AddMenuItem(Neon, 0, "Rosu");
	AddMenuItem(Neon, 0, "Verde");
	AddMenuItem(Neon, 0, "Lime");
	AddMenuItem(Neon, 0, "Albastru");
	AddMenuItem(Neon, 0, "Alb");
	AddMenuItem(Neon, 0, "Violet");
	AddMenuItem(Neon, 0, "Sterge neoanele");
    return 1; }
/**********************************************************************************************************/
public OnVehicleDeath(vehicleid, killerid) {
	DestroyObject(GetPVarInt(vehicleid, "neon")); DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon1")); DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon2")); DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon3"));DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon4"));DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon5"));DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon6"));DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon7"));DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon8"));DeletePVar(vehicleid, "Status");
	DestroyObject(GetPVarInt(vehicleid, "neon9"));DeletePVar(vehicleid, "Status");
 	DeletePVar(vehicleid, "Status"); DestroyObject(GetPVarInt(vehicleid, "neon28"));
 	DeletePVar(vehicleid, "Status"); DestroyObject(GetPVarInt(vehicleid, "neon29"));
 	DeletePVar(vehicleid, "Status"); DestroyObject(GetPVarInt(vehicleid, "neon30"));
 	DeletePVar(vehicleid, "Status"); DestroyObject(GetPVarInt(vehicleid, "neon31"));
	return 1; }
/**********************************************************************************************************/
public OnPlayerExitVehicle(playerid, vehicleid) {
	DestroyObject(GetPVarInt(playerid, "neon")); DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon1")); DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon2")); DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon3"));DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon4"));DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon5"));DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon6"));DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon7"));DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon8"));DeletePVar(playerid, "Status");
	DestroyObject(GetPVarInt(playerid, "neon9"));DeletePVar(playerid, "Status");
 	DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon28"));
 	DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon29"));
 	DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon30"));
 	DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon31"));
	return 1; }
/**********************************************************************************************************/
public OnPlayerSelectedMenuRow(playerid, row) {
    new Menu:CurrentMenu = GetPlayerMenu(playerid);
    if(CurrentMenu == Neon) {
       switch(row) {
           case 0:
           {
			   SetPVarInt(playerid, "Status", 1);
 			   SetPVarInt(playerid, "neon2", CreateObject(18647,0,0,0,0,0,0));
  			   SetPVarInt(playerid, "neon3", CreateObject(18647,0,0,0,0,0,0));
  			   AttachObjectToVehicle(GetPVarInt(playerid, "neon2"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  			   AttachObjectToVehicle(GetPVarInt(playerid, "neon3"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
  			   TogglePlayerControllable(playerid,1);
           }
           case 1:
           {
       		   SetPVarInt(playerid, "Status", 1);
 			   SetPVarInt(playerid, "neon4", CreateObject(18649,0,0,0,0,0,0));
 			   SetPVarInt(playerid, "neon5", CreateObject(18649,0,0,0,0,0,0));
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon4"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon5"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   TogglePlayerControllable(playerid,1);
           }
           case 2:
           {
        	   SetPVarInt(playerid, "Status", 1);
 			   SetPVarInt(playerid, "neon28", CreateObject(18649,0,0,0,0,0,0));
 			   SetPVarInt(playerid, "neon29", CreateObject(18649,0,0,0,0,0,0));
 			   SetPVarInt(playerid, "neon30", CreateObject(18652,0,0,0,0,0,0));
 			   SetPVarInt(playerid, "neon31", CreateObject(18652,0,0,0,0,0,0));
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon28"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon29"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon30"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon31"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   TogglePlayerControllable(playerid,1);
           }
           case 3:
           {
 			   SetPVarInt(playerid, "Status", 1);
 			   SetPVarInt(playerid, "neon", CreateObject(18648,0,0,0,0,0,0));
 			   SetPVarInt(playerid, "neon1", CreateObject(18648,0,0,0,0,0,0));
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   AttachObjectToVehicle(GetPVarInt(playerid, "neon1"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
 			   TogglePlayerControllable(playerid,1);
           }
           case 4:
           {
			   SetPVarInt(playerid, "Status", 1);
			   SetPVarInt(playerid, "neon6", CreateObject(18652,0,0,0,0,0,0));
   	           SetPVarInt(playerid, "neon7", CreateObject(18652,0,0,0,0,0,0));
			   AttachObjectToVehicle(GetPVarInt(playerid, "neon6"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
			   AttachObjectToVehicle(GetPVarInt(playerid, "neon7"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
			   TogglePlayerControllable(playerid,1);
           }
           case 5:
           {
			   SetPVarInt(playerid, "Status", 1);
			   SetPVarInt(playerid, "neon8", CreateObject(18651,0,0,0,0,0,0));
			   SetPVarInt(playerid, "neon9", CreateObject(18651,0,0,0,0,0,0));
			   AttachObjectToVehicle(GetPVarInt(playerid, "neon8"), GetPlayerVehicleID(playerid), -0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
			   AttachObjectToVehicle(GetPVarInt(playerid, "neon9"), GetPlayerVehicleID(playerid), 0.8, 0.0, -0.70, 0.0, 0.0, 0.0);
			   TogglePlayerControllable(playerid,1);
           }
           case 6:
           {
			   DestroyObject(GetPVarInt(playerid, "neon")); DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon1")); DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon2")); DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon3"));DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon4"));DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon5"));DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon6"));DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon7"));DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon8"));DeletePVar(playerid, "Status");
			   DestroyObject(GetPVarInt(playerid, "neon9"));DeletePVar(playerid, "Status");
 			   DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon28"));
 			   DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon29"));
 			   DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon30"));
 			   DeletePVar(playerid, "Status"); DestroyObject(GetPVarInt(playerid, "neon31"));
 			   TogglePlayerControllable(playerid,1);
           }
       }
    }
	return 1;
}
/**********************************************************************************************************/
public OnPlayerExitedMenu(playerid) {
    TogglePlayerControllable(playerid,1);
	return 1; }
/**********************************************************************************************************/
CMD:neon(playerid, params[]) {
    ShowMenuForPlayer(Neon,playerid);
    TogglePlayerControllable(playerid,0);
	return 1; }
/**********************************************************************************************************/

Download .PWN: Click aici !

Download .AMX: Click aici !

andy4 Explorer

andy4

Posted
  • Author
Posted

C:\Users\AnDy\Desktop\SFR V1.9\filterscripts\Untitled.pwn(138) : warning 217: loose indentation

C:\Users\AnDy\Desktop\SFR V1.9\filterscripts\Untitled.pwn(140) : warning 203: symbol is never used: "OnFilterScriptInit"

C:\Users\AnDy\Desktop\SFR V1.9\filterscripts\Untitled.pwn(140 -- 145) : warning 203: symbol is never used: "neon"

Pawn compiler 3.2.3664 Copyright © 1997-2006, ITB CompuPhase

3 Warnings.

  • Administrator
-=[Vyorel]=- Grand Master

-=[Vyorel]=-

Posted
  • Administrator
Posted

Stiti ca nu se cer scripturi? Nu stiti. De ce nu stiti? Va zis eu, pt ca nu cititi regulile alea.

Data viitoare dau warn sau ban 3 zile.

logo.png

ATENTIE!!! Nu imi trimiteti mesaje private care au legatura cu scriptingul. NU mai scriptez.

Guest
This topic is now closed to further replies.
 Share
Go to question listing
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue. For more details you can also review our Terms of Use and Privacy Policy.