|
İçerde : 1 misafir, 0 üye : ---
|
[function gp_ctrl]
if (strmatch('<baseid>','i_gold'))
var.gp <eval (<var.gp> + <amount>)>
///endif
return 1
// *********************
// ALTINSAL FONKSIYONLAR
// *********************
[function packo] // (special thx to laroux below this line)
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(29).packo gp_ctrl
return <eval <var.gp>>
[function gp_ctrl]
if (strmatch('<baseid>','i_gold'))
var.gp <eval (<var.gp> + <amount>)>
///endif
return 1
[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
[function evl]
sysmessage Evaluating [0<args>]: <eval 0<args>>.
return <valstr 0<args>>
[function fiyat]
if (<eval <argn>> > 50000000)
say Tek bir mali 50m'den fazlaya satamam.
else
findid.i_pv.more1 1
findid.i_pv.more2 <eval <argn>>
findid.i_pv.target
endif
[function vend_collect]
var.vendorcash <eval (<argn> - 65000)>
findlayer(29).more1 <eval (<findlayer(29).more1> - 65000)>
src.newitem i_gold
src.act.amount 65000
src.act.cont <src.findlayer(29).uid>
if (<eval <var.vendorcash>> >= 65000)
vend_collect <eval <var.vendorcash>>
elseif (<eval <var.vendorcash>> > 0)
findlayer(29).more1 <eval (<findlayer(29).more1> - <var.vendorcash>)>
src.newitem i_gold
src.act.amount <eval <var.vendorcash>>
src.act.cont <src.findlayer(29).uid>
var.vendorcash
else
var.vendorcash
endif
[function evl]
sysmessage Evaluating [0<args>]: <eval 0<args>>.
return <valstr 0<args>>
[chardef c_bot]
DEFNAME=C_bot
NAME=#NAMES_HUMANMALE the Vendor
ID=C_bot
//Title Player
ON=@Create
/// NPC=brain_vendor
COLOR=colors_skin
/// FLAGS=028000005
NEED=i_gold
STR={66 80}
DEX=90
INT={66 80}
FENCING={15.0 38.0}
PARRYING={45.0 68.0}
SWORDSMANSHIP={100.0 100.0}
WRESTLING={15.0 38.0}
MACEFIGHTING={15.0 38.0}
MAGICRESISTANCE={45.0 68.0}
TACTICS={45.0 68.0}
ITEMNEWBIE=i_lantern
ITEMNEWBIE=random_male_hair
COLOR=colors_hair
ITEMNEWBIE=random_facial_hair
COLOR=match_hair
ITEMNEWBIE=i_robe
COLOR=colors_all
ITEMNEWBIE=random_pants
COLOR=colors_all
ITEMNEWBIE=random_shoes
COLOR=colors_neutral
[function gp_ctrl]
if (strmatch('<baseid>','i_gold'))
var.gp <eval (<var.gp> + <amount>)>
///endif
return 1
[function deposit]
// cekilecek total miktar
local.total 1000000
deposit_ <dlocal.total>
[function deposit_]
if <dargs> > 0
if <dargs> <= 65536
newgold <dargs>
sysmessage <dargs> gp cekildi
else
local.total <eval <args> - 65536>
newgold 65536
sysmessage 65536 gp cekildi. kalan <dlocal.total> gp
deposit_ <dlocal.total>
endif
endif
|