[PROBLEMA] script per fillare bod 0.1 bodfiller

[dopulus]

;===================================;
;= PARSING SUBS ====================;
;===================================;

sub getBodName
	gosub s7GetProperty %1 A , #spc , Bulk , #spc , Order , #spc , Deed$
	set %s7BFLbodExceptional n
	if exceptional in #property
		set %s7BFLbodExceptional x
	str pos #property make:
	set %pos #strRes + 3
	str del #property 1 %pos
	set %s7BFItemString #strRes
	str pos %s7BFItemString :
	set %pos #strRes + 1
	str pos %s7BFItemString $
	set %len #strRes - %pos
	str mid %s7BFItemString %pos %len
	set %s7BFLBodCnt #strRes
	str del %s7BFItemString 1 5
	set %s7BFItemString #strRes
	str pos %s7BFItemString :
	set #strres #strres - 1
	str left %s7BFItemString #strRes
	set !gbi_item1 #strRes
	if large , #spc , bulk in #property
	{
		if cutlass in !gbi_item1 || katana in !gbi_item1 || scimitar in !gbi_item1 || broad in !gbi_item1 || longsword in !gbi_item1 || viking in !gbi_item1
			set %lbod Swords
		if kryss in !gbi_item1 || spear in !gbi_item1 || warfork in !gbi_item1 || dagger in !gbi_item1
			set %lbod Piercing
		if axe in !gbi_item1 && war notin !gbi_item1
			set %lbod Axes
		if mace in !gbi_item1 || maul in !gbi_item1 || hammer in !gbi_item1 || war , #spc , axe in !gbi_item1
			set %lbod Bashing
		if bardiche in !gbi_item1 || halberd in !gbi_item1
			set %lbod Polearms
		if chainmail in !gbi_item1
			set %lbod Chainmail
		if ringmail in !gbi_item1
			set %lbod Ringmail
		if gorget in !gbi_item1
			set %lbod Studded , #spc , Set
		if plate in !gbi_item1 || plate in !gbi_item
			set %lbod Platemail
		if sandals in !gbi_item1
			set %lbod Footwear , #spc , Set
		if gorget in !gbi_item1
			set %lbod Leather , #spc , Set
		if skirt in !gbi_item1
			set %lbod Female , #spc , Set
		if bone in !gbi_item1
			set %lbod Bone , #spc , AR
		if bandana in !gbi_item1
			set %lbod The , #spc , Gypsy
		if skullcap in !gbi_item1
			set %lbod The , #spc , Pirate
		if straw in !gbi_item1
			set %lbod The , #spc , Farmer
		if wizard in !gbi_item1
			set %lbod The , #spc , Wizard
		if floppy in !gbi_item1
			set %lbod Fishergirl
		if feathered in !gbi_item1
			set %lbod Town , #spc , Crier
		if bonnet in !gbi_item1
			set %lbod The , #spc , Lady
		if jester in !gbi_item1
			set %lbod The , #spc , Jester
		if tricorne in !gbi_item1
			set %lbod The , #spc , Hat-Set
		return %s7BFLbodCnt , %s7bflbodexceptional , #spc , large , #spc , bod , #spc , " , %lbod , "
	}
	if small , #spc , bulk in #property
	return %s7BFLbodCnt , %s7BFLBodExceptional , #spc , !gbi_item1

;///////////////////////////////////;
; getYContsize
; gets the height of a gump, used for clicking the combine button
;///////////////////////////////////;
sub getYContsize
	str len #contsize
	set %CSL #strRes
	str pos #contsize _
	set %CSFR %CSL - #strRes
	str right #contsize %CSFR
return #strRes

forse il problema e' qua ?