diff options
Diffstat (limited to 'world/map/npc/functions')
| -rw-r--r-- | world/map/npc/functions/debug.txt | 398 |
1 files changed, 398 insertions, 0 deletions
diff --git a/world/map/npc/functions/debug.txt b/world/map/npc/functions/debug.txt new file mode 100644 index 00000000..016bb98c --- /dev/null +++ b/world/map/npc/functions/debug.txt @@ -0,0 +1,398 @@ +// Author: alastrim, Jenalya + +function|script|Debug|{ + +L_Begin: + set @debug_mask, 65535; + set @debug_shift, 0; + set @mexp, ((MAGIC_EXPERIENCE & @debug_mask) >> @debug_shift); + mes "What do you want to do?"; + menu + "Change base level", L_Level, + "Reset status points", L_Status, + "Change my skills", L_Skills, + "Change my magic skills", L_Magic, + "Close", -; + close; + +L_Level: + mes "Which level do you want to be? (min: 1 - max: 255)"; + next; + input @lvl; + if (@lvl > 255) goto L_Leveltoohigh; + if (@lvl < 1) goto L_Leveltoolow; + if (Baselevel - @lvl == 0) goto L_Samelvl; + set BaseLevel, BaseLevel - (Baselevel - @lvl); + resetstatus; + message "New level: " + Baselevel; + goto L_Begin; + +L_Samelvl: + mes "You are already level " + @lvl; + next; + goto L_Level; + +L_Leveltoolow: + mes "Bad choice. Minimum level is 1."; + next; + goto L_Level; + +L_Leveltoohigh: + mes "Bad choice. Maximum level is 255."; + next; + goto L_Level; + +L_Skills: + set @mallard, getskilllv(SKILL_MALLARDS_EYE); + set @brawling, getskilllv(SKILL_BRAWLING); + set @speed, getskilllv(SKILL_SPEED); + set @poison, getskilllv(SKILL_RESIST_POISON); + set @astralsoul, getskilllv(SKILL_ASTRAL_SOUL); + set @raging, getskilllv(SKILL_WARRIOR_RAGING); + + menu + "Overview of my skills", L_Seeskills, + "Focus/Unfocus", L_Unfocus, + "Add skills", L_Changeskills, + "Reset skills", L_Resetskills, + "Back to main menu", L_Begin, + "Close", -; + close; + +L_Unfocus: + cleararray @skilllist_name$[0], "", 8; + cleararray @skilllist_id[0], 0, 8; + cleararray @skilllist_count[0], 0, 8; + if (getskilllv(SKILL_POOL) == 0) setskill SKILL_POOL, 1; + getactivatedpoolskilllist; + if (@skilllist_count == 0) goto L_Focus; + getactivatedpoolskilllist; + if (@skilllist_count != 0) goto L_Askunfocus; + mes "You aren't focused on a skill at the moment"; + goto L_Skills; + +L_Askunfocus: + mes "Unfocus " + @skilllist_name$[@skilllist_count-1] + "?"; + menu + "Yes", -, + "No", L_Skills; + unpoolskill @skilllist_id[@skilllist_count-1]; + goto L_Skills; + +L_Focus: + cleararray @skilllist_name$[0], "", 8; + cleararray @skilllist_id[0], 0, 8; + cleararray @skilllist_count[0], 0, 8; + getunactivatedpoolskilllist; + if (@skilllist_count == 0) goto L_Noskills; + set @skilllist_id[@skilllist_count], 0; + set @skilllist_name$[@skilllist_count], "Back to skills menu"; + mes "You don't have any skill focused right now. Which one do you want to focus?"; + menu + @skilllist_name$[0], -, + @skilllist_name$[1], -, + @skilllist_name$[2], -, + @skilllist_name$[3], -, + @skilllist_name$[4], -, + @skilllist_name$[5], -, + @skilllist_name$[6], -, + @skilllist_name$[7], -; + set @menu, @menu - 1; + poolskill @skilllist_id[@menu]; + goto L_Skills; + +L_Noskills: + mes "You have no skills to focus/unfocus."; + goto L_Skills; + +L_Seeskills: + cleararray @skilllist_name$[0], "", 8; + cleararray @skilllist_id[0], 0, 8; + cleararray @skilllist_count[0], 0, 8; + getactivatedpoolskilllist; + if (@skilllist_count == 0) goto L_Focusmessage; + if (@skilllist_count != 0) mes "You are focused on " + @skilllist_name$[@skilllist_count-1] + " skill."; + +L_Skillsoverview: + mes "You level in mallards eye skill is " + @mallard; + mes "You level in brawling skill is " + @brawling; + mes "You level in speed skill is " + @speed; + mes "You level in resist poison skill is " + @poison; + mes "You level in astral soul skill is " + @astralsoul; + mes "You level in raging skill is " + @raging; + next; + goto L_Skills; + +L_Focusmessage: + mes "You don't have any skill focused right now."; + goto L_Skillsoverview; + +L_Changeskills: + menu + "Mallards eye", L_Changemallard, + "Brawling", L_Changebrawling, + "Speed", L_Changespeed, + "Resist Poison", L_Changepoison, + "Astral Soul", L_Changeastralsoul, + "Raging", LChangeraging, + "All skills level 9", L_AllSkills, + "Back to skills menu", L_Skills, + "Close", -; + close; + +L_Badskilllvl: + mes "Invalid skill lvl. Try again."; + next; + goto L_Changeskills; + +L_Changemallard: + mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):"; + input @lvl; + if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl; + setskill SKILL_MALLARDS_EYE, @lvl; + goto L_Skills; + +L_Changebrawling: + mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):"; + input @lvl; + if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl; + setskill SKILL_BRAWLING, @lvl; + goto L_Skills; + +L_Changespeed: + mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):"; + input @lvl; + if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl; + setskill SKILL_SPEED, @lvl; + goto L_Skills; + +L_Changepoison: + mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):"; + input @lvl; + if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl; + setskill SKILL_RESIST_POISON, @lvl; + goto L_Skills; + +L_Changeastralsoul: + mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):"; + input @lvl; + if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl; + setskill SKILL_ASTRAL_SOUL, @lvl; + goto L_Skills; + +L_Changeraging: + mes "Enter the lvl you want to be in this skill(min: 1 - max: 9):"; + input @lvl; + if (@lvl < 1 || @lvl > 9) goto L_Badskilllvl; + setskill SKILL_WARRIOR_RAGING, @lvl; + goto L_Skills; + +L_AllSkills: + setskill SKILL_MALLARDS_EYE, 9; + setskill SKILL_BRAWLING, 9; + setskill SKILL_SPEED, 9; + setskill SKILL_RESIST_POISON, 9; + setskill SKILL_ASTRAL_SOUL, 9; + setskill SKILL_WARRIOR_RAGING, 9; + goto L_Skills; + +L_Resetskills: + setskill SKILL_MALLARDS_EYE, 0; + setskill SKILL_BRAWLING, 0; + setskill SKILL_SPEED, 0; + setskill SKILL_RESIST_POISON, 0; + setskill SKILL_ASTRAL_SOUL, 0; + setskill SKILL_WARRIOR_RAGING, 0; + goto L_Skills; + +L_Magic: + set @general, getskilllv(SKILL_MAGIC); + set @life, getskilllv(SKILL_MAGIC_LIFE); + set @war, getskilllv(SKILL_MAGIC_WAR); + set @trans, getskilllv(SKILL_MAGIC_TRANSMUTE); + set @nature, getskilllv(SKILL_MAGIC_NATURE); + set @astral, getskilllv(SKILL_MAGIC_ASTRAL); + + menu + "Overview of my magical skills", L_Seemagic, + "Get magic skills", L_Changemagic, + "Get magic experience", L_Magicexp, + "Get all magic skills lvl2 and max exp", L_GetAllMagic, + "Reset magic", L_Resetmagic, + "Back to main menu", L_Begin, + "Close", -; + close; + +L_Nomagicskills: + mes "You can't have magic experience, since you have no magic skills."; + goto L_Magic; + +L_GetAllMagic: + setskill SKILL_MAGIC, 2; + setskill SKILL_MAGIC_LIFE, 2; + setskill SKILL_MAGIC_WAR, 2; + setskill SKILL_MAGIC_TRANSMUTE, 2; + setskill SKILL_MAGIC_NATURE, 2; + setskill SKILL_MAGIC_ASTRAL, 2; + set @mexp, 1200; + callsub S_Update_Mask; + goto L_Magic; + +L_Resetmagic: + setskill SKILL_MAGIC, 0; + setskill SKILL_MAGIC_LIFE, 0; + setskill SKILL_MAGIC_WAR, 0; + setskill SKILL_MAGIC_TRANSMUTE, 0; + setskill SKILL_MAGIC_NATURE, 0; + setskill SKILL_MAGIC_ASTRAL, 0; + set @mexp, 0; + callsub S_Update_Mask; + goto L_Magic; + +L_Wrongexp: + mes "Wrong value informed. Try again."; + +L_Magicexp: + mes "Your current magic experience is " + @mexp; + if (@general == 0 && @life == 0 && @war == 0 && @trans == 0 && @nature == 0 && @astral == 0) goto L_Nomagicskills; + if (@general == 2 || @life == 2 || @war == 2 || @trans == 2 || @nature == 2 || @astral == 2) goto L_Magicexp2; + +L_Magicexp1: + mes "Set the desired magic experience (min: 1 - max: 100)"; + input @value; + if (@value < 1 || @value > 100) goto L_Wrongexp; + set @mexp, @value; + callsub S_Update_Mask; + goto L_Magic; + +L_Magicexp2: + mes "Set the desired magic experience (min: 100 - max: 1200)"; + input @value; + if (@value < 100 || @value > 1200) goto L_Wrongexp; + set @mexp, @value; + callsub S_Update_Mask; + goto L_Magic; + +L_Changemagic: + menu + "General Magic", L_Changegeneral, + "Life Magic", L_Changelife, + "War Magic", L_Changewar, + "Transmutation Magic", L_Changetrans, + "Nature Magic", L_Changenature, + "Astral Magic", L_Changeastral, + "Back to magic menu", L_Magic, + "Close", -; + close; + +L_Seemagic: + mes "Your current magic experience is " + @mexp; + mes "You level in general magic is " + @general; + mes "You level in life magic is " + @life; + mes "You level in war magic is " + @war; + mes "You level in transmutation magic is " + @trans; + mes "You level in nature magic is " + @nature; + mes "You level in astral magic is " + @astral; + next; + goto L_Magic; + +L_Changegeneral: + mes "You level in general magic is " + @general + ". What do you want to do?"; + menu + "Get Level one", -, + "Get Level two", L_Generallvl2, + "Back to magic menu", L_Magic; + if (@menu == 1) setskill SKILL_MAGIC, 1; + goto L_Magic; + +L_Generallvl2: + setskill SKILL_MAGIC, 2; + if (@mexp < 100) set @mexp, 100; + callsub S_Update_Mask; + goto L_Magic; + +L_Changelife: + mes "You level in life magic is " + @war + ". What do you want to do?"; + menu + "Get Level one", -, + "Get Level two", L_Lifelvl2, + "Back to magic menu", L_Magic; + if (@menu == 1) setskill SKILL_MAGIC_LIFE, 1; + goto L_Magic; + +L_Lifelvl2: + setskill SKILL_MAGIC_LIFE, 2; + if (@mexp < 100) set @mexp, 100; + callsub S_Update_Mask; + goto L_Magic; + +L_Changewar: + mes "You level in war magic is " + @war + ". What do you want to do?"; + menu + "Get Level one", -, + "Get Level two", L_Warlvl2, + "Back to magic menu", L_Magic; + if (@menu == 1) setskill SKILL_MAGIC_WAR, 1; + goto L_Magic; + +L_Warlvl2: + setskill SKILL_MAGIC_WAR, 2; + if (@mexp < 100) set @mexp, 100; + callsub S_Update_Mask; + goto L_Magic; + +L_Changetrans: + mes "You level in transmutation magic is " + @trans + ". What do you want to do?"; + menu + "Get Level one", -, + "Get Level two", L_Translvl2, + "Back to magic menu", L_Magic; + if (@menu == 1) setskill SKILL_MAGIC_TRANSMUTE, 1; + goto L_Magic; + +L_Translvl2: + setskill SKILL_MAGIC_TRANSMUTE, 2; + if (@mexp < 100) set @mexp, 100; + callsub S_Update_Mask; + goto L_Magic; + +L_Changenature: + mes "You level in nature magic is " + @nature + ". What do you want to do?"; + menu + "Get Level one", -, + "Get Level two", L_Naturelvl2, + "Back to magic menu", L_Magic; + if (@menu == 1) setskill SKILL_MAGIC_NATURE, 1; + goto L_Magic; + +L_Naturelvl2: + setskill SKILL_MAGIC_NATURE, 2; + if (@mexp < 100) set @mexp, 100; + callsub S_Update_Mask; + close; + +L_Changeastral: + mes "You level in astral magic is " + @astral + ". What do you want to do?"; + menu + "Get Level one", -, + "Get Level two", L_Astrallvl2, + "Back to magic menu", L_Magic; + if (@menu == 1) setskill SKILL_MAGIC_ASTAL, 1; + goto L_Magic; + +L_Astrallvl2: + setskill SKILL_MAGIC_ASTRAL, 2; + if (@mexp < 100) set @mexp, 100; + callsub S_Update_Mask; + goto L_Magic; + +L_Status: + resetstatus; + goto L_Begin; + +S_Update_Mask: + set MAGIC_EXPERIENCE, + (MAGIC_EXPERIENCE & ~(@debug_mask)) + | (@mexp << @debug_shift); + return; +} |