﻿// ****************************************************** \\
// **      Скрипт написан для шарда The SunRise.       ** \\
// ** Использование его на других серверах запрещено.  ** \\
// **                     2002-2003                    ** \\
// ****************************************************** \\

[function f_target_smith_hammer]
        if <src.targ.type>==t_ingot
                if (<src.targ.baseid>==i_ingot_iron)
                        if (<src.blacksmithing><60.0)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 60.0%, чтобы сделать что-либо из <src.targ.name>
                              //return 1
                        endif
                        src.TAG.BS_resource=Iron
                elseif (<src.targ.baseid>==i_ingot_Shadow)
                        if (<src.blacksmithing><78.0)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 78.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Shadow
                elseif (<src.targ.baseid>==i_ingot_agapite)
                        if (<src.blacksmithing><78.0)                                
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 78.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Agapite
                elseif (<src.targ.baseid>==i_ingot_bronze)
                        if (<src.blacksmithing><79.0)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 79.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Bronze
                elseif (<src.targ.baseid>==i_ingot_golden)
                        if (<src.blacksmithing><80.0)                              
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 80.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Golden
                elseif (<src.targ.baseid>==i_ingot_crystal)
                        if (<src.blacksmithing><85.0)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 85.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Crystal
                elseif (<src.targ.baseid>==i_ingot_silver)
                        if (<src.blacksmithing><87.5)                              
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 87.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Silver
                elseif (<src.targ.baseid>==i_ingot_bloodrock)
                        if (<src.blacksmithing><87.5)                           
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 87.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=BloodRock
                elseif (<src.targ.baseid>==i_ingot_aqua)
                        if (<src.blacksmithing><91.0)                             
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 91.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Aqua
                elseif (<src.targ.baseid>==i_ingot_verite)
                        if (<src.blacksmithing><92.0)                              
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 92.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Verite
                elseif (<src.targ.baseid>==i_ingot_ice)
                        if (<src.blacksmithing><92.5)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 92.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Ice
                elseif (<src.targ.baseid>==i_ingot_fire)
                        if (<src.blacksmithing><92.5)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 92.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Fire
                elseif (<src.targ.baseid>==i_ingot_valorite)
                        if (<src.blacksmithing><93.0)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 93.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Valorite
                elseif (<src.targ.baseid>==i_ingot_steel)
                        if (<src.blacksmithing><93.5)                               
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 93.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Steel
                elseif (<src.targ.baseid>==i_ingot_obsidian)
                        if (<src.blacksmithing><94.5)                              
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 94.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Obsidian
                elseif (<src.targ.baseid>==i_ingot_acid)
                        if (<src.blacksmithing><95.0)                           
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 95.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Acid
                elseif (<src.targ.baseid>==i_ingot_darksteel)
                        if (<src.blacksmithing><96.5)                             
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 96.5%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=DarkSteel
                elseif <src.targ.baseid>==i_ingot_blackrock
                        if (<src.blacksmithing><98.0)                            
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 98.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=BlackRock
                elseif <src.targ.baseid>==i_ingot_mytheril
                        if (<src.blacksmithing><100.0)                                
                                src.sysmessageu Вам необходимы скил Blacksmihing равный 100.0%, чтобы сделать что-либо из <src.targ.name>
                                return 1
                        endif
                        src.TAG.BS_resource=Mytheril
                else
                        src.sysmessageu Вы не знаете что можно сделать из <src.targ.name>
                        return 1
                endif
                src.sfx 42
                SRC.dialog d_blacksmith
                return 1
        endif

////////////////////////////////////////////////////////////////////////////
// Dialog ***
////////////////////////////////////////////////////////////////////////////

[DIALOG d_blacksmith_other]
150,100
resizepic 25 0 2600 500 380 
resizepic 45 60 5100 450 25 
resizepic 45 280 5100 450 25 
page 0 
button 100 310 3 4 1 0 2 
button 340 338 242 241 1 0 0 
button 410 338 247 248 1 0 1 
text 125 307 995 0 
text 125 327 995 1 
radio 297 308 210 211 0 1 // Nails
tilepic 300 307 4142 // Nails
text 335 305 995 2

button 511 55 232 231 1 0 10
button 511 125 235 234 1 0 11
gumppic 511 195 229

button 225 63 5209 5003 0 1 0 
text 120 60 0 3
button 245 283 5209 5003 0 2 0 
text 80 280 0 7
button 466 283 5209 5003 0 3 0 
text 290 280 0 8 

page 1
text 240 25 995 3

tilepic 97 110 6566
tilepic 140 140 6558
tilepic 120 120 6562
radio 130 200 210 211 0 11 // Large Forge [East]
tilepic 199 140 6546
tilepic 220 120 6550
tilepic 243 110 6554
radio 230 200 210 211 0 12 // Large Forge [East]
text 147 217 995 6
tilepic 330 130 4017
text 310 180 995 4
radio 305 150 210 211 0 13 // Forge
tilepic 420 130 4016
text 400 180 995 5
radio 400 150 210 211 0 14 // Anvil

page 2
text 200 25 995 7
tilepic 90 110 5486
radio 123 105 210 211 0 21
tilepic 130 110 5487 
tilepic 90 190 5488
radio 123 185 210 211 0 22
tilepic 130 190 5489 

tilepic 190 120 5490
radio 223 105 210 211 0 23
tilepic 230 120 5491 
tilepic 190 200 5492
radio 223 185 210 211 0 24
tilepic 230 200 5493 

tilepic 290 110 5494
radio 318 105 210 211 0 25
tilepic 330 110 5495 
tilepic 290 190 5496
radio 318 185 210 211 0 26
tilepic 320 190 5497 

tilepic 380 120 5498
radio 413 105 210 211 0 27
tilepic 420 120 5499 
tilepic 380 200 5500
radio 413 185 210 211 0 28
tilepic 420 200 5501 

page 3           
text 200 25 995 8

tilepic 90 160 5484
radio 123 145 210 211 0 31
tilepic 130 160 5485 

tilepic 190 120 5502
radio 223 105 210 211 0 32
tilepic 230 120 5503 
tilepic 190 200 5504
radio 223 185 210 211 0 33
tilepic 230 200 5505 

tilepic 280 110 5506
radio 323 105 210 211 0 34
tilepic 340 110 5685 
tilepic 280 190 5508
radio 323 185 210 211 0 35
tilepic 340 190 5687 

tilepic 380 110 5507
radio 423 105 210 211 0 36
tilepic 440 110 5684 
tilepic 380 190 5509
radio 423 185 210 211 0 37
tilepic 440 190 5686 

[DIALOG d_blacksmith_other TEXT]
Make Last
<SRC.TAG.BS_LASTITEM>
nails
Outfits
Forge
Anvil
Large Forge
Decorative Shields 1            
Decorative Shields 2

[DIALOG d_blacksmith_other BUTTON]
ONBUTTON=0
        return 1

ONBUTTON=2
  if (0<src.tag.bs_lastitemf>==0)    
    src.sysmessageu Вы никогда ранее не пользовались этим скилом.
  else
    TRY <SRC.TAG.BS_LASTITEMf>
  endif
  return 1

ONBUTTON=10
	dialog d_blacksmith
	return 1

ONBUTTON=11
	dialog d_blacksmith_fences
	return 1

ONBUTTON=12
	dialog d_blacksmith_other
	return 1

ONBUTTON=1
IF (<ARGCHK[11]>==1)
  f_bs_create_large_forge_n
ELSEIF (<ARGCHK[12]>==1)
  f_bs_create_large_forge_e
ELSEIF (<ARGCHK[13]>==1)
  f_bs_create_forge
ELSEIF (<ARGCHK[14]>==1)
  f_bs_create_anvil
ELSEIF (<ARGCHK[21]>==1)
  f_bs_create_shield_iron 5486
ELSEIF (<ARGCHK[22]>==1)
  f_bs_create_shield_gold 5488
ELSEIF (<ARGCHK[23]>==1)
  f_bs_create_shield_iron 5490
ELSEIF (<ARGCHK[24]>==1)
  f_bs_create_shield_gold 5492
ELSEIF (<ARGCHK[25]>==1)
  f_bs_create_shield_iron 5494
ELSEIF (<ARGCHK[26]>==1)
  f_bs_create_shield_gold 5496
ELSEIF (<ARGCHK[27]>==1)
  f_bs_create_shield_iron 5498
ELSEIF (<ARGCHK[28]>==1)
  f_bs_create_shield_gold 5500
ELSEIF (<ARGCHK[31]>==1)
  f_bs_create_shield_iron_gold
ELSEIF (<ARGCHK[32]>==1)
  f_bs_create_shield_iron 5502
ELSEIF (<ARGCHK[33]>==1)
  f_bs_create_shield_gold 5504
ELSEIF (<ARGCHK[34]>==1)
  f_bs_create_shield_weapon_iron 5506
ELSEIF (<ARGCHK[35]>==1)
  f_bs_create_shield_weapon_gold 5508
ELSEIF (<ARGCHK[36]>==1)
  f_bs_create_shield_weapon_iron 5507
ELSEIF (<ARGCHK[37]>==1)
  f_bs_create_shield_weapon_gold 5509
ENDIF
return 1


// Fences ///////////////////////////////////////////////////////
////////////////

[DIALOG d_blacksmith_fences]
150,100
resizepic 25 0 2600 500 380 
resizepic 45 60 5100 450 25 
resizepic 45 280 5100 450 25 
page 0 
button 100 310 3 4 1 0 2 
button 340 338 242 241 1 0 0 
button 410 338 247 248 1 0 1 
text 125 307 995 0 
text 125 327 995 1 
radio 297 308 210 211 0 1 // Nails
tilepic 300 307 4142 // Nails
text 335 305 995 2

button 511 55 232 231 1 0 10
gumppic 511 125 234 // 234 1 0 11
button 511 195 230 229 1 0 12

text 120 60 0 4
button 255 63 5209 5003 0 1 0 
text 330 60 0 5
button 460 63 5209 5003 0 2 0 
text 120 280 0 6
button 255 283 5208 5003 0 3 0 
text 330 280 0 7
button 460 283 5208 5003 0 4 0 
text 230 25 995 3 

page 1 
tilepic 80 100 2081 
radio 150 100 210 211 0 11
tilepic 220 100 2083 
radio 270 100 210 211 0 13 
tilepic 355 100 2082     
radio 420 100 210 211 0 12 
text 230 240 996 4

page 2 
tilepic 90 100 2088 
radio 120 100 210 211 0 21
tilepic 150 100 2096 
radio 200 100 210 211 0 22 
tilepic 320 100 2090 
radio 350 100 210 211 0 23 
tilepic 360 100 2098 
radio 410 100 210 211 0 23 
text 230 240 996 5

page 3 
tilepic 80 100 2121 
radio 150 100 210 211 0 31
tilepic 220 100 2123 
radio 270 100 210 211 0 33 
tilepic 355 100 2122 
radio 420 100 210 211 0 32 
text 230 240 996 6

page 4 
tilepic 90 100 2084 
radio 120 100 210 211 0 41
tilepic 150 100 2092      
radio 200 100 210 211 0 42 
tilepic 320 100 2086 
radio 350 100 210 211 0 43 
tilepic 360 100 2094 
radio 410 100 210 211 0 44 
text 230 240 996 7

[DIALOG d_blacksmith_fences TEXT]
Make Last
<SRC.TAG.BS_LASTITEM>
nails
Fence Menu          
Large Fences
Gates (in)		//5
Small Fences
Gates (out)

[DIALOG d_blacksmith_fences BUTTON]
ONBUTTON=0
        return 1

ONBUTTON=2
  if (0<src.tag.bs_lastitemf>==0)
    src.sysmessageu Вы никогда ранее не пользовались этим скилом.
  else
    TRY <SRC.TAG.BS_LASTITEMf>
  endif
  return 1

ONBUTTON=10
	dialog d_blacksmith
	return 1

ONBUTTON=11
	dialog d_blacksmith_fences
	return 1

ONBUTTON=12
	dialog d_blacksmith_other
	return 1

ONBUTTON=1
IF (<ARGCHK[11]>==1)
  f_bs_create_iron_fence_large i_fences_iron_1
ELSEIF (<ARGCHK[12]>==1)
  f_bs_create_iron_fence_large i_fences_iron_2
ELSEIF (<ARGCHK[13]>==1)
  f_bs_create_iron_fence_large i_fences_iron_3
ELSEIF (<ARGCHK[21]>==1)
  f_bs_create_iron_gate i_gates_iron_3
ELSEIF (<ARGCHK[22]>==1)
  f_bs_create_iron_gate i_gates_iron_7
ELSEIF (<ARGCHK[23]>==1)
  f_bs_create_iron_gate i_gates_iron_4
ELSEIF (<ARGCHK[24]>==1)
  f_bs_create_iron_gate i_gates_iron_8
ELSEIF (<ARGCHK[31]>==1)
  f_bs_create_iron_fence_small i_fences_iron_4
ELSEIF (<ARGCHK[32]>==1)
  f_bs_create_iron_fence_small i_fences_iron_5
ELSEIF (<ARGCHK[33]>==1)
  f_bs_create_iron_fence_small i_fences_iron_6
ELSEIF (<ARGCHK[41]>==1)
  f_bs_create_iron_gate i_gates_iron_1
ELSEIF (<ARGCHK[42]>==1)
  f_bs_create_iron_gate i_gates_iron_5
ELSEIF (<ARGCHK[43]>==1)
  f_bs_create_iron_gate i_gates_iron_2
ELSEIF (<ARGCHK[44]>==1)
  f_bs_create_iron_gate i_gates_iron_6
ENDIF
return 1
// STD MENU /////////////////////////////////////////////////////
///////////////

[DIALOG d_blacksmith]
150,100
resizepic 25 0 2600 500 380 
resizepic 45 60 5100 450 25 
resizepic 45 280 5100 450 25 
page 0 
button 100 310 3 4 1 0 2 
button 340 338 242 241 1 0 0 
button 410 338 247 248 1 0 1 
text 125 307 995 1 
text 125 327 995 4 
radio 297 308 210 211 0 1 // Nails
tilepic 300 307 4142 // Nails
text 335 305 995 63

gumppic 511 55 231 // 1 0 10
button 511 125 235 234 1 0 11
button 511 195 230 229 1 0 12

button 130 63 5209 5003 0 1 0 
button 240 63 5209 5003 0 2 0 
button 350 63 5209 5003 0 3 0 
button 460 63 5209 5003 0 4 0 
button 115 283 5208 5003 0 5 0 
button 200 283 5208 5003 0 6 0 
button 270 283 5208 5003 0 7 0 
button 365 283 5208 5003 0 8 0 
button 460 283 5208 5003 0 9 0 

text 180 25 995 0 

text 60 60 0 5 
text 163 60 0 6 
text 275 60 0 7 
text 390 60 0 8 
text 60 283 0 9 
text 150 283 0 10 
text 230 283 0 11 
text 300 283 0 12 
text 400 283 0 13 

page 1 // Ringmail
tilepic 100 140 5099 
radio 150 140 210 211 0 11 // Ringmail Gloves
text 100 120 995 14 
tilepic 300 140 5103 
radio 350 140 210 211 0 12 // Ringmail Sleeves
text 300 120 995 15 
tilepic 100 220 5104 
radio 150 220 210 211 0 13 // Ringmail Leggings
text 100 200 995 16 
tilepic 300 220 5100 
radio 350 220 210 211 0 14 // Ringmail Tunic
text 300 200 995 17 

page 2 // Chainmail
tilepic 100 140 5051 
radio 150 140 210 211 0 21 // Chainmail Coif
text 100 120 995 18 
tilepic 300 140 5054 
radio 350 140 210 211 0 22 // Chainmail Leggings
text 300 120 995 19 
tilepic 100 220 5055 
radio 150 220 210 211 0 23 // Chainmail Tunic
text 100 200 995 20 

page 3 // Platemail
tilepic 100 140 5139 
radio 150 140 210 211 0 31 // Platemail Gorget
text 100 120 995 21 
tilepic 250 140 5140 
radio 300 140 210 211 0 32 // Platemail Gauntlets (Gloves)
text 250 120 995 22 
tilepic 400 140 5136 
radio 450 140 210 211 0 33 // Platemail Arms
text 400 120 995 23 
tilepic 100 220 5137 
radio 150 220 210 211 0 34 // Platemail Legs (Leggings)
text 100 200 995 24 
tilepic 250 220 5141 
radio 300 220 210 211 0 35 // Platemail (Chest)
text 250 200 995 25 
tilepic 400 220 7172 
radio 450 220 210 211 0 36 // Platemail (Female)
text 400 200 995 26 

page 4 // Helms
tilepic 100 140 5130 
radio 150 140 210 211 0 41 // Helmet (Open Helm)
text 100 120 995 27 
tilepic 200 140 5132 
radio 250 140 210 211 0 42 // Bascinet
text 200 120 995 28      
tilepic 300 140 5134 
radio 350 140 210 211 0 43 // Nose Helm
text 300 120 995 29 
tilepic 400 140 5128 
radio 450 140 210 211 0 44 // Close Helm
text 400 120 995 30 
tilepic 100 220 5138 
radio 150 220 210 211 0 45 // Plate Helm
text 100 200 995 31 

page 5  //Shields
tilepic 150 140 7027 
radio 200 140 210 211 0 51 // Buckler Shield
text 150 120 995 32 
tilepic 300 140 7035 
radio 350 140 210 211 0 52 // Metal Shield
text 300 120 995 34 
tilepic 150 220 7032 
radio 200 220 210 211 0 53 // Kite Shield (wood)
text 150 200 995 35 
tilepic 300 220 7030 
radio 350 220 210 211 0 54 // Heater Shiled
text 300 200 995 37 

page 6 // Bladed
tilepic 100 140 3921 
radio 150 140 210 211 0 61 // Dagger
text 100 120 995 38 
tilepic 200 140 5185 
radio 250 140 210 211 0 62 // Cutlass
text 200 120 995 39 
tilepic 300 140 5119 
radio 350 140 210 211 0 63 // Katana
text 300 120 995 40 
tilepic 400 140 5121 
radio 450 140 210 211 0 64 // Kryss
text 400 120 995 41 
tilepic 100 220 5046 
radio 150 220 210 211 0 65 // Scimitar
text 100 200 995 42 
tilepic 200 220 3934 
radio 250 220 210 211 0 66 // BroadSword
text 200 200 995 43 
tilepic 282 220 3937 
radio 350 220 210 211 0 67 // LongSword
text 300 200 995 44 
tilepic 400 220 5049 
radio 450 220 210 211 0 68 // Viking Sword
text 400 200 995 45 

page 7 //Axes
tilepic 100 140 3911 
radio 150 140 210 211 0 71 // Battle Axe
text 100 120 995 46 
tilepic 232 140 3909 
radio 300 140 210 211 0 72 // Exec's Axe
text 250 120 995 48 
tilepic 400 140 5187 
radio 450 140 210 211 0 73 // Two handed Axe
text 400 120 995 49 
tilepic 100 220 3915 
radio 150 220 210 211 0 74 // Double Axe
text 100 200 995 50 
tilepic 200 220 3913 
radio 250 220 210 211 0 75 // Axe
text 200 200 995 47 
tilepic 300 220 5040 
radio 350 220 210 211 0 76 // War Axe
text 300 200 995 52 
tilepic 400 220 5115 
radio 450 220 210 211 0 77 // Large Battle Axe
text 400 200 995 51 

page 8 // Polearms
tilepic 82 140 5123 
radio 150 140 210 211 0 81 // Short Spear
text 100 120 995 53 
tilepic 142 140 3938 
radio 250 140 210 211 0 82 // Spear
text 200 120 995 54 
tilepic 300 140 5125 
radio 350 140 210 211 0 83 // War Fork
text 300 120 995 55 
tilepic 360 140 3917 
radio 450 140 210 211 0 84 // Bardiche
text 400 120 995 56 
tilepic 50 220 5183 
radio 150 220 210 211 0 85 // Halberd
text 100 200 995 57 

page 9 // Bashing
tilepic 100 140 3932 
radio 150 140 210 211 0 91 // Mace
text 100 120 995 58 
tilepic 200 140 5179 
radio 250 140 210 211 0 92 // Maul
text 200 120 995 59 
tilepic 300 140 5127 
radio 350 140 210 211 0 93 // War Mace
text 300 120 995 60        
tilepic 400 140 5177 
radio 450 140 210 211 0 94 // War Hammer
text 400 120 995 61 
tilepic 100 220 5181 
radio 150 220 210 211 0 95 // Hammerpick
text 100 200 995 62 

[DIALOG d_blacksmith TEXT]
<SRC.TAG.BS_RESOURCE> Меню Blacksmithing
Make Last
Repair Item //Remove This !!
Smelt Item //Remove This !!
<SRC.TAG.BS_LASTITEM>
Ringmail
Chainmail
Platemail
Helmets
Shields
Bladed
Axes
Polearms
Bashing
ringmail gloves
ringmail sleeves
ringmail leggings
ringmail tunic
chainmail  coif
chainmail leggings
chainmail tunic
platemail gorget
platemail gloves
platemail arms
platemail legs
platemail
female plate
helmet
bascinet
nose helm
close helmet
plate helm
buckler 
bronze shield
metal shield
kite shield
kite shield
heater shield
dagger
cutlass
katana
kryss
scimitar
broadsword
longsword
viking sword
battle axe
axe
executioner's axe
two handed axe
double axe
large battle axe
war axe
short spear
spear
war fork
bardiche
halberd
mace
maul
war mace
war hammer
hammer pick
nails

[DIALOG d_blacksmith BUTTON]
ONBUTTON=0
        return 1

ONBUTTON=2
  if (0<src.tag.bs_lastitemf>==0)
    
    src.sysmessageu Вы не пользовались ранее этим скилом
  else
    TRY <SRC.TAG.BS_LASTITEMf>
  endif
  return 1

ONBUTTON=10
	dialog d_blacksmith
	return 1

ONBUTTON=11
	dialog d_blacksmith_fences
	return 1

ONBUTTON=12
	dialog d_blacksmith_other
	return 1

ONBUTTON=1
IF (<ARGCHK[1]>==1)
  f_bs_create_nails
ELSEIF (<ARGCHK[11]>==1)
  f_bs_create_ringmail_gloves
ELSEIF  (<ARGCHK[12]>==1)
  f_bs_create_ringmail_sleeves
ELSEIF  (<ARGCHK[13]>==1)
  f_bs_create_ringmail_leggings
ELSEIF  (<ARGCHK[14]>==1)
  f_bs_create_ringmail_tunic
ELSEIF  (<ARGCHK[21]>==1)
  f_bs_create_chainmail_coif
ELSEIF  (<ARGCHK[22]>==1)
  f_bs_create_chainmail_leggings
ELSEIF  (<ARGCHK[23]>==1)
  f_bs_create_chainmail_tunic
ELSEIF  (<ARGCHK[31]>==1)
  f_bs_create_platemail_gorget
ELSEIF  (<ARGCHK[32]>==1)
  f_bs_create_platemail_gloves
ELSEIF  (<ARGCHK[33]>==1)
  f_bs_create_platemail_arms
ELSEIF  (<ARGCHK[34]>==1)
  f_bs_create_platemail_legs
ELSEIF  (<ARGCHK[35]>==1)
  f_bs_create_platemail_chest
ELSEIF  (<ARGCHK[36]>==1)
  f_bs_create_platemail_female
ELSEIF  (<ARGCHK[41]>==1)
  f_bs_create_helm_open
ELSEIF  (<ARGCHK[42]>==1)
  f_bs_create_bascinet
ELSEIF  (<ARGCHK[43]>==1)
  f_bs_create_helm_nose
ELSEIF  (<ARGCHK[44]>==1)
  f_bs_create_helm_closed
ELSEIF  (<ARGCHK[45]>==1)
  f_bs_create_platemail_helm
ELSEIF  (<ARGCHK[51]>==1)
  f_bs_create_shield_buckler
ELSEIF  (<ARGCHK[52]>==1)
  f_bs_create_shield_metal
ELSEIF  (<ARGCHK[53]>==1)
  f_bs_create_shield_kite_wood
ELSEIF  (<ARGCHK[54]>==1)
  f_bs_create_shield_heater
ELSEIF  (<ARGCHK[61]>==1)
  f_bs_create_dagger
ELSEIF  (<ARGCHK[62]>==1)
  f_bs_create_cutlass
ELSEIF  (<ARGCHK[63]>==1)
  f_bs_create_katana
ELSEIF  (<ARGCHK[64]>==1)
  f_bs_create_kryss
ELSEIF  (<ARGCHK[65]>==1)
  f_bs_create_scimitar
ELSEIF  (<ARGCHK[66]>==1)
  f_bs_create_broadsword
ELSEIF  (<ARGCHK[67]>==1)
  f_bs_create_longsword
ELSEIF  (<ARGCHK[68]>==1)
  f_bs_create_vikingsword
ELSEIF  (<ARGCHK[71]>==1)
  f_bs_create_axe_battle
ELSEIF  (<ARGCHK[72]>==1)
  f_bs_create_axe_exec
ELSEIF  (<ARGCHK[73]>==1)
  f_bs_create_axe_two_hand
ELSEIF  (<ARGCHK[74]>==1)
  f_bs_create_axe_double
ELSEIF  (<ARGCHK[75]>==1)
  f_bs_create_axe
ELSEIF  (<ARGCHK[76]>==1)
  f_bs_create_axe_war
ELSEIF  (<ARGCHK[77]>==1)
  f_bs_create_battle_large
ELSEIF  (<ARGCHK[81]>==1)
  f_bs_create_spear_short
ELSEIF  (<ARGCHK[82]>==1)
  f_bs_create_spear
ELSEIF  (<ARGCHK[83]>==1)
  f_bs_create_war_fork
ELSEIF  (<ARGCHK[84]>==1)
  f_bs_create_bardiche
ELSEIF  (<ARGCHK[85]>==1)
  f_bs_create_halberd
ELSEIF  (<ARGCHK[91]>==1)
  f_bs_create_mace
ELSEIF  (<ARGCHK[92]>==1)
  f_bs_create_maul
ELSEIF  (<ARGCHK[93]>==1)
  f_bs_create_mace_war
ELSEIF  (<ARGCHK[94]>==1)
  f_bs_create_hammer_war
ELSEIF  (<ARGCHK[95]>==1)
  f_bs_create_hammer_pick
ENDIF
return 1

[FUNCTION f_blacksmith_detect]
if <src.targ.type>==t_ingot
        if <src.targ.baseid>==i_ingot_iron
                src.var.bs_detect=Iron
        endif
        if <src.targ.baseid>==i_ingot_rusty
                src.var.bs_detect=Rusty
        endif
        if <src.targ.baseid>==i_ingot_copper
                src.var.bs_detect=Copper
        endif
        if <src.targ.baseid>==i_ingot_Shadow
                src.var.bs_detect=Shadow
        endif
        if <src.targ.baseid>==i_ingot_agapite
                src.var.bs_detect=Agapite
        endif
        if <src.targ.baseid>==i_ingot_bronze
                src.var.bs_detect=Bronze
        endif
        if <src.targ.baseid>==i_ingot_golden
                src.var.bs_detect=Golden
        endif
        if <src.targ.baseid>==i_ingot_rose
                src.var.bs_detect=Rose
        endif
        if <src.targ.baseid>==i_ingot_crystal
                src.var.bs_detect=Crystal
        endif
        if <src.targ.baseid>==i_ingot_silver
                src.var.bs_detect=Silver
        endif
        if <src.targ.baseid>==i_ingot_bloodrock
                src.var.bs_detect=Blood Rock
        endif
        if <src.targ.baseid>==i_ingot_aqua
                src.var.bs_detect=Aqua
        endif
        if <src.targ.baseid>==i_ingot_verite
                src.var.bs_detect=Verite
        endif
        if <src.targ.baseid>==i_ingot_ice
                src.var.bs_detect=Ice
        endif
        if <src.targ.baseid>==i_ingot_fire
                src.var.bs_detect=Fire
        endif
        if <src.targ.baseid>==i_ingot_valorite
                src.var.bs_detect=Valorite
        endif
        if <src.targ.baseid>==i_ingot_steel
                src.var.bs_detect=Steel
        endif
        if <src.targ.baseid>==i_ingot_obsidian
                src.var.bs_detect=Obsidian
        endif
        if <src.targ.baseid>==i_ingot_acid
                src.var.bs_detect=Acid
        endif
        if <src.targ.baseid>==i_ingot_darksteel
                src.var.bs_detect=Dark Steel
        endif
        if <src.targ.baseid>==i_ingot_blackrock
                src.var.bs_detect=Black Rock
        endif
        if <src.targ.baseid>==i_ingot_mytheril
                src.var.bs_detect=Mytheril
        endif
endif

/////////////////////////////////////////////////////

[function f_bs_create_nails]
        SRC.TAG.BS_LASTITEMf=f_bs_create_nails 
        SRC.TAG.BS_LASTITEM=Nails
        SRC.TAG.BS_LASTITEMx=i_nails
        IF (<SRC.RESTEST 1 i_ingot_iron>)
                SRC.MAKEITEM=i_nails
        ELSE              
                src.sysmessageu Вам необходим 1 Iron Ingot чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_shield_weapon_iron]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_iron <argn>
        SRC.TAG.BS_LASTITEM=Decorative Shield (Iron)
        SRC.TAG.BS_LASTITEMx=<argn>
        IF (<SRC.BLACKSMITHING><90.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 90.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 40 i_ingot_iron>) && (<SRC.RESTEST 1 i_log>)
                SRC.MAKEITEM=<argn>
        ELSE                
                src.sysmessageu Вам необходимо 40 Iron Ingots и 1 Log чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_shield_weapon_gold]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_iron <argn>
        SRC.TAG.BS_LASTITEM=Decorative Shield (Gold)
        SRC.TAG.BS_LASTITEMx=<argn>
        IF (<SRC.BLACKSMITHING><95.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 95.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 40 i_ingot_golden>) && (<SRC.RESTEST 1 i_log>)
                SRC.MAKEITEM=<argn>
        ELSE            
                src.sysmessageu Вам необходимо 40 Golden Ingots и 1 Log чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_shield_iron]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_iron <argn>
        SRC.TAG.BS_LASTITEM=Decorative Shield (Iron)
        SRC.TAG.BS_LASTITEMx=<argn>
        IF (<SRC.BLACKSMITHING><85.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 85.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 40 i_ingot_iron>)
                SRC.MAKEITEM=<argn>
        ELSE              
                src.sysmessageu Вам необходимо 40 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_shield_iron_gold]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_gold <argn>
        SRC.TAG.BS_LASTITEM=Decorative Shield (Golden)
        SRC.TAG.BS_LASTITEMx=5484
        IF (<SRC.BLACKSMITHING><90.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 90.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 20 i_ingot_golden>) && (<SRC.RESTEST 20 i_ingot_golden>)
                SRC.MAKEITEM=5484
        ELSE               
                src.sysmessageu Вам необходимо 20 Golden Ingots и 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_shield_gold]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_gold <argn>
        SRC.TAG.BS_LASTITEM=Decorative Shield (Golden)
        SRC.TAG.BS_LASTITEMx=<argn>
        IF (<SRC.BLACKSMITHING><90.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 90.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 40 i_ingot_golden>)
                SRC.MAKEITEM=<argn>
        ELSE             
                src.sysmessageu Вам необходимо 40 Golden Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_large_forge_n]
        SRC.TAG.BS_LASTITEMf=f_bs_create_large_forge_n 
        SRC.TAG.BS_LASTITEM=Large Forge[North]
        SRC.TAG.BS_LASTITEMx=large_forge_deed_n
        IF (<SRC.BLACKSMITHING><80.0) && (<SRC.CARPENTRY><70.0) && (<SRC.ALCHEMY><60.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 80.0%, Carpentry равный 70.0%, Alchemy равный 60.0 чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 150 i_ingot_iron>) && (<SRC.RESTEST 40 i_log>) && (<SRC.RESTEST 150 i_reag_sulfur_ash>) && (<SRC.RESTEST 1 i_deed>)
                SRC.MAKEITEM=large_forge_deed_n
        ELSE                
                src.sysmessageu Вам необходимо 150 Iron Ingots, 40 Logs, 150 Sulfurous Ash и 1 Deed чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_large_forge_e]
        SRC.TAG.BS_LASTITEMf=f_bs_create_large_forge_e 
        SRC.TAG.BS_LASTITEM=Large Forge[East]
        SRC.TAG.BS_LASTITEMx=large_forge_deed_e
        IF (<SRC.BLACKSMITHING><80.0) && (<SRC.CARPENTRY><70.0) && (<SRC.ALCHEMY><60.0)                
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 80.0% и Carpentry равный 60.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 150 i_ingot_iron>) && (<SRC.RESTEST 40 i_log>) && (<SRC.RESTEST 150 i_reag_sulfur_ash>) && (<SRC.RESTEST 1 i_deed>)
                SRC.MAKEITEM=large_forge_deed_e
        ELSE                
                src.sysmessageu Вам необходимо 150 Iron Ingots, 40 Logs, 150 Sulfurous Аsh и 1 Deed чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_forge]
        SRC.TAG.BS_LASTITEMf=f_bs_create_forge 
        SRC.TAG.BS_LASTITEM=Forge
        SRC.TAG.BS_LASTITEMx=forge_deed
        IF (<SRC.BLACKSMITHING><60.0) && (<SRC.CARPENTRY><50.0) && (<SRC.ALCHEMY><30.0)                
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 60.0% и Carpentry равный 50.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 50 i_ingot_iron>) && (<SRC.RESTEST 20 i_log>) && (<SRC.RESTEST 50 i_reag_sulfur_ash>) && (<SRC.RESTEST 1 i_deed>)
                SRC.MAKEITEM=forge_deed
        ELSE                
                src.sysmessageu Вам необходимо 50 Iron Ingots, 20 Logs, 50 Sulfurous Аsh и 1 Deed чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_anvil]
        SRC.TAG.BS_LASTITEMf=f_bs_create_anvil 
        SRC.TAG.BS_LASTITEM=Anvil
        SRC.TAG.BS_LASTITEMx=anvil_deed
        IF (<SRC.BLACKSMITHING><60.0) && (<SRC.CARPENTRY><50.0)               
                src.sysmessageu Вам необходим cкилл Blacksmithing равный 60.0% и Carpentry равный 50.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 50 i_ingot_iron>) && (<SRC.RESTEST 20 i_log>) && (<SRC.RESTEST 1 i_deed>)
                SRC.MAKEITEM=anvil_deed
        ELSE                
                src.sysmessageu Вам необходимо 50 Iron Ingots, 20 Logs и 1 Deed чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_ringmail_gloves]
        SRC.TAG.BS_LASTITEMf=f_bs_create_ringmail_gloves 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Gloves
                SRC.TAG.BS_LASTITEMx=i_ringmail_gloves
                IF (<SRC.RESTEST 15 i_ingot_iron>)
                        SRC.MAKEITEM=i_ringmail_gloves
                ELSE                       
                        src.sysmessageu Вам необходимо 15 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Gloves
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_ringmail_gloves
                IF (<SRC.RESTEST 15 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_ringmail_gloves
                ELSE                       
                        src.sysmessageu Вам необходимо 15 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_ringmail_sleeves]
        SRC.TAG.BS_LASTITEMf=f_bs_create_ringmail_sleeves 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Sleeves
                SRC.TAG.BS_LASTITEMx=i_ringmail_sleeves
                IF (<SRC.RESTEST 19 i_ingot_iron>)
                        SRC.MAKEITEM=i_ringmail_sleeves
                ELSE                       
                        src.sysmessageu Вам необходимо 19 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Sleeves
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_ringmail_sleeves
                IF (<SRC.RESTEST 19 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_ringmail_sleeves
                ELSE                        
                        src.sysmessageu Вам необходимо 19 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_ringmail_leggings]
        SRC.TAG.BS_LASTITEMf=f_bs_create_ringmail_leggings 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Legging
                SRC.TAG.BS_LASTITEMx=i_ringmail_leggings
                IF (<SRC.RESTEST 21 i_ingot_iron>)
                        SRC.MAKEITEM=i_ringmail_leggings
                ELSE                       
                        src.sysmessageu Вам необходимо 21 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Leggings
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_ringmail_leggings
                IF (<SRC.RESTEST 21 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_ringmail_leggings
                ELSE                        
                        src.sysmessageu Вам необходимо 21 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_ringmail_tunic]
        SRC.TAG.BS_LASTITEMf=f_bs_create_ringmail_tunic 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Tunic
                SRC.TAG.BS_LASTITEMx=i_ringmail_tunic
                IF (<SRC.RESTEST 23 i_ingot_iron>)
                        SRC.MAKEITEM=i_ringmail_tunic
                ELSE                        
                        src.sysmessageu Вам необходимо 23 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Ringmail Tunic
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_ringmail_tunic
                IF (<SRC.RESTEST 23 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_ringmail_tunic
                ELSE                        
                        src.sysmessageu Вам необходимо 23 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_chainmail_coif]
        SRC.TAG.BS_LASTITEMf=f_bs_create_chainmail_coif 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Chainmail Coif
                SRC.TAG.BS_LASTITEMx=i_chainmail_coif
                IF (<SRC.RESTEST 15 i_ingot_iron>)
                        SRC.MAKEITEM=i_chainmail_coif
                ELSE                        
                        src.sysmessageu Вам необходимо 15 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Chainmail Coif
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_chainmail_coif
                IF (<SRC.RESTEST 15 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_chainmail_coif
                ELSE                        
                        src.sysmessageu Вам необходимо 15 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_chainmail_leggings]
        SRC.TAG.BS_LASTITEMf=f_bs_create_chainmail_leggings 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Chainmail Legging
                SRC.TAG.BS_LASTITEMx=i_chainmail_leggings
                IF (<SRC.RESTEST 23 i_ingot_iron>)
                        SRC.MAKEITEM=i_chainmail_leggings
                ELSE                        
                        src.sysmessageu Вам необходимо 23 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Chainmail Leggings
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_chainmail_leggings
                IF (<SRC.RESTEST 23 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_chainmail_leggings
                ELSE                        
                        src.sysmessageu Вам необходимо 23 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_chainmail_tunic]
        SRC.TAG.BS_LASTITEMf=f_bs_create_chainmail_tunic 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Chainmail Tunic
                SRC.TAG.BS_LASTITEMx=i_chainmail_tunic
                IF (<SRC.RESTEST 25 i_ingot_iron>)
                        SRC.MAKEITEM=i_chainmail_tunic
                ELSE                        
                        src.sysmessageu Вам необходимо 25 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Chainmail Tunic
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_chainmail_tunic
                IF (<SRC.RESTEST 25 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_chainmail_tunic
                ELSE                       
                        src.sysmessageu Вам необходимо 25 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_gorget]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_gorget 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Gorget
                SRC.TAG.BS_LASTITEMx=i_platemail_gorget
                IF (<SRC.RESTEST 15 i_ingot_iron>)
                        SRC.MAKEITEM=i_platemail_gorget
                ELSE                       
                        src.sysmessageu Вам необходимо 15 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Gorget
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_platemail_gorget
                IF (<SRC.RESTEST 15 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_platemail_gorget
                ELSE                        
                        src.sysmessageu Вам необходимо 15 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_gloves]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_gloves 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Gloves
                SRC.TAG.BS_LASTITEMx=i_platemail_gloves
                IF (<SRC.RESTEST 15 i_ingot_iron>)
                        SRC.MAKEITEM=i_platemail_gloves
                ELSE                      
                        src.sysmessageu Вам необходимо 15 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Gauntlets
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_platemail_gauntlets
                IF (<SRC.RESTEST 15 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_platemail_gauntlets
                ELSE                       
                        src.sysmessageu Вам необходимо 15 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_arms]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_arms 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Arms
                SRC.TAG.BS_LASTITEMx=i_platemail_arms
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_platemail_arms
                ELSE                        
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Arms
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_platemail_arms
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_platemail_arms
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_legs]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_legs 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Legs
                SRC.TAG.BS_LASTITEMx=i_platemail_leggings
                IF (<SRC.RESTEST 25 i_ingot_iron>)
                        SRC.MAKEITEM=i_platemail_leggings
                ELSE                        
                        src.sysmessageu Вам необходимо 25 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Legs
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_platemail_leggings
                IF (<SRC.RESTEST 25 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_platemail_leggings
                ELSE                        
                        src.sysmessageu Вам необходимо 25 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_chest]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_chest 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Chest
                SRC.TAG.BS_LASTITEMx=i_platemail_chest
                IF (<SRC.RESTEST 30 i_ingot_iron>)
                        SRC.MAKEITEM=i_platemail_chest
                ELSE                        
                        src.sysmessageu Вам необходимо 30 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Chest
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_platemail
                IF (<SRC.RESTEST 30 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_platemail
                ELSE                        
                        src.sysmessageu Вам необходимо 30 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_female]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_female 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Female Platemail
                SRC.TAG.BS_LASTITEMx=i_armor_female_plate
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_armor_female_plate
                ELSE                       
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Female Platemail
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_female_platemail
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_female_platemail
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_helm_open]
        SRC.TAG.BS_LASTITEMf=f_bs_create_helm_open 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Open Helm
                SRC.TAG.BS_LASTITEMx=i_helm_open
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_helm_open
                ELSE                       
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Open Helm
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_helmet
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_helmet
                ELSE                       
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_bascinet]
        SRC.TAG.BS_LASTITEMf=f_bs_create_bascinet 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Bascinet
                SRC.TAG.BS_LASTITEMx=i_bascinet
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_bascinet
                ELSE                        
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Bascinet
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_bascinet
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_bascinet
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_helm_nose]
        SRC.TAG.BS_LASTITEMf=f_bs_create_helm_nose 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Nose Helm
                SRC.TAG.BS_LASTITEMx=i_helm_nose
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_helm_nose
                ELSE                       
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Nose Helm
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_nose_helm
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_nose_helm
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_helm_closed]
        SRC.TAG.BS_LASTITEMf=f_bs_create_helm_closed 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Closed Helm
                SRC.TAG.BS_LASTITEMx=i_helm_closed
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_helm_closed
                ELSE                       
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Closed Helm
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_closed_helm
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_closed_helm
                ELSE                       
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_platemail_helm]
        SRC.TAG.BS_LASTITEMf=f_bs_create_platemail_helm 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Helm
                SRC.TAG.BS_LASTITEMx=i_platemail_helm
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_platemail_helm
                ELSE                        
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Platemail Helm
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_plate_helm
                IF (<SRC.RESTEST 20 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_plate_helm
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_shield_buckler]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_buckler 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Buckler
                SRC.TAG.BS_LASTITEMx=i_shield_buckler
                IF (<SRC.RESTEST 15 i_ingot_iron>)
                        SRC.MAKEITEM=i_shield_buckler
                ELSE                        
                        src.sysmessageu Вам необходимо 15 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Buckler
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_buckler_shield
                IF (<SRC.RESTEST 15 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_buckler_shield
                ELSE                        
                        src.sysmessageu Вам необходимо 15 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_shield_metal]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_metal 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Metal Shield
                SRC.TAG.BS_LASTITEMx=i_shield_round_metal
                IF (<SRC.RESTEST 19 i_ingot_iron>)
                        SRC.MAKEITEM=i_shield_round_metal
                ELSE                       
                        src.sysmessageu Вам необходимо 19 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Metal Shield
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_metal_shield
                IF (<SRC.RESTEST 19 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_metal_shield
                ELSE                        
                        src.sysmessageu Вам необходимо 19 <SRC.TAG.BS_RESOURCE> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_shield_kite_wood]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_kite_wood 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Kite Shield
                SRC.TAG.BS_LASTITEMx=i_shield_kite_wood
                IF (<SRC.RESTEST 21 i_ingot_iron>) && (<SRC.RESTEST 6 i_log>)
                        SRC.MAKEITEM=i_shield_kite_wood
                ELSE                        
                        src.sysmessageu Вам необходимо 21 Iron Ingots и 6 Logs чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
		ENDIF
        ELSEIF (<SRC.RESTEST 21 i_ingot_<SRC.TAG.BS_RESOURCE>>) && (<SRC.RESTEST 6 i_log>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_kite_wood
                        SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Kite Shield
                        SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_kite_wood
                ELSE                        
                        src.sysmessageu Вам необходимо 21 <SRC.TAG.BS_RESOURCE> Ingots и 6 Logs чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_shield_heater]
        SRC.TAG.BS_LASTITEMf=f_bs_create_shield_heater 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Heater Shield
                SRC.TAG.BS_LASTITEMx=i_shield_heater
                IF (<SRC.RESTEST 23 i_ingot_iron>)
                        SRC.MAKEITEM=i_shield_heater
                ELSE                        
                        src.sysmessageu Вам необходимо 23 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Heater Shield
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_heater_shield
                IF (<SRC.RESTEST 23 i_ingot_<SRC.TAG.BS_RESOURCE>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_heater_shield
                ELSE                        
                        src.sysmessageu Вам необходимо 23 <SRC.TAG.BS_RESOURCE> чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_dagger]
        SRC.TAG.BS_LASTITEMf=f_bs_create_dagger 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.MAKEITEM=i_dagger
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Dagger
                IF (<SRC.RESTEST 6 i_ingot_iron>)

                        SRC.TAG.BS_LASTITEMx=i_dagger
                ELSE                      
                        src.sysmessageu Вам необходимо 6 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF

        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Dagger
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_dagger
                IF (<SRC.RESTEST 6 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_dagger
                ELSE
                        src.sysmessageu Вам необходимо 6 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF

        ENDIF

[function f_bs_create_cutlass]
        SRC.TAG.BS_LASTITEMf=f_bs_create_cutlass 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Cutlass
                SRC.TAG.BS_LASTITEMx=i_cutlass
                IF (<SRC.RESTEST 16 i_ingot_iron>)
                        SRC.MAKEITEM=i_cutlass
                ELSE                        
                        src.sysmessageu Вам необходимо 16 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Cutlass
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_cutlass
                IF (<SRC.RESTEST 16 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_cutlass
                ELSE                        
                        src.sysmessageu Вам необходимо 16 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_katana]
        SRC.TAG.BS_LASTITEMf=f_bs_create_katana 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Katana
                SRC.TAG.BS_LASTITEMx=i_katana
                IF (<SRC.RESTEST 16 i_ingot_iron>)
                        SRC.MAKEITEM=i_katana
                ELSE           
                        src.sysmessageu Вам необходимо 16 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Katana
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_katana
                IF (<SRC.RESTEST 16 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_katana
                ELSE                        
                        src.sysmessageu Вам необходимо 16 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_kryss]
        SRC.TAG.BS_LASTITEMf=f_bs_create_kryss 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Kryss
                SRC.TAG.BS_LASTITEMx=i_kryss
                IF (<SRC.RESTEST 16 i_ingot_iron>)
                        SRC.MAKEITEM=i_kryss
                ELSE
                        src.sysmessageu Вам необходимо 16 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Kryss
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_kryss
                IF (<SRC.RESTEST 16 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_kryss
                ELSE                        
                        src.sysmessageu Вам необходимо 16 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_scimitar]
        SRC.TAG.BS_LASTITEMf=f_bs_create_scimitar 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Scimitar
                SRC.TAG.BS_LASTITEMx=i_scimitar
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_scimitar
                ELSE                        
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Scimitar
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_scimitar
                IF (<SRC.RESTEST 20 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_scimitar
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_broadsword]
        SRC.TAG.BS_LASTITEMf=f_bs_create_broadsword 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Broadsword
                SRC.TAG.BS_LASTITEMx=i_sword_broad
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_sword_broad
                ELSE                       
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Broadsword
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_sword_broad
                IF (<SRC.RESTEST 20 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_sword_broad
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_longsword]
        SRC.TAG.BS_LASTITEMf=f_bs_create_longsword 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Longsword
                SRC.TAG.BS_LASTITEMx=i_sword_long
                IF (<SRC.RESTEST 24 i_ingot_iron>)
                        SRC.MAKEITEM=i_sword_long
                ELSE                        
                        src.sysmessageu Вам необходимо 24 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Longsword
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_sword_long
                IF (<SRC.RESTEST 24 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_sword_long
                ELSE                        
                        src.sysmessageu Вам необходимо 24 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_vikingsword]
        SRC.TAG.BS_LASTITEMf=f_bs_create_vikingsword 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Viking Sword
                SRC.TAG.BS_LASTITEMx=i_sword_viking
                IF (<SRC.RESTEST 28 i_ingot_iron>)
                        SRC.MAKEITEM=i_sword_viking
                ELSE                        
                        src.sysmessageu Вам необходимо 28 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Viking Sword
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_sword_viking
                IF (<SRC.RESTEST 28 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_sword_viking
                ELSE                       
                        src.sysmessageu Вам необходимо 28 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_axe_battle]
        SRC.TAG.BS_LASTITEMf=f_bs_create_axe_battle 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Battle Axe
                SRC.TAG.BS_LASTITEMx=i_axe_battle
                IF (<SRC.RESTEST 28 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe_battle
                ELSE                        
                        src.sysmessageu Вам необходимо 28 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Battle Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe_battle
                IF (<SRC.RESTEST 28 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe_battle
                ELSE                       
                        src.sysmessageu Вам необходимо 28 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_axe_exec]
        SRC.TAG.BS_LASTITEMf=f_bs_create_axe_exec 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Executioner's Axe
                SRC.TAG.BS_LASTITEMx=i_axe_exec
                IF (<SRC.RESTEST 32 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe_exec
                ELSE                        
                        src.sysmessageu Вам необходимо 32 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Executioner's Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe_exec
                IF (<SRC.RESTEST 32 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe_exec
                ELSE                       
                        src.sysmessageu Вам необходимо 32 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_axe_two_hand]
        SRC.TAG.BS_LASTITEMf=f_bs_create_axe_two_hand 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Two Handed Axe
                SRC.TAG.BS_LASTITEMx=i_axe_two_hand
                IF (<SRC.RESTEST 32 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe_two_hand
                ELSE                        
                        src.sysmessageu Вам необходимо 32 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Two Handed Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe_two_hand
                IF (<SRC.RESTEST 32 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe_two_hand
                ELSE                        
                        src.sysmessageu Вам необходимо 32 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_axe_double]
        SRC.TAG.BS_LASTITEMf=f_bs_create_axe_double 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Double Axe
                SRC.TAG.BS_LASTITEMx=i_axe_double
                IF (<SRC.RESTEST 24 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe_double
                ELSE                        
                        src.sysmessageu Вам необходимо 24 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Double Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe_double
                IF (<SRC.RESTEST 24 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe_double
                ELSE                       
                        src.sysmessageu Вам необходимо 24 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_axe]
        SRC.TAG.BS_LASTITEMf=f_bs_create_axe 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Axe
                SRC.TAG.BS_LASTITEMx=i_axe
                IF (<SRC.RESTEST 28 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe
                ELSE                        
                        src.sysmessageu Вам необходимо 28 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe
                IF (<SRC.RESTEST 28 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe
                ELSE                        
                        src.sysmessageu Вам необходимо 28 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_axe_war]
        SRC.TAG.BS_LASTITEMf=f_bs_create_axe_war 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Axe
                SRC.TAG.BS_LASTITEMx=i_axe_war
                IF (<SRC.RESTEST 32 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe_war
                ELSE                        
                        src.sysmessageu Вам необходимо 32 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe_war
                IF (<SRC.RESTEST 32 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe_war
                ELSE                        
                        src.sysmessageu Вам необходимо 32 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_battle_large]
        SRC.TAG.BS_LASTITEMf=f_bs_create_battle_large 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Large Battle Axe
                SRC.TAG.BS_LASTITEMx=i_axe_battle_large
                IF (<SRC.RESTEST 28 i_ingot_iron>)
                        SRC.MAKEITEM=i_axe_battle_large
                ELSE                        
                        src.sysmessageu Вам необходимо 28 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Large Battle Axe
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_axe_battle_large
                IF (<SRC.RESTEST 28 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_axe_battle_large
                ELSE                        
                        src.sysmessageu Вам необходимо 28 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_spear_short]
        SRC.TAG.BS_LASTITEMf=f_bs_create_spear_short 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Short Spear
                SRC.TAG.BS_LASTITEMx=i_spear_short
                IF (<SRC.RESTEST 24 i_ingot_iron>)
                        SRC.MAKEITEM=i_spear_short
                ELSE                       
                        src.sysmessageu Вам необходимо 24 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Short Spear
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_spear_short
                IF (<SRC.RESTEST 24 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_spear_short
                ELSE                        
                        src.sysmessageu Вам необходимо 24 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_spear]
        SRC.TAG.BS_LASTITEMf=f_bs_create_spear 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Spear
                SRC.TAG.BS_LASTITEMx=i_spear
                IF (<SRC.RESTEST 32 i_ingot_iron>)
                        SRC.MAKEITEM=i_spear
                ELSE                       
                        src.sysmessageu Вам необходимо 32 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Spear
                IF (<SRC.RESTEST 32 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_spear
                        SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_spear
                ELSE                       
                        src.sysmessageu Вам необходимо 32 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_war_fork]
        SRC.TAG.BS_LASTITEMf=f_bs_create_war_fork 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Fork
                SRC.TAG.BS_LASTITEMx=i_war_fork
                IF (<SRC.RESTEST 24 i_ingot_iron>)
                        SRC.MAKEITEM=i_war_fork
                ELSE                        
                        src.sysmessageu Вам необходимо 24 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Fork
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_war_fork
                IF (<SRC.RESTEST 24 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_war_fork
                ELSE                        
                        src.sysmessageu Вам необходимо 24 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_bardiche]
        SRC.TAG.BS_LASTITEMf=f_bs_create_bardiche 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Bardiche
                SRC.TAG.BS_LASTITEMx=i_bardiche
                IF (<SRC.RESTEST 40 i_ingot_iron>)
                        SRC.MAKEITEM=i_bardiche
                ELSE                        
                        src.sysmessageu Вам необходимо 40 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Bardiche
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_bardiche
                IF (<SRC.RESTEST 40 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_bardiche
                ELSE                        
                        src.sysmessageu Вам необходимо 40 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_halberd]
        SRC.TAG.BS_LASTITEMf=f_bs_create_halberd 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Halberd
                SRC.TAG.BS_LASTITEMx=i_halberd
                IF (<SRC.RESTEST 40 i_ingot_iron>)
                        SRC.MAKEITEM=i_halberd
                ELSE                        
                        src.sysmessageu Вам необходимо 40 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Halberd
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_halberd
                IF (<SRC.RESTEST 40 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_halberd
                ELSE                        
                        src.sysmessageu Вам необходимо 40 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_mace]
        SRC.TAG.BS_LASTITEMf=f_bs_create_mace 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Mace
                SRC.TAG.BS_LASTITEMx=i_mace
                IF (<SRC.RESTEST 12 i_ingot_iron>)
                        SRC.MAKEITEM=i_mace
                ELSE                        
                        src.sysmessageu Вам необходимо 12 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Mace
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_mace
                IF (<SRC.RESTEST 12 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_mace
                ELSE                        
                        src.sysmessageu Вам необходимо 12 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_maul]
        SRC.TAG.BS_LASTITEMf=f_bs_create_maul 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Maul
                SRC.TAG.BS_LASTITEMx=i_maul  
                IF (<SRC.RESTEST 20 i_ingot_iron>)
                        SRC.MAKEITEM=i_maul
                ELSE                        
                        src.sysmessageu Вам необходимо 20 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Maul
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_maul
                IF (<SRC.RESTEST 20 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_maul
                ELSE                        
                        src.sysmessageu Вам необходимо 20 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_mace_war]
        SRC.TAG.BS_LASTITEMf=f_bs_create_mace_war 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Mace
                SRC.TAG.BS_LASTITEMx=i_mace_war
                IF (<SRC.RESTEST 28 i_ingot_iron>)
                        SRC.MAKEITEM=i_mace_war
                ELSE                       
                        src.sysmessageu Вам необходимо 28 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Mace
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_mace_war
                IF (<SRC.RESTEST 28 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_mace_war
                ELSE                       
                        src.sysmessageu Вам необходимо 28 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_hammer_war]
        SRC.TAG.BS_LASTITEMf=f_bs_create_hammer_war 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Hammer
                SRC.TAG.BS_LASTITEMx=i_hammer_war
                IF (<SRC.RESTEST 39 i_ingot_iron>)
                        SRC.MAKEITEM=i_hammer_war
                ELSE                        
                        src.sysmessageu Вам необходимо 39 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> War Hammer
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_hammer_war
                IF (<SRC.RESTEST 39 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_hammer_war
                ELSE                       
                        src.sysmessageu Вам необходимо 39 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_hammer_pick]
        SRC.TAG.BS_LASTITEMf=f_bs_create_hammer_pick 
        IF (<SRC.TARG.BASEID>==i_ingot_iron)
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Hammerpick
                SRC.TAG.BS_LASTITEMx=i_hammer_pick
                IF (<SRC.RESTEST 36 i_ingot_iron>)
                        SRC.MAKEITEM=i_hammer_pick
                ELSE                        
                        src.sysmessageu Вам необходимо 36 Iron Ingots чтобы сделать Hammerpick
                        return 1
                ENDIF
        ELSE
                SRC.TAG.BS_LASTITEM=<src.TAG.BS_resource> Hammerpick
                SRC.TAG.BS_LASTITEMx=i_<SRC.TAG.BS_RESOURCE>_hammer_pick
                IF (<SRC.RESTEST 36 i_ingot_<src.TAG.BS_resource>>)
                        SRC.MAKEITEM=i_<SRC.TAG.BS_RESOURCE>_hammer_pick
                ELSE                        
                        src.sysmessageu Вам необходимо 36 <src.TAG.BS_resource> Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                        return 1
                ENDIF
        ENDIF

[function f_bs_create_iron_fence_large]
        SRC.TAG.BS_LASTITEMf=f_bs_create_iron_fence_large <args>
        SRC.TAG.BS_LASTITEM=Large Iron fence
        SRC.TAG.BS_LASTITEMx=<args>
        IF (<SRC.BLACKSMITHING><80.0)              
                src.sysmessageu Вам необходим cкилл Blacksmihing равный 80.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 40 i_ingot_iron>)
                SRC.MAKEITEM=<args>
        ELSE          
                src.sysmessageu Вам необходимо 40 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_iron_fence_small]
        SRC.TAG.BS_LASTITEMf=f_bs_create_iron_fence_small <args>
        SRC.TAG.BS_LASTITEM=Small Iron fence
        SRC.TAG.BS_LASTITEMx=<args>
        IF (<SRC.BLACKSMITHING><70.0)               
                src.sysmessageu Вам необходим cкилл Blacksmihing равный 70.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 30 i_ingot_iron>)
                SRC.MAKEITEM=<args>
        ELSE                
                src.sysmessageu Вам необходимо 30 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

[function f_bs_create_iron_gate]
        SRC.TAG.BS_LASTITEMf=f_bs_create_iron_gate <args>
        SRC.TAG.BS_LASTITEM=Iron Gate
        SRC.TAG.BS_LASTITEMx=<args>
        IF (<SRC.BLACKSMITHING><70.0)                
                src.sysmessageu Вам необходим cкилл Blacksmihing равный 70.0% чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF
        IF (<SRC.RESTEST 50 i_ingot_iron>)
                SRC.MAKEITEM=<args>
        ELSE
                src.sysmessageu Вам необходимо 50 Iron Ingots чтобы сделать <SRC.TAG.BS_LASTITEM>
                return 1
        ENDIF

