Selam,

Bildiğimiz sell sistemi ama biraz görsellik kattım şirin olduğunu düşünüyorum =) Bulduğunuz hataları kendiniz yazın ben olmasamda birisi mutlaka fixler.



[center]

http://img51.imageshack.us/img51/2323/resim1pn.jpg

http://img51.imageshack.us/img51/3325/resim2t.jpg

http://img34.imageshack.us/img34/1600/resim3x.jpg

[/center]





[comment credits]

Alcholic

Slothere (isnum function)



[chardef c_merhant]

id = c_kappa

name = Merchant

can mt_walk



ON=@create

str = 100



ON=@tooltip

add_tooltip Merchant System By Alcholic



ON=@ContextMenuRequest

    SRC.AddContextEntry 200,3006104,020,32767			//Sell





ON=@ContextMenuSelect

IF (<ARGN>==200)

    src.SDIALOG d_merchant_sell]

ENDIF

[dialog d_merchant_sell]

0,0

page 0

src.dialogclose d_merchant_buy

resizepic 10 10 9200 300 280 

checkertrans 20 20 280 260

local.page 1

page 1

dorigin 20 20

for <eval <src.findlayer.21.rescount>-1> 0

ref1=<uid.<src.findlayer.21>.findcont.<dlocal._for>>

if <ref1.cansale>

tilepichue +60 *20 <ref1.dispiddec> <ref1.dcolor>

ctag0.item_<eval (<local._for>+1)> = <ref1.uid>

button +10 - 4006 4007 1 0 <eval (<local._for>+1)>

dhtmlgump +100 - 250 25 0 0 <def.bfont_white> <cropgump <ref1.name>>

local.x ++

endif



if (<local.x> > 9)

dorigin 20 20

local.x

button 270 260 015e1 015e5 0 <eval <local.page>+1> 1 

local.page += 1

page <dlocal.page>

button 250 260 015e3 015e7 0 <eval <local.page>-1> 1

endif

Endif

endfor



[dialog d_merchant_sell button]

ON=0

src.clearctags item

ON=1,99

ref1 = <src.ctag0.item_<argn>>



if <ref1.topobj> != <src.uid>

	src.sysh_trk <ref1.name> çantanızda değil.

	return 1

endif

src.clearctags item

src.sdialog d_merchant_buy,0,<ref1.uid>



[dialog d_merchant_Buy]

0,0

page 0

src.dialogclose d_merchant_sell

resizepic 10 10 9200 390 140 

checkertrans 20 20 370 120

dorigin 30 30

ref1=<args>

ctag0.item = <ref1.uid>

dhtmlgump - - 400 25 0 0 <def.bfont_white>Eşya <def.bfont_lred><cropgump <ref1.name>> <def.bfont_white>Birim Fiyat :<def.bfont_lred> <eval <ref1.value>>  <def.bfont_white>Envanter : <def.bfont_lred><ref1.amount> adet.

tilepichue -10 +30 <ref1.dispiddec> <ref1.dcolor>

dtext +25 +30 1153 (<ref1.name>)

dtext +40 +60 1153 satılacak miktar :

dtextentry +140 +60 100 25 38 1 <ref1.amount>

button - +60 4006 4007 1 0 1



[dialog d_merchant_buy button]

ON=0

src.sdialog d_merchant_Sell

ON=1

ref1 = <src.ctag0.item>

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

	src.sysh_trk Hatalı karakter girdiniz.

	return 1

endif



if (<argtxt[1]> > 250)

	src.sysh_trk Tek seferde en fazla 250 adet eşya satabilirsiniz.

	return 1

endif



if <src.uid> != <ref1.topobj>

	src.sysh_trk <ref1.name> çantanızda değil.

	return 1

endif



if <ref1.amount> < <argtxt[1]>

	src.sysh_trk Bu kadar <ref1.name>'e sahip değlsiniz.

	return 1

endif



local.price = <ref1.value>*<argtxt[1]>

src.sys_trk <ref1.name> sattınız. Kazanç : <eval (<eval <ref1.value>>*<argtxt[1]>)> altın.

src.newgold = <eval (<eval <ref1.value>>*<argtxt[1]>)> 

ref1.consume = <argtxt[1]>

src.clearctags item



[function isnumber]

for 0 <eval (strlen(<args>)) -1>

  if !strmatch('*[0123456789]*','<strsub <dlocal._for> 1 <args>>')

    return 0

	else

    return 1

  endif

endfor





[function cropgump]

if ((strlen(<args>)) > 10)

return <strsub 0 15 <args>>...

else

return <args>

endif



[function cansale]

if !(<attr>&attr_Static) && !(<attr>&attr_newbie) && (<value>) && !(<type> == t_gold)

return 1

endif

return 0

Değerlendirmeler

0

Total votes: 0