All pastes #537445 Raw Edit

Untitled

public text v1 · immutable
·published 2007-06-04 18:49 UTC
rendered paste body
function Vehicle_OnProduce(user, menuitem)
local vid = user:getVehicle():vehicletypeid()
---Clear Access granted
	if (menuitem == 0)
		then
			user:inventory_modify("Access Granted-B", -1)
			user:inventory_modify("Access Granted-LA", -1)
			user:inventory_modify("Access Granted-MA", -1)
			user:inventory_modify("Access Granted-HA", -1)
			user:inventory_modify("Access Granted-SA", -1)
			user:inventory_modify("Access Granted-C", -1)
			user:inventory_modify("Access Granted-AC", -1)
			user:inventory_modify("Access Granted-ECC", -1)
			user:inventory_modify("Access Granted-VCC", -1)
			user:inventory_modify("Access Granted-CSCC", -1)
			user:inventory_modify("Access Granted-EMCC", -1)
			user:inventory_modify("Access Granted-CSS", -1)
			user:message("Scanning ID Card...please reaccess terminal once access has been granted.")
			
	end


	
	---   Europa
	if ((vid == 103)  
	or (vid == 100)   
	or (vid == 109)   
	or (vid == 107)   
	or (vid == 106)   
	or (vid == 105))  
	then 
		---Start Vehicle Change
		if ((user:inventory_find("Access Granted-CSS") > 0)) 
			then
			if (menuitem == 1)
				then user:setVehicle(105) 
			elseif (menuitem == 2)
				then user:setVehicle(100) 
			elseif (menuitem == 3)
				then user:setVehicle(103) 
			elseif (menuitem == 4)
				then user:setVehicle(106) 
			elseif (menuitem == 5)
				then user:setVehicle(109)
			elseif (menuitem == 6)
				then user:setVehicle(107)
			end
		--- End Vehicle Change
	---Start Armory Scripts
		--Basic
		elseif ((user:inventory_find("Access Granted-B") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("Glock               .", 1) 
					 user:inventory_modify("Glock-B               .", 1) 
			elseif (menuitem == 2)
				then user:inventory_modify("EP-362             .", 1) 
					 user:inventory_modify("EP-362 Charge           .", 1)
			elseif (menuitem == 3)
				then user:inventory_modify("Glock               .", -1) 
					 user:inventory_modify("Glock-B               .", -1) 
			elseif (menuitem == 4)
				then user:inventory_modify("EP-362             .", -1) 
					 user:inventory_modify("EP-362 Charge           .", -1)
			end
		--Light assault
		elseif ((user:inventory_find("Access Granted-LA") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("PKvAR 606             .", 1) 
					 user:inventory_modify("PKvAR 606-3RB            .", 1) 
			elseif (menuitem == 2)
				then user:inventory_modify("Submachinegun         .", 1)
			elseif (menuitem == 3)
				then user:inventory_modify("PKvAR 606             .", -1) 
					 user:inventory_modify("PKvAR 606-3RB            .", -1) 
			elseif (menuitem == 4)
				then user:inventory_modify("Submachinegun         .", -1)
			end
		--Medium Assault
		elseif ((user:inventory_find("Access Granted-MA") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("Gauss Rifle                 .", 1) 
					 user:inventory_modify("Gauss Rifle-PS             .", 1) 
			elseif (menuitem == 2)
				then user:inventory_modify("SK-ARv35               .", 1) 
			elseif (menuitem == 3)
				then user:inventory_modify("TCOx2 PR              .", 1)
					 user:inventory_modify("TCOx2 PR-FBM            .", 1)
			elseif (menuitem == 4)
				then user:inventory_modify("AVRL                   .", 1)
					 user:inventory_modify("AVRL-AA               .", 1)
			elseif (menuitem == 5)
				then user:inventory_modify("Gauss Rifle                 .", -1) 
					 user:inventory_modify("Gauss Rifle-PS             .", -1) 
			elseif (menuitem == 6)
				then user:inventory_modify("SK-ARv35               .", -1) 
			elseif (menuitem == 7)
				then user:inventory_modify("TCOx2 PR              .", -1)
					 user:inventory_modify("TCOx2 PR-FBM            .", -1)
			elseif (menuitem == 8)
				then user:inventory_modify("AVRL                   .", -1)
					 user:inventory_modify("AVRL-AA               .", -1)
			end
		-- Heavy Assault
		elseif ((user:inventory_find("Access Granted-HA") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("Chaingun               .", 1) 
					 user:inventory_modify("Chaingun-LRS             .", 1) 
			elseif (menuitem == 2)
				then user:inventory_modify("HPR mk7                  .", 1) 
					 user:inventory_modify("HPR mk7-Charge             .", 1)
			elseif (menuitem == 3)
				then user:inventory_modify("M-B 'Swiss' Shotgun       .", 1) 
					 user:inventory_modify("M-B 'Swiss' Shotgun-B       .", 1)
			elseif (menuitem == 4)
				then user:inventory_modify("Chaingun               .", -1) 
					 user:inventory_modify("Chaingun-LRS             .", -1) 
			elseif (menuitem == 5)
				then user:inventory_modify("HPR mk7                  .", -1) 
					 user:inventory_modify("HPR mk7-Charge             .", -1)
			elseif (menuitem == 6)
				then user:inventory_modify("M-B 'Swiss' Shotgun       .", -1) 
					 user:inventory_modify("M-B 'Swiss' Shotgun-B       .", -1)
			end
		-- Special Assault
		elseif ((user:inventory_find("Access Granted-SA") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("KNOC GL 6             .", 1) 
			elseif (menuitem == 2)
				then user:inventory_modify("UCRL 25               .", 1) 
					 user:inventory_modify("UCRL 25-6S                .", 1)
			elseif (menuitem == 3)
				then user:inventory_modify("KNOC GL 6             .", -1) 
			elseif (menuitem == 4)
				then user:inventory_modify("UCRL 25               .", -1) 
					 user:inventory_modify("UCRL 25-6S                .", -1)
			end
		--Covert
		elseif ((user:inventory_find("Access Granted-C") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("GlockSM                 .", 1) 
					 user:inventory_modify("GlockSM-B             .", 1) 
			elseif (menuitem == 2)
				then user:inventory_modify("Camoflage", 1)
			elseif (menuitem == 3)
				then user:inventory_modify("Cloak", 1)
			elseif (menuitem == 4)
				then user:inventory_modify("GlockSM                 .", -1) 
					 user:inventory_modify("GlockSM-B             .", -1) 
			elseif (menuitem == 5)
				then user:inventory_modify("Camoflage", -1)
			elseif (menuitem == 6)
				then user:inventory_modify("Cloak", -1) 				
			end
		--Advanced Covert
		elseif ((user:inventory_find("Access Granted-AC") > 0))
			then 
			if (menuitem == 1)
				then user:inventory_modify("Phantom mk47          .", 1)
			elseif (menuitem == 2)
				then user:inventory_modify("Phantom mk47          .", -1) 
			end		
--End Armory Scripts