diff options
Diffstat (limited to 'npc/functions/quest-debug/functions.txt')
-rw-r--r-- | npc/functions/quest-debug/functions.txt | 109 |
1 files changed, 0 insertions, 109 deletions
diff --git a/npc/functions/quest-debug/functions.txt b/npc/functions/quest-debug/functions.txt deleted file mode 100644 index e45cb427..00000000 --- a/npc/functions/quest-debug/functions.txt +++ /dev/null @@ -1,109 +0,0 @@ -// Evol functions. -// Author: -// gumi -// Description: -// generic quest debug functions - - - -// GenericQuestDebug -// makes a generic quest debug menu for the given quest when the server -// is in debug mode. - -function script GenericQuestDebug { - if (!debug && !is_admin()) - { - select - menuimage("actions/back", l("Go back")); - - @menuret = -0x7FFFFFFF; - return 1; - } - - mes l("Choose desired quest state:"); - - deletearray .@vals; - .@menustr$ = menuimage("actions/abort", l("Do nothing")) + ":"; - .@vals[0] = -0x7FFFFFFF; - .@cnt = 1; - - for (.@f = 1; .@f < getargcount(); .@f += 2) - { - if (getarg(.@f) != "") - { - .@qv = getarg(.@f + 1); - .@s$ = menuimage("actions/" + (.@qv ? "edit" : "reset"), "[" + .@qv + "] " + getarg(.@f)); - .@menustr$ += (.@qv < 0 ? getarg(.@f) : .@s$) + ":"; - .@vals[.@cnt] = .@qv; - ++.@cnt; - } - } - - if (is_admin()) - { - .@menustr$ += menuimage("actions/nuke", l("Set state manually")); - .@vals[.@cnt] = -0x7FFFFFFE; - } - - - @menu = 255; - @menuret = -1; - select(.@menustr$); - if (@menu == 255) - return -1; - - --@menu; - if (@menu < 0 || @menu >= getarraysize(.@vals)) - return -1; - - @menuret = .@vals[@menu]; - - switch (@menuret) - { - case -0x7FFFFFFE: input @menuret; setq getarg(0,0), @menuret; - case -0x7FFFFFFF: return 1; - } - - if (@menuret >= 0) - { - setq getarg(0,0), @menuret; - } - return; -} - - - -// selectd -// like a normal select() but gives access to quest debug -// -// quest id can either be passed as first argument -// or as the .quest_debug npc variable - -function script selectd { - .@menustr$ = rif(debug, menuaction(l("debug"))); - .@count = getargcount(); - .@f = 0; - .@questID = getvariableofnpc(.quest_debug, strnpcinfo(0)); - - if (.@count > 1 && !isstr(getarg(0))) - { - ++.@f; - .@questID = getarg(0); - } - - for (; .@f < .@count; ++.@f) - { - .@menustr$ += ":" + getarg(.@f); - } - - @menu = 255; - select .@menustr$; - - switch (@menu) - { - case -1: - case 255: return -1; - default: @menu -= 1; return @menu; // FIXME: here I would have done `return --@menu;` but hercules prevents this - case 1: callfunc "QuestDebug" + .@questID; closeclientdialog; end; - } -} |