basarkeskin Mesaj tarihi: Aralık 6, 2003 Mesaj tarihi: Aralık 6, 2003 skillerden kapatmak icin tablesa event olarak ne yazıoduk staffla yapılması ıcın
RaiDaN Mesaj tarihi: Aralık 6, 2003 Mesaj tarihi: Aralık 6, 2003 [FUNCTION FIXACTION] RETURN | 0D2000000 [DEFNAME def_Taming] Taming_Delay2 [EVENTS e_taming] ON=@LogOut IF () FINDID.i_taming.REMOVE ENDIF ON=@SkillStart IF ( == Skill_Taming) IF () SYSMESSAGE You must wait to perform another action ELSE ACTION -1 MESSAGE MESSAGE MESSAGE Taming_TAME RETURN 1 ENDIF ELIF !() IF ( == -1) FINDID.i_taming.REMOVE ENDIF IF () ACTION -1 SYSMESSAGE You must wait to perform another action RETURN 1 ENDIF ENDIF [FUNCTION Taming_TAME] IF !() MESSAGE I can not attempt to tame what I can not see. ELIF ( != brain_animal) && ( != brain_dragon) && ( != brain_monster) && ( != brain_undead) MESSAGE I can not tame this. ELIF !() MESSAGE I can not tame this. ELIF ( + 30.0> < ) MESSAGE I could not begin to tame this! ELIF ( & (statf_dead|statf_freeze|statf_invisible|statf_sleeping|statf_polymorph|statf_stone|statf_hidden)) MESSAGE I can not tame this in my current state. ELIF () MESSAGE That is already tame. ELIF () MESSAGE The creature is too enraged. ELIF ( > 5) MESSAGE I am too far away to tame that. ELSE NEWITEM i_taming ACT.LINK ACT.CONT ACT.TIMER ENDIF [ITEMDEF i_taming] ID=i_memory TYPE=t_eq_script NAME=Taming ON=@Create ATTR attr_decay MORE1 {3 7} ON=@Timer IF () && !() Taming_SUCCESS RETURN 0 ENDIF CONT.CHECKS IF !() CONT.SYSMESSAGE I can no longer see my target. ELIF ( != brain_animal) && ( != brain_dragon) && ( != brain_monster) && ( != brain_undead) CONT.SYSMESSAGE I can not tame this. ELIF !() CONT.SYSMESSAGE I can not tame this. ELIF ( + 30.0> < ) CONT.SYSMESSAGE I could not begin to tame this! ELIF ( & (statf_dead|statf_freeze|statf_invisible|statf_sleeping|statf_polymorph|statf_stone|statf_hidden)) CONT.SYSMESSAGE I can not continue taming in my current state. ELIF () CONT.SYSMESSAGE !! Someone tamed it before I could! ELIF () CONT.SYSMESSAGE The creature is too enraged. ELIF ( > 5) CONT.SYSMESSAGE The is too far away. ELSE IF () DORAND 4 CONT.SAY Good CONT.SAY I won't hurt you. CONT.SAY Here CONT.SAY I always wanted a like you ENDDO MORE1 - 1> TIMER { + 2>} RETURN 1 ELSE IF ( - > <= 0) IF (RAND( - ) / 20) + 3>)) Taming_SUCCESS ELSE Taming_FAILURE ENDIF ELIF !(RAND( - ) / 20) + 3>)) Taming_SUCCESS ELSE Taming_FAILURE ENDIF ENDIF ENDIF [FUNCTION checks] NEWITEM i_checks ACT.LINK EQUIP [ITEMDEF i_checks] ID=i_memory TYPE=t_eq_script NAME=Checks ON=@Equip VAR.DIST VAR.SEE REMOVE [FUNCTION Taming_SUCCESS] CONT.NEWITEM i_memory CONT.ACT.ATTR attr_newbie CONT.ACT.COLOR memory_ipet CONT.ACT.MORE1 04 CONT.ACT.LINK CONT.ACT.MORE2 CONT.ACT.MOREP CONT.ACT.CONT LINK.FOOD 50 LINK.KARMA 2000 CONT.SYSMESSAGE It seems to accept you as its master. CONT.Taming_SKILLGAIN 10 [FUNCTION Taming_FAILURE] CONT.SYSMESSAGE You fail to tame the creature. CONT.Taming_SKILLGAIN 5 [FUNCTION Taming_SKILLGAIN] IF ( < 1000) TAG.Taming_Fudge + > IF ( > ) TAG.Taming_Fudge TAMING + 1 ENDIF ENDIF [FUNCTION fixaction_is_combat] IF ( == Skill_Archery) RETURN 1 ELIF ( == Skill_Fencing) RETURN 1 ELIF ( == Skill_Macefighting) RETURN 1 ELIF ( == Skill_Parrying) RETURN 1 ELIF ( == Skill_Swordsmanship) RETURN 1 ELIF ( == S
Öne çıkan mesajlar