Vendora tıkladıgınızda acılan menüde 1 adet textentry vardır burada yazılan miktar parayı check yapabilrsiniz yada direk chek bozduır diyerek cek bozdurabilrsiniz en kötü ihtimal kumbara satın alabilrsiniz

[CHARDEF c_merchant3]

DEFNAME=c_merchant3

NAME=#NAMES_HUMANMALE

ID=C_MAN



ON=@Create

	NPC=brain_vendor

	COLOR=colors_skin

	STR=100

	DEX=1

	INT=1

        ALLSKILLS=100.0



ON=@NPCRestock

	ITEM=i_shroud

	COLOR=07ff

        attr 04

	ITEM=i_shoes_plain

	COLOR=1

        attr 04

	ITEM=i_bandana

	COLOR=1

        attr 04

        ITEM=i_apron_half

	COLOR=1

        attr 04



on=@click

message @0f4,3 <name> the exchanger

return 1



on=@dclick

if (<distance> < 4)

dialoglarinhepsinikapat

src.sdialog d_exchanger

return 1

else

src.sysmessage @07b1,,1 Uzaktasınız.

return 1

endif



on=@gethit

return 1



on=@death

return 1



on=@usewarmode

return 1



on=@skillstart

return 1



on=@useskill

return 1



on=@spellcast

return 1









////////////////////--------------------//////////////////////////



[dialog d_exchanger]

200,50

nomove

resizepic 10 10 3600 400 250

resizepic 60 150 9300 140 20



dhtmlgump 25 25 370 70 10 0 <def.bfont_dblack> Merhaba <name>.Burası bir nevi döviz bürosudur.Paranı çek yapabilir veya çeklerini bozdurabilirsin ve tabi istersen sana kumbarada satabilirim :)

//dhtmlgump 201 119 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 127 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 135 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 143 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 151 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 159 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 167 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 175 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 183 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 191 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 199 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 207 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 215 20 20 0 0 <def.bfont_gray> ı

//dhtmlgump 201 223 20 20 0 0 <def.bfont_gray> ı





dhtmlgump 25 120 400 35 0 0 <def.bfont_gray> ----------------------------------------------------------

dhtmlgump 25 225 400 35 0 0 <def.bfont_gray> ----------------------------------------------------------



dhtmlgump 382 119 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 127 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 135 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 143 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 151 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 159 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 167 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 175 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 183 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 191 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 199 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 207 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 215 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 382 223 20 20 0 0 <def.bfont_gray> ı



dhtmlgump 19 119 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 127 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 135 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 143 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 151 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 159 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 167 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 175 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 183 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 191 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 199 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 207 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 215 20 20 0 0 <def.bfont_gray> ı

dhtmlgump 19 223 20 20 0 0 <def.bfont_gray> ı



//////////////-----------------------/////////////////////////





dtext 60 110 0481 Çek menüsü

dtext 200 150 03a0 miktar paramı çek yap.

dtextentry 60 150 160 100 1152 1 <var.blank>



dtext 60 180 03a0 Çek bozdurmak istiyorum.



dtext 60 210 03a0 Kumbara satın almak istiyorum.



button 40 150 55 56 1 0 1

button 40 180 55 56 1 0 2

button 40 210 55 56 1 0 3







[dialog d_exchanger button]

onbutton=0



onbutton=1

if !(<isnum <argtxt[1]>>)

src.sysmessage @045a,,1 Sadece rakam kullanabilirsiniz!

elseif (<eval <argtxt[1]>> < 1)

src.sysmessage @045a,,1 Hatalı bir rakam girdiniz!

elseif (<eval <argtxt[1]>> > <src.gold>)

src.sysmessage @045a,,1 Bukadar paran yok :)

else

src.gold -= <argtxt[1]>

newitem i_check_brnx

new.more1 <argtxt[1]>

new.more2 <src.uid>

new.cont <src.findlayer(21).uid>

return 1

endif



onbutton=2

src.targetf checkbozdur



onbutton=3

IF (<src.gold> > 99999)

SRC.NEWITEM=i_bank_kumbara

new.BOUNCE

SRC.gold -= 100000

SRC.sysMESSAGE 100.000 gold karsiliginda kumbara aldiniz.

sdialog d_exchanger

SOUND 0F7

ELSE

sdialog d_exchanger

sysmessage Paraniz yeterli degil. ( 100k )

ENDIF



////////////////////////////////////////////////////////////////////



[function checkbozdur]

obj=<argo>

if (<obj.baseid> == i_check_brnx)

	src.checkkarsiligi <obj.more1>

	src.sfx 50

	src.sysmessage @045a,,1 Aktarılan Miktar: <eval <obj.more1>>

	obj.remove

src.update

src.fix

return 1

else

src.sysmessage @045a,,1 Sadece Check bozdurabilirsiniz.

return 1

endif



///////////////////////////////////////////////////////////////////



[itemdef i_check_brnx]

id i_deed

type t_script

weight 0.1

name check



On=@Create

color 096d

attr 04



On=@Click

message @045a,,1 Miktar: <eval <more1>>

message @030a,,1 [<src.uid.<more2>.name>]

return 1



On=@DClick

return 1



/////////////////////////////////////////////

[function checkkarsiligi]

var.parasi <argn>

for 0 1000

if (<eval <var.parasi>> > 50000)

	serv.newitem i_gold

	new.amount 50000

	new.cont <findlayer(layer_bankbox).uid>

	var.parasi -= 50000

elseif (<eval <var.parasi>> = 50000)

	serv.newitem i_gold

	new.amount 50000

	new.cont <findlayer(layer_bankbox).uid>

	var.parasi = 0

	return 1

elseif (<eval <var.parasi>> != 0)

	serv.newitem i_gold

	new.amount <eval <var.parasi>>

	new.cont <findlayer(layer_bankbox).uid>

	var.parasi 0

	return 1

endif

endfor





[EOF]

Buda kumbarası The raskolün scriptidir ben biraz kurcaladım ve deiştirdim k.bakma The raskol

[ITEMDEF i_bank_kumbara]

DEFNAME=i_bank_kumbara

name=kumbara

ID=i_box_brass

WEIGHT=1

VALUE=50000

TYPE=t_script



on=@create

color 080c

ATTR=attr_newbie

tag.yatirim 0



on=@click

message <eval <tag0.yatirim>> gp



on=@dclick

if (<src.targ.topobj.uid> != <src.uid>)

src.sysmessage @045a,,1 Üzerinizde olmalıdır.

return 1

endif

if !(<more1>)

more1 <src.uid>

src.sysmessage @045a,,1 Artık size aittir.

elseif (<more1> != <src.uid>)

src.sysmessage @045a,,1 Bu senin değil.

elseif (<topobj.uid> != <src.uid>)

src.sysmessage @045a,,1 Üzerinizde olmalıdır.

else

more2 1

target

src.sysmessage @045a,,1 Kumbarayı açmak için lütfen kumbarayı seçiniz.

endif

return 1



on=@targon_item

if (<more2> == 1)

if (<src.targ.topobj.uid> != <src.uid>)

src.sysmessage @045a,,1 Çantanızda olmalıdır.

return 1

endif

if (<src.targ.baseid> == i_gold)

tag0.yatirim += <src.targ.amount>

src.targ.remove

more2 1

target 

src.sysmessage @045a,,1 Lütfen hedefi seçiniz.

elseif (<src.targ.baseid> == i_check_brnx)

tag0.yatirim += <src.targ.more1>

src.targ.remove

src.update

src.fix

more2 1

src.sysmessage @045a,,1 Lütfen hedefi seçiniz.

elseif (<src.targ.uid> == <uid>)

sdialog d_kumbaramenu

endif

endif

return 1



on=@targon_char

return 1



/////////////////////////////////////////////////////////////////////////////



[dialog d_kumbaramenu]

0,0

page 1

resizepic 50 50 3600 300 100

resizepic 110 90 9300 140 20



dtext 130 65 38 Kumbara Menüsü

dtext 250 90 1152 nakit çek.

dtextentry 120 90 160 100 1152 1 <var.blank>



button 75 90 4006 4005 1 0 1

dtext 75 115 0455 Bakiye: <eval <tag.yatirim>>



[dialog d_kumbaramenu button]

on=1

if !(<isnum <argtxt[1]>>)

src.sysmessage @045a,,1 Sadece rakam kullanabilirsiniz!

elseif (<eval <argtxt[1]>> < 1)

src.sysmessage @045a,,1  Hatalı bir rakam girdiniz!

elseif (<eval <argtxt[1]>> > <eval <tag0.yatirim>>)

src.sysmessage @045a,,1  Kumbaranızda bukadar para yok.

else

tag.yatirim -= <eval <argtxt[1]>>

src.kumbaraparaver <eval <argtxt[1]>>

src.sysmessage @045a,,1 Çekilen Miktar: <eval <argtxt[1]>>

src.update

src.fix

endif



/////////////////////////////////////////////////////////////////////////////



[function kumbaraparaver]

local.gp <argn1>

if (<eval <local.gp>> > 64999)

serv.newitem i_gold

new.amount 65000

new.cont <findlayer(layer_bankbox).uid>

local.gp -= 65000

kumbaraparaver <eval <local.gp>>

elseif (0<eval <local.gp>>)

serv.newitem i_gold

new.amount <eval <local.gp>>

new.cont <findlayer(layer_bankbox).uid>

local.gp 0

endif