56b vendor menusu satış yapmıo

Arkadaşlar kusura bakmayın vendor menusunu koyamadım çok uzun ben kısaca hatayı veriorum hata şu

17:00:ERROR:(vendor_menuleri.scp,4163)Can't resolve <args1>
17:00:ERROR:(vendor_menuleri.scp,4164)Undefined keyword 'AMOUNT'
17:00:ERROR:(vendor_menuleri.scp,4164)Undefined keyword 'AMOUNT'

Bu konu nicole tarafından düzenlendi(2007-09-17 17:08, 16 yıl önce)

ok tmm

tm hatayı koydum functionlarda burda

[function packo]
try src.tag.<uid> <rescount>
packo_loop <args>

[function packo_loop]
if (<eval <src.tag.<uid>>> > 0)
	try src.tag.<uid> <eval (<src.tag.<uid>> - 1)>
	//if (strmatch('<findcont.<eval <src.tag.<uid>>>.type>','t_container'))
	//	try findcont.<eval <src.tag.<uid>>>.packo <args>
	//else
		try findcont.<eval <src.tag.<uid>>>.<args>
	//endif
	packo_loop <args>
else
	try src.tag.<uid>
endif

[function gp]
var.gp 0
//findlayer(21).packo gp_ctrl
findlayer(29).packo gp_ctrl
return <eval <var.gp>>

[function gp_ctrl]
if (strmatch('<baseid>','i_gold'))
	var.gp <eval (<var.gp> + <amount>)>
endif

[function gpconsume]
var.gp <argn>
//findlayer(21).packo gpconsume_ctrl <argn>
findlayer(29).packo gpconsume_ctrl <argn>
return 1

[function gpconsume_ctrl]
if ((<var.gp> > 0) && (strmatch('<baseid>','i_gold')))
	if (<amount> > <eval (<var.gp>)>)
		amount <eval (<amount> - <var.gp>)>
		var.gp 0
	else
		var.gp <eval (<var.gp> - <amount>)>
		remove
	endif
endif

ve

[Function hatalirakam]
if (strmatch('<args>','*')) || (strmatch('<args>','"'))
return 1
elseif !(<isnum <args>>)
Else
Return 0
Endif


[function totalgold]
RETURN <eval <rescount <def.cmoney>>+<findlayer.29.rescount <def.cmoney>>>


[FUNCTION parayial]
IF (<totalgold> < <ARGN1>)
RETURN 1
ENDIF
LOCAL.AMOUNT=<ARGN1>
WHILE (<LOCAL.AMOUNT>)
IF (0<FINDLAYER.21.FINDID.i_gold>)
LOCAL.GOLD=<FINDLAYER.21.FINDID.i_gold.amount>
IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0)
FINDLAYER.21.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT>
LOCAL.AMOUNT=0
ELSE
FINDLAYER.21.FINDID.i_gold.remove
LOCAL.AMOUNT -= <LOCAL.GOLD>
ENDIF
ELIF (0<FINDLAYER.29.FINDID.i_gold>)
LOCAL.GOLD=<FINDLAYER.29.FINDID.i_gold.amount>
IF (<EVAL <LOCAL.AMOUNT>-<LOCAL.GOLD>> < 0)
FINDLAYER.29.FINDID.i_gold.AMOUNT -= <LOCAL.AMOUNT>
LOCAL.AMOUNT=0
ELSE
FINDLAYER.29.FINDID.i_gold.remove
LOCAL.AMOUNT -= <LOCAL.GOLD>
ENDIF
ENDIF
ENDWHILE
UPDATE


[Function itemiver]
FOR <argv[1]>
src.NEWITEM <args1>
src.act.AMOUNT 1
src.act.bounce
ENDFOR

[Function itemiveramo]
Src.Newitem <args1>
Src.Act.Bounce


[FUNCTION ARGV] 
LOCAL.COUNT=<STRARG <ARGS>> 
CALL ARGV_AUX <STREAT <ARGS>> 
IF (<ISEMPTY <VAR.STRING>>) 
RETURN 
ELSE 
LOCAL.STRING=<VAR.STRING> 
VAR.STRING= 
RETURN <LOCAL.STRING> 
ENDIF 

[FUNCTION ARGV_AUX] 
VAR.STRING=<ARGV[<eval <LOCAL.COUNT>>]>

[DEFNAME vendorsatis]
cmoney i_gold

[function esyaaldimi]
if (strmatch("0","<args>"))
src.sms Herhangi bir esya satin almamissiniz!
return 1
else
return 0
endif

https://uploaded.to/?id=3vbwog

indir ve scplerin içine at

tmm ragnar oldu saol