Post: #3

Hi,
Thank you it did work, but i am still getting few more errors:

17:25:ERROR:(farm_system.scp,548)Can't resolve <ISBADSTR Ferma>
17:25:ERROR:(farm_system.scp,548)Undefined symbol ''
17:27:ERROR:(farm_system.scp,553)Can't resolve <SRC.TOTALGOLD>
17:27:ERROR:(farm_system.scp,553)Undefined symbol ''


[DIALOG d_farm BUTTON]
ON=1
IF !(<ISBADSTR <ARGTXT[0]>>) // line 548
NAME=<STRSUB 0 30 <ARGTXT[0]>>
ENDIF

ON=2
IF !(<SRC.TOTALGOLD> > <EVAL (<UID.<REGION.UID>.VALUE>/10)-1>) && !(<SRC.ISGM>) //line 553
src.sysmessage Insuficient funds.
SDIALOG d_farm 1
ELSE
src.consumegold <EVAL <UID.<REGION.UID>.VALUE>/10>
local.tmp=<obj>
obj=<uid.<region.uid>.more1>
obj.account.tag0.jatenhofarms -= 1
IF !(<OBJ.ACCOUNT.TAG0.JATENHOFARMS>)
obj.account.tag.jatenhofarms
ENDIF
obj=<local.tmp>
serv.newitem i_deed_farm<strsub -2 0 <UID.<REGION.UID>.BASEID>>
new.bounce
try uid.<REGION.UID>.f_remove_farm
ENDIF

[FUNCTION f_remove_farm]
LOCAL.TMP=<UID>
OBJ=<UID>
FORITEMS 15
IF (<REGION.UID>==<OBJ>) && (<UID>!=<OBJ>)
REMOVE
ENDIF
ENDFOR
OBJ.REMOVE
OBJ=<LOCAL.TMP>