BEGIN Crafting_sct

short Button
short Controlvar
short Once
float timer

set Button to GetButtonPressed

if ( ControlVar == 20 )
	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 )
						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
					endif

				endif
			elseif ( Button == 1 ) ; топор
				if ( ControlVar == 2 )
					if ( 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
					endif
				endif
			elseif ( Button == 2 ) ; копье
				if ( ControlVar == 2 )
					if ( 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 spear" 1
									endif
								endif
							endif
						endif
					endif
				endif
			endif