Sorry your browser is not supported!

DIM ItemAttributes$(100)

`STR AGG INT HP MANA
Stats$="10 5 5 null -70"
str = 10
agg = 15
intel = 10
hp = 125
mana = 75

Split String Stats$," "

Count=Split count()

for stat = 1 to Count
     ItemAttributes$(stat)=get split word$(stat)
next stat

	if ItemAttributes$(1) <> "null"
		str = str+val(ItemAttributes$(1))
	endif
	if ItemAttributes$(2) <> "null"
		agg = agg+val(ItemAttributes$(2))
	endif
	if ItemAttributes$(3) <> "null"
		intel =intel+val(ItemAttributes$(3))
	endif
	if ItemAttributes$(4) <> "null"
		hp =hp+val(ItemAttributes$(4))
	endif
	if ItemAttributes$(5) <> "null"
		mana =mana+val(ItemAttributes$(5))
	endif

text 0,0,"str: "+str$(str)
text 0,20,"agg: "+str$(agg)
text 0,40,"int: "+str$(intel)
text 0,60,"hp: "+str$(hp)
text 0,80,"mana: "+str$(mana)

wait key

   И    Ђ=яFlame Sword

яяяяType: One-Hand Weapon
  ЂяDrop: Common
яяяяDamage: 42 - 47
 Ђ=яMighty Sword forged in Fire Mountains.It can be wield only by true hero.It`s power it`s so big that who cary it, suffer the flames, too.
	  яяChance to take 5% of each hit.
0 	0 	0 	0 		0 		42 		47 		5

sync on : sync rate 0
backdrop on
FileID = find free datafile()
ItemID = 1

Filename$ = "Item"+str$(ItemID)+".itm"
while file exist("Item"+str$(ItemID)+".itm") = 1
	inc ItemID
	Filename$ = "Item"+str$(ItemID)+".itm"
endwhile
open datafile to write FileID,Filename$
`TEXT COUNT OF ITEM DESCRIPTION TEXTS
write datafile integer FileID,5
`BOX HEIGHT
write datafile integer FileID,200
`ITEM DESCRIPTIONS,TEXT COLORS AND LINE TO DRAW THEM TO
write datafile dword FileID, RGB(61,128,0)
write datafile string FileID,"Ice Wand"
write datafile byte FileID,1
write datafile dword FileID, RGB(255,255,255)
write datafile string FileID,"Type: One-Hand Weapon"
write datafile byte FileID,3
`common RGB(128,0,0), rare RGB(192,87,255)
write datafile dword FileID, RGB(192,87,255)
write datafile string FileID,"Drop: Rare"
write datafile byte FileID,5
write datafile dword FileID, RGB(255,255,255)
write datafile string FileID,"Damage: 55 - 65"
write datafile byte FileID,7
write datafile dword FileID, RGB(61,128,0)
write datafile string FileID,"Wand made from nevermelting ice, by Wizzards of Wind once lived in winter mountains of Suri Sad.For long time forgoten, for long time lost, but posesing it`s full power still, and waiting it`s true master."
write datafile byte FileID,9
`ITEM ATTRIBUTES
`ALIGN WITH TAB ONLY!SPACE MESS THIS UP!
` 					  		 STR 	AGG INT HP 		MANA 	MIN_DMG MAX_DMG CRITICAL
write datafile string FileID,"0 	0 	0 	0 		0 		55 		65 		0"
inc ItemID
close datafile FileID
do

text 0,0,"Filename$ = "+Filename$
text 0,20,"ItemID = "+str$(ItemID)

`until datafile exist(FileID) = 0



	sync
LOOP

// header and class declare
wpnDef wpnBluesword {

   // main params or attributes
   name					= Bluesword
   weight				= 9.0
   description				= sword_bluesword	 // loc of string table
   visual				= sword/bluesword
   quality                              = rare
   cost                                 = 111, 88		 // cost, sell cost
   type					= OHSWORD 		 // one-hand sword
   speed				= 1.5
   damage				= 80.0, 36.0		 // max, min
   condition				= 100
   restrictLevel			= 15

   // functions
   {
      chanceOnHit
      spell				= splBlueAsh
   }
}

wpnDef wpnTailblade {

   name					= Tailblade
   description				= sword_tailblade
   visual				= sword/tailblade
   cost                                 = 123, 44
   type					= OHSWORD
   damage				= 150.0, 100.0, 86.0	// max, min, per second
   condition				= 100
   addStamina				= 25
}

0 	0 	0 	0 		0 		42 		47 		5

0 0 0 0 0 42 47 5