BEGIN Crafting_sct ; локальный скрипт

short Button
short Controlvar ; 0 - ничего не происходило , 1 - выбрана ковка любого вида оружия, 2,3,4 - начата ковка эбонита, стали, железа, 19 - мало материалов для ковки, 20 - ковка завершена
short Once
float timer

set Button to GetButtonPressed

if ( ControlVar >= 19 )
	set Button to 0
	set Controlvar to 0
	set Timer to 0 ; на всякий пожарный
endif
if ( OnActivate )
	if ( Player->GetArmorer >= 70 )
		messagebox "" "Сделать оружие из железа" "Сделать оружие из стали" "Сделать оружие из эбонита" "Выйти" 
		set Controlvar to 1
	elseif ( Player->GetArmorer >= 40 )
		messagebox "" "Сделать оружие из железа" "Сделать оружие из стали" "Выйти"
		set Controlvar to 1
	elseif ( Player->GetArmorer >= 20 )
		messagebox "" "Сделать оружие из железа" "Выйти"
		set Controlvar to 1
	else
		messagebox "Вы ничего не можете сковать" "Выйти"
		set Controlvar to 1
	endif
	if ( Controlvar == 1 )
		if ( Button == 0 )
			set ControlVar to 2 ; эбонит
			messagebox "Что вы хотите сковать?" "Эбонитовый длинный меч" "Эбонитовый топор" "Эбонитовое копье" "Выйти"
			if ( Button == 0 ) ; меч
				if ( ControlVar == 2 )
					if ( Player->GetItemCount Ebony_Longsword_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Ebony_longsword_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Ebony Longsword" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 2 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			elseif ( Button == 1 ) ; топор
				if ( ControlVar == 2 )
					if ( Player->GetItemCount Ebony_war_axe_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Ebony_war_axe_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Ebony war axe" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 2 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			elseif ( Button == 2 ) ; копье
				if ( ControlVar == 2 )
					if ( Player->GetItemCount Ebony_spear_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Ebony_spear_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Ebony spear" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 2 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			endif
		elseif ( Button == 1 )
			set ControlVar to 3 ; сталь
			messagebox "Что вы хотите сковать?" "Стальной длинный меч" "Стальной топор" "Стальное копье" "Выйти"
			if ( Button == 0 ) ; меч
				if ( ControlVar == 3 )
					if ( Player->GetItemCount _Steel_Longsword_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount _Steel_longsword_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Steel Longsword" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 3 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			elseif ( Button == 1 ) ; топор
				if ( ControlVar == 3 )
					if ( Player->GetItemCount Steel_war_axe_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Steel_war_axe_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Steel war axe" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 3 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			elseif ( Button == 2 ) ; копье
				if ( ControlVar == 3 )
					if ( Player->GetItemCount Steel_spear_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Steel_spear_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Steel spear" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 3 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			endif
		if ( Button == 2 )
			set ControlVar to 4 ; железо
			messagebox "Что вы хотите сковать?" "Железный длинный меч" "Железный топор" "Железное копье" "Выйти"
			if ( Button == 0 ) ; меч
				if ( ControlVar == 4 )
					if ( Player->GetItemCount Iron_Longsword_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Iron_longsword_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Iron Longsword" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 4 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			elseif ( Button == 1 ) ; топор
				if ( ControlVar == 4 )
					if ( Player->GetItemCount Iron_war_axe_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Iron_war_axe_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Iron war axe" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 4 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			elseif ( Button == 2 ) ; копье
				if ( ControlVar == 4 )
					if ( Player->GetItemCount Iron_spear_Resept == 0 )
						messagebox "У вас нет рецепта для ковки" "Ок"
					elseif ( Player->GetItemCount Iron_spear_Resept )
						if ( Player->GetItemCOunt Craft_Item_1 >= 3 )
							if ( Player->GetItemCOunt Craft_Item_2 >= 3 )
								if ( Player->GetItemCOunt Craft_Item_3 >= 3 )
									set Timer to Timer + GetSecondsPassed
									fadein 2
									if ( Timer >= 2 )
										set GameHour to GameHour + 2 ; проходит 2 часа...
										fadeout 2
										set timer to 0
										set Controlvar to 20 ; оружие доделано
										player->Additem "Iron long spear" 1
									endif
								endif
							endif
						endif
						if ( ControlVar == 4 )
							messagebox "У вас недостаточно материалов для ковки" "Ок"
							set Controlvar to 19
						endif
					endif
				endif
			endif
		endif
	endif
endif

END