Merhaba Bilgimiz Raid dungeon giriş sistemi ben vendor olarak uyarlamaya çalıştım nerede hata yapmış olabilirim Client patlıyor. Benim yapmak istedigim vendoru tıklayınca direk girsinler birtürlü yapamadım bakabilirmisinz nerde hata yapıyorum
Kod:
[CHARDEF c_asd]
Defname c_asd
Name House Vendor
Id c_man
DESIRES=i_gold
CAN=mt_nonmover|mt_usehands|mt_equip
RESDISPDNHUE=0798
ON=@Create
THISVENDORS 2
invul=1
STR=100
DEX=100
INT=100
ALLSKILLS=100.0
STEALTH=0
HIDING=0
on=@dclick
IF !(<SRC.ISINPACK <UID>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
RE
ELSEIF (<SRC.ISBINEK>)
SRC.SYS_KIRMIZI Dungeon'a binekle giriş yapamazsınız.
RETURN 1
ENDIF
FORCHARS 25
IF (<memoryfindtype.memory_ipet>)
IF (<memoryfindtype.memory_ipet.link>==<src.uid>)
SRC.SYS_KIRMIZı Etrafda size ait binek varken giremezsiniz. (<NAME>)
RETURN 1
ENDIF
ENDIF
ENDFOR
FORINSTANCES C_RAID
REMOVE
ENDFOR
SERV.NEWNPC C_RAID
NEW.P 5197,1193
NEW.HOME <NEW.P>
NEW.HOMEDIST {5 10}
VAR0.RAID=<NEW.UID>
SRC.GO RAID DUNGEON
SERV.NEWITEM I_RAID_MEM,1,<SRC>,1
serv.allclients sysmessage @0794,,1 DUNGEON Duyuru:
SERV.ALLCLIENTS SYSMESSAGE @0856,,1 <SRC.NAME> isimli oyuncu Dungeon'a girmiştir.
REF1.REMOVE
RETURN 1
[FUNCTION ISRAIDDER]
IF (<ISEVENT.E_RAID>)
RETURN 1
ELSE
RETURN 0
ENDIF
[ITEMDEF I_RAID_EXIT]
DEFNAME=I_RAID_EXIT
ID=i_moongate_black
NAME=Exit
TYPE=T_SCRIPT
on=@create
COLOR=080A
ATTR=010
on=@click
MSG K,(Moonglow)
message @0823,,1 Çıkışı
return 1
on=@dclick
REF1=<VAR0.RAIDDER>
IF (<REF1> == <SRC>)
SRC.CONSUME 99999 I_RAID_MEM
serv.allclients sysmessage @0794,,1 DUNGEON Duyuru:
serv.allclients sysmessage @07a1,1,1 <src.name> isimli oyuncu, Dungeon'dan çıkmıştır.
ELSE
SRC.SYS_KIRMIZI Dungeondeki oyuncu sen değilsin.
ENDIF
RETURN 1
on=@step
SRC.SYS_KIRMIZI Çift tıklıyarak geçebilirsiniz.
return 0
[itemdef i_raid_mem]
ID=i_handr_1
TYPE=t_eq_script
VALUE=0
WEIGHT=0
NAME=Memory
on=@create
COLOR=080a
ATTR=attr_invis|attr_Decay|attr_newbie
ON=@EQUIP
TIMER=900
SRC.F_FIZZLE
SRC.SKILL FAIL
SRC.EVENTS +E_RAID
SRC.TAG0.RAID_TOTAL +=1
SRC.TAG0.RAID_DEATH=5
SRC.TAG0.RAID_LOGOUT=5
VAR0.RAIDDER=<SRC>
SRC.DIALOGCLOSEALL
SRC.FINDID.I_RUNEBOOKDELAY.REMOVE
SRC.FINDID.I_STUCK.REMOVE
SRC.FINDID.I_DUEL_ITEM.REMOVE
FORINSTANCES T_CORPSE
IF (STRMATCH(*Raid Dungeon*,'<REGION.NAME>))
REMOVE
ENDIF
ENDFOR
on=@timer
TOPOBJ.SYS_KIRMIZI Dungeon süreniz doldu! Alandan atıldın.
TOPOBJ.GO moonglow
FORINSTANCES C_RAID
REMOVE
ENDFOR
VAR0.RAID=
VAR0.RAIDDER=
REMOVE
RETURN 1
ON=@UNEQUIP
SRC.RESURRECT 1
SRC.EVENTS -E_RAID
SRC.GO moonglow
SRC.FULLSTATS
FORINSTANCES C_RAID
REMOVE
ENDFOR
VAR0.RAID=
VAR0.RAIDDER=
[EVENTS E_RAID]
on=@click
message @0850,,1 [Dungeon]
message @07a1,1,1 <name>
return 1
On=@SpellCast
//if ((<argn> == 28) || (<argn> == 24) || (<argn> == 33) || (<argn> == 35) || (<argn> == 39) || (<argn> == 40) || (<argn> == 44) || (<argn> == 45) || (<argn> == 46) || (<argn> == 47) || (<argn> == 49) || (<argn> == 50) || (<argn> == 55) || (<argn> == 64) || (<argn> == 63) || (<argn> == 62) || (<argn> == 61) || (<argn> == 60) || (<argn> == 59) || (<argn> == 58) || (<argn> == 57) || (<argn> == 56) || (<argn> == 54) || (<argn> == 48) || (<argn> == 36))
//SRC.SYS_KIRMIZI Dungeon alanında bu büyüyü kullanamazsınız.
//f_fizzle
//return 1
elif !(<act.id>==c_raid)
SRC.SYS_KIRMIZI Dungeon alanında sadece Level npclerine saldırabilirsiniz.
return 1
ELSEIf (<src.isevent.e_raid>)
SRC.SYS_KIRMIZI Dungeon alanında sadece Level npclerine saldırabilirsiniz.
return 1
endif
On=@SkillStart
if (<action> == id(skill_stealth)) || (<action> == skill_stealth) || ((<action> == id(skill_snooping)) || (<action> == skill_snooping)) || ((<action> == id(skill_stealing)) || (<action> == skill_stealing)) || ((<action> == id(skill_hiding)) || (<action> == skill_hiding))
SRC.SYS_KIRMIZI Dungeon alanında bu beceriyi kullanamazsınız.
skill fail
return 1
endif
on=@logout
if (<TAG0.RAID_LOGOUT> <= 0)
serv.allclients sysmessage @0794,,1 Dungeon ;
serv.allclients sysmessage @07a1,1,1 <name> isimli kişi hiç oyundan çıkış hakkı kalmadığı için Dungeon'dan atılmıştır.
CONSUME 99999 I_RAID_MEM
ELSE
TAG0.RAID_LOGOUT -=1
serv.allclients sysmessage @0794,,1 Dungeon ;
serv.allclients sysmessage @07a1,1,1 <name> isimli kişi oyundan çıkmıştır. Logout Hakkı : <dTAG0.RAID_LOGOUT>
[EOF]