function rpg_menu_init(e)

-- FEEL FREE TO MODIFY THOSE VALUES
	if g_weak_potion_count == nil then
	g_weak_potion_count = 0 -- SET HOW MANY WEAK POTIONS PLAYES HAS AT THE BEGINNING
	end
	if g_potion_count == nil then
	g_potion_count = 0 -- SET HOW MANY POTIONS PLAYES HAS AT THE BEGINNING
	end
	if g_strong_potion_count == nil then
	g_strong_potion_count = 0  -- SET HOW MANY STRONG POTIONS PLAYES HAS AT THE BEGINNING
	end
	
	display_dev_menu = 1 -- DISPLAY/HIDE DEV MENU (1 = DISPLAY, 0 = HIDE)
	
	inventory_key = 23 -- SET KEY TO OPEN INVENTORY BASED ON SCANCODE (in my case 23 is "i")
	char_menu_key = 22 -- SET KEY TO OPEN CHARACTER MENU BASED ON SCANCODE (in my case 22 is "u")
	journal_key = 36 -- SET KEY TO OPEN JOURNAL BASED ON SCANCODE (in my case 36 is "j")
	weak_potion_key = 59 -- SET KEY TO USE WEAK POTION BASED ON SCANCODE (in my case 59 is "F1")
	potion_key = 60 -- SET KEY TO USE POTION BASED ON SCANCODE (in my case 60 is "F2")
	strong_potion_key = 61 -- SET KEY TO USE STRONG POTION BASED ON SCANCODE (in my case 61 is "F3")
	SetFlashLightKeyEnabled(0) -- DISABLE FLASHLIGHT (DELETE THIS LINE IF YOU WANT TO ENABLE FLASHLIGHT)
	
	player_health_limit = 360 -- SET MAXIMUM PLAYER HEALTH (THIS IS NECESSARY FOR THE SCRIPT TO WORK!!)
	
	max_weak_potions = 10 -- SET HOW MANY WEAK POTIONS PLAYER CAN CARRY
	max_potions = 5 -- SET HOW MANY POTIONS PLAYER CAN CARRY
	max_strong_potions = 2 -- SET HOW MANY STRONG POTIONS PLAYER CAN CARRY
	
	menu_wait_tweak = 50 -- TOGGLE MENU VALUE (WHEN HOLDING A KEY MENU WILL TOGGLE ON AND OFF. THIS SETS THE "FLICKERING" TIME)
	
-- END FEEL FREE TO MODIFY VALUES

display_quest_menu = 0
quest_menu_press_wait = 0
display_c_menu = 0
c_menu_press_wait = 0
display_inventory = 0
inventory_press_wait = 0
use_weak_potion = 0
use_potion_wait = 0

	if g_exp_base == nil then
	g_exp_base = 100
	end
	if g_level == nil then
	g_level = 1
	end
	if g_exp == nil then
	g_exp = 0
	end
	if g_weapon_slot == nil then
	g_weapon_slot = 0
	end
	if g_weapon_1 == nil then
	g_weapon_1 = ""
	end
	if g_weapon_2 == nil then
	g_weapon_2 = ""
	end
	if g_weapon_3 == nil then
	g_weapon_3 = ""
	end
	if g_weapon_4 == nil then
	g_weapon_4 = ""
	end
	if g_weapon_5 == nil then
	g_weapon_5 = ""
	end
	if g_weapon_6 == nil then
	g_weapon_6 = ""
	end
	if g_weapon_7 == nil then
	g_weapon_7 = ""
	end
	if g_weapon_8 == nil then
	g_weapon_8 = ""
	end
	if g_weapon_9 == nil then
	g_weapon_9 = ""
	end
	if g_slot_1 == nil then
	g_slot_1 = 0
	end
	if g_slot_2 == nil then
	g_slot_2 = 0
	end
	if g_slot_3 == nil then
	g_slot_3 = 0
	end
	if g_slot_4 == nil then
	g_slot_4 = 0
	end
	if g_slot_5 == nil then
	g_slot_5 = 0
	end
	if g_slot_6 == nil then
	g_slot_6 = 0
	end
	if g_slot_7 == nil then
	g_slot_7 = 0
	end
	if g_slot_8 == nil then
	g_slot_8 = 0
	end
	if g_slot_9 == nil then
	g_slot_9 = 0
	end
	
	if g_weapon_1_level_disp == nil then
	g_weapon_1_level_disp = ""
	end
	if g_weapon_2_level_disp == nil then
	g_weapon_2_level_disp = ""
	end
	if g_weapon_3_level_disp == nil then
	g_weapon_3_level_disp = ""
	end
	if g_weapon_4_level_disp == nil then
	g_weapon_4_level_disp = ""
	end
	if g_weapon_5_level_disp == nil then
	g_weapon_5_level_disp = ""
	end
	if g_weapon_6_level_disp == nil then
	g_weapon_6_level_disp = ""
	end
	if g_weapon_7_level_disp == nil then
	g_weapon_7_level_disp = ""
	end
	if g_weapon_8_level_disp == nil then
	g_weapon_8_level_disp = ""
	end
	if g_weapon_9_level_disp == nil then
	g_weapon_9_level_disp = ""
	end
	
-- quests suggested level.
	if g_quest_1_sug_lv == nil then
	g_quest_1_sug_lv = ""
	end
	if g_quest_2_sug_lv == nil then
	g_quest_2_sug_lv = ""
	end
	if g_quest_3_sug_lv == nil then
	g_quest_3_sug_lv = ""
	end
	if g_quest_4_sug_lv == nil then
	g_quest_4_sug_lv = ""
	end
	if g_quest_5_sug_lv == nil then
	g_quest_5_sug_lv = ""
	end
	if g_quest_6_sug_lv == nil then
	g_quest_6_sug_lv = ""
	end
	if g_quest_7_sug_lv == nil then
	g_quest_7_sug_lv = ""
	end
	
	-- Quest Values
	if g_quest_1_value == nil then
	g_quest_1_value = 0
	end
	if g_quest_2_value == nil then
	g_quest_2_value = 0
	end
	if g_quest_3_value == nil then
	g_quest_3_value = 0
	end
	if g_quest_4_value == nil then
	g_quest_4_value = 0
	end
	if g_quest_5_value == nil then
	g_quest_5_value = 0
	end
	if g_quest_value == nil then
	g_quest_6_value = 0
	end
	if g_quest_7_value == nil then
	g_quest_7_value = 0
	end
	--end quest values
	
-- weapon slot level display
	if g_slot_1_level == nil then
	g_slot_1_level = ""
	end
	if g_slot_2_level == nil then
	g_slot_2_level = ""
	end
	if g_slot_3_level == nil then
	g_slot_3_level = ""
	end
	if g_slot_4_level == nil then
	g_slot_4_level = ""
	end
	if g_slot_5_level == nil then
	g_slot_5_level = ""
	end
	if g_slot_6_level == nil then
	g_slot_6_level = ""
	end
	if g_slot_7_level == nil then
	g_slot_7_level = ""
	end
	if g_slot_8_level == nil then
	g_slot_8_level = ""
	end
	if g_slot_9_level == nil then
	g_slot_9_level = ""
	end
-- end weapon slot level display
end

function rpg_menu_main(e)

-- POTION COOLDOWN
potion_sum = g_weak_potion_count + g_potion_count + g_strong_potion_count
if use_potion_wait > 0 then
TextCenterOnX(45,5,1, "|")
TextCenterOnX(55,5,1, "|")
TextCenterOnX(50,7,2, "Potion Cooldown")
if use_potion_wait > 0 and use_potion_wait < 500 then
Text(45,5,2, "|||")
elseif use_potion_wait > 500 and use_potion_wait <= 1000 then
Text(45,5,2, "||||||")
elseif use_potion_wait > 1000 and use_potion_wait <= 1500 then
Text(45,5,2, "||||||||||")
elseif use_potion_wait > 1500 and use_potion_wait <= 2000 then
Text(45,5,2, "|||||||||||||")
elseif use_potion_wait > 2000 and use_potion_wait <= 2500 then
Text(45,5,2, "||||||||||||||||")
elseif use_potion_wait > 2500 and use_potion_wait <= 3000 then
Text(45,5,2, "|||||||||||||||||||")
elseif use_potion_wait > 3000 and use_potion_wait <= 3500 then
Text(45,5,2, "||||||||||||||||||||||")
elseif use_potion_wait > 3500 and use_potion_wait <= 4000 then
Text(45,5,2, "||||||||||||||||||||||||||")
elseif use_potion_wait > 4000 and use_potion_wait <= 4500 then
Text(45,5,2, "|||||||||||||||||||||||||||||")
elseif use_potion_wait > 4500 and use_potion_wait <= 5000 then
Text(45,5,2, "||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 5000 and use_potion_wait <= 5500 then
Text(45,5,2, "|||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 5500 and use_potion_wait <= 6000 then
Text(45,5,2, "||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 6000 and use_potion_wait <= 6500 then
Text(45,5,2, "||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 6500 and use_potion_wait <= 7000 then
Text(45,5,2, "|||||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 7000 and use_potion_wait <= 7500 then
Text(45,5,2, "||||||||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 7500 and use_potion_wait <= 8000 then
Text(45,5,2, "|||||||||||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 8000 and use_potion_wait <= 8500 then
Text(45,5,2, "||||||||||||||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 8500 and use_potion_wait <= 9000 then
Text(45,5,2, "||||||||||||||||||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 9000 and use_potion_wait <= 9500 then
Text(45,5,2, "|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||")
elseif use_potion_wait > 9500 and use_potion_wait <= 10000 then
Text(45,5,2, "||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||")
end
elseif g_PlayerHealth < player_health_limit and use_potion_wait == 0 and potion_sum > 0 then
TextCenterOnX(50,5,1, "Press F1, F2 or F3 to use potions")
elseif g_PlayerHealth < player_health_limit and use_potion_wait == 0 and potion_sum <= 0 then
TextCenterOnX(50,5,1, "You have no potions")
end
-- END POTION COOLDOWN

-- WEAPON LEVEL TEXT DISPLAY
	if g_weapon_1 ~= "" then
	g_weapon_1_level_disp = "Level"
	end
	if g_weapon_2 ~= "" then
	g_weapon_2_level_disp = "Level"
	end
	if g_weapon_3 ~= "" then
	g_weapon_3_level_disp = "Level"
	end
	if g_weapon_4 ~= "" then
	g_weapon_4_level_disp = "Level"
	end
	if g_weapon_5 ~= "" then
	g_weapon_5_level_disp = "Level"
	end
	if g_weapon_6 ~= "" then
	g_weapon_6_level_disp = "Level"
	end
	if g_weapon_7 ~= "" then
	g_weapon_7_level_disp = "Level"
	end
	if g_weapon_8 ~= "" then
	g_weapon_8_level_disp = "Level"
	end
	if g_weapon_9 ~= "" then
	g_weapon_9_level_disp = "Level"
	end
-- WEAPON LEVEL TEXT DISPLAY END

-- WEAPON SLOT TRACKER
if g_Scancode == 2 and g_slot_1 == 0 and g_weapon_1 ~= "" then
   g_slot_1 = 1
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 3 and g_slot_2 == 0 and g_weapon_2 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 1
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 4 and g_slot_3 == 0 and g_weapon_3 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 1
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 5 and g_slot_4 == 0 and g_weapon_4 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 1
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 6 and g_slot_5 == 0 and g_weapon_5 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 1
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 7 and g_slot_6 == 0 and g_weapon_6 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 1
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 8 and g_slot_7 == 0 and g_weapon_7 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 1
   g_slot_8 = 0
   g_slot_9 = 0
   elseif g_Scancode == 9 and g_slot_8 == 0 and g_weapon_8 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 1
   g_slot_9 = 0
   elseif g_Scancode == 10 and g_slot_9 == 0 and g_weapon_9 ~= ""  then
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 1
end
-- END WEAPON SLOT TRACKER

-- LEVELING

to_next_level = g_exp_base - g_exp

if g_exp >= g_exp_base then
g_level = g_level + 1
g_exp_base = 100 * g_level + g_exp_base
PlaySound(e,0)
PromptDuration("Level Up! you are now level " .. g_level .. ". [Journal updated]" ,3000)
end

-- END LEVELING
if display_dev_menu == 1 then
TextCenterOnX(10,10,1, "QUEST VALUES")
TextCenterOnX(10,13,1, "Q1 = " .. g_quest_1_value)
TextCenterOnX(10,16,1, "Q2 = " .. g_quest_2_value)
TextCenterOnX(10,19,1, "Q3 = " .. g_quest_3_value)
TextCenterOnX(10,22,1, "Q4 = " .. g_quest_4_value)
TextCenterOnX(10,25,1, "Q5 = " .. g_quest_5_value)
TextCenterOnX(10,28,1, "Q6 = " .. g_quest_6_value)
TextCenterOnX(10,31,1, "Q7 = " .. g_quest_7_value)

TextCenterOnX(10,37,1, "PLAYER POSITION")
TextCenterOnX(10,40,1, "POS X = " .. g_PlayerPosX)
TextCenterOnX(10,43,1, "POS Z = " .. g_PlayerPosZ)

TextCenterOnX(10,49,1, "PRESSED KEY SCANCODE")
TextCenterOnX(10,52,1, "g_Scancode = " .. g_Scancode)
end

-- QUEST MENU
if display_quest_menu == 1 then
Panel(13,8,87,9)
Panel(13,15,87,84)
TextCenterOnX(50,11,1, "Journal")

--Quest line 1
if g_quest_1_value == 0 then
TextCenterOnX(50,18,1, "1. QUEST 1 NAME " .. g_quest_1_sug_lv)
TextCenterOnX(50,21,1, "Message when quest_1_value is 0")
end

if g_quest_1_value == 1 then
TextCenterOnX(50,18,1, "1. QUEST NAME" .. g_quest_1_sug_lv)
TextCenterOnX(50,21,1, "Message when quest_1_value is 1")
end
-- End quest line 1

--Quest line 2
if g_quest_2_value == 0 then
TextCenterOnX(50,27,1, "2. QUEST 2 NAME")
TextCenterOnX(50,30,1, "Message when quest_2_value is 0")
end

if g_quest_2_value == 1 then
TextCenterOnX(50,27,1, "2. QUEST 2 NAME" .. g_quest_2_sug_lv)
TextCenterOnX(50,30,1, "Message when quest_2_value is 1")
end
--End quest line 2

--Quest line 3
if g_quest_3_value == 0 then
TextCenterOnX(50,36,1, "3. QUEST 3 NAME" .. g_quest_3_sug_lv)
TextCenterOnX(50,39,1, "Message when quest_3_value is 0")
end

if g_quest_3_value == 1 then
TextCenterOnX(50,36,1, "3. QUEST 3 NAME" .. g_quest_3_sug_lv)
TextCenterOnX(50,39,1, "Message when quest_3_value is 1")
end
--End quest line 3

--Quest line 4
if g_quest_4_value == 0 then
TextCenterOnX(50,45,1, "4. QUEST 4 NAME" .. g_quest_4_sug_lv)
TextCenterOnX(50,48,1, "Message when quest_4_value is 0")
end

if g_quest_4_value == 1 then
TextCenterOnX(50,45,1, "4. QUEST 4 NAME" .. g_quest_4_sug_lv)
TextCenterOnX(50,48,1, "Message when quest_4_value is 1")
end
--End quest line 4

--Quest line 5
if g_quest_5_value == 0 then
TextCenterOnX(50,54,1, "5. QUEST 5 NAME" .. g_quest_5_sug_lv)
TextCenterOnX(50,57,1, "Message when quest_5_value is 0")
end

if g_quest_5_value == 1 then
TextCenterOnX(50,54,1, "5. QUEST 5 NAME" .. g_quest_5_sug_lv)
TextCenterOnX(50,57,1, "Message when quest_5_value is 1")
end
--End quest line 5

--Quest line 6
if g_quest_6_value == 0 then
TextCenterOnX(50,63,1, "6. QUEST 6 NAME" .. g_quest_6_sug_lv)
TextCenterOnX(50,66,1, "Message when quest_6_value is 0")
end

if g_quest_6_value == 1 then
TextCenterOnX(50,63,1, "6. QUEST 6 NAME" .. g_quest_6_sug_lv)
TextCenterOnX(50,66,1, "Message when quest_6_value is 1")
end
--End quest line 6

--Quest line 7
if g_quest_7_value == 0 then
TextCenterOnX(50,72,1, "7. QUEST 7 NAME" .. g_quest_7_sug_lv)
TextCenterOnX(50,75,1, "Message when quest_7_value is 0")
end

if g_quest_7_value == 1 then
TextCenterOnX(50,72,1, "7. QUEST 7 NAME" .. g_quest_7_sug_lv)
TextCenterOnX(50,75,1, "Message when quest_7_value is 1")
end
--End quest line 7


end
if g_Scancode == journal_key and quest_menu_press_wait == 0 and display_quest_menu == 0 then
display_c_menu = 0
display_inventory = 0
display_quest_menu = display_quest_menu + 1
quest_menu_press_wait = quest_menu_press_wait + 1
end

if g_Scancode == journal_key and quest_menu_press_wait == 0 and display_quest_menu == 1 then
display_quest_menu = display_quest_menu - 1
quest_menu_press_wait = quest_menu_press_wait + 1
end

if quest_menu_press_wait > 0 then
quest_menu_press_wait = quest_menu_press_wait + 1
end

if quest_menu_press_wait > menu_wait_tweak then
quest_menu_press_wait = 0
end
-- END QUEST MENU

-- CHARACTER MENU
if display_c_menu == 1 then
Panel(13,8,87,9)
Panel(13,15,87,84)
TextCenterOnX(50,11,1, "Stats")
TextCenterOnX(50,18,1, "Level")
TextCenterOnX(50,21,1, g_level)
TextCenterOnX(50,27,1, "Experience")
TextCenterOnX(50,30,1, g_exp)
TextCenterOnX(50,36,1, "Next Level")
TextCenterOnX(50,39,1, to_next_level)
end
if g_Scancode == char_menu_key and display_c_menu == 0 and c_menu_press_wait == 0 then
display_inventory = 0
display_quest_menu = 0
display_c_menu = display_c_menu + 1
c_menu_press_wait = c_menu_press_wait + 1
end 

if g_Scancode == char_menu_key and display_c_menu == 1 and c_menu_press_wait == 0 then
display_c_menu = display_c_menu - 1
c_menu_press_wait = c_menu_press_wait + 1
end
if c_menu_press_wait > 0 then
c_menu_press_wait = c_menu_press_wait + 1
end
if c_menu_press_wait > menu_wait_tweak then
c_menu_press_wait = 0
end

--END CHARACTER MENU

-- INVENTORY
if display_inventory == 1 then
Panel(13,8,87,9)
Panel(13,15,87,84)
TextCenterOnX(50,11,1, "Inventory")
TextCenterOnX(50,18,1, "Weapons")
TextCenterOnX(20,21,1, "1")
TextCenterOnX(20,24,1, g_weapon_1)
TextCenterOnX(20,30,1, g_weapon_1_level_disp)
TextCenterOnX(20,33,1, g_slot_1_level)
TextCenterOnX(28,21,1, "2")
TextCenterOnX(28,24,1, g_weapon_2)
TextCenterOnX(28,30,1, g_weapon_2_level_disp)
TextCenterOnX(28,33,1, g_slot_2_level)
TextCenterOnX(35,21,1, "3")
TextCenterOnX(35,24,1, g_weapon_3)
TextCenterOnX(35,30,1, g_weapon_3_level_disp)
TextCenterOnX(35,33,1, g_slot_3_level)
TextCenterOnX(43,21,1, "4")
TextCenterOnX(43,24,1, g_weapon_4)
TextCenterOnX(43,30,1, g_weapon_4_level_disp)
TextCenterOnX(43,33,1, g_slot_4_level)
TextCenterOnX(50,21,1, "5")
TextCenterOnX(50,24,1, g_weapon_5)
TextCenterOnX(50,30,1, g_weapon_5_level_disp)
TextCenterOnX(50,33,1, g_slot_5_level)
TextCenterOnX(57,21,1, "6")
TextCenterOnX(57,24,1, g_weapon_6)
TextCenterOnX(57,30,1, g_weapon_6_level_disp)
TextCenterOnX(57,33,1, g_slot_6_level)
TextCenterOnX(65,21,1, "7")
TextCenterOnX(65,24,1, g_weapon_7)
TextCenterOnX(65,30,1, g_weapon_7_level_disp)
TextCenterOnX(65,33,1, g_slot_7_level)
TextCenterOnX(72,21,1, "8")
TextCenterOnX(72,24,1, g_weapon_8)
TextCenterOnX(72,30,1, g_weapon_8_level_disp)
TextCenterOnX(72,33,1, g_slot_8_level)
TextCenterOnX(80,21,1, "9")
TextCenterOnX(80,24,1, g_weapon_9)
TextCenterOnX(80,30,1, g_weapon_9_level_disp)
TextCenterOnX(80,33,1, g_slot_9_level)
TextCenterOnX(25,55,1, "F1")
TextCenterOnX(25,58,1, "Weak Potions")
TextCenterOnX(25,61,1, g_weak_potion_count .. " / " .. max_weak_potions)
TextCenterOnX(50,55,1, "F2")
TextCenterOnX(50,58,1, "Potions")
TextCenterOnX(50,61,1, g_potion_count .. " / " .. max_potions)
TextCenterOnX(75,55,1, "F3")
TextCenterOnX(75,58,1, "Strong Potions")
TextCenterOnX(75,61,1, g_strong_potion_count .. " / " .. max_strong_potions)
end

if g_Scancode == inventory_key and inventory_press_wait == 0 and display_inventory == 0 then
display_quest_menu = 0
display_c_menu = 0
display_inventory = display_inventory + 1
inventory_press_wait = inventory_press_wait + 1
end

if g_Scancode == inventory_key and inventory_press_wait == 0 and display_inventory == 1 then
display_inventory = display_inventory - 1
inventory_press_wait = inventory_press_wait + 1
end

if inventory_press_wait > 0 then
inventory_press_wait = inventory_press_wait + 1
end

if inventory_press_wait > menu_wait_tweak then
inventory_press_wait = 0
end
--INVENTORY END

-- ITEMS AMOUNT
if g_weak_potion_count >= max_weak_potions then
g_weak_potion_count = max_weak_potions
elseif g_weak_potion_count <= 0 then
g_weak_potion_count = 0
end
if g_potion_count >= max_potions then
g_potion_count = max_potions
elseif g_potion_count <= 0 then
g_potion_count = 0
end
if g_strong_potion_count >= max_strong_potions then
g_strong_potion_count = max_strong_potions
elseif g_strong_potion_count <= 0 then
g_strong_potion_count = 0
end
-- END ITEMS AMOUNT

-- ITEMS FUNCTIONS

-- WEAK POTIONS

if g_Scancode == weak_potion_key then
if g_Scancode == weak_potion_key and use_potion_wait == 0 and g_PlayerHealth < player_health_limit and g_weak_potion_count > 0 then
use_weak_potion = 1
use_potion_wait = use_potion_wait + 1
SetPlayerHealth(g_PlayerHealth + player_health_limit/5)
g_weak_potion_count = g_weak_potion_count - 1
PromptDuration("Used weak potion",3000)
end
end
if use_potion_wait > 10000 then
use_potion_wait = 0
end
if use_potion_wait > 0 then
use_potion_wait = use_potion_wait + 1
use_weak_potion = 0
end
--END WEAK POTIONS

-- POTIONS 

if g_Scancode == potion_key then
if g_Scancode == potion_key and use_potion_wait == 0 and g_PlayerHealth < player_health_limit and g_potion_count > 0 then
use_potion = 1
use_potion_wait = use_potion_wait + 1
SetPlayerHealth(g_PlayerHealth + player_health_limit/2)
g_potion_count = g_potion_count - 1
PromptDuration("Used potion",3000)
end
end
if use_potion_wait > 10000 then
use_potion_wait = 0
end
if use_potion_wait > 0 then
use_potion_wait = use_potion_wait + 1
use_potion = 0
end

--END POTIONS

-- STRONG POTIONS

if g_Scancode == strong_potion_key then
if g_Scancode == strong_potion_key and use_potion_wait == 0 and g_PlayerHealth < player_health_limit and g_strong_potion_count > 0 then
use_strong_potion = 1
use_potion_wait = use_potion_wait + 1
SetPlayerHealth(g_PlayerHealth + player_health_limit)
g_strong_potion_count = g_strong_potion_count - 1
PromptDuration("Used strong potion",3000)
end
end
if use_potion_wait > 10000 then
use_potion_wait = 0
end
if use_potion_wait > 0 then
use_potion_wait = use_potion_wait + 1
use_strong_potion = 0
end

--END STRONG POTIONS

-- END ITEMS FUNCTIONS

-- HEALTH LIMIT
if g_PlayerHealth > player_health_limit then
SetPlayerHealth(player_health_limit)
end
-- END HEALTH LIMIT
end

if g_quest_1_value == 0 then
TextCenterOnX(50,18,1, "1. QUEST 1 NAME " .. g_quest_1_sug_lv)
TextCenterOnX(50,21,1, "Message when quest_1_value is 0")
end

if g_quest_1_value == 1 then
TextCenterOnX(50,18,1, "1. QUEST NAME" .. g_quest_1_sug_lv)
TextCenterOnX(50,21,1, "Message when quest_1_value is 1")
end

if g_quest_1_value == 2 then
TextCenterOnX(50,18,1, "1. QUEST NAME" .. g_quest_1_sug_lv)
TextCenterOnX(50,21,1, "Message when quest_1_value is 2")
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Collects Weapon

weapon_therecanbeonlyone = 0

function rpg_weapon_lv1_init_name(e,name)
	weapon_name[e] = name
end

function rpg_weapon_lv1_main(e)
 if weapon_therecanbeonlyone==-1 then
	if g_KeyPressE == 0 and g_InKey == ""  then
		weapon_therecanbeonlyone = 0
	end
 end
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 then

    SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
	if Result < 20.0 and weapon_therecanbeonlyone==0 then
		weapon_therecanbeonlyone = e
	end
	if Result >= 20.0 and weapon_therecanbeonlyone==e then
		weapon_therecanbeonlyone = 0
	end
	-- START HERE TOMORROW
	if Result < 20.0 and weapon_therecanbeonlyone==e and g_level >= 1 then
		if g_PlayerGunCount < 9 then
			if g_PlayerGunID > 0 then
				if g_PlayerController==0 then
					Prompt ("Press E to pick up the " .. weapon_name[e] .. " level 1 or T to replace" )
				else
					Prompt ("Press Y Button to pick up the " .. weapon_name[e] )
				end
			else
				if g_PlayerController==0 then
					Prompt ("Press E To pick up the " .. weapon_name[e] .. " level 1" )
				else
					Prompt ("Press Y Button to pick up the " .. weapon_name[e] )
				end
			end
			if g_KeyPressE == 1 then	

			if g_weapon_slot == 0 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_1 = weapon_name[e]	
			   g_weapon_slot = 1
   g_slot_1 = 1
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0	   
   g_slot_1_level = "1"
			   elseif g_weapon_slot == 1 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_2 = weapon_name[e]	
			   g_weapon_slot = 2
			   g_slot_1 = 0
			   g_slot_2 = 1
			   g_slot_3 = 0
			   g_slot_4 = 0
			   g_slot_5 = 0
			   g_slot_6 = 0
			   g_slot_7 = 0
			   g_slot_8 = 0
			   g_slot_9 = 0
   g_slot_2_level = "1"
			   elseif g_weapon_slot == 2 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_3 = weapon_name[e]	
			   g_weapon_slot = 3
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 1
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_3_level = "1"
			   elseif g_weapon_slot == 3 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_4 = weapon_name[e]	
			   g_weapon_slot = 4
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 1
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_4_level = "1"
			   elseif g_weapon_slot == 4 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_5 = weapon_name[e]	
			   g_weapon_slot = 5		
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 1
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_5_level = "1"
			   elseif g_weapon_slot == 5 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_6 = weapon_name[e]	
			   g_weapon_slot = 6
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 1
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_6_level = "1"
			   elseif g_weapon_slot == 6 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_7 = weapon_name[e]	
			   g_weapon_slot = 7
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 1
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_7_level = "1"
			   elseif g_weapon_slot == 7 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_8 = weapon_name[e]	
			   g_weapon_slot = 8
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 1
   g_slot_9 = 0 
      g_slot_8_level = "1"
			   elseif g_weapon_slot == 8 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 1" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_9 = weapon_name[e]	
			   g_weapon_slot = 9
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 1		
   g_slot_9_level = "1"   
			   end
			end
			
		
		else
			if g_PlayerController==0 then
				if g_PlayerGunID > 0 then
					Prompt ("Press T to replace with " .. weapon_name[e] )
				else
					Prompt ("Cannot collect any more weapons" )
				end
			else
				Prompt ("Cannot collect any more weapons" )
			end
		end
		if g_InKey == "t" and g_PlayerGunID > 0 and g_level >= 1 then
		   if g_slot_1 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_1 = weapon_name[e]	
		      g_slot_1_level = "1"
		   elseif g_slot_2 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_2 = weapon_name[e]	
		      g_slot_2_level = "1"
		   
		   elseif g_slot_3 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_3 = weapon_name[e]	
		      g_slot_3_level = "1"
		   
		   elseif g_slot_4 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_4 = weapon_name[e]
		      g_slot_4_level = "1"
elseif g_slot_5 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_5 = weapon_name[e]
		      g_slot_5_level = "1"
elseif g_slot_6 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_6 = weapon_name[e]		
		      g_slot_6_level = "1"
		   elseif g_slot_7 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_7 = weapon_name[e]
		      g_slot_7_level = "1"
		   elseif g_slot_8 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_8 = weapon_name[e]
		      g_slot_8_level = "1"
		   elseif g_slot_9 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 1" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_9 = weapon_name[e]
		      g_slot_9_level = "1"
		   end

		end

	elseif Result < 20.0 and weapon_therecanbeonlyone==e and g_level < 1 then
	Prompt ("You need to be level 1 to pick up this " .. weapon_name[e])	
   end
 else
	if weapon_therecanbeonlyone==e then
		weapon_therecanbeonlyone = 0
	end
 end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'
-- Player Collects Weapon

weapon_therecanbeonlyone = 0

function rpg_weapon_lv3_init_name(e,name)
	weapon_name[e] = name
end

function rpg_weapon_lv3_main(e)
 if weapon_therecanbeonlyone==-1 then
	if g_KeyPressE == 0 and g_InKey == ""  then
		weapon_therecanbeonlyone = 0
	end
 end
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 then

    SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
	if Result < 20.0 and weapon_therecanbeonlyone==0 then
		weapon_therecanbeonlyone = e
	end
	if Result >= 20.0 and weapon_therecanbeonlyone==e then
		weapon_therecanbeonlyone = 0
	end
	-- START HERE TOMORROW
	if Result < 20.0 and weapon_therecanbeonlyone==e and g_level >= 3 then
		if g_PlayerGunCount < 9 then
			if g_PlayerGunID > 0 then
				if g_PlayerController==0 then
					Prompt ("Press E to pick up the " .. weapon_name[e] .. " level 3 or T to replace" )
				else
					Prompt ("Press Y Button to pick up the " .. weapon_name[e] )
				end
			else
				if g_PlayerController==0 then
					Prompt ("Press E To pick up the " .. weapon_name[e] .. " level 3" )
				else
					Prompt ("Press Y Button to pick up the " .. weapon_name[e] )
				end
			end
			if g_KeyPressE == 1 then	

			if g_weapon_slot == 0 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_1 = weapon_name[e]	
			   g_weapon_slot = 1
   g_slot_1 = 1
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0	   
   g_slot_1_level = "3"
			   elseif g_weapon_slot == 1 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_2 = weapon_name[e]	
			   g_weapon_slot = 2
			   g_slot_1 = 0
			   g_slot_2 = 1
			   g_slot_3 = 0
			   g_slot_4 = 0
			   g_slot_5 = 0
			   g_slot_6 = 0
			   g_slot_7 = 0
			   g_slot_8 = 0
			   g_slot_9 = 0
   g_slot_2_level = "3"
			   elseif g_weapon_slot == 2 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_3 = weapon_name[e]	
			   g_weapon_slot = 3
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 1
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_3_level = "3"
			   elseif g_weapon_slot == 3 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_4 = weapon_name[e]	
			   g_weapon_slot = 4
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 1
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_4_level = "3"
			   elseif g_weapon_slot == 4 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_5 = weapon_name[e]	
			   g_weapon_slot = 5		
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 1
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_5_level = "3"
			   elseif g_weapon_slot == 5 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_6 = weapon_name[e]	
			   g_weapon_slot = 6
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 1
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_6_level = "3"
			   elseif g_weapon_slot == 6 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_7 = weapon_name[e]	
			   g_weapon_slot = 7
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 1
   g_slot_8 = 0
   g_slot_9 = 0
      g_slot_7_level = "3"
			   elseif g_weapon_slot == 7 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_8 = weapon_name[e]	
			   g_weapon_slot = 8
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 1
   g_slot_9 = 0 
      g_slot_8_level = "3"
			   elseif g_weapon_slot == 8 then
			   PromptDuration("Collected the " .. weapon_name[e] .. " level 3" ,3000)
			   PlaySound(e,0)
			   AddPlayerWeapon(e)
			   Destroy(e)
			   ActivateIfUsed(e)
			   weapon_therecanbeonlyone = -1
			   g_weapon_9 = weapon_name[e]	
			   g_weapon_slot = 9
   g_slot_1 = 0
   g_slot_2 = 0
   g_slot_3 = 0
   g_slot_4 = 0
   g_slot_5 = 0
   g_slot_6 = 0
   g_slot_7 = 0
   g_slot_8 = 0
   g_slot_9 = 1		
   g_slot_9_level = "3"   
			   end
			end
			
		
		else
			if g_PlayerController==0 then
				if g_PlayerGunID > 0 then
					Prompt ("Press T to replace with " .. weapon_name[e] )
				else
					Prompt ("Cannot collect any more weapons" )
				end
			else
				Prompt ("Cannot collect any more weapons" )
			end
		end
		if g_InKey == "t" and g_PlayerGunID > 0 and g_level >= 3 then
		   if g_slot_1 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_1 = weapon_name[e]	
		      g_slot_1_level = "3"
		   elseif g_slot_2 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_2 = weapon_name[e]	
		      g_slot_2_level = "3"
		   
		   elseif g_slot_3 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_3 = weapon_name[e]	
		      g_slot_3_level = "3"
		   
		   elseif g_slot_4 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_4 = weapon_name[e]
		      g_slot_4_level = "3"
elseif g_slot_5 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_5 = weapon_name[e]
		      g_slot_5_level = "3"
elseif g_slot_6 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_6 = weapon_name[e]		
		      g_slot_6_level = "3"
		   elseif g_slot_7 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_7 = weapon_name[e]
		      g_slot_7_level = "3"
		   elseif g_slot_8 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_8 = weapon_name[e]
		      g_slot_8_level = "3"
		   elseif g_slot_9 == 1 then
		   PromptDuration("Replaced with " .. weapon_name[e] .. " level 3" ,3000)
		   PlaySound(e,0)
		   ReplacePlayerWeapon(e)
		   Destroy(e)
		   ActivateIfUsed(e)
		   weapon_therecanbeonlyone = -1
		   g_weapon_9 = weapon_name[e]
		      g_slot_9_level = "3"
		   end

		end

	elseif Result < 20.0 and weapon_therecanbeonlyone==e and g_level < 3 then
	Prompt ("You need to be Level 3 to pick up this " .. weapon_name[e])	
   end
 else
	if weapon_therecanbeonlyone==e then
		weapon_therecanbeonlyone = 0
	end
 end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function weak_potion_init(e,name)
	weapon_name[e] = "Weak Potion"
end

function weak_potion_main(e)
 
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_weak_potion_count < max_weak_potions then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
			if g_KeyPressE == 1 then
			   PromptDuration("Collected the " .. weapon_name[e],3000)
			   PlaySound(e,0)
			   Destroy(e)
			   g_weak_potion_count = g_weak_potion_count + 1
			end
TextCenterOnX(50,45,1, "Press [E] To collect " .. weapon_name[e])
			
	elseif PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_weak_potion_count == max_weak_potions then
	Prompt("You have maximum Weak Potions amount")
   end

   
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function normal_potion_init(e,name)
	weapon_name[e] = "Potion"
end

function normal_potion_main(e)
 
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_potion_count < max_potions then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
			if g_KeyPressE == 1 then
			   PromptDuration("Collected the " .. weapon_name[e],3000)
			   PlaySound(e,0)
			   Destroy(e)
			   g_potion_count = g_potion_count + 1
			end
TextCenterOnX(50,45,1, "Press [E] To collect " .. weapon_name[e])
			
	elseif PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_potion_count == max_potions then
	Prompt("You have maximum Potions amount")
   end
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function strong_potion_init(e,name)
	weapon_name[e] = "Strong Potion"
end

function strong_potion_main(e)
 
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_strong_potion_count < max_strong_potions then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
			if g_KeyPressE == 1 then
			   PromptDuration("Collected the " .. weapon_name[e],3000)
			   PlaySound(e,0)
			   Destroy(e)
			   g_strong_potion_count = g_strong_potion_count + 1
			end
TextCenterOnX(50,45,1, "Press [E] To collect " .. weapon_name[e])
			
	elseif PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_strong_potion_count == max_strong_potions then
	Prompt("You have maximum Strong Potions amount")
   end
end

-- LUA Script - precede every function and global member with lowercase name of script
-- globals
local aniplaying = 0
ai_newdest_time = {}
ai_cover_on = {}
lastswipe = {}
damageframestart = {}
damageframeend = {}
haveAddedObjective = {}
function ai_civilian_init(e)

-- FEEL FREE TO CHANGE THOSE VALUES
 ai_civilian_name = "Character name"	-- This value sets characters name. It will be displayed when you walk close to him. 
 ai_bot_state[e] = "Green"				-- This value set's AI Colour on Custom RPG Radar. (This can be set to: "Green", "Red" and "Yellow")
 ai_civilian_talking_wait = 100			-- This sets how fast will your Character speak. The larger the value the longer you have to wait for text to change.
-- END FEEL FRE TO CHANGE

 ai_soldier_state[e] = "patrol";
 ai_soldier_pathindex[e] = -1;
 ai_start_x[e] = nil
 ai_starting_heath[e] = nil
 ai_ran_to_cover[e] = 0
 ModulateSpeed(e,1.0)
 ai_old_health[e] = 0
 SetAnimationFrames(236,265) 
 ai_civilian_attack = 0
 ai_civilian_disp_text = 0
 ai_civilian_wait = 0
 ai_newdest_time[e] = -1
 ai_cover_on[e] = 0
 ai_alerted_spoken[e] = 0
 SetAnimationFrames(236,265) 
 lastswipe[e] = 0
 damageframestart[e]=170
 damageframeend[e]=180
 SetEntityHealth(e,500)  
end
 
function ai_civilian_main(e)
  EntObjNo = g_Entity[e]['obj']
  PlayerDist = GetPlayerDistance(e)
  AnimationFrame = GetAnimationFrame(e)
  
  if ai_old_health[e]==0 then
  ai_old_health[e] = g_Entity[e]['health']
 end
 if g_Entity[e]['health'] < ai_old_health[e] then
  ai_old_health[e] = g_Entity[e]['health']
  PlayCharacterSound(e,"onHurt")
 end
 
  if ai_civilian_attack == 0 then
 if ai_soldier_state[e] == "patrol" and PlayerDist > 100 then
  if ai_soldier_pathindex[e] == -1 then
   ai_soldier_pathindex[e] = -2
   CharacterControlUnarmed(e)
   PathIndex = -1
   PathPointIndex = -1
   pClosest = 99999
   for pa = 1, AIGetTotalPaths(), 1 do
    for po = 1 , AIGetPathCountPoints(pa), 1 do
     pDX = g_Entity[e]['x'] - AIPathGetPointX(pa,po)
     pDZ = g_Entity[e]['z'] - AIPathGetPointZ(pa,po)
     pDist = math.sqrt(math.abs(pDX*pDX)+math.abs(pDZ*pDZ))
     if pDist < pClosest and pDist < 200 then
      pClosest = pDist
      PathIndex = pa
      PathPointIndex = po
     end
    end -- po
   end -- pa
   if PathIndex > -1 then
    ai_soldier_pathindex[e] = PathIndex
    ai_path_point_index[e] = PathPointIndex
    ModulateSpeed(e,1.0)
    SetCharacterToWalk(e)
    ai_path_point_direction[e] = 1
    ai_path_point_max[e] = AIGetPathCountPoints(ai_soldier_pathindex[e])
   end  
  end
  if ai_soldier_pathindex[e] > -1 then
   ai_patrol_x[e] = AIPathGetPointX(ai_soldier_pathindex[e],ai_path_point_index[e])
   ai_patrol_z[e] = AIPathGetPointZ(ai_soldier_pathindex[e],ai_path_point_index[e])
   AIEntityGoToPosition(EntObjNo,ai_patrol_x[e],ai_patrol_z[e])
   tDistX = g_Entity[e]['x'] - ai_patrol_x[e]
   tDistZ = g_Entity[e]['z'] - ai_patrol_z[e]
   DistFromPath = math.sqrt(math.abs(tDistX*tDistX)+math.abs(tDistZ*tDistZ))    
   if DistFromPath < 50 then
    if ai_path_point_direction[e] == 1 then
     ai_path_point_index[e] = ai_path_point_index[e] + 1
     if ( ai_path_point_index[e] > ai_path_point_max[e] ) then
      ai_path_point_index[e] = ai_path_point_max[e] - 1
      ai_path_point_direction[e] = 0
     end
    else
     ai_path_point_index[e] = ai_path_point_index[e] - 1
     if ( ai_path_point_index[e] < 1 ) then
      ai_path_point_index[e] = 2
      ai_path_point_direction[e] = 1
     end       
    end
   end
  end
  else
    CharacterControlFidget(e)
end

if ai_soldier_state[e] == "patrol" and PlayerDist < 100 then
	AIEntityStop(EntObjNo);
	RotateToPlayerSlowly(e,20)
	-- TEXT START
	
		-- TEXT BLOCK 1
			-- EDIT BLOCK HERE 
if PlayerDist < 100 then
if ai_civilian_disp_text == 1 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 1st line I say.")
end

if ai_civilian_disp_text == 2 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 2nd line I say.")
end

if ai_civilian_disp_text == 3 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 3rd line I say.")
end
			-- DO NOT EDIT THE BLOCK BELOW THIS POINT

if g_KeyPressE == 1 and ai_civilian_wait == 0 then
ai_civilian_disp_text = ai_civilian_disp_text + 1
ai_civilian_wait = ai_civilian_wait + 1
end

TextCenterOnX(50,45,1, "Press [E] To Talk to " .. ai_civilian_name)

if ai_civilian_wait > ai_civilian_talking_wait then
ai_civilian_wait = 0
end

if ai_civilian_wait > 0 then
ai_civilian_wait = ai_civilian_wait + 1
end
RotateToPlayerSlowly(e,20)
end
		-- END TEXT BLOCK 1

	
	-- END TEXT
end
end

if PlayerDist > 100 then
ai_civilian_wait = 0
ai_civilian_disp_text = 0
end

if g_Entity[e]['health'] < 500 then 
SetEntityHealth(e,500)
end

 if ai_old_health[e]==-1 then
 ai_old_health[e] = g_Entity[e]['health']
 end

end

function ai_civilian_exit(e)
 PlayCharacterSound(e,"onDeath")
 CollisionOff(e)
end

			-- EDIT BLOCK HERE 
if PlayerDist < 100 then
if ai_civilian_disp_text == 1 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 1st line I say.")
end

if ai_civilian_disp_text == 1 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 1st line I say.")
end

if ai_civilian_disp_text == 2 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 2nd line I say.")
end

-- LUA Script - precede every function and global member with lowercase name of script
-- globals
local aniplaying = 0
ai_newdest_time = {}
ai_cover_on = {}
lastswipe = {}
damageframestart = {}
damageframeend = {}
haveAddedObjective = {}
function ai_quest_giver_1_init(e)

-- FEEL FREE TO CHANGE THOSE VALUES
 ai_quest_giver_1_name = "Character name"	-- This value sets characters name. It will be displayed when you walk close to him. 
 ai_bot_state[e] = "Green"					-- This value set's AI Colour on Custom RPG Radar. (This can be set to: "Green", "Red" and "Yellow")
 ai_quest_giver_1_talking_wait = 100		-- This sets how fast will your Character speak. The larger the value the longer you have to wait for text to change.
-- END FEEL FRE TO CHANGE

 ai_soldier_state[e] = "patrol";
 ai_soldier_pathindex[e] = -1;
 ai_start_x[e] = nil
 ai_starting_heath[e] = nil
 ai_ran_to_cover[e] = 0
 ModulateSpeed(e,1.0)
 ai_old_health[e] = 0
 SetAnimationFrames(236,265) 
 ai_quest_giver_1_attack = 0
 ai_quest_giver_1_disp_text = 0
 ai_quest_giver_1_wait = 0
 ai_newdest_time[e] = -1
 ai_cover_on[e] = 0
 ai_alerted_spoken[e] = 0
 SetAnimationFrames(236,265) 
 lastswipe[e] = 0
 damageframestart[e]=170
 damageframeend[e]=180
 SetEntityHealth(e,500)  
end
 
function ai_quest_giver_1_main(e)
  EntObjNo = g_Entity[e]['obj']
  PlayerDist = GetPlayerDistance(e)
  AnimationFrame = GetAnimationFrame(e)
  
  if ai_old_health[e]==0 then
  ai_old_health[e] = g_Entity[e]['health']
 end
 if g_Entity[e]['health'] < ai_old_health[e] then
  ai_old_health[e] = g_Entity[e]['health']
  PlayCharacterSound(e,"onHurt")
 end
 
  if ai_quest_giver_1_attack == 0 then
 if ai_soldier_state[e] == "patrol" and PlayerDist > 100 then
  if ai_soldier_pathindex[e] == -1 then
   ai_soldier_pathindex[e] = -2
   CharacterControlUnarmed(e)
   PathIndex = -1
   PathPointIndex = -1
   pClosest = 99999
   for pa = 1, AIGetTotalPaths(), 1 do
    for po = 1 , AIGetPathCountPoints(pa), 1 do
     pDX = g_Entity[e]['x'] - AIPathGetPointX(pa,po)
     pDZ = g_Entity[e]['z'] - AIPathGetPointZ(pa,po)
     pDist = math.sqrt(math.abs(pDX*pDX)+math.abs(pDZ*pDZ))
     if pDist < pClosest and pDist < 200 then
      pClosest = pDist
      PathIndex = pa
      PathPointIndex = po
     end
    end -- po
   end -- pa
   if PathIndex > -1 then
    ai_soldier_pathindex[e] = PathIndex
    ai_path_point_index[e] = PathPointIndex
    ModulateSpeed(e,1.0)
    SetCharacterToWalk(e)
    ai_path_point_direction[e] = 1
    ai_path_point_max[e] = AIGetPathCountPoints(ai_soldier_pathindex[e])
   end  
  end
  if ai_soldier_pathindex[e] > -1 then
   ai_patrol_x[e] = AIPathGetPointX(ai_soldier_pathindex[e],ai_path_point_index[e])
   ai_patrol_z[e] = AIPathGetPointZ(ai_soldier_pathindex[e],ai_path_point_index[e])
   AIEntityGoToPosition(EntObjNo,ai_patrol_x[e],ai_patrol_z[e])
   tDistX = g_Entity[e]['x'] - ai_patrol_x[e]
   tDistZ = g_Entity[e]['z'] - ai_patrol_z[e]
   DistFromPath = math.sqrt(math.abs(tDistX*tDistX)+math.abs(tDistZ*tDistZ))    
   if DistFromPath < 50 then
    if ai_path_point_direction[e] == 1 then
     ai_path_point_index[e] = ai_path_point_index[e] + 1
     if ( ai_path_point_index[e] > ai_path_point_max[e] ) then
      ai_path_point_index[e] = ai_path_point_max[e] - 1
      ai_path_point_direction[e] = 0
     end
    else
     ai_path_point_index[e] = ai_path_point_index[e] - 1
     if ( ai_path_point_index[e] < 1 ) then
      ai_path_point_index[e] = 2
      ai_path_point_direction[e] = 1
     end       
    end
   end
  end
  else
    CharacterControlFidget(e)
end

if ai_soldier_state[e] == "patrol" and PlayerDist < 100 then
	AIEntityStop(EntObjNo);
	RotateToPlayerSlowly(e,20)
	-- TEXT START
	
		-- TEXT BLOCK 1
			-- EDIT BLOCK HERE 
if PlayerDist < 100 and g_quest_1_value == 0 then
if ai_quest_giver_1_disp_text == 1 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 1st line I say if quest 1 value is 0")
end

if ai_quest_giver_1_disp_text == 2 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 2nd line I say if quest 1 value is 0")
end

if ai_quest_giver_1_disp_text == 3 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 3rd line I say if quest 1 value is 0")
end

if ai_quest_giver_1_disp_text == 4 then
g_quest_1_sug_lv = "[Level 1]"				-- THIS LINE IS OPTIONAL. SHOWS QUEST LEVEL IN JOURNAL.
PlaySound(e,1)								-- PLAY SOUND ASSIGNED TO CHARACTER. I USE IT AS A SOUND OF JOURNAL BEING UPDATED. TO SET IT PLEASE SET "Sound 1" in Entity Edit.
PromptDuration("[Journal updated]",3000)	-- DISPLAYS PROMPT THAT JOURNAL IS UPDATED.
g_quest_1_value = g_quest_1_value + 1		-- CHANGES THE QUEST 1 VALUE.
end

			-- DO NOT EDIT THE BLOCK BELOW THIS POINT
			
if g_KeyPressE == 1 and ai_quest_giver_1_wait == 0 then
ai_quest_giver_1_disp_text = ai_quest_giver_1_disp_text + 1
ai_quest_giver_1_wait = ai_quest_giver_1_wait + 1
end

TextCenterOnX(50,45,1, "Press [E] To Talk to " .. ai_quest_giver_1_name)

if ai_quest_giver_1_wait > ai_quest_giver_1_talking_wait then
ai_quest_giver_1_wait = 0
end

if ai_quest_giver_1_wait > 0 then
ai_quest_giver_1_wait = ai_quest_giver_1_wait + 1
end
RotateToPlayerSlowly(e,20)
end
		-- END TEXT BLOCK 1



		-- TEXT BLOCK 2
			-- EDIT BLOCK HERE 
if PlayerDist < 100 and g_quest_1_value == 1 then
if ai_quest_giver_1_disp_text == 1 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 1st line I say if quest 1 value is 1")
end

if ai_quest_giver_1_disp_text == 2 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 2nd line I say if quest 1 value is 1")
end

if ai_quest_giver_1_disp_text == 3 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 3rd line I say if quest 1 value is 1")
end
			-- DO NOT EDIT THE BLOCK BELOW THIS POINT
			
if g_KeyPressE == 1 and ai_quest_giver_1_wait == 0 then
ai_quest_giver_1_disp_text = ai_quest_giver_1_disp_text + 1
ai_quest_giver_1_wait = ai_quest_giver_1_wait + 1
end

TextCenterOnX(50,45,1, "Press [E] To Talk to " .. ai_quest_giver_1_name)

if ai_quest_giver_1_wait > ai_quest_giver_1_talking_wait then
ai_quest_giver_1_wait = 0
end

if ai_quest_giver_1_wait > 0 then
ai_quest_giver_1_wait = ai_quest_giver_1_wait + 1
end
RotateToPlayerSlowly(e,20)
end
		-- END TEXT BLOCK 2

	
	-- END TEXT
end
end

if PlayerDist > 100 then
ai_quest_giver_1_wait = 0
ai_quest_giver_1_disp_text = 0
end

if g_Entity[e]['health'] < 500 then 
SetEntityHealth(e,500)
end

 if ai_old_health[e]==-1 then
 ai_old_health[e] = g_Entity[e]['health']
 end

end

function ai_quest_giver_1_exit(e)
 PlayCharacterSound(e,"onDeath")
 CollisionOff(e)
end

		-- TEXT BLOCK 1
			-- EDIT BLOCK HERE 
if PlayerDist < 100 and g_quest_1_value == 0 then

if ai_quest_giver_1_disp_text == 1 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 1st line I say if quest 1 value is 0")
end

if ai_quest_giver_1_disp_text == 2 then
Panel(15,80,80,20)
TextCenterOnX(50,83,1, "This is the 2nd line I say if quest 1 value is 0")
end

if ai_quest_giver_1_disp_text == 4 then
g_quest_1_sug_lv = "[Level 1]"				-- THIS LINE IS OPTIONAL. SHOWS QUEST LEVEL IN JOURNAL.
PlaySound(e,1)							-- PLAY SOUND ASSIGNED TO CHARACTER. I USE IT AS A SOUND OF JOURNAL BEING UPDATED. TO SET IT PLEASE SET "Sound 1" in Entity Edit in GG.
PromptDuration("[Journal updated]",3000)	-- DISPLAYS PROMPT THAT JOURNAL IS UPDATED.
g_quest_1_value = g_quest_1_value + 1		-- CHANGES THE QUEST 1 VALUE BY +1.
end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function pick_up_quest_item_init_name(e,name)
	weapon_name[e] = name
end

function pick_up_quest_item_main(e)
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 100 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_quest_1_value >= 1 then 	-- SET A QUEST VALUE AT WHICH THE QUEST STARTS (IF IT IS NOT QUEST LINE 1 QUEST MODIFY THE VALUE g_quest_1_value name)
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
			if g_KeyPressE == 1 then
			   PlaySound(e,0)
			   g_quest_1_value = g_quest_1_value + 1  -- IF IT IS NOT QUEST LINE 1 QUEST MODIFY THE VALUE g_quest_1_value name
			   PromptDuration("Collected the " .. weapon_name[e] .. ". [Journal updated]",3000)
			   Destroy(e)
			end			
TextCenterOnX(50,45,1, "Press [E] To collect " .. weapon_name[e])
			
	elseif PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_quest_1_value < 1 then	-- SET A QUEST VALUE AT WHICH THE QUEST STARTS (IF IT IS NOT QUEST LINE 1 QUEST MODIFY THE VALUE g_quest_1_value name)
	Prompt("This is the message that player sees before the quest starts")
   end
   
end

-- Quest Completion
if PlayerDist < 100 and g_quest_1_value == 2 then -- Here you set the value where you give back the item (in the example it is 2)
if quest_giver_1_showtext == 0 then
Panel(15,80,80,20 )
TextCenterOnX(50,83,1, "[GIVE BACK THE ITEM] [Update journal]") -- Here you can set the message that you want to show up when you walk close to the quest giver.

if g_KeyPressE == 1 and quest_giver_1_delay == 0 then
quest_giver_1_showtext = quest_giver_1_showtext + 1
quest_giver_1_delay = quest_giver_1_delay + 1
g_exp = g_exp + 105 -- add 105 XP points to the player (Levels and how the XP is scaled is described in the first post)
g_quest_1_value = g_quest_1_value + 1 -- You change the quest value (add 1). Just remember to put in the correct quest value (g_quest_1_value, g_quest_2_value etc.
end

TextCenterOnX(50,45,1, "Press [E] To Talk to " .. quest_giver_1_name )

if quest_giver_1_delay > 100 then
quest_giver_1_delay = 0
end

if quest_giver_1_delay > 0 then
quest_giver_1_delay = quest_giver_1_delay + 1
end

RotateToPlayerSlowly(e,20)

end
-- End Quest Completion

-- Radar using sprites
-- added new x y positions for easy setup - Dvader aka retrogamebloke

enemyCount = 0
radarFoundEnemies = 0
radarEnemies = {}
radarEnemySprites = {}
radarObjectiveSprites = {}
radarSprite = 0
radarImageBack = 0
radarImageRed = 0
radarImageGreen = 0
radarImageYellow = 0
aspectRatio = 0
waitForAllEntities = 1
radarx=90
radary=15

function custom_radar_rpg_init(e)
	radarImageBack		=	LoadImage ( "scriptbank\\radar\\radar-back.png" )
	radarImageRed 		= 	LoadImage ( "scriptbank\\radar\\radar-red.png" )
	radarImageGreen 	= 	LoadImage ( "scriptbank\\radar\\radar-green.png" )
	radarImageYellow 	= 	LoadImage ( "scriptbank\\radar\\radar-yellow.png" )
	radarSprite = CreateSprite ( radarImageBack )
	SetSpriteDepth 	( radarSprite , 100 )
end

function custom_radar_rpg_main(e)

	SetSpriteSize 		( radarSprite , 15 , -1 )	
	SetSpriteOffset 	( radarSprite , 7.5 , -1 )
	SetSpritePosition 	( radarSprite , radarx , radary )	
	SetSpriteAngle		( radarSprite , -g_PlayerAngY )
	
	if waitForAllEntities == 1 then
		waitForAllEntities = 0
		return
	end
	
	if radarFoundEnemies == 0 then
		enemyCount = 0
		for c = 1, 9000 do
			if ai_bot_state[c] == "Green" then
				if g_Entity[c] ~= nil then
					enemyCount = enemyCount + 1
					radarEnemies[enemyCount] = c	
					radarEnemySprites[enemyCount] = CreateSprite( radarImageGreen )
					SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
				end
			elseif ai_bot_state[c] == "Red" then
					enemyCount = enemyCount + 1
					radarEnemies[enemyCount] = c	
					radarEnemySprites[enemyCount] = CreateSprite( radarImageRed )
					SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
			elseif ai_bot_state[c] == "Yellow" then
					enemyCount = enemyCount + 1
					radarEnemies[enemyCount] = c	
					radarEnemySprites[enemyCount] = CreateSprite( radarImageYellow )
					SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
					SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
					SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )						
			end
		end		
		radarFoundEnemies = 1		
	end
	
	newEntity = GetFirstEntitySpawn()
	if newEntity ~= 0 then
		if ai_bot_state[newEntity] ~= nil then
			if g_Entity[newEntity] ~= nil then
				enemyCount = enemyCount + 1
				radarEnemies[enemyCount] = newEntity
				radarEnemySprites[enemyCount] = CreateSprite( radarImageRed )
				SetSpriteOffset ( radarEnemySprites[enemyCount] , 0.25 , -1 )
				SetSpriteSize ( radarEnemySprites[enemyCount] , 0.5 , -1 )
				SetSpritePosition ( radarEnemySprites[enemyCount] , 200 , 200 )
			end
		end	
	end
	
	for c = 1 , enemyCount do
	 e = radarEnemies[c]
	 if g_Entity[e] ~= nil then
		if g_Entity[e]['health'] > 0 and GetEntityVisibility(e) == 1 then
			angle = pointAtPlayer(e) + math.rad(g_PlayerAngY)
			dist = GetPlayerDistance(e)
			if dist > 2576 then
				dist = 2576
			end
			x = radarx + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
			y = radary + ( math.cos(angle) * ( dist / 200.0 ) )
			SetSpritePosition ( radarEnemySprites[c] , x , y )
		else
			SetSpritePosition ( radarEnemySprites[c] , 200 , 200 )
		end
	 end
	end
	
	for c = 1 , g_objectiveCount do
	 e=radarObjectives[c]
     if g_Entity[e]['health'] > 0 then
		angle = pointAtPlayer(radarObjectives[c]) + math.rad(g_PlayerAngY)
		dist = GetPlayerDistance(radarObjectives[c])
		if dist > 2576 then
			dist = 2576
		end
		x = radarx + (( math.sin(angle) * ( dist / 200.0 ) * (GetDeviceHeight()/GetDeviceWidth()) ))
		y = radary + ( math.cos(angle) * ( dist / 200.0 ) )
		SetSpritePosition ( radarObjectiveSprites[c] , x , y )
	 else
	    SetSpritePosition ( radarObjectiveSprites[c] , 200 , 200 )
	 end
	end	

end

function pointAtPlayer (i)

	x = g_PlayerPosX - g_Entity[i]['x'];
	z = g_PlayerPosZ - g_Entity[i]['z'];
	angle = math.atan2( z , x );
	angle = angle + (-90.0*0.0174533);
	return angle;

end

function addObjective (i)

	g_objectiveCount = g_objectiveCount + 1
	radarObjectives[g_objectiveCount] = i
	if radar_entity == 0 then
	radarObjectiveSprites[g_objectiveCount] = CreateSprite( radarImageGreen )
	SetSpriteSize ( radarObjectiveSprites[g_objectiveCount] , 0.4 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[g_objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[g_objectiveCount] , 200 , 200 )
	end
	if radar_entity == 1 then
	radarObjectiveSprites[g_objectiveCount] = CreateSprite( radarImageYellow )
	SetSpriteSize ( radarObjectiveSprites[g_objectiveCount] , 0.4 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[g_objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[g_objectiveCount] , 200 , 200 )
	end
	if radar_entity == 2 then	
	radarObjectiveSprites[g_objectiveCount] = CreateSprite( radarImageRed )
	SetSpriteSize ( radarObjectiveSprites[g_objectiveCount] , 0.4 , -1 )
	SetSpriteOffset ( radarObjectiveSprites[g_objectiveCount] , 0.25 , -1 )
	SetSpritePosition ( radarObjectiveSprites[g_objectiveCount] , 200 , 200 )
	end
	radar_entity = 0

	end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function simple_note_init(e,name)
-- Feel free to edit
	weapon_name[e] = "Someones note" -- Set the name of the note
-- End feel free to edit
	display_text = 0
	txt_wait = 0
end

function simple_note_main(e)
 
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
-- NOTE SHOW TEXT
if display_text == 0 then
TextCenterOnX(50,45,1, "Press [E] To read " .. weapon_name[e])
end

if display_text == 1 then
Panel(13,8,87,9)
Panel(13,15,87,84)
TextCenterOnX(50,11,1, weapon_name[e])
-- Feel free to edit
TextCenterOnX(50,18,1, "This is the first line of the note")
TextCenterOnX(50,21,1, "This is the second line of the note")
TextCenterOnX(50,24,1, "This is the third line of the note")
TextCenterOnX(50,27,1, "This is the fourth line of the note")
TextCenterOnX(50,30,1, "This is the fifth line of the note") -- If you need more lines then just copy one from the above. Add 3 to the value in the middle (TextCenterOnX(50,x+3,1, ... ) starting from the last line and you can create more and more lines. Next one would be ( (TextCenterOnX(50,33,1, "This is the sixth line of the note")

TextCenterOnX(50,53,1, "Player's comment on the note")
-- end feel free to edit
end

if g_KeyPressE == 1 and txt_wait == 0 and display_text == 0 then
display_text = display_text + 1
txt_wait = txt_wait + 1
end

if g_KeyPressE == 1 and txt_wait == 0 and display_text == 1 then
display_text = display_text - 1
txt_wait = txt_wait + 1
end

if txt_wait > 100 then
txt_wait = 0
end

if txt_wait > 0 then
txt_wait = txt_wait + 1
end

end

-- DISTANCE VALUE RESET
if PlayerDist > 150 then
txt_wait = 0
display_text = 0
end

-- END NOTE SHOW TEXT
   end

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function quest_note_init(e,name)
-- feel free to edit
	weapon_name[e] = "Someone's Note"
-- end feel free to edit
	disp_text = 0
	txt_wait = 0
	g_quest_note_read = 0
end

function quest_note_main(e)
 
 PlayerDist = GetPlayerDistance(e)
 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_quest_note_read == 0 and g_quest_1_value == 4 then  -- Here by g_quest_1_value you can set when the note can be read. g_quest_1_value == 4 means that this note can be read only when g_quest_1_value is equal to 4.
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
-- NOTE SHOW TEXT
if disp_text == 0 then
TextCenterOnX(50,45,1, "Press [E] To read " .. weapon_name[e])
end

if disp_text == 1 then
Panel(13,8,87,9)
Panel(13,15,87,84)
TextCenterOnX(50,11,1, weapon_name[e])
TextCenterOnX(50,18,1, "This is the first line of the note")
TextCenterOnX(50,21,1, "This is the second line of the note")
TextCenterOnX(50,24,1, "This is the third line of the note")
TextCenterOnX(50,27,1, "This is the fourth line of the note")
TextCenterOnX(50,30,1, "This is the fifth line of the note") -- If you need more lines then just copy one from the above. Add 3 to the value in the middle (TextCenterOnX(50,x+3,1, ... ) starting from the last line and you can create more and more lines. Next one would be ( (TextCenterOnX(50,33,1, "This is the sixth line of the note")

TextCenterOnX(50,53,1, "Player's comment on the note") -- This will show up when note is read the first time
end

if g_KeyPressE == 1 and txt_wait == 0 and disp_text == 0 then
disp_text = disp_text + 1
txt_wait = txt_wait + 1
end

if g_KeyPressE == 1 and txt_wait == 0 and disp_text == 1 then
disp_text = disp_text - 1
txt_wait = txt_wait + 1
PromptDuration("[Journal updated]",3000)
g_quest_note_read = 1
g_quest_1_value = g_quest_1_value + 1
end

if txt_wait > 100 then
txt_wait = 0
end

if txt_wait > 0 then
txt_wait = txt_wait + 1
end

end


 if PlayerDist < 150 and g_PlayerHealth > 0 and g_PlayerThirdPerson==0 and g_quest_note_read == 1 then
	SourceAngle = g_PlayerAngY
	while SourceAngle < 0.0 do
		SourceAngle = SourceAngle + 360.0
	end	
	while SourceAngle > 340.0 do
		SourceAngle = SourceAngle - 360.0
	end
		
    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)
    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)
	DestAngle = math.atan2( PlayerDZ , PlayerDX )
	-- Convert to degrees
	DestAngle = (DestAngle * 57.2957795) - 90.0
	
	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))
	if Result > 180 then
		Result = 0
	end	
	
-- NOTE SHOW TEXT
if disp_text == 0 then
TextCenterOnX(50,45,1, "Press [E] To read " .. weapon_name[e])
end

if disp_text == 1 then
Panel(13,8,87,9)
Panel(13,15,87,84)
TextCenterOnX(50,11,1, weapon_name[e])
TextCenterOnX(50,11,1, weapon_name[e])
TextCenterOnX(50,18,1, "This is the first line of the note")
TextCenterOnX(50,21,1, "This is the second line of the note")
TextCenterOnX(50,24,1, "This is the third line of the note")
TextCenterOnX(50,27,1, "This is the fourth line of the note")
TextCenterOnX(50,30,1, "This is the fifth line of the note") -- If you need more lines then just copy one from the above. Add 3 to the value in the middle (TextCenterOnX(50,x+3,1, ... ) starting from the last line and you can create more and more lines. Next one would be ( (TextCenterOnX(50,33,1, "This is the sixth line of the note")

TextCenterOnX(50,53,1, "Player's comment on the note") -- This will show up when the note has been already read.
end

if g_KeyPressE == 1 and txt_wait == 0 and disp_text == 0 then
disp_text = disp_text + 1
txt_wait = txt_wait + 1
end

if g_KeyPressE == 1 and txt_wait == 0 and disp_text == 1 then
disp_text = disp_text - 1
txt_wait = txt_wait + 1
end

if txt_wait > 100 then
txt_wait = 0
end

if txt_wait > 0 then
txt_wait = txt_wait + 1
end

end


-- DISTANCE VALUE RESET
if PlayerDist > 150 then
txt_wait = 0
disp_text = 0
end

-- END NOTE SHOW TEXT
   end

-- LUA Script - precede every function and global member with lowercase name of script

attackstart = {}
attackend = {}
viewrange = {}
damageframestart = {}
damageframeend = {}
lastroar = {}
lastswipe = {}
 haveAddedObjective = {}

function ai_fantasycharacter_enemy_init(e)
-- Feel free to edit
damage_to_player = 30
ai_bot_state[e] = "Red" -- This value set's AI Colour on Custom RPG Radar. (This can be set to: "Green", "Red" and "Yellow")
-- End feel free to edit
 ai_soldier_state[e] = "patrol"
 ai_soldier_pathindex[e] = -1
 CharacterControlLimbo(e)
 SetAnimationFrames(236,265) 
 LoopAnimation(e)
 ModulateSpeed(e,1.0)
 SetAnimationSpeed(e,1.0)
 attackstart[e]=160
 attackend[e]=189
 damageframestart[e]=170
 damageframeend[e]=180
 lastroar[e] = 0
 lastswipe[e] = 0
 ai_old_health[e] = -1
 SetCharacterSoundSet(e)
SetEntityHealth(e,100)
haveAddedObjective[e] = 0

end

function ai_fantasycharacter_enemy_main(e)
 PlayerDist = GetPlayerDistance(e)
 EntObjNo = g_Entity[e]['obj']
 

 if viewrange[e]==nil then
  viewrange[e] = AIGetEntityViewRange(EntObjNo)
 end
 if ai_soldier_state[e] == "patrol" then
  if ai_soldier_pathindex[e] == -1 then
   ai_soldier_pathindex[e] = -2
   PathIndex = -1
   PathPointIndex = -1
   pClosest = 99999
   for pa = 1, AIGetTotalPaths(), 1 do
    for po = 1 , AIGetPathCountPoints(pa), 1 do
     pDX = g_Entity[e]['x'] - AIPathGetPointX(pa,po)
     pDZ = g_Entity[e]['z'] - AIPathGetPointZ(pa,po)
     pDist = math.sqrt(math.abs(pDX*pDX)+math.abs(pDZ*pDZ))
     if pDist < pClosest and pDist < 200 then
      pClosest = pDist
      PathIndex = pa
	  PathPointIndex = po
     end
    end -- po
   end -- pa
   if PathIndex > -1 then
    ai_soldier_pathindex[e] = PathIndex
	ai_path_point_index[e] = PathPointIndex
    CharacterControlArmed(e)
	SetCharacterToWalk(e)
	ModulateSpeed(e,0.65)
	ai_path_point_direction[e] = 1
	ai_path_point_max[e] = AIGetPathCountPoints(ai_soldier_pathindex[e])
   end   
  end
  if ai_soldier_pathindex[e] > -1 then 
   ai_patrol_x[e] = AIPathGetPointX(ai_soldier_pathindex[e],ai_path_point_index[e])
   ai_patrol_z[e] = AIPathGetPointZ(ai_soldier_pathindex[e],ai_path_point_index[e])
   AIEntityGoToPosition(EntObjNo,ai_patrol_x[e],ai_patrol_z[e])
   tDistX = g_Entity[e]['x'] - ai_patrol_x[e]
   tDistZ = g_Entity[e]['z'] - ai_patrol_z[e]
   DistFromPath = math.sqrt(math.abs(tDistX*tDistX)+math.abs(tDistZ*tDistZ))	
   if DistFromPath < 50 then
	if ai_path_point_direction[e] == 1 then
	 ai_path_point_index[e] = ai_path_point_index[e] + 1
	 if ( ai_path_point_index[e] > ai_path_point_max[e] ) then
	  ai_path_point_index[e] = ai_path_point_max[e] - 1
	  ai_path_point_direction[e] = 0
	 end
	else
	 ai_path_point_index[e] = ai_path_point_index[e] - 1
	 if ( ai_path_point_index[e] < 1 ) then
	  ai_path_point_index[e] = 2
	  ai_path_point_direction[e] = 1
	 end		
	end
   end
  end
 end
 if PlayerDist < viewrange[e] then
  if GetPlayerDistance(e)<100 then
   if ai_soldier_state[e] ~= "attack" then
    AIEntityStop(EntObjNo)
    ai_soldier_state[e] = "attack"
    CharacterControlLimbo(e)
    SetAnimationFrames(160,189) 
    LoopAnimation(e)
    lastswipe[e]=0
   end
  else
   if ai_soldier_state[e] ~= "charge" then
    ai_soldier_state[e] = "charge"
    CharacterControlArmed(e)
    SetCharacterToRun(e)
    ModulateSpeed(e,1.5)
    RotateToPlayer(e)
   end
  end
  if ai_soldier_state[e] == "charge" then
   AIEntityGoToPosition(EntObjNo,g_PlayerPosX,g_PlayerPosZ)
  end
  if ai_soldier_state[e] == "attack" then
   RotateToPlayer(e)  
   if GetAnimationFrame(e)>damageframestart[e] and GetAnimationFrame(e)<damageframeend[e] then
    if GetPlayerDistance(e)<120 and lastswipe[e]==0 then
	 PlaySound(e,1)
     HurtPlayer(e,damage_to_player)
	 lastswipe[e]=1
    end
   end
   if GetAnimationFrame(e)<damageframestart[e] then
    lastswipe[e]=0
   end
  end
 end
 if ai_old_health[e]==-1 then
  ai_old_health[e] = g_Entity[e]['health']
 end
 if g_Entity[e]['health'] < ai_old_health[e] then
  ai_old_health[e] = g_Entity[e]['health']
  PlayCharacterSound(e,"onHurt")
 end
 if PlayerDist >= viewrange[e] and ai_soldier_state[e]~="patrol" then
  ai_soldier_state[e] = "patrol"
  CharacterControlLimbo(e)
  SetAnimationFrames(236,265) 
  LoopAnimation(e)
  ModulateSpeed(e,1.0)
  SetAnimationSpeed(e,1.0)
 end
 if string.find(string.lower(g_Entity[e]['limbhit']), "head") ~= nil then
  SetEntityHealth(e,0)
  ResetLimbHit(e)
 end
end

function ai_fantasycharacter_exit(e)
 PlayCharacterSound(e,"onDeath")
 CollisionOff(e)
end

-- LUA Script - precede every function and global member with lowercase name of script

function save_rpg_val_zone_init(e)
end

function save_rpg_val_zone_main(e)
 if g_Entity[e]['plrinzone']==1 then
 
 file = io.open("mdm.dat", "w")
    if g_level ~= nil then
    file:write(g_level .. "\n")
    else
    file:write("0\n")
    end
	if g_exp ~= nil then
    file:write(g_exp .. "\n")
    else
    file:write("0\n")
    end
	if g_exp_base ~= nil then
    file:write(g_exp_base .. "\n")
    else
    file:write("0\n")
    end
	if to_next_level ~= nil then
    file:write(to_next_level .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_slot ~= nil then
    file:write(g_weapon_slot .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_1 ~= nil then
    file:write(g_weapon_1 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_2 ~= nil then
    file:write(g_weapon_2 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_3 ~= nil then
    file:write(g_weapon_3 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_4 ~= nil then
    file:write(g_weapon_4 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_5 ~= nil then
    file:write(g_weapon_5 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_6 ~= nil then
    file:write(g_weapon_6 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_7 ~= nil then
    file:write(g_weapon_7 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_8 ~= nil then
    file:write(g_weapon_8 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_9 ~= nil then
    file:write(g_weapon_9 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_1 ~= nil then
    file:write(g_slot_1 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_2 ~= nil then
    file:write(g_slot_2 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_3 ~= nil then
    file:write(g_slot_3 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_4 ~= nil then
    file:write(g_slot_4 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_5 ~= nil then
    file:write(g_slot_5 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_6 ~= nil then
    file:write(g_slot_6 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_7 ~= nil then
    file:write(g_slot_7 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_8 ~= nil then
    file:write(g_slot_8 .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_9 ~= nil then
    file:write(g_slot_9 .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_1_level_disp ~= nil then
    file:write(g_weapon_1_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_2_level_disp ~= nil then
    file:write(g_weapon_2_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_3_level_disp ~= nil then
    file:write(g_weapon_3_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_4_level_disp ~= nil then
    file:write(g_weapon_4_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_5_level_disp ~= nil then
    file:write(g_weapon_5_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_6_level_disp ~= nil then
    file:write(g_weapon_6_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_7_level_disp ~= nil then
    file:write(g_weapon_7_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_8_level_disp ~= nil then
    file:write(g_weapon_8_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_weapon_9_level_disp ~= nil then
    file:write(g_weapon_9_level_disp .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_1_sug_lv ~= nil then
    file:write(g_quest_1_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_2_sug_lv ~= nil then
    file:write(g_quest_2_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_3_sug_lv ~= nil then
    file:write(g_quest_3_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_4_sug_lv ~= nil then
    file:write(g_quest_4_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_5_sug_lv ~= nil then
    file:write(g_quest_5_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_6_sug_lv ~= nil then
    file:write(g_quest_6_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_7_sug_lv ~= nil then
    file:write(g_quest_7_sug_lv .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_1_value ~= nil then
    file:write(g_quest_1_value .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_2_value ~= nil then
    file:write(g_quest_2_value .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_3_value ~= nil then
    file:write(g_quest_3_value .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_4_value ~= nil then
    file:write(g_quest_4_value .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_5_value ~= nil then
    file:write(g_quest_5_value .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_6_value ~= nil then
    file:write(g_quest_6_value .. "\n")
    else
    file:write("0\n")
    end
	if g_quest_7_value ~= nil then
    file:write(g_quest_7_value .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_1_level ~= nil then
    file:write(g_slot_1_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_2_level ~= nil then
    file:write(g_slot_2_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_3_level ~= nil then
    file:write(g_slot_3_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_4_level ~= nil then
    file:write(g_slot_4_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_5_level ~= nil then
    file:write(g_slot_5_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_6_level ~= nil then
    file:write(g_slot_6_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_7_level ~= nil then
    file:write(g_slot_7_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_8_level ~= nil then
    file:write(g_slot_8_level .. "\n")
    else
    file:write("0\n")
    end
	if g_slot_9_level ~= nil then
    file:write(g_slot_9_level .. "\n")
    else
    file:write("0\n")
    end
	
	if g_weak_potion_count ~= nil then
    file:write(g_weak_potion_count .. "\n")
    else
    file:write("0\n")
    end
	
	if g_potion_count ~= nil then
    file:write(g_potion_count .. "\n")
    else
    file:write("0\n")
    end
	
	if g_strong_potion_count ~= nil then
    file:write(g_strong_potion_count .. "\n")
    else
    file:write("0\n")
    end
 file:close()
 
  JumpToLevelIfUsed(e)
 end
end

-- LUA Script - precede every function and global member with lowercase name of script

function load_zone_init(e)
end

function load_zone_main(e)
 if g_Entity[e]['plrinzone']==1 then
 
 file = io.open("mdm.dat", "r")
 g_level = file:read("*n", "*l")
 g_exp = file:read("*n", "*l")
 g_exp_base = file:read("*n", "*l")
 to_next_level =  file:read("*n", "*l")
 g_weapon_slot = file:read("*n", "*l")
 g_weapon_1 = file:read("*l")
 g_weapon_2 = file:read("*l")
 g_weapon_3 = file:read("*l")
 g_weapon_4 = file:read("*l")
 g_weapon_5 = file:read("*l")
 g_weapon_6 = file:read("*l")
 g_weapon_7 = file:read("*l")
 g_weapon_8 = file:read("*l")
 g_weapon_9 = file:read("*l")
 g_slot_1 = file:read("*n", "*l")
 g_slot_2 = file:read("*n", "*l")
 g_slot_3 = file:read("*n", "*l")
 g_slot_4 = file:read("*n", "*l")
 g_slot_5 = file:read("*n", "*l")
 g_slot_6 = file:read("*n", "*l")
 g_slot_7 = file:read("*n", "*l")
 g_slot_8 = file:read("*n", "*l")
 g_slot_9 = file:read("*n", "*l")
 g_weapon_1_level_disp = file:read("*l")
 g_weapon_2_level_disp = file:read("*l")
 g_weapon_3_level_disp = file:read("*l")
 g_weapon_4_level_disp = file:read("*l")
 g_weapon_5_level_disp = file:read("*l")
 g_weapon_6_level_disp = file:read("*l")
 g_weapon_7_level_disp = file:read("*l")
 g_weapon_8_level_disp = file:read("*l")
 g_weapon_9_level_disp = file:read("*l")
 g_quest_1_sug_lv = file:read("*l")
 g_quest_2_sug_lv = file:read("*l")
 g_quest_3_sug_lv = file:read("*l")
 g_quest_4_sug_lv = file:read("*l")
 g_quest_5_sug_lv = file:read("*l")
 g_quest_6_sug_lv = file:read("*l")
 g_quest_7_sug_lv = file:read("*l")
 g_quest_1_value = file:read("*n", "*l")
 g_quest_2_value = file:read("*n", "*l")
 g_quest_3_value = file:read("*n", "*l")
 g_quest_4_value = file:read("*n", "*l")
 g_quest_5_value = file:read("*n", "*l")
 g_quest_6_value = file:read("*n", "*l")
 g_quest_7_value = file:read("*n", "*l")
 g_slot_1_level = file:read("*l")
 g_slot_2_level = file:read("*l")
 g_slot_3_level = file:read("*l")
 g_slot_4_level = file:read("*l")
 g_slot_5_level = file:read("*l")
 g_slot_6_level = file:read("*l")
 g_slot_7_level = file:read("*l")
 g_slot_8_level = file:read("*l")
 g_slot_9_level = file:read("*l")
 g_weak_potion_count = file:read("*n", "*l")
 g_potion_count = file:read("*n", "*l")
 g_strong_potion_count = file:read("*n", "*l")
 file:close()
 Destroy(e)
 end
end