Arkadaşlar, merhaba. Alysa Pvp için hazırladığım Otomatik Av Sistemi'ni paylaşmak istiyorum. Bunun gibi standart sistemlerin dışında kalan birkaç sistemi daha zamanla paylaşarak konuyu güncelleyeceğim.

Sistem mantığı; Aslında temel prensip yaratıkları pk yapıp dar bir odaya yerleştirmek ve alana giriş yapan oyuncuya saldırmalarını sağlamak ki pk oldukları için zaten kendiliğinden saldırıyorlar. Yaratık oyuncuya saldırdığında oyuncuda otomatik olarak savaş durumuna geçip yaratığa vuruyor. Yaptığımız şey oyuncunun 60 saniyede bir doğan yaratıkları 50 saniye gibi bir sürede öldürebileceği bir döngü oluşturmak. Tabii buna ek olarak oyuncunun canı 0 değerine geldiğinde oyuncuyu bir yere göndermeden veya cesedini düşürmeden olduğu konumda tekrar can değerini 100 yapmak.

Olası hataları engellemek; Daha stabil olabilmesi için, oyuncu otomatik av alanına girdiğinde üzerindeki bütün eşyalarını bankaya gönderip bu alana özel hazırladığınız silah, robe ve setini oyuncuya giydirmek aksi taktirde oyuncunun üzerindeki eşyalar parçalanabilir. Önemli olan oyuncunun bu alandan stuck çekmesini ve kontrat gibi eşyalara çift tıklaması engellemek ve @logout triggerını mutlaka çalıştırarak olası hataları engellemek.

Sistemi geliştirmek; Odaları çoğaltarak, kopyala yapıştır yapıp Oda 1'de bulunan 1'leri 2 yaparak ilerleyebilirsiniz.

Kodlaması dümdüz saf bir mantık ile yaptım. Kesinlikle daha işlevsel daha farklı bir mantık ve daha az satır ile kodlanabilirdi. Lakin aradan 7-8 yıl geçtikten sonra düşündüğümde en kolay yol buydu. Aşağıda bulunan script üzerinde her function, event, var ve triggerların ne için mevcut olduğunu yeni başlayan arkadaşlarımız için ayrıca belirttim.

Sistemin açıklaması ; Av zindanlarındaki odalarda bilgisayar başında olmadığınız zamanlarda da karakterinizi geliştirmeye devam edebilirsiniz. Hesabınızı savaş durumuna(war) geçirerek yaratıkların size saldırı yapabileceği mesafelerde karakterinizi konumlandırarak av yaratıklarını öldürebilirsiniz. Bu alanda karakteriniz öldürülemez ve tekrar barış durumuna(peace) geçene kadar sürekli olarak yaratıklara saldırmaya devam eder. Av zindanlarında 2 çeşit oda bulunmaktadır. Normal odalarda 3 av yaratığı bulunurken özel odalarda 5 av yaratığı bulunur. Özel odalara girebilmek için seçkin oyuncu statüsüne sahip olmanız gerekmektedir. Ayrıca seçkin oyuncu statüsüne sahipseniz yaratıklardan bir yerine iki otomatik av puanı kazanabilirsiniz. Bu puanları biriktirerek güvenli bölgede bulunan ilgili vendor üzerinden bu puanlar ile değerli bir çok eşyayı satın alabilirsiniz. Not; Av zindanlarında oyuncular birbirleri ile savaşamaz. Her odaya yalnızca bir oyuncu giriş yapabilir ve oyuncu odadan çıkana kadar odaya girişler kapatılır. Av yaratıkları öldürüldükten 60 saniye sonra tekrar doğar.

Otomatik Av Sistemi

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

/////////////Otomatik Av Eventi////////////

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



[EVENTS E_AUTO_FARM]



ON=@ITEMDROPON_GROUND

src.sysmessage @38,,1 Bu alanda yere eşya atamazsınız.

return 1



ON=SPELLCAST

src.sysmessage @38,,1 Bu alanda büyü yapamazsınız.

return 1



ON=ITEMDCLICK // Oyuncunun eşyalara çift tıklamasını engelleyen tetikleyici

IF (<ACT.BASEID> == i_deed_animal) || (<ACT.BASEID> == i_pet_horse_brown_dk) || (<ACT.BASEID> == i_random_mount_contract) || (<ACT.BASEID> == i_pvm_animal_shrink) || (<ACT.BASEID> == i_rare_steed_wisp) || (<ACT.BASEID> == i_treasure_map) || (<ACT.BASEID> == i_treasure_map_value) || (<ACT.BASEID> == i_ostard_egg_olgun) || (<ACT.BASEID> == i_ostard_egg_olgun_value) || (<ACT.BASEID> == i_air_raid) || (<ACT.BASEID> == i_earth_raid) || (<ACT.BASEID> == i_fire_raid) || (<ACT.BASEID> == i_aqua_raid) || (<ACT.BASEID> == i_knight_raid) || (<ACT.BASEID> == i_seeking_random_portal) || (<ACT.BASEID> == i_runebook_emrah)

src.sysmessage @38,,1 Bu alanda bu gerçekleştiremezsiniz.

return 1

endif



ON=@HIT

IF (<SRC.ISPLAYER>)

	SRC.SYSMESSAGE @37,0,1 Bu alanda sadece otomatik av yaratıklarına hasar verebilirsiniz.

	RETURN 1

ENDIF



ARGN1 +=12 // Oyuncunun yaratığa vereceği hasarı arttıran veya azaltan değişken

if <hits> < <str>

hits +=15

effect 3,i_fx_heal_effect,15,15,1 0,7

endif



ON=@ATTACK

IF (<SRC.ISPLAYER>)

	SRC.SYSMESSAGE @37,0,1 Bu alanda sadece otomatik av yaratıklarına hasar verebilirsiniz.

	RETURN 1

ENDIF



ON=@HITTRY

IF (<SRC.ISPLAYER>)

	SRC.SYSMESSAGE @37,0,1 Bu alanda sadece otomatik av yaratıklarına hasar verebilirsiniz.

	RETURN 1

ENDIF



ON=[url=u-death-9220.html]@death[/url]

HITS <STR>

RETURN 1



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

////////////Otomatik Av Yaratığı///////////

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



[chardef c_auto_farm_rotting]

DEFNAME=c_auto_farm_rotting

NAME=Rotting Corpse

SOUND=snd_monster_zombie1

ID=C_ZOMBIE

CAN=MT_RUN|MT_WALK

DAM=2,14

ARMOR=15



ON=@CLICK

message @0bb2,,1 Otomatik Av Yaratığı

message @,,1 <name>

return 1



ON=@Create

COLOR=042

NPC=brain_undead

	STR={100 200}

	DEX={100 100}

	INT={100 100}

	PARRYING=50.0

	MAGICRESISTANCE=150.0

	TACTICS=50.0

	WRESTLING=50.0

	FAME=0

KARMA={-6000 -6200}



on=@hit

if !(<src.isplayer>)

src.damage 8 // Yaratığın oyuncuya vereceği hasarı arttıran veya azaltan değişken

endif



on=@deathcorpse

ref1=<attacker.max>



if (<ref1.isplayer>)

ref1.f_autofarmgain // Oyuncuların puan kazanmasını sağlayan fonksiyon

ref1.f_autofarmgain_vip // Vip oyuncuların fazladan bir puan daha kazanmasını sağlayan fonksiyon

endif

argo.remove



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

//////////Puan Kazanma Fonksiyonu//////////

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



[function f_autofarmgain]

if (<isevent.e_auto_farm>) // Oyuncuların puan kazanmasını sağlayan otomatik av alanının eventi

tag0.otofarm +=1

sysmessage @044,,1 Tebrikler 1 adet otomatik av puanı kazandınız.

return 1

endif



[function f_autofarmgain_vip]

if (<isevent.e_vip>) // Vip oyuncuların fazladan bir puan daha kazanmasını sağlayan vip sisteminin eventi

sysmessage @0bb2,,1 Seçkin oyuncu statüsü sayesinde fazladan bir adet otomatik av puanı kazandınız.

TAG.OTOFARM +=1

return 1

endif



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

/////////Otomatik Av Alanına Giriş/////////

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



[itemdef i_auto_farm_entrance]

defname i_auto_farm_entrance

id i_moongate_black

name Auto Farm Entrance



on=@create

color 0455



on=@click

message @0bb2,,1 Otomatik Av Zindan Girişi

return 1



on=@dclick

src.sysmessage @07b7,,1 Üzerinden geçiniz.

return 1



on=@step

forchars 25

if (<memoryfindtype.memory_ipet>)

if (<memoryfindtype.memory_ipet.link>== <src.uid>)

src.sysmessage @045a,,1 Etrafınızda bineğiniz olmamalıdır.

return 1

endif

endif

endfor



src.sysmessage @07a1,,1 Bu sistem sayesinde bilgisayar başında olmadığınız zamanlarda da karakterinizin gelişimini sürdürebileceksiniz. 

src.timerf 3,src.sysmessage @38,,1 Hesabınızı savaş durumununa(war) geçirerek yaratıkların size saldırı yapabileceği mesafelerde karakterinizi konumlandırabilirsiniz.

src.timerf 6,src.sysmessage @044,,1 Bu alanda karakteriniz öldürülemez ve tekrar barış durumuna(peace) geçene kadar yaratıklar doğdukça yaratıklara saldırmaya devam eder.

src.petbank // Alana binekle girilmesini engelleyen bineği bankaya kontratlama fonksiyonu

src.events e_auto_farm

src.go wrong // Otomatik av alanının koordinatı



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

////////Otomatik Av Alanından Çıkış////////

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



[itemdef i_auto_farm_exit]

defname i_auto_farm_exit

id i_moongate_black

name Auto Farm Gate



on=@create

color 07a1



on=@click

message @0bb2,,1 Otomatik Av Zindan Çıkışı

return 1



on=@dclick

src.sysmessage @07b7,,1 Üzerinden geçiniz.

return 1



on=@step

src.events -e_auto_farm

src.events +e_safe_zone

src.go safe zone // Güvenli bölgenin koordinatı



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

//////Otomatik Av Puanı İle Alışveriş//////

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



onbutton=1

if (<src.tag.otofarm> > 499) // Ödül için istenilen puan miktarı

src.tag.otofarm -=500

src.newitem i_weapon_plus // Oyuncuya verilecek ödül

src.act.bounce

src.sysmessage @57,,1 Ödülünüz olan silah yükseltme taşı çantanıza yerleştirilmiştir.

else

src.sysmessage @38,,1 Bu ödülü almak istiyorsan sahip olduğunuz otomatik av puanının en az 500 olması gerek.

endif



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

///Otomatik Av Alanındaki Odalara Giriş////

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



[itemdef i_auto_farm_entrance_zone1]

defname i_auto_farm_entrance_zone1

id i_moongate_black

name Auto Farm Entrance



on=@create

color 044



on=@click

message @0790,,1 ( Oda 1 )

message @0bb2,,1 Otomatik Av Oda Girişi

return 1



on=@dclick

src.sysmessage @07b7,,1 Üzerinden geçiniz.

return 1



on=@step

if (<var.autofarmzone1> > 0 ) // Odada başka bir oyuncunun olup olmadığı kontrol eden fonksiyon

src.message @38,,1 Bu oda dolu

return 1

endif



src.events +e_autofarmzone1 // Oyuncunun otomatik av alanındaki giriş yaptığı odanın eventini oyunucuya veren fonksiyon

src.startautofarm1 // Odaya başka bir oyuncunun girişini engelleyen fonksiyon

src.go 5791,595,10 // Odanın merkez koordinatı

src.update

src.sysmessage @044,,1 Bu odaya artık sizden başka bir oyuncu giriş yapamayacak.

src.petbank // Alana binekle girilmesini engelleyen bineği bankaya kontratlama fonksiyonu



[function startautofarm1] // Odadaki oyuncuya event verilmesini ve odanın girişlerinin kapatılmasını sağlayan fonksiyon

var.autofarmzone1 1 // Bu değer 0'dan yüksek olduğunda içeriye başka bir oyuncunun girişini engelleyen var değişkeni



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

//Otomatik Av Alanındaki Odalardan Çıkış///

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



[itemdef i_auto_farm_exit_zone1]

defname i_auto_farm_exit_zone1

id i_moongate_black

name Auto Farm Gate



on=@create

color 07a1



on=@click

message @0790,,1 ( Oda 1 )

message @0bb2,,1 Otomatik Av Oda Çıkışı

return 1



on=@dclick

src.sysmessage @07b7,,1 Üzerinden geçiniz.

return 1



on=@step

src.events -e_auto_farm // Oyuncunun otomatik av alanı eventini kaldırmayı sağlayan fonksiyon

src.events -e_autofarmzone1 // Oyuncunun otomatik av alanındaki giriş yaptığı odanın eventini kaldıran fonksiyon

src.finishautofarm1 // Odaya başka bir oyuncunun girişini tekrar aktif hale getiren fonksiyon

src.events +e_safe_zone // Oyuncuya güvenli bölgenin eventini kazandıran event

src.go safe zone // Güvenli bölgenin koordinatı



[function finishautofarm1]

var.autofarmzone1 0 // Bu değer 0 olduğunda içeriye başka bir oyuncunun girişini sağlayan var değişkeni



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

//Otomatik Av Alanındaki Odaların Eventi///

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



[events e_autofarmzone1]



on=@logout // Oyuncu oyundan çıktığında alanın girişlerinin açılmasını ve oyuncunun eventlerinin kaldırılmasını sağlayan tetikleyici

go safe zone // Güvenli bölgenin koordinatı

events -e_auto_farm // Oyuncunun otomatik av alanı eventini kaldırmayı sağlayan fonksiyon

events +e_safe_zone // Oyuncuya güvenli bölgenin eventini kazandıran event

events -e_autofarmzone1 // Oyuncunun otomatik av alanındaki giriş yaptığı odanın eventini kaldırmayı sağlayan fonksiyon

finishautofarm1 // Odaya başka bir oyuncunun girişini tekrar aktif hale getiren fonksiyon

Sistem Görselleri

Emeğin için çok teşekkürler. Güzel bir iş olmuş

Her sunucuda bulunan standart bonusların yanı sıra oyun dinamiğini ve savaş çeşitliliği arttıracak birkaç bonus daha paylaşarak konuya devam edeyim.

Sakatlama Bonusu (Hareket): Oyuncuya bir eşya giydiğinde veya bir silahı eline aldığında E_SAKAT eventini verdirek oyuncunun bu bonusu kullanabilmesini sağlayabilirsiniz. Bu bonus sayesinde oyuncunun saldırıları 10'da 1 ihtimal ile hedefi sakatlar. Sakatlanan hedef 5 saniye boyunca koşamaz yalnızca yürüyebilir.

Sakatlama Bonusu (İksir): Oyuncuya bir eşya giydiğinde veya bir silahı eline aldığında E_IKSIR eventini verdirek oyuncunun bu bonusu kullanabilmesini sağlayabilirsiniz. Bu bonus sayesinde oyuncunun saldırıları 10'da 1 ihtimal ile hedefi sakatlar. Sakatlanan hedef 10 saniye boyunca iksir veya bandaj kullanamaz.

Kutsama Bonusu: Oyuncuya bir eşya giydiğinde veya bir silahı eline aldığında E_KUTSAMA eventini verdirek oyuncunun bu bonusu kullanabilmesini sağlayabilirsiniz. Bu bonus sayesinde oyuncu zehirlenme, yaralanma ve sakatlanma etkilerinden arınır ve can değeri 20 puan artar. 5 dakikada bir kullanılabilir.

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

////////Oyuncuya bir eşya giydiğinde veya bir silahı eline aldığında E_SAKAT eventini verdirek///////////////

////////oyuncunun bu bonusu kullanabilmesini sağlayabilirsiniz. Bu bonus sayesinde oyuncunun/////////////////

////////saldırıları 10'da 1 ihtimal ile hedefi sakatlar. Sakatlanan hedef 5 saniye boyunca koşamaz///////////

////////yalnızca yürüyebilir.////////////////////////////////////////////////////////////////////////////////

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



[EVENTS E_SAKAT]

ON=@HIT

IF (RAND(10)==1) && !(<SRC.FINDID.I_SAKATLANIR>) // Parantez içindeki sayı değeri yükseldikçe rakibi sakatlama ihtimali azalır. RAND ihtimal işlevidir. 

SRC.CONSUME 99999 I_SAKATLANIR

SERV.NEWITEM I_SAKATLANIR

NEW.EQUIP <SRC>

RETURN 1

ENDIF



[ITEMDEF I_SAKATLANIR]

NAME=SAKATLANDI

ID=4171

WEIGHT=0

TYPE=T_EQ_SCRIPT



ON=@CREATE

ATTR = ATTR_NEWBIE | ATTR_INVIS

TIMER = 4 // Bu etkinin kaç saniye süreceğini buradan ayarlayabilirsin.



ON=@EQUIP

CONT.SPEEDMODE 2 // Speedmode değeri 2 olduğunda oyuncu sadece yürüyebilir, koşması engellenir. Bineğin üzerinde olsa dahi oyuncu koşamaz.

CONT.EFFECT 3,I_FX_SMOKE,5,30,1,<EVAL 900>

CONT.SAYUA 950,6,6,1 * Hareket kısıtlanır *

CONT.HITS (<CONT.HITS> - 8)



ON=@TIMER

CONT.SPEEDMODE 0 // Varsayılan speedmode değeri 0'dır. Bu sayede oyuncu tekrar koşabilir.

CONT.SAYU * Hareketi düzelir  *

REMOVE

RETURN 1



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

////////Oyuncuya bir eşya giydiğinde veya bir silahı eline aldığında E_IKSIR eventini verdirek///////////////

////////oyuncunun bu bonusu kullanabilmesini sağlayabilirsiniz. Bu bonus sayesinde oyuncunun/////////////////

////////saldırıları 10'da 1 ihtimal ile hedefi sakatlar. Sakatlanan hedef 10 saniye boyunca iksir////////////

////////veya bandaj kullanamaz.//////////////////////////////////////////////////////////////////////////////

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



[EVENTS E_IKSIR]

ON=@HIT

IF (RAND(10)==1) && !(<SRC.FINDID.I_IKSIR_YASAK>) // Parantez içindeki sayı değeri yükseldikçe rakibi sakatlama ihtimali azalır. RAND ihtimal işlevidir. 

SRC.CONSUME 99999 I_IKSIR_YASAK

SERV.NEWITEM I_IKSIR_YASAK

NEW.EQUIP <SRC>

RETURN 1

ENDIF



[ITEMDEF I_IKSIR_YASAK]

NAME=IKSIR ICEMEZ

ID=4171

WEIGHT=0

TYPE=T_EQ_SCRIPT



ON=@CREATE

TIMER=10



ON=@EQUIP

CONT.EVENTS +E_IKSIR_ENGELI // Oyuncunun iksir tipi eşyalara çift tıklamasını engelleyen eventi verir. Eşya üzerinden oyuncuya işlem yaptırmak için CONT veya OBJ işlevleri kullanılır.

CONT.EFFECT 3,I_FX_SMOKE,5,30,1,<EVAL 500>

CONT.SAYUA 950,6,6,1 * İksir içemez *



ON=@TIMER

CONT.EVENTS -E_IKSIR_ENGELI

CONT.SAYU * İksir içebilir *

REMOVE

RETURN 1



[EVENTS E_IKSIR_ENGELI]

ON=@ITEMDCLICK

IF (<ACT.TYPE> == T_POTION) || (<ACT.BASEID> == I_BANDAGE) // İksirleriniz TYPE olarak yani TİP olarak İKSİR olarak seçiliyor. Farklı bir şekilde iksirler eklendiyse veya TYPE,ID olarak örtüşmüyorsa her bir iksir için ACT.BASEID bandage sorgusunu çoğaltarak iksirlerin ID'sini ekleyebilirsiniz. Bu şekilde TYPE olarak değil doğrudan o eşyanın ID'sini engellemiş olursunuz.

SRC.SYSMESSAGE @38,,1 İksir kullanabilmek için <SRC.FINDID.I_IKSIR_YASAK.TIMER> saniye beklemelisin.

RETURN 1

ENDIF



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

////////Oyuncuya bir eşya giydiğinde veya bir silahı eline aldığında E_KUTSAMA eventini verdirek/////////////

////////oyuncunun bu bonusu kullanabilmesini sağlayabilirsiniz. Bu bonus sayesinde oyuncu zehirlenme/////////

////////yaralanma ve sakatlanma etkilerinden arınır ve can değeri 20 puan artar. 5 dakikada bir//////////////

////////kullanılabilir.//////////////////////////////////////////////////////////////////////////////////////

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



[EVENTS E_KUTSAMA]



[PLEVEL 1]

KUTSAMA



[FUNCTION KUTSAMA]

IF !(<ISEVENT.E_KUTSAMA>)

	SYSMESSAGE @38,,1 Kutsama bonusundan faydalanabilmek için gereken ilgili ekipmana sahip değilsin.

	RETURN 1

	ENDIF

	

IF (<SRC.FINDID.I_KUTSAMA>)

SRC.SYSMESSAGE @38,,1 Bu bonustan faydanabilmek için <SRC.FINDID.I_KUTSAMA.TIMER> saniye beklemen gerekiyor.

RETURN 1

ENDIF

IF !(<SRC.HITS> > 50)

SAYUA 058,6,6,0 * Kutsanır *

SRC.SYSMESSAGE @044,,1 Sizi etkileyen bütün olumsuz etkilerden kurtuldunuz. Ayrıca can değeriniz 20 arttırıldı.

FINDID.I_RUNE_POISON.REMOVE

SRC.FINDID.I_BLEEDING.REMOVE

SRC.FINDID.I_BLEEDING2.REMOVE

SRC.FINDID.I_IKSIR_YASAK.REMOVE

SRC.FINDID.I_SAKATLANIR.REMOVE

SRC.EVENTS -E_IKSIR_ENGELI

SRC.EVENTS -E_BLEED

NEWITEM I_KUTSAMA

ACT.EQUIP

SRC.HITS +=20

F_KUTSAMA_EFEKTI

RETURN 1

ELSE

SRC.SYSMESSAGE @38,,1 Bu bonustan faydalanabilmek için can değerinizin en fazla 50 olması gerekir.

ENDIF



[ITEMDEF I_KUTSAMA]

ID=I_MEMORY

TYPE=T_EQ_SCRIPT

NAME=KUTSAMA



ON=@CREATE

ATTR=ATTR_DECAY|ATTR_STATIC



ON=@EQUIP

TIMER=300



[FUNCTION F_KUTSAMA_EFEKTI]

EFFECT 3,I_FX_SPARKLE,0,16,0,026,5

SECTOR.ALLCLIENTS SENDPACKET 0C0 00 D0 D0 W0375A W<SRC.P.X> W<SRC.P.Y> B<EVAL(<SRC.P.Z>+2)> W<EVAL(<SRC.P.X>+4)> W<EVAL(<SRC.P.Y>)> B<EVAL(<SRC.P.Z>+10+{1 15})> B0 B16 00 00 00 B0 D026 D5

SECTOR.ALLCLIENTS SENDPACKET 0C0 00 D0 D0 W0375A W<SRC.P.X> W<SRC.P.Y> B<EVAL(<SRC.P.Z>+2)> W<EVAL(<SRC.P.X>)> W<EVAL(<SRC.P.Y>+4)> B<EVAL(<SRC.P.Z>+10+{1 15})> B0 B16 00 00 00 B0 D026 D5

SECTOR.ALLCLIENTS SENDPACKET 0C0 00 D0 D0 W0375A W<SRC.P.X> W<SRC.P.Y> B<EVAL(<SRC.P.Z>+2)> W<EVAL(<SRC.P.X>-2)> W<EVAL(<SRC.P.Y>)> B<EVAL(<SRC.P.Z>+10+{1 15})> B0 B16 00 00 00 B0 D026 D5

SECTOR.ALLCLIENTS SENDPACKET 0C0 00 D0 D0 W0375A W<SRC.P.X> W<SRC.P.Y> B<EVAL(<SRC.P.Z>+2)> W<EVAL(<SRC.P.X>)> W<EVAL(<SRC.P.Y>-2)> B<EVAL(<SRC.P.Z>+10+{1 15})> B0 B16 00 00 00 B0 D026 D5

Öncelikle eline sağlık, ancak IDLE oyunlarını örnek alabilirsin böyle sistemler için. Yani demek istediğim zaten hiç bir item olmadan random kesip ödül verecekse, bir menü açtırıp sadece oyuncu üzerinden timer çalıştırıp belli bir sürede bir random ödül yada puan versen daha iyi olabilir. Böylece hem gereksiz spawnlar ile uğraşmazsın, hem de süre derdin olmaz, sadece her 60 saniyede bir belli ödüller arasından random bir ödül verirsin, sonra onu da ekrana yazdırırsın olur biter. Bu şekilde ne oda, ne de bir spawn bug derdi de olmaz. Yani atıyorum mesela aktif olan her 60 saniyede bir 1-3 puan arası bir puan verirsin, sonra yine puan ile gidip istedikleri vendordan ne isterlerse alabilirler. Skill falan ise dert, menüye bir skill sayfası eklersin, buradayken bu skilleri kas diye işaretleyebilir oyuncular, işte atıyorum her 60 saniyede bir 0.1 artırabilirsin o skillerden bir tanesini. Böylece hem bir yere fazlaca spawn doldurup buga sokmaktan kurtulursun, hem de sistemi hiç yormayacağı için performans kaybı da yaşamazsın. Ayrıca böyle ölürse canlansın, o yapsın bu yapsın derdin de olmaz gibi. Tabii sadece kişisel fikir benimkisi.

Bende kişilerin geliştirmesi adına kendim başlattığım ama bitirmediğim depo sistemini paylaşayım

[plevel 1]

deposistem



[function deposistem]

ctag.sayfa=

dialogclose d_deposistem

sdialog d_deposistem



[dialog d_deposistem]

40,40

nomove

resizepic 0 0 2620 400 500

resizepic 410 0 2620 200 200

local.y 30



for t <eval <tag0.sayfa>+1> <eval <tag0.sayfa>+10>



if !(0<tag.esyasayisi> == 0)



if !(strmatch('<tag.esya<dlocal.t>>',''))

dhtmlgump 60 <local.y> 250 25 0 0 <def.bfont_white><dlocal.t> - <def.bfont_red><eval <tag.esyasayi<dlocal.t>>> Adet <serv.itemdef.<tag.esya<dlocal.t>>.name>

//checkbox 20 <local.y> 210 211 0 <dlocal.t>

if (<eval <tag.esyasayi<dlocal.t>>> > 0)

button 20 <local.y> 4005 4006 1 0 <dlocal.t>

endif

local.y +=30

endif

else

dhtmlgump 60 <local.y> 200 25 0 0 <def.bfont_lred> Deponuz Boş

endif

endfor



button 120 470 4014 4015 1 0 9999

button 235 470 4005 4006 1 0 9998

button 440 60 4005 4006 1 0 9997

dhtmlgump 470 60 250 25 0 0 <def.bfont_red> Depoya Ekle

dtext 150 470 1153 Sayfa <eval (<tag0.sayfa>/10)+1>/<eval <eval <tag0.esyasayisi>/10>+1>





[dialog d_deposistem button]

on 1 9900

if (<tag.esya<argn>>==i_gold)

newitem i_check

new.more1 <tag.esyasayi<argn>>

new.bounce

tag.esyasayi<argn> 0

dialog d_deposistem

sysmessage @63,1,1,1 Paranız çek olarak çantanıza yerleştirilmiştir.

return 1

else

depodancikart <tag.esya<argn>>

tag.esyasayi<argn> -=1

dialog d_deposistem

endif



ON=9997

depoyaekle

ON=9998

tag.sayfa +=10



if <eval <tag.sayfa>/10> > <eval <tag.esyasayisi>/10>

tag.sayfa = 

endif



dialog d_deposistem



ON=9999

tag0.sayfa -=10



if (<tag.sayfa> < 1)

tag.sayfa 

endif

sdialog d_deposistem 



[function depoyaekle]

targetf _depoyaekle

sysmessage @038,1,1,1 Depoya neyi eklemek istiyorsunuz ?



[function _depoyaekle]

if !(<argo.cont> == <findlayer.21.uid>)

src.sys_kirmizi Bunu depoya eklemeniz için çantanızda olması gerekmektedir.

return 1

endif



if (<argo.baseid>==i_deed_animal) || (<argo.baseid>==i_binek_hafiza)

sysmessage @33,1,1,1 Maalesef Shrinklenmiş Binekler Eklenemez.

return 1

endif



if (<argo.baseid>==i_check)

for x 1 <eval <tag.esyasayisi>>

if (strmatch('<tag.esya<dlocal.x>>','i_gold')

local.satir=<eval <dlocal.x>>

endif

endfor



if !(<local.satir>==0)

tag.esyasayi<dlocal.satir> +=<eval <argo.more1>> 

sysmessage @038,1,1,1 <eval <argo.more1>> Gold Depo Stoğuna Aktarılmıştır.

argo.remove

dialog d_deposistem

else

tag.esyasayisi =<eval <tag.esyasayisi>+1>

tag.esya<eval <tag.esyasayisi>> = i_gold

tag.esyasayi<eval <tag.esyasayisi>>  = <eval <argo.more1>>

sysmessage @038,1,1,1 <eval <argo.more1>> Gold Depo'ya Eklenmiştir.

argo.remove

dialog d_deposistem

endif



return 1

endif



for x 1 <eval <tag.esyasayisi>>

if (strmatch('<tag.esya<dlocal.x>>','<argo.baseid>')

local.satir=<eval <dlocal.x>>

endif

endfor



if !(<local.satir>==0)

tag.esyasayi<dlocal.satir> +=<argo.amount>

sysmessage @038,1,1,1 <argo.amount> Adet <argo.name> Depo Stoğuna Aktarılmıştır.

argo.remove

dialog d_deposistem

else

tag.esyasayisi =<eval <tag.esyasayisi>+1>

tag.esya<eval <tag.esyasayisi>> = <argo.baseid>

tag.esyasayi<eval <tag.esyasayisi>>  = <argo.amount>

sysmessage @038,1,1,1 <argo.amount> Adet <argo.name> Depo'ya Eklenmiştir.

argo.remove

dialog d_deposistem

endif

targetf _depoyaekle

sysmessage @038,1,1,1 Depoya neyi eklemek istiyorsunuz ?



[function depotemizle]

for x 0 9999

tag.esya<dlocal.x> =

tag.esyasayi<dlocal.x> =

endfor

tag.esyasayisi 0

sysmessage @63,1,1,1 Deponuz temizlenmiştir.



[function depodancikart]

newitem <args>

new.bounce

sysmessage @63,1,1,1 1 Adet <serv.itemdef.<args>.name> Çıkartılmıştır.



[EOF]

@xwerswoodx
Belirttiğin sistem zaten birçok sunucuda online kredi sistemi veya online süre sistemi olarak geçiyor. Ben mevcut konjonktürde en fazla 50-60 oyuncu barındıran sunucular için var olan kredi sistemini sadece farklı bir işleyiş ile hazırlamak istedim. Temel mantık zaten dediğin gibi sadece bu şekli ile adına sistem veya içerik demek demek daha rahat oluyor. Teşekkürler değerli fikrin için, arkadaşlar için bir alternatif oluşturacaktır.

*

Biz sadece belirli eşyaları depolamak istediğimiz için, böyle bir depo hazırlamıştık. Herhangi bir hata, eşya kaybolması veya miktar da azalma olmadan sorunsuz çalışmakta şuan. Ekran görüntüsü boş bir sphere'da aldığım için bazı eşyaların görselleri görünmemiş.

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

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

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



[ITEMDEF i_item_stack]

ID=02834

type=t_eq_script

name item stock

Value=2500

weight 5



on=@create

tag.1 0

tag.2 0

tag.3 0

tag.4 0

tag.5 0

tag.6 0

tag.7 0

tag.8 0

color 00543

attr=04



on=@click

message @0bb2,,1 eşya deposu

return 1



on=@dclick

if (<color> == 00542)

	tag.1 <tag.bm>

	tag.2 <tag.sa>

	tag.3 <tag.n>

	tag.4 <tag.ss>

	tag.5 <tag.gi>

	tag.6 <tag.ga>

	tag.7 <tag.mr>

	tag.8 <tag.bp>

	tag.bm 

	tag.sa 

	tag.n 

	tag.ss 

	tag.gi 

	tag.ga 

	tag.mr 

	tag.bp 

	color 00543

endif



if (<src.isevent.e_safe_zone>)

sdialog d_item_stack_info

else

src.sysmessage @0bb2,,1 Bu eşyayı kullanabilmeniz için eşyanın çantanızda olması gerekmektedir.

src.sys_kirmizi Bu komutu safe alanda çalışmaktadir.

return 1

endif



on=@targon_char

return 1



on=@targon_ground

return 1



on=@targon_item

if !(strmatch('<baseid>','i_item_stack'))

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if (strmatch('<src.targ.baseid>','i_random_raid_entrance'))

	tag.7 <eval <tag.7>>+<eval <src.targ.amount>>

	src.sysmessage @52,,1 <eval <src.targ.amount>> adet rastgele baskın nesnesi eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_mount_dexterity'))

	tag.8 <eval <tag.8>>+<eval <src.targ.amount>>

	src.sysmessage @58,,1 <eval <src.targ.amount>> adet binek yükseltme belgesi (dex) eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_treasure_map'))

	tag.6 <eval <tag.6>>+<eval <src.targ.amount>>

	src.sysmessage @52,,1 <eval <src.targ.amount>> adet hazine haritası başarıyla eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_god_bless'))

	tag.5 <eval <tag.5>>+<eval <src.targ.amount>>

	src.sysmessage @52,,1 <eval <src.targ.amount>> adet tanrısal özüt eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_mount_strength'))

	tag.1 <eval <tag.1>>+<eval <src.targ.amount>>

	src.sysmessage @058,,1 <eval <src.targ.amount>> adet binek yükseltme belgesi (str) eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_armor_plus'))

	tag.3 <eval <tag.3>>+<eval <src.targ.amount>>

	src.sysmessage @38,,1 <eval <src.targ.amount>> adet ekipman yükseltme taşı eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_weapon_plus'))

	tag.2 <eval <tag.2>>+<eval <src.targ.amount>>

	src.sysmessage @50,,1 <eval <src.targ.amount>> adet silah yükseltme taşı eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_robe_plus'))

	tag.4 <eval <tag.4>>+<eval <src.targ.amount>>

	src.sysmessage @58,,1 <eval <src.targ.amount>> adet cübbe yükseltme taşı eklendi.

	src.targ.remove

else

	src.sysmessage @38,,1 Bu eşya depolanabilir nesneler listesinde bulunmuyor.

endif

return 1



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

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

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



[dialog d_item_stack_info]

100,0

resizepic 5 70 3600 400 300

resizepic 15 80 5054 331 280



text 140 85 <eval 48> 16

tilepichue 195 112 <serv.itemdef.i_deed_animal.id> <eval 0796>

resizepic 210 128 3000 60 25

text 220 130 48 0

text 232 110 <eval 100> 1

tilepichue 13 112 <serv.itemdef.i_weapon_plus.id> <eval 0794>

resizepic 22 128 3000 60 25

text 33 130 48 2 

text 45 110 <eval 55> 3 

tilepichue 13 164 <serv.itemdef.i_armor_plus.id> <eval 0799>

resizepic 22 184 3000 60 25

text 33 186 48 4 

text 45 162 <eval 38> 5 

tilepichue 13 216 <serv.itemdef.i_robe_plus.id> <eval 0795>

resizepic 22 233 3000 60 25

text 33 235 48 6 

text 45 214 <eval 58> 7 

tilepichue 10 268 <serv.itemdef.i_god_bless.id>

resizepic 22 285 3000 60 25

text 33 287 48 8 

text 45 266 <eval 52> 9 

tilepichue 200 273 <serv.itemdef.i_treasure_map.id> <eval 07ad>

resizepic 210 285 3000 60 25

text 220 287 48 10 

text 232 266 <eval 55> 11 

tilepichue 200 216 <serv.itemdef.i_random_raid_entrance.id> <eval 0798>

resizepic 210 233 3000 60 25

text 220 235 48 12 

text 232 214 <eval 52> 13

tilepichue 198 168 <serv.itemdef.i_deed_animal.id> <eval 0795>

resizepic 210 184 3000 60 25

text 220 186 48 14 

text 232 162 <eval 57> 15



text 190 330 <eval 057> 17

button 165 330 2559 2560 1 0 1

text 310 330 <eval 52> 18

button 285 330 2559 2560 1 0 12



button 90 130 2559 2560 1 0 2

button 90 182 2559 2560 1 0 3

button 90 234 2559 2560 1 0 4

button 90 286 2559 2560 1 0 5

button 277 130 2559 2560 1 0 6

button 277 182 2559 2560 1 0 7

button 277 234 2559 2560 1 0 8

button 277 286 2559 2560 1 0 9



button 25 330 2559 2560 1 0 11

dtext 50 330 044 Hepsini Çıkar



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

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

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



[dialog d_item_stack_info TEXT]

<eval <tag.1>>

Binek Yükseltme (STR)

<eval <tag.2>>

Silah Yükseltme Taşı

<eval <tag.3>>

Ekipman Yükseltme Taşı

<eval <tag.4>>

Cübbe Yükseltme Taşı

<eval <tag.5>>

Tanrısal Özüt

<eval <tag.6>>

Hazine Haritası

<eval <tag.7>>

Rastgele Baskın Sandığı

<eval <tag.8>>

Binek Yükseltme (DEX)

Eşya Depo Penceresi

Eşya Ekle

Hepsini Ekle



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

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

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



[dialog d_item_stack_info BUTTON]

on=1

target

src.sysmessage @044,,1 Lütfen eklemek istediğiniz nesneyi seçin.

on=2

more 2

tag.itemadd=weapon_plus

sdialog d_item_out

on=3

more 3

tag.itemadd=armor_plus

dialogclose d_item_out

sdialog d_item_out

on=4

more 4

tag.itemadd=robe_plus

sdialog d_item_out

on=5

more 5

tag.itemadd=god_bless

sdialog d_item_out

on=6

more 1

tag.itemadd=mount_strength

sdialog d_item_out

on=7

more 8

tag.itemadd=mount_dexterity

sdialog d_item_out

on=8

more 7

tag.itemadd=random_raid_entrance

sdialog d_item_out

on=9

more 6

tag.itemadd=treasure_map

sdialog d_item_out

On=0

dialogclose d_item_out

more 00

tag.itemadd=

tag.itemexit=



on=11

sdialog d_item_out1



on=12

if !(<src.findid.i_random_raid_entrance>) && !(<src.findid.i_mount_dexterity>) && !(<src.findid.i_treasure_map>) && !(<src.findid.i_god_bless>) && !(<src.findid.i_mount_strength>) && !(<src.findid.i_armor_plus>) && !(<src.findid.i_weapon_plus>) && !(<src.findid.i_robe_plus>)

	src.sysmessage @38,,1 Çantanızda depolanabilir herhangi bir eşya bulunmuyor.

	return 1

endif

tag.7 <eval <tag.7>>+<src.rescount i_random_raid_entrance>

tag.8 <eval <tag.8>>+<src.rescount i_mount_dexterity>

tag.6 <eval <tag.6>>+<src.rescount i_treasure_map>

tag.5 <eval <tag.5>>+<src.rescount i_god_bless>

tag.1 <eval <tag.1>>+<src.rescount i_mount_strength>

tag.3 <eval <tag.3>>+<src.rescount i_armor_plus>

tag.2 <eval <tag.2>>+<src.rescount i_weapon_plus>

tag.4 <eval <tag.4>>+<src.rescount i_robe_plus>

src.sysmessage @68,1,1 Depoya eklenebilir bütün eşyalar, eşya deposuna eklendi.

src.f_allstackdelete



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

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

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



[function f_allstackdelete]

src.consume 65000 i_random_raid_entrance

src.consume 65000 i_mount_dexterity

src.consume 65000 i_treasure_map

src.consume 65000 i_god_bless

src.consume 65000 i_mount_strength

src.consume 65000 i_armor_plus

src.consume 65000 i_weapon_plus

src.consume 65000 i_robe_plus



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

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

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



[function f_itemexit]

if (<more> == 2)

	tag.2=(<eval <tag.2>>-<eval <tag.itemexit>>)

	src.sysmessage @52,,1 <eval <tag.itemexit>> adet rastgele baskın nesnesi çıkarıldı.

elseif (<more> == 3)

	tag.3=(<eval <tag.3>>-<eval <tag.itemexit>>)

	src.sysmessage 58,,1 <eval <tag.itemexit>> adet binek yükseltme belgesi (dex) çıkarıldı.

elseif (<more> == 4)

	tag.4=(<eval <tag.4>>-<eval <tag.itemexit>>)

	src.sysmessage @52,,1 <eval <tag.itemexit>> adet hazine haritası çıkarıldı.

elseif (<more> == 5)

	tag.5=(<eval <tag.5>>-<eval <tag.itemexit>>)

	src.sysmessage @0790,,1 <eval <tag.itemexit>> adet tanrısal özüt çıkarıldı.

elseif (<more> == 1)

	tag.1=(<eval <tag.1>>-<eval <tag.itemexit>>)

	src.sysmessage @058,,1 <eval <tag.itemexit>> adet binek yükseltme belgesi (str) çıkarıldı.

elseif (<more> == 8)

	tag.8=(<eval <tag.8>>-<eval <tag.itemexit>>)

	src.sysmessage @38,,1 <eval <tag.itemexit>> adet ekipman yükseltme taşı çıkarıldı.

elseif (<more> == 7)

	tag.7=(<eval <tag.7>>-<eval <tag.itemexit>>)

	src.sysmessage @50,,1 <eval <tag.itemexit>> adet silah yükseltme taşı çıkarıldı.

elseif (<more> == 6)

	tag.6=(<eval <tag.6>>-<eval <tag.itemexit>>)

	src.sysmessage @58,,1 <eval <tag.itemexit>> adet cübbe yükseltme taşı eklendi.

endif



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

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

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



[function f_itemexitall]

tag.2=(<eval <tag.2>>-<eval <tag.itemexit>>)

tag.3=(<eval <tag.3>>-<eval <tag.itemexit>>)

tag.4=(<eval <tag.4>>-<eval <tag.itemexit>>)

tag.5=(<eval <tag.5>>-<eval <tag.itemexit>>)

tag.1=(<eval <tag.1>>-<eval <tag.itemexit>>)

tag.8=(<eval <tag.8>>-<eval <tag.itemexit>>)

tag.7=(<eval <tag.7>>-<eval <tag.itemexit>>)

tag.6=(<eval <tag.6>>-<eval <tag.itemexit>>)

src.newitem i_weapon_plus

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_weapon_plus.remove

src.newitem i_armor_plus

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_armor_plus.remove

src.newitem i_robe_plus

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_robe_plus.remove

src.newitem i_god_bless

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_god_bless.remove

src.newitem i_mount_strength

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_mount_strength.remove

src.newitem i_mount_dexterity

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_mount_dexterity.remove

src.newitem i_random_raid_entrance

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_random_raid_entrance.remove

src.newitem i_treasure_map

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_treasure_map.remove



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

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

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

		

[dialog d_item_out]

250,250

nomove



resizepic 10 35 3600 200 80

resizepic 25 70 3000 90 30

button 120 75 2559 2560 1 0 1

textentry 30 76 600 20 1152 1 0

text 25 45 <eval 52> 1



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

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

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



[dialog d_item_out text]

<eval <tag.<eval <more>>>>

Kaç adet eşya çıkartılacak ?



[dialog d_item_out button]

On=1

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

	src.sysmessage @38,,1 Sadece rakamları kullanabilirsiniz.

	return 1

endif

if !(strmatch('<baseid>','i_item_stack'))

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if (<more> == 0)

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if !(<eval <argtxt[1]>> > <tag.<eval <more>>>)

	if !(<eval <argtxt[1]>> <= 0) && (<eval <argtxt[1]>> <= <eval 65000>)

		tag.itemexit=<argtxt[1]>

		f_itemexit

		src.newitem i_<tag.itemadd>

		src.act.cont=<src.findlayer(21).uid>

		src.act.dupe <argtxt[1]>

		src.findid.i_<tag.itemadd>.remove

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

		src.sysmessage @38,,1 Tek seferde en fazla 65.000 adet eşya çıkartılabilir.

	else

		src.sysmessage @38,,1 Eşyalar çıkartılamadı.

	endif

else

	src.sysmessage @38,,1 Bu kadar eşyaya sahip değilsiniz.

endif

more 00

tag.itemadd=

tag.itemexit=

On=0

more 00

tag.itemadd=

tag.itemexit=



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

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

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



[dialog d_item_out1]

250,250

nomove



resizepic 10 35 3600 200 80

resizepic 25 70 3000 90 30

button 120 75 2559 2560 1 0 1

textentry 30 76 600 20 1152 1 0

text 25 45 <eval 52> 1



[dialog d_item_out1 text]

<eval <tag.<eval <more>>>>

Kaç adet eşya çıkartılacak ?



[dialog d_item_out1 button]

On=1

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

	src.sysmessage @38,,1 Sadece rakamları kullanabilirsiniz.

	return 1

endif

if !(strmatch('<baseid>','i_item_stack'))

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if (<eval <argtxt[1]>> > <eval 65000>)

	src.sysmessage @38,,1 Tek seferde en fazla 65.000 adet eşya çıkartılabilir.

	return 1

endif

if !((<eval <argtxt[1]>> > <tag.1>) || (<eval <argtxt[1]>> > <tag.2>) || (<eval <argtxt[1]>> > <tag.3>) || (<eval <argtxt[1]>> > <tag.4>) || (<eval <argtxt[1]>> > <tag.5>) || (<eval <argtxt[1]>> > <tag.6>) || (<eval <argtxt[1]>> > <tag.7>) || (<eval <argtxt[1]>> > <tag.8>))

	if !(<eval <argtxt[1]>> <= 0) && (<eval <argtxt[1]>> <= <eval 65000>)

		tag.itemexit=<argtxt[1]>

		f_itemexitall

	else

		src.sysmessage @38,,1 Eşyalar çıkartılamadı.

	endif

else

	src.sysmessage @38,,1 Bu kadar eşyaya sahip değilsiniz.

endif

more 00



On=0

more 00

tag.itemadd=



[eof]

"

@xwerswoodx
Belirttiğin sistem zaten birçok sunucuda online kredi sistemi veya online süre sistemi olarak geçiyor. Ben mevcut konjonktürde en fazla 50-60 oyuncu barındıran sunucular için var olan kredi sistemini sadece farklı bir işleyiş ile hazırlamak istedim. Temel mantık zaten dediğin gibi sadece bu şekli ile adına sistem veya içerik demek demek daha rahat oluyor. Teşekkürler değerli fikrin için, arkadaşlar için bir alternatif oluşturacaktır.

*

Biz sadece belirli eşyaları depolamak istediğimiz için, böyle bir depo hazırlamıştık. Herhangi bir hata, eşya kaybolması veya miktar da azalma olmadan sorunsuz çalışmakta şuan. Ekran görüntüsü boş bir sphere'da aldığım için bazı eşyaların görselleri görünmemiş.

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

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

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



[ITEMDEF i_item_stack]

ID=02834

type=t_eq_script

name item stock

Value=2500

weight 5



on=@create

tag.1 0

tag.2 0

tag.3 0

tag.4 0

tag.5 0

tag.6 0

tag.7 0

tag.8 0

color 00543

attr=04



on=@click

message @0bb2,,1 eşya deposu

return 1



on=@dclick

if (<color> == 00542)

	tag.1 <tag.bm>

	tag.2 <tag.sa>

	tag.3 <tag.n>

	tag.4 <tag.ss>

	tag.5 <tag.gi>

	tag.6 <tag.ga>

	tag.7 <tag.mr>

	tag.8 <tag.bp>

	tag.bm 

	tag.sa 

	tag.n 

	tag.ss 

	tag.gi 

	tag.ga 

	tag.mr 

	tag.bp 

	color 00543

endif



if (<src.isevent.e_safe_zone>)

sdialog d_item_stack_info

else

src.sysmessage @0bb2,,1 Bu eşyayı kullanabilmeniz için eşyanın çantanızda olması gerekmektedir.

src.sys_kirmizi Bu komutu safe alanda çalışmaktadir.

return 1

endif



on=@targon_char

return 1



on=@targon_ground

return 1



on=@targon_item

if !(strmatch('<baseid>','i_item_stack'))

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if (strmatch('<src.targ.baseid>','i_random_raid_entrance'))

	tag.7 <eval <tag.7>>+<eval <src.targ.amount>>

	src.sysmessage @52,,1 <eval <src.targ.amount>> adet rastgele baskın nesnesi eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_mount_dexterity'))

	tag.8 <eval <tag.8>>+<eval <src.targ.amount>>

	src.sysmessage @58,,1 <eval <src.targ.amount>> adet binek yükseltme belgesi (dex) eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_treasure_map'))

	tag.6 <eval <tag.6>>+<eval <src.targ.amount>>

	src.sysmessage @52,,1 <eval <src.targ.amount>> adet hazine haritası başarıyla eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_god_bless'))

	tag.5 <eval <tag.5>>+<eval <src.targ.amount>>

	src.sysmessage @52,,1 <eval <src.targ.amount>> adet tanrısal özüt eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_mount_strength'))

	tag.1 <eval <tag.1>>+<eval <src.targ.amount>>

	src.sysmessage @058,,1 <eval <src.targ.amount>> adet binek yükseltme belgesi (str) eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_armor_plus'))

	tag.3 <eval <tag.3>>+<eval <src.targ.amount>>

	src.sysmessage @38,,1 <eval <src.targ.amount>> adet ekipman yükseltme taşı eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_weapon_plus'))

	tag.2 <eval <tag.2>>+<eval <src.targ.amount>>

	src.sysmessage @50,,1 <eval <src.targ.amount>> adet silah yükseltme taşı eklendi.

	src.targ.remove

elseif (strmatch('<src.targ.baseid>','i_robe_plus'))

	tag.4 <eval <tag.4>>+<eval <src.targ.amount>>

	src.sysmessage @58,,1 <eval <src.targ.amount>> adet cübbe yükseltme taşı eklendi.

	src.targ.remove

else

	src.sysmessage @38,,1 Bu eşya depolanabilir nesneler listesinde bulunmuyor.

endif

return 1



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

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

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



[dialog d_item_stack_info]

100,0

resizepic 5 70 3600 400 300

resizepic 15 80 5054 331 280



text 140 85 <eval 48> 16

tilepichue 195 112 <serv.itemdef.i_deed_animal.id> <eval 0796>

resizepic 210 128 3000 60 25

text 220 130 48 0

text 232 110 <eval 100> 1

tilepichue 13 112 <serv.itemdef.i_weapon_plus.id> <eval 0794>

resizepic 22 128 3000 60 25

text 33 130 48 2 

text 45 110 <eval 55> 3 

tilepichue 13 164 <serv.itemdef.i_armor_plus.id> <eval 0799>

resizepic 22 184 3000 60 25

text 33 186 48 4 

text 45 162 <eval 38> 5 

tilepichue 13 216 <serv.itemdef.i_robe_plus.id> <eval 0795>

resizepic 22 233 3000 60 25

text 33 235 48 6 

text 45 214 <eval 58> 7 

tilepichue 10 268 <serv.itemdef.i_god_bless.id>

resizepic 22 285 3000 60 25

text 33 287 48 8 

text 45 266 <eval 52> 9 

tilepichue 200 273 <serv.itemdef.i_treasure_map.id> <eval 07ad>

resizepic 210 285 3000 60 25

text 220 287 48 10 

text 232 266 <eval 55> 11 

tilepichue 200 216 <serv.itemdef.i_random_raid_entrance.id> <eval 0798>

resizepic 210 233 3000 60 25

text 220 235 48 12 

text 232 214 <eval 52> 13

tilepichue 198 168 <serv.itemdef.i_deed_animal.id> <eval 0795>

resizepic 210 184 3000 60 25

text 220 186 48 14 

text 232 162 <eval 57> 15



text 190 330 <eval 057> 17

button 165 330 2559 2560 1 0 1

text 310 330 <eval 52> 18

button 285 330 2559 2560 1 0 12



button 90 130 2559 2560 1 0 2

button 90 182 2559 2560 1 0 3

button 90 234 2559 2560 1 0 4

button 90 286 2559 2560 1 0 5

button 277 130 2559 2560 1 0 6

button 277 182 2559 2560 1 0 7

button 277 234 2559 2560 1 0 8

button 277 286 2559 2560 1 0 9



button 25 330 2559 2560 1 0 11

dtext 50 330 044 Hepsini Çıkar



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

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

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



[dialog d_item_stack_info TEXT]

<eval <tag.1>>

Binek Yükseltme (STR)

<eval <tag.2>>

Silah Yükseltme Taşı

<eval <tag.3>>

Ekipman Yükseltme Taşı

<eval <tag.4>>

Cübbe Yükseltme Taşı

<eval <tag.5>>

Tanrısal Özüt

<eval <tag.6>>

Hazine Haritası

<eval <tag.7>>

Rastgele Baskın Sandığı

<eval <tag.8>>

Binek Yükseltme (DEX)

Eşya Depo Penceresi

Eşya Ekle

Hepsini Ekle



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

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

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



[dialog d_item_stack_info BUTTON]

on=1

target

src.sysmessage @044,,1 Lütfen eklemek istediğiniz nesneyi seçin.

on=2

more 2

tag.itemadd=weapon_plus

sdialog d_item_out

on=3

more 3

tag.itemadd=armor_plus

dialogclose d_item_out

sdialog d_item_out

on=4

more 4

tag.itemadd=robe_plus

sdialog d_item_out

on=5

more 5

tag.itemadd=god_bless

sdialog d_item_out

on=6

more 1

tag.itemadd=mount_strength

sdialog d_item_out

on=7

more 8

tag.itemadd=mount_dexterity

sdialog d_item_out

on=8

more 7

tag.itemadd=random_raid_entrance

sdialog d_item_out

on=9

more 6

tag.itemadd=treasure_map

sdialog d_item_out

On=0

dialogclose d_item_out

more 00

tag.itemadd=

tag.itemexit=



on=11

sdialog d_item_out1



on=12

if !(<src.findid.i_random_raid_entrance>) && !(<src.findid.i_mount_dexterity>) && !(<src.findid.i_treasure_map>) && !(<src.findid.i_god_bless>) && !(<src.findid.i_mount_strength>) && !(<src.findid.i_armor_plus>) && !(<src.findid.i_weapon_plus>) && !(<src.findid.i_robe_plus>)

	src.sysmessage @38,,1 Çantanızda depolanabilir herhangi bir eşya bulunmuyor.

	return 1

endif

tag.7 <eval <tag.7>>+<src.rescount i_random_raid_entrance>

tag.8 <eval <tag.8>>+<src.rescount i_mount_dexterity>

tag.6 <eval <tag.6>>+<src.rescount i_treasure_map>

tag.5 <eval <tag.5>>+<src.rescount i_god_bless>

tag.1 <eval <tag.1>>+<src.rescount i_mount_strength>

tag.3 <eval <tag.3>>+<src.rescount i_armor_plus>

tag.2 <eval <tag.2>>+<src.rescount i_weapon_plus>

tag.4 <eval <tag.4>>+<src.rescount i_robe_plus>

src.sysmessage @68,1,1 Depoya eklenebilir bütün eşyalar, eşya deposuna eklendi.

src.f_allstackdelete



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

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

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



[function f_allstackdelete]

src.consume 65000 i_random_raid_entrance

src.consume 65000 i_mount_dexterity

src.consume 65000 i_treasure_map

src.consume 65000 i_god_bless

src.consume 65000 i_mount_strength

src.consume 65000 i_armor_plus

src.consume 65000 i_weapon_plus

src.consume 65000 i_robe_plus



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

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

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



[function f_itemexit]

if (<more> == 2)

	tag.2=(<eval <tag.2>>-<eval <tag.itemexit>>)

	src.sysmessage @52,,1 <eval <tag.itemexit>> adet rastgele baskın nesnesi çıkarıldı.

elseif (<more> == 3)

	tag.3=(<eval <tag.3>>-<eval <tag.itemexit>>)

	src.sysmessage 58,,1 <eval <tag.itemexit>> adet binek yükseltme belgesi (dex) çıkarıldı.

elseif (<more> == 4)

	tag.4=(<eval <tag.4>>-<eval <tag.itemexit>>)

	src.sysmessage @52,,1 <eval <tag.itemexit>> adet hazine haritası çıkarıldı.

elseif (<more> == 5)

	tag.5=(<eval <tag.5>>-<eval <tag.itemexit>>)

	src.sysmessage @0790,,1 <eval <tag.itemexit>> adet tanrısal özüt çıkarıldı.

elseif (<more> == 1)

	tag.1=(<eval <tag.1>>-<eval <tag.itemexit>>)

	src.sysmessage @058,,1 <eval <tag.itemexit>> adet binek yükseltme belgesi (str) çıkarıldı.

elseif (<more> == 8)

	tag.8=(<eval <tag.8>>-<eval <tag.itemexit>>)

	src.sysmessage @38,,1 <eval <tag.itemexit>> adet ekipman yükseltme taşı çıkarıldı.

elseif (<more> == 7)

	tag.7=(<eval <tag.7>>-<eval <tag.itemexit>>)

	src.sysmessage @50,,1 <eval <tag.itemexit>> adet silah yükseltme taşı çıkarıldı.

elseif (<more> == 6)

	tag.6=(<eval <tag.6>>-<eval <tag.itemexit>>)

	src.sysmessage @58,,1 <eval <tag.itemexit>> adet cübbe yükseltme taşı eklendi.

endif



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

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

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



[function f_itemexitall]

tag.2=(<eval <tag.2>>-<eval <tag.itemexit>>)

tag.3=(<eval <tag.3>>-<eval <tag.itemexit>>)

tag.4=(<eval <tag.4>>-<eval <tag.itemexit>>)

tag.5=(<eval <tag.5>>-<eval <tag.itemexit>>)

tag.1=(<eval <tag.1>>-<eval <tag.itemexit>>)

tag.8=(<eval <tag.8>>-<eval <tag.itemexit>>)

tag.7=(<eval <tag.7>>-<eval <tag.itemexit>>)

tag.6=(<eval <tag.6>>-<eval <tag.itemexit>>)

src.newitem i_weapon_plus

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_weapon_plus.remove

src.newitem i_armor_plus

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_armor_plus.remove

src.newitem i_robe_plus

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_robe_plus.remove

src.newitem i_god_bless

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_god_bless.remove

src.newitem i_mount_strength

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_mount_strength.remove

src.newitem i_mount_dexterity

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_mount_dexterity.remove

src.newitem i_random_raid_entrance

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_random_raid_entrance.remove

src.newitem i_treasure_map

src.act.cont=<src.findlayer(21).uid>

src.act.dupe <eval <tag.itemexit>>

src.findid.i_treasure_map.remove



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

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

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

		

[dialog d_item_out]

250,250

nomove



resizepic 10 35 3600 200 80

resizepic 25 70 3000 90 30

button 120 75 2559 2560 1 0 1

textentry 30 76 600 20 1152 1 0

text 25 45 <eval 52> 1



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

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

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



[dialog d_item_out text]

<eval <tag.<eval <more>>>>

Kaç adet eşya çıkartılacak ?



[dialog d_item_out button]

On=1

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

	src.sysmessage @38,,1 Sadece rakamları kullanabilirsiniz.

	return 1

endif

if !(strmatch('<baseid>','i_item_stack'))

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if (<more> == 0)

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if !(<eval <argtxt[1]>> > <tag.<eval <more>>>)

	if !(<eval <argtxt[1]>> <= 0) && (<eval <argtxt[1]>> <= <eval 65000>)

		tag.itemexit=<argtxt[1]>

		f_itemexit

		src.newitem i_<tag.itemadd>

		src.act.cont=<src.findlayer(21).uid>

		src.act.dupe <argtxt[1]>

		src.findid.i_<tag.itemadd>.remove

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

		src.sysmessage @38,,1 Tek seferde en fazla 65.000 adet eşya çıkartılabilir.

	else

		src.sysmessage @38,,1 Eşyalar çıkartılamadı.

	endif

else

	src.sysmessage @38,,1 Bu kadar eşyaya sahip değilsiniz.

endif

more 00

tag.itemadd=

tag.itemexit=

On=0

more 00

tag.itemadd=

tag.itemexit=



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

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

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



[dialog d_item_out1]

250,250

nomove



resizepic 10 35 3600 200 80

resizepic 25 70 3000 90 30

button 120 75 2559 2560 1 0 1

textentry 30 76 600 20 1152 1 0

text 25 45 <eval 52> 1



[dialog d_item_out1 text]

<eval <tag.<eval <more>>>>

Kaç adet eşya çıkartılacak ?



[dialog d_item_out1 button]

On=1

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

	src.sysmessage @38,,1 Sadece rakamları kullanabilirsiniz.

	return 1

endif

if !(strmatch('<baseid>','i_item_stack'))

	src.sysmessage @38,,1 Bunu yapamazsınız.

	return 1

endif

if (<eval <argtxt[1]>> > <eval 65000>)

	src.sysmessage @38,,1 Tek seferde en fazla 65.000 adet eşya çıkartılabilir.

	return 1

endif

if !((<eval <argtxt[1]>> > <tag.1>) || (<eval <argtxt[1]>> > <tag.2>) || (<eval <argtxt[1]>> > <tag.3>) || (<eval <argtxt[1]>> > <tag.4>) || (<eval <argtxt[1]>> > <tag.5>) || (<eval <argtxt[1]>> > <tag.6>) || (<eval <argtxt[1]>> > <tag.7>) || (<eval <argtxt[1]>> > <tag.8>))

	if !(<eval <argtxt[1]>> <= 0) && (<eval <argtxt[1]>> <= <eval 65000>)

		tag.itemexit=<argtxt[1]>

		f_itemexitall

	else

		src.sysmessage @38,,1 Eşyalar çıkartılamadı.

	endif

else

	src.sysmessage @38,,1 Bu kadar eşyaya sahip değilsiniz.

endif

more 00



On=0

more 00

tag.itemadd=



[eof]

Aftrosh*

Senin paylaştığın kısıtlı itemler için hazırlanmış düz bir dialog , benim başlangıcını yapmış olduğum ise item sınırı olmaksızın herşeyi ekleyebileceğin bir sistem

Ellerine sağlık