///////////////////////////////////////////////////////////////////////////////////
//Scripted by Slothere - 29.12.2007
//[!]This script was written for Edomir, it can not be used without permission
// Version: 056b
///////////////////////////////////////////////////////////////////////////////////
[function regs]
if <flags>&statf_dead>
sysmessage olu haldeyken kullanamazsiniz..
return 1
else
sdialog d_reagent
return 1
endif
[dialog d_reagent]
0,0
nomove
page 0
resizepic 250 150 5170 255 330
resizepic 305 205 3000 45 25
resizepic 305 245 3000 45 25
resizepic 305 285 3000 45 25
resizepic 305 325 3000 45 25
resizepic 410 205 3000 45 25
resizepic 410 245 3000 45 25
resizepic 410 285 3000 45 25
resizepic 410 325 3000 45 25
tilepic 265 210 3962
tilepic 265 250 3963
tilepic 265 290 3972
tilepic 265 330 3973
tilepic 370 210 3974
tilepic 370 250 3976
tilepic 370 290 3980
tilepic 370 330 3981
button 275 390 5601 5605 1 0 1
dhtmlgump 300 390 30 20 0 0 Ekle
button 275 410 5601 5605 1 0 2
dhtmlgump 300 410 70 20 0 0 Hepsini Ekle
button 275 430 5601 5605 0 2 2
dhtmlgump 300 430 70 20 0 0 Reglere Bak
button 380 390 5601 5605 0 3 3
dhtmlgump 405 390 70 20 0 0 Cikart
button 380 410 5601 5605 1 0 3
dhtmlgump 405 410 100 20 0 0 Hepsini Cikart
page 1
dtext 300 172 1153 <serv.name> Reagent Menu
dtext 310 207 <qval (<src.rescount i_reag_black_pearl> < 10)? 025:0110> <drescount i_reag_black_pearl>
dtext 310 247 <qval (<src.rescount i_reag_blood_moss> < 10)? 025:0110> <drescount i_reag_blood_moss>
dtext 310 287 <qval (<src.rescount i_reag_garlic> < 10)? 025:0110> <drescount i_reag_garlic>
dtext 310 327 <qval (<src.rescount i_reag_ginseng> < 10)? 025:0110> <drescount i_reag_ginseng>
dtext 415 207 <qval (<src.rescount i_reag_mandrake_root> < 10)? 025:0110> <drescount i_reag_mandrake_root>
dtext 415 247 <qval (<src.rescount i_reag_nightshade> < 10)? 025:0110> <drescount i_reag_nightshade>
dtext 415 287 <qval (<src.rescount i_reag_sulfur_ash> < 10)? 025:0110> <drescount i_reag_sulfur_ash>
dtext 415 327 <qval (<src.rescount i_reag_spider_silk> < 10)? 025:0110> <drescount i_reag_spider_silk>
page 2
dtext 300 172 1153 <serv.name> Store Menu
dtext 310 207 <qval (<src.tag0.i_reag_black_pearl> < 10)? 025:0110> <dtag.i_reag_black_pearl>
dtext 310 247 <qval (<src.tag0.i_reag_blood_moss> < 10)? 025:0110> <dtag.i_reag_blood_moss>
dtext 310 287 <qval (<src.tag0.i_reag_garlic> < 10)? 025:0110> <dtag.i_reag_garlic>
dtext 310 327 <qval (<src.tag0.i_reag_ginseng> < 10)? 025:0110> <dtag.i_reag_ginseng>
dtext 415 207 <qval (<src.tag0.i_reag_mandrake_root> < 10)? 025:0110> <dtag.i_reag_mandrake_root>
dtext 415 247 <qval (<src.tag0.i_reag_nightshade> < 10)? 025:0110> <dtag.i_reag_nightshade>
dtext 415 287 <qval (<src.tag0.i_reag_sulfur_ash> < 10)? 025:0110> <dtag.i_reag_sulfur_ash>
dtext 415 327 <qval (<src.tag0.i_reag_spider_silk> < 10)? 025:0110> <dtag.i_reag_spider_silk>
Page 3
dtext 300 172 1153 <serv.name> Store Menu
dtext 310 207 <qval (<src.tag0.i_reag_black_pearl> < 10)? 025:0110> <dtag.i_reag_black_pearl>
dtext 310 247 <qval (<src.tag0.i_reag_blood_moss> < 10)? 025:0110> <dtag.i_reag_blood_moss>
dtext 310 287 <qval (<src.tag0.i_reag_garlic> < 10)? 025:0110> <dtag.i_reag_garlic>
dtext 310 327 <qval (<src.tag0.i_reag_ginseng> < 10)? 025:0110> <dtag.i_reag_ginseng>
dtext 415 207 <qval (<src.tag0.i_reag_mandrake_root> < 10)? 025:0110> <dtag.i_reag_mandrake_root>
dtext 415 247 <qval (<src.tag0.i_reag_nightshade> < 10)? 025:0110> <dtag.i_reag_nightshade>
dtext 415 287 <qval (<src.tag0.i_reag_sulfur_ash> < 10)? 025:0110> <dtag.i_reag_sulfur_ash>
dtext 415 327 <qval (<src.tag0.i_reag_spider_silk> < 10)? 025:0110> <dtag.i_reag_spider_silk>
button 350 207 5603 5607 1 0 4
button 350 247 5603 5607 1 0 5
button 350 287 5603 5607 1 0 6
button 350 327 5603 5607 1 0 7
button 455 207 5603 5607 1 0 8
button 455 247 5603 5607 1 0 9
button 455 287 5603 5607 1 0 10
button 455 327 5603 5607 1 0 11
[dialog d_reagent button]
on=1
if !<flags>&statf_dead
targetf sltreagekle
src.sysmessage Eklenicek reagent'i seçiniz?
return 1
endif
on=2
if !<flags>&statf_dead
src.hepsiniekle
return 1
endif
on=3
if !<flags>&statf_dead
src.hepsinicikart
return 1
endif
on=4
if !<flags>&statf_dead
ctag.reagent i_reag_black_pearl
src.sdialog d_kactane
return 1
endif
on=5
if !<flags>&statf_dead
ctag.reagent i_reag_blood_moss
src.sdialog d_kactane
return 1
endif
on=6
if !<flags>&statf_dead
ctag.reagent i_reag_garlic
src.sdialog d_kactane
return 1
endif
on=7
if !<flags>&statf_dead
ctag.reagent i_reag_ginseng
src.sdialog d_kactane
return 1
endif
on=8
if !<flags>&statf_dead
ctag.reagent i_reag_mandrake_root
src.sdialog d_kactane
return 1
endif
on=9
if !<flags>&statf_dead
ctag.reagent i_reag_nightshade
src.sdialog d_kactane
return 1
endif
on=10
if !<flags>&statf_dead
ctag.reagent i_reag_sulfur_ash
src.sdialog d_kactane
return 1
endif
on=11
if !<flags>&statf_dead
ctag.reagent i_reag_spider_silk
src.sdialog d_kactane
return 1
endif
[dialog d_kactane]
0,0
nomove
resizepic 250 200 5170 200 110
resizepic 275 239 3000 150 20
dhtmlgump 272 205 220 20 0 0 Kaç tane çıkartıcaksınız?
dtextentry 280 240 200 20 0 0 0
dhtmlgump 300 263 200 20 0 0 Tamam
button 280 265 5601 5605 1 0 1
[dialog d_kactane button]
on=1
if (<argtxt[0]> == 0) || !(<isnum <argtxt[0]>>)
src.sysmessage Yanlış işlem yaptınız..
return 1
elif (<src.tag0.<ctag0.reagent>> < <argtxt[0]>)
src.sysmessage Çıkartmak istediğiniz kadar reagentiniz bulunmuyor.
return 1
endif
src.tag0.<ctag0.reagent> -=<argtxt[0]>
serv.newitem <ctag0.reagent>
new.amount <argtxt[0]>
new.bounce
src.sysmessage Seçtiğiniz reagent'ten (<argtxt[0]>) tane çıkarttınız.
return 1
[function hepsiniekle]
src.tag0.i_reag_black_pearl +=<drescount i_reag_black_pearl>
src.tag0.i_reag_blood_moss +=<drescount i_reag_blood_moss>
src.tag0.i_reag_garlic +=<drescount i_reag_garlic>
src.tag0.i_reag_ginseng +=<drescount i_reag_ginseng>
src.tag0.i_reag_mandrake_root +=<drescount i_reag_mandrake_root>
src.tag0.i_reag_nightshade +=<drescount i_reag_nightshade>
src.tag0.i_reag_sulfur_ash +=<drescount i_reag_sulfur_ash>
src.tag0.i_reag_spider_silk +=<drescount i_reag_spider_silk>
src.consume i_reag_black_pearl <drescount i_reag_black_pearl>
src.consume i_reag_blood_moss <drescount i_reag_blood_moss>
src.consume i_reag_garlic <drescount i_reag_garlic>
src.consume i_reag_ginseng <drescount i_reag_ginseng>
src.consume i_reag_mandrake_root <drescount i_reag_mandrake_root>
src.consume i_reag_nightshade <drescount i_reag_nightshade>
src.consume i_reag_sulfur_ash <drescount i_reag_sulfur_ash>
src.consume i_reag_spider_silk <drescount i_reag_spider_silk>
src.sysmessage Çantanızdaki tüm reagentleri storeye eklediniz.
return 1
[function hepsinicikart]
if !(<src.tag0.i_reag_black_pearl> == 0)
serv.newitem i_reag_black_pearl
new.amount <src.tag0.i_reag_black_pearl>
new.bounce
endif
if !(<src.tag0.i_reag_blood_moss> == 0)
serv.newitem i_reag_blood_moss
new.amount <src.tag0.i_reag_blood_moss>
new.bounce
endif
if !(<src.tag0.i_reag_garlic> == 0)
serv.newitem i_reag_garlic
new.amount <src.tag0.i_reag_blood_moss>
new.bounce
endif
if !(<src.tag0.i_reag_ginseng> == 0)
serv.newitem i_reag_ginseng
new.amount <src.tag0.i_reag_ginseng>
new.bounce
endif
if !(<src.tag0.i_reag_mandrake_root> == 0)
serv.newitem i_reag_mandrake_root
new.amount <src.tag0.i_reag_mandrake_root>
new.bounce
endif
if !(<src.tag0.i_reag_nightshade> == 0)
serv.newitem i_reag_nightshade
new.amount <src.tag0.i_reag_nightshade>
new.bounce
endif
if !(<src.tag0.i_reag_sulfur_ash> == 0)
serv.newitem i_reag_sulfur_ash
new.amount <src.tag0.i_reag_sulfur_ash>
new.bounce
endif
if !(<src.tag0.i_reag_spider_silk> == 0)
serv.newitem i_reag_spider_silk
new.amount <src.tag0.i_reag_spider_silk>
new.bounce
endif
src.tag.i_reag_black_pearl 0
src.tag.i_reag_blood_moss 0
src.tag.i_reag_garlic 0
src.tag.i_reag_ginseng 0
src.tag.i_reag_mandrake_root 0
src.tag.i_reag_nightshade 0
src.tag.i_reag_sulfur_ash 0
src.tag.i_reag_spider_silk 0
src.sysmessage Storenizdeki bütün reagentleri çıkarttınız.
return 1
[function sltreagekle]
if !(<argo.type> == t_reagent)
src.sysmessage Sadece reagent ekleyebilirsiniz.
return 1
endif
ctag.reg <argo.baseid>
src.tag0.<ctag0.reg> +=<argo.amount>
src.sysmessage Store'ye <argo.amount> tane <argo.name> eklediniz..
argo.remove
targetf=reagekle
return 1
[EOF]
// reagent store
// yazan: Slothere
// tarih: 24 Ocak 2010
// version: 056b+
[itemdef i_store_reagent]
id=i_crystal_green_big
name=reagent store
value=2900
weight=3
type=t_script
on=@create
color=color_o_verite
attr=attr_newbie
on=@dclick
if (<src.flags>&statf_dead|statf_freeze|statf_stone)
src.sys_error Şu anki durumunuzda kullanamazsınız.
elif (<topobj> != <src>)
src.sys_error Sadece üzerinizdeyken kullanabilirsiinz.
else
sdialog d_reagent_store
endif
return 1
on=@targon_char
target @34,,1 Sadece reagent ekleyebilirsiniz.
return 1
on=@targon_item
if (<src.targ.topobj> != <src>)
target @34,,1 Sadece üzerinizdeki reagent'ları ekleyebilirsiniz.
elif (<src.targ.type> != t_reagent)
target @34,,1 Sadece reagent ekleyebilirsiniz.
elif !(<src.targ.amount>) || !(<src.targ.isnormreagent>)
target @34,,1 Bu reagent'ı ekleyemezsiniz.
else
try tag0.<src.targ.baseid>=<eval (<tag0.<src.targ.baseid>>+<src.targ.amount>)>
src.sys_normal <src.targ.amount> adet <src.targ.name> eklediniz.
src.targ.remove
sdialog d_reagent_store
endif
return 1
[dialog d_reagent_store]
0,0
resizepic 50 50 5054 250 300
dtext 110 65 48 Erador Reagent Store
dorigin 70 70
for 0 7
dtext +50 *20 <qval(<isempty <tag.<store_reagents <dlocal._for>>>>)?34:0480> <serv.itemdef.<store_reagents <dlocal._for>>.name> (<dtag0.<store_reagents <dlocal._for>>>)
tilepic +10 +2 <serv.itemdef.<store_reagents <dlocal._for>>.id>
if !(<isempty <tag.<store_reagents <dlocal._for>>>>)
checkbox +0 +5 2118 2117 0 <dlocal._for>
endif
endfor
dtext 70 255 0c1 Adet:
resizepic 70 275 2620 50 30
dtextentry 80 280 40 20 1153 0 0
button 80 310 0FAB 0FAD 1 0 13
button 160 280 2118 2117 1 0 10
dtext 180 278 48 Ekle
button 160 300 2118 2117 1 0 11
dtext 180 298 48 Tümünü Ekle
button 160 320 2118 2117 1 0 12
dtext 180 318 48 Tümünü Çıkart
[dialog d_reagent_store button]
on=10
target @040,,1 Eklemek istediğiniz reagent'ı seçiniz.
return 1
on=11
ref1=<uid>
forcont <src.findlayer(layer_pack)> 0
if (<type> == t_reagent) && (<isnormreagent>)
ref1.tag0.<baseid>=<eval (<ref1.tag0.<baseid>>+<amount>)>
src.sys_normal <amount> adet <name> eklendi.
remove
endif
endfor
sdialog d_reagent_store
on=12
ref1=<uid>
for 0 7
if !(<isempty <ref1.tag.<store_reagents <dlocal._for>>>>)
serv.newitem <store_reagents <dlocal._for>>,<ref1.dtag0.<store_reagents <dlocal._for>>>,<src.findlayer(layer_pack)>
new.contp 50,50
src.sys_normal <ref1.dtag0.<store_reagents <dlocal._for>>> adet <serv.itemdef.<store_reagents <dlocal._for>>.name> çıkartıldı.
ref1.tag0.<store_reagents <dlocal._for>>=
endif
endfor
on=13
if !(<isnum <argtxt[0]>>)
src.sys_error Sadece rakam girebilirsiniz.
elif (<dargtxt[0]> > 500)
src.sys_error Bir seferde en fazla 500 reagent çıkartabilirsiniz.
elif (<argtxt[0]> <= 0)
src.sys_error Hatalı adet girdiniz.
else
for 0 7
if (<argchk[<dlocal._for>]> == 1)
if (<dtag0.<store_reagents <dlocal._for>>> < <dargtxt[0]>)
src.sys_error Belirttiğiniz miktarda <serv.itemdef.<store_reagents <dlocal._for>>.name> bulunmuyor.
elif (<argtxt[0]> <= 0) || !(<isnum <argtxt[0]>>)
src.sys_error Hatalı adet girdiniz.
return 1
else
serv.newitem <store_reagents <dlocal._for>>,<dargtxt[0]>,<src.findlayer(layer_pack)>
src.sys_normal <dargtxt[0]> adet <serv.itemdef.<store_reagents <dlocal._for>>.name> çıkarttınız.
try tag0.<store_reagents <dlocal._for>>=<eval (<dtag0.<store_reagents <dlocal._for>>>-<dargtxt[0]>)>
endif
endif
endfor
endif
sdialog d_reagent_Store
[function store_reagents]
doswitch <dargn>
return i_reag_spider_silk
return i_reag_black_pearl
return i_reag_sulfur_ash
return i_reag_blood_moss
return i_reag_ginseng
return i_reag_nightshade
return i_reag_garlic
return i_reag_mandrake_root
enddo
[function isnormreagent]
if ((<baseid> == i_Reag_spider_silk) || (<baseid> == i_reag_black_pearl) || (<baseid> == i_reag_sulfur_ash) || (<baseid> == i_reag_blood_moss) || (<baseid> == i_reag_ginseng) || (<baseid> == i_reag_nightshade) || (<baseid> == i_reag_garlic) || (<baseid> == i_reag_mandrake_root))
return 1
else
return 0
endif