blob: 264fa7cb6f62abcb2166b16690e4dbad9b69d339 [file] [log] [blame]
MG Mud User88f12472016-06-24 23:31:02 +02001/*
2 * The new ultimate quest administration tool
3 */
4
5/* AENDERUNGEN
6 * 2006-09-29 : Zook
7 * Questtool an neue Felder "Attribute" und "Klasse"
8 * angepasst.
9 * 2000-11-18 : Zook:
10 * Questtool um neues Feld "Wartender Magier" des Questmaster
11 * erweitert.
12 * 2000-11-18 : Zook:
13 * Questtool um neues Feld "Gruppeneinordnung" des Questmaster
14 * erweitert.
15 */
16
17inherit "std/thing";
18inherit "std/more";
19
20#include <defines.h>
21#include <properties.h>
22#include <language.h>
23#include <wizlevels.h>
24#include "/secure/questmaster.h"
25
26#define UA this_interactive()->_unparsed_args()
27
28#define QNAME 0
29#define QP 1
30#define XP 2
31#define ALLOW 3
32#define INFO 4
33#define LEVEL 5
34#define CLASS 6
35#define ATTR 7
36#define WIZ 8
37#define SCNDWIZ 9
38#define END 10
39
40#pragma strong_types
41
42private void Load_NumKey();
43int Add_Quest ( string str );
44void ReadNewQuest ( string str );
45int Remove_Quest ( string str );
46int Change_Quest ( string str );
47int Restore_Quest ( string str );
48int Set_Quest ( string str );
49int Remove_Quest ( string str );
50int Query_Quest ( string str );
51int Query_Keys ( string str );
52int Query_Quests ( string str );
53int ActivateQuest ( string str );
54int DeactivateQuest ( string str );
55int GetReturn ( string str );
56
57string name;
58int qp;
59int xp;
60int level;
61int need;
62string *allowed;
63string info;
64string wizard;
65string scndwizard;
66int group;
67mapping num_key;
68
69object owner;
70int counter;
71mixed *savequest;
72string savekey;
73int do_change;
74string changekey;
75
76void create()
77{
78 string str;
79
80 if(IS_BLUE(ME)) return;
81 thing::create();
82 SetProp(P_GENDER,NEUTER);
83 owner = PL;
84 AddId("questtool");
85 AddId("qt");
86 SetProp(P_ARTICLE,0);
87 SetProp(P_GENDER, NEUTER);
88 str=capitalize(((str=owner->query_real_name())[<1]=='s'||str[<1]=='x'||str[<1]=='z')?str+="'":str+="s");
89 SetProp(P_NAME, str+" QuestTool");
90 SetProp(P_SHORT, str+" QuestTool");
91 SetProp(P_LONG,
92 "Das QuestTool dient der Administration von Quests. (by Kirk, 10.11.94)\n"
93 +"implementierte Kommandos:\n"
94 +" AddQ : Neuen Questeintrag einfuegen\n"
95 +" RemoveQ <quest> : Questeintrag loeschen\n"
96 +" ChangeQ <quest> : Questeintrag aendern\n"
97 +" ReStoreQ : Zuletzt geloeschten oder geaenderten\n"
98 +" : Questeintrag restaurieren\n"
99 +" SetQ <spieler> <quest> : Quest als 'geloest' markieren\n"
100 +" DelQ <spieler> <quest> : Quest als 'nicht geloest' markieren\n"
101 +" QueryQ <quest> : Questeintrag anzeigen\n"
102 +" QueryK : Alle Keys und Indices anzeigen\n"
103 +" QueryAllQ : Alle Eintraege vollstaendig anzeigen\n"
104 +" ActiVateQ <quest> : Quest im Questmaster aktivieren\n"
105 +" DeactiVateQ <quest> : Quest im Questmaster deaktivieren\n\n"
106 +" fuer <quest> kann der Index verwendet werden, den QueryK liefert!\n\n"
107 +" (Alle Kommandos koennen abgekuerzt werden.)\n"
108 +" -> Beispiel: DeactiVateQ == DVQ == dvq == deactivateq\n");
109
110 SetProp(P_NEVERDROP, 1);
111 SetProp(P_NODROP,
112 "Mit Hilfe des QuestTools koennen Quests eingetragen, oder geloescht\n"+
113 "werden. Du brauchst es vielleicht noch, deshalb wirfst Du es nicht weg.\n");
114 SetProp(P_NOBUY, 1);
115 AddCmd(({ "AddQ", "addq", "AQ", "aq" }), "Add_Quest");
116 AddCmd(({ "RemoveQ", "removeq", "RQ", "rq" }), "Remove_Quest");
117 AddCmd(({ "ChangeQ", "changeq", "CQ", "cq" }), "Change_Quest");
118 AddCmd(({ "ReStoreQ", "restoreq", "RSQ", "rsq" }), "Restore_Quest");
119 AddCmd(({ "SetQ", "setq", "SQ", "sq" }), "Set_Quest");
120 AddCmd(({ "DelQ", "delq", "DQ", "dq" }), "Del_Quest");
121 AddCmd(({ "QueryQ", "queryq", "QQ", "qq" }), "Query_Quest");
122 AddCmd(({ "QueryK", "queryk", "QK", "qk" }), "Query_Keys");
123 AddCmd(({ "QueryAllQ", "queryallq", "QAQ", "qaq" }), "Query_Quests");
124 AddCmd(({ "ActiVateQ", "activateq", "AVQ", "avq" }), "ActivateQuest");
125 AddCmd(({ "DeactiVateQ", "deactivateq", "DVQ", "dvq" }), "DeactivateQuest");
126 counter = QNAME;
127 savekey = "";
128 do_change = 0;
129 num_key = ([]);
130}
131
132int _query_autoloadobj() { return 1; }
133
134void init()
135{
136 object tp;
137
138 if(!(tp = PL) || tp != environment())
139 return;
140
141 thing::init();
142
143 if ( !IS_WIZARD(tp) || tp != owner )
144 return call_out("do_remove",1);
145}
146
147static void do_remove()
148{
149 write ( ME->QueryProp(P_SHORT)+" zerfaellt zu Staub.\n");
150 say ( ME->QueryProp(P_SHORT)+" zerfaellt in "+PL->name(WESSEN)+
151 " unbefugten Haenden zu Staub.\n");
152 call_out("remove",1);
153}
154
155private void Load_NumKey()
156{
157 string *keys;
158 int i;
159
160 if ( !(keys = (string*) QM->QueryAllKeys()) ) return;
161 keys=sort_array(keys,#'>);//')
162 for ( i = 0, num_key = ([]); i < sizeof(keys); i++ )
163 num_key += ([(i+1)+"":keys[i]]);
164}
165
166int Add_Quest(string str)
167{
168 counter = QNAME;
169 write ( "Neue Quest: (Abbruch mit '.' oder '~q')\n" );
170 write ( "Key :\n" );
171 input_to ( "ReadNewQuest" );
172 return 1;
173}
174
175void ReadNewQuest (string str)
176{
177 mixed *oldquest;
178 int errstat;
179 int active;
180
181 if ( str == "~q" || str == "." )
182 {
183 counter = QNAME;
184 if(do_change)
185 {
186 do_change = 0;
187 changekey = "";
188 savekey = "";
189 savequest = ({});
190 }
191 return;
192 }
193
194 switch ( counter )
195 {
196 case QNAME:
197 if((!str||!sizeof(str)) && do_change)
198 name = savekey;
199 else
200 name = str;
201 counter++;
202 write ( sprintf("Punkte (>0) [%d]:\n",
203 (do_change?(int)savequest[0]:10)) );
204 input_to ( "ReadNewQuest" );
205 break;
206 case QP:
207 if((!str||!sizeof(str)))
208 if(do_change)
209 qp = (int) savequest[Q_QP];
210 else
211 qp = 10;
212 else
213 sscanf ( str, "%d", qp );
214 counter++;
215 write ( sprintf("Erfahrung (>=0) [%d]:\n",
216 (do_change?(int)savequest[1]:qp*1000)));
217 input_to ( "ReadNewQuest" );
218 break;
219 case XP:
220 if((!str||!sizeof(str)))
221 if(do_change)
222 xp = (int) savequest[Q_XP];
223 else
224 xp = qp * 1000;
225 else
226 sscanf ( str, "%d", xp );
227 counter++;
228 write ( sprintf("Filenamen file1[,file2,...]) %s:\n",
229 (do_change?"["+implode((string *)savequest[2],",")+"]":
230 "")) );
231 input_to ( "ReadNewQuest" );
232 break;
233 case ALLOW:
234 if((!str||!sizeof(str)) && do_change)
235 allowed = (string *) savequest[Q_ALLOWED];
236 else
237 allowed = old_explode(implode(old_explode(str,".c"),""),",");
238 counter++;
239 write ( sprintf("Info %s:\n", (do_change?
240 "["+break_string("\b\b\b\b\b\b"+(string)
241 savequest[3]+"]",78,6)
242 :"")) );
243 input_to ( "ReadNewQuest" );
244 break;
245 case INFO:
246 if((!str||!sizeof(str)) && do_change)
247 info = (string) savequest[Q_HINT];
248 else
249 info = str;
250 counter++;
251 write ( sprintf("Stufe (-1 <=lev<=10) (-1 ist eine Seherquest) [%d]:\n",
252 (do_change?(int)savequest[4]:0)) );
253 input_to ( "ReadNewQuest" );
254 break;
255 case LEVEL:
256 if((!str||!sizeof(str)))
257 if(do_change)
258 level = (int) savequest[Q_DIFF];
259 else
260 level = 0;
261 sscanf ( str, "%d", level );
262 counter++;
263 write ( sprintf("Klasse ([012345]) [%d]:\n",
264 (do_change?(int)savequest[5]:0)) );
265 input_to ( "ReadNewQuest" );
266 break;
267 case CLASS:
268 if((!str||!sizeof(str)))
269 if(do_change)
270 need = (int) savequest[Q_CLASS];
271 else
272 need = 0;
273 else
274 sscanf ( str, "%d", need );
275 counter++;
276 write ( sprintf("Attribut [01234]\n(1=fleissig,2=heroisch,3=episch,4=legendaer) %s:\n",
277 (do_change?"["+(string)savequest[9]+"]":"")) );
278 input_to ( "ReadNewQuest" );
279 break;
280 case ATTR:
281 if ((!str||!sizeof(str)))
282 if (do_change)
283 group = (int) savequest[Q_ATTR];
284 else
285 group = 0;
286 else
287 sscanf (str, "%d", group);
288 counter++;
289 write ( sprintf("Magier %s:\n",
290 (do_change?"["+(string)savequest[7]+"]":"")) );
291 input_to ( "ReadNewQuest" );
292 break;
293 case WIZ:
294 if((!str||!sizeof(str)) && do_change)
295 wizard = (string) savequest[Q_WIZ];
296 else
297 wizard = str;
298 wizard = lower_case(wizard);
299 counter++;
300 write ( sprintf("Wartender Magier %s:\n",
301 (do_change?"["+(string)savequest[8]+"]":"")) );
302 input_to ( "ReadNewQuest" );
303 break;
304 case SCNDWIZ:
305 if ((!str||!sizeof(str)) && do_change)
306 scndwizard = (string) savequest[Q_SCNDWIZ];
307 else
308 scndwizard = str;
309 scndwizard = lower_case(scndwizard);
310 counter++;
311 write ( "Eintragen (j/n)?\n" );
312 input_to ( "ReadNewQuest" );
313 break;
314 case END:
315 counter=QNAME;
316
317 if ( str != "j" && str != "ja" && str != "y" && str != "yes" )
318 return;
319
320 active = 0;
321 if ( do_change && changekey && sizeof(changekey) )
322 {
323 oldquest = (mixed *) QM->QueryQuest ( changekey );
324
325 if ( !pointerp ( oldquest ) || !sizeof ( oldquest ) )
326 {
327 write ( "Alten Eintrag nicht gefunden.\n" );
328 return;
329 }
330
331 errstat = (int) QM->RemoveQuest( changekey );
332
333 do_change = 0;
334 changekey = "";
335
336 switch ( errstat )
337 {
338 case 0: write ( "Zugriff auf alten Eintrag verweigert.\n" ); return;
339 case -1: write ( "Parameterfehler beim Loeschen.\n" ); return;
340 case -2: write ( "Alten Eintrag nicht gefunden.\n" ); return;
341 default: write ( "Alter Eintrag geloescht.\n" );
342 }
343 active = oldquest[6];
344 savequest = oldquest;
345 savekey = changekey;
346 }
347
348 // add new Quest deactivated by default and keep old active flag
349 // if changing an existing entry
350 errstat= (int)QM->AddQuest(name,qp,xp,allowed,info,level,need,active,
351 wizard, scndwizard, group);
352
353 switch ( errstat )
354 {
355 case 0: write ( "Zugriff verweigert.\n" ); break;
356 case -1: write ( "Key ungueltig oder sizeof(key) < 5.\n" ); break;
357 case -2: write ( "QP ungueltig oder < 1.\n" ); break;
358 case -3: write ( "XP ungueltig.\n" ); break;
359 case -4: write ( "Filename(n) ungueltig.\n" ); break;
360 case -5: write ( "Info ungueltig.\n" ); break;
361 case -6: write ( "Stufe ungueltig oder < 0 oder > 20.\n" ); break;
362 case -7: write ( "Aktiv-Flag < 0 oder > 1.\n" ); break;
363 case -8: write ( "Magiername ungueltig.\n" ); break;
364 case -9: write ( "Magiername des wartenden Magiers ungueltig.\n"); break;
365 case -10: write ("Falsche Gruppeneinordnung.\n"); break;
366 default: write ( "Eintrag eingefuegt.\n" );
367 }
368 default:
369 return;
370 }
371}
372
373int Remove_Quest ( string str )
374{
375 mixed *oldquest;
376 string newstr;
377 int errstat;
378
379 if ( !(str=UA) )
380 {
381 write ( "Syntax: RemoveQ <name>\n" );
382 return 1;
383 }
384
385 Load_NumKey();
386
387 if ( !(newstr = num_key[str+""]) )
388 newstr = str;
389
390 oldquest = (mixed *) QM->QueryQuest ( newstr );
391
392 if ( !pointerp ( oldquest ) || !sizeof ( oldquest ) )
393 {
394 write ( "Keine Quest dieses Namens gefunden.\n" );
395 return 1;
396 }
397
398 errstat = (int) QM->RemoveQuest( newstr );
399
400 switch ( errstat )
401 {
402 case 0: write ( "Zugriff verweigert.\n" ); break;
403 case -1: write ( "Parameterfehler.\n" ); break;
404 case -2: write ( "Quest nicht gefunden.\n" ); break;
405 default: write ( "Quest entfernt.\n" );
406 }
407
408 savequest = oldquest;
409 savekey = newstr;
410
411 return 1;
412}
413
414int Change_Quest ( string str )
415{
416 mixed *oldquest;
417 string newstr;
418
419 if ( !(str=UA) )
420 {
421 write ( "Syntax: ChangeQ <quest>\n" );
422 return 1;
423 }
424
425 Load_NumKey();
426
427 if ( !(newstr = num_key[str+""]) )
428 newstr = str;
429
430 oldquest = (mixed *) QM->QueryQuest ( newstr );
431
432 if ( !pointerp( oldquest ) || !sizeof ( oldquest ) )
433 {
434 write ( "Keine Quest dieses Namens gefunden.\n" );
435 return 1;
436 }
437
438 do_change = 1;
439 changekey = newstr;
440 savekey = newstr;
441 savequest = oldquest;
442
443 write ( "Aktueller Eintrag:\n");
444 write ( "Key : "+newstr+"\n" );
445 write ( "Punkte : "+oldquest[Q_QP]+"\n" );
446 write ( "Erfahrung : "+oldquest[Q_XP]+"\n" );
447 write ( "Filenamen : "+implode(oldquest[Q_ALLOWED],",")+"\n" );
448 write ( "Info : "+oldquest[Q_HINT]+"\n" );
449 write ( "Stufe : "+oldquest[Q_DIFF]+"\n" );
450 write ( "Klasse : "+QCLASS_STARS(oldquest[Q_CLASS])+"\n" );
451 write ( "Attribut : "+QATTR_STRINGS[oldquest[Q_ATTR]]+"\n" );
452 write ( "Magier : "+capitalize(oldquest[Q_WIZ])+"\n" );
453 write ( "Wartender Magier : "+capitalize(oldquest[Q_SCNDWIZ])+"\n" );
454
455
456 write ( "\nNeue Quest: (mit '.' oder '~q' kann abgebrochen werden)\n" );
457 write ( sprintf("Key [%s]:\n", savekey) );
458 input_to ( "ReadNewQuest" );
459
460 return 1;
461}
462
463int Restore_Quest ( string str )
464{
465 int errstat;
466
467 if ( !savekey || !sizeof(savekey) )
468 {
469 write ( "\nTut mir leid!\n" );
470 write ( "Nichts zum Restaurieren gefunden ...\n" );
471 return 1;
472 }
473
474 errstat =
475 (int)QM->AddQuest( savekey, (int) savequest[0], (int) savequest[1],
476 (string *) savequest[2], (string) savequest[3],
477 (int) savequest[4], (int) savequest[5],
478 (string) savequest[6], (int) savequest[7],
479 (string) savequest[8] );
480
481 switch ( errstat )
482 {
483 case 0: write ( "Zugriff verweigert.\n" ); break;
484 case -1: write ( "Key ungueltig oder sizeof(key) < 5.\n" ); break;
485 case -2: write ( "QP ungueltig oder < 1.\n" ); break;
486 case -3: write ( "XP ungueltig.\n" ); break;
487 case -4: write ( "Filename(n) ungueltig.\n" ); break;
488 case -5: write ( "Info ungueltig.\n" ); break;
489 case -6: write ( "Stufe ungueltig oder < 0 oder > 20.\n" ); break;
490 case -7: write ( "Aktiv-Flag < 0 oder > 1.\n" ); break;
491 case -8: write ( "Magiername ungueltig.\n" ); break;
492 case -9: write ( "Magiername ungueltig.\n"); break;
493 case -10: write ("Ungueltige Gruppennummer.\n"); break;
494 default: write ( "'"+savekey+"' restauriert.\n" );
495 }
496 savekey = "";
497 return 1;
498}
499
500int Set_Quest ( string str )
501{
502 string quest, player, newquest;
503 int created;
504 object ob;
505
506 if ( !(str=UA) || sscanf( str, "%s %s", player, quest ) != 2 )
507 {
508 write ( "Syntax: SetQ <player> <quest>\n" );
509 return 1;
510 }
511
512 created=0;
513 Load_NumKey();
514
515 if ( !(newquest = num_key[quest+""]) )
516 newquest = quest;
517
518 ob=find_player(player);
519 if(!ob)
520 {
521 ob=find_netdead(player);
522 if(!ob)
523 {
524 created=1;
525 ob=__create_player_dummy(player);
526 }
527 }
528 if(!ob)
529 {
530 write("Kein solcher Spieler gefunden.\n!");
531 return 1;
532 }
533
534 write(ERRNO_2_STRING("GQ",(int)ob->GiveQuest(newquest,"__silent__"))+"\n");
535 if(created)
536 {
537 ob->save_me(0);
538 if(!(ob->remove()))
539 {
540 destruct(ob);
541 }
542 }
543 return 1;
544}
545
546int Del_Quest ( string str )
547{
548 string quest, player, newquest;
549 int created;
550 object ob;
551
552 if ( !(str=UA) || sscanf( str, "%s %s", player, quest ) != 2 )
553 {
554 write ( "Syntax: DelQ <player> <quest>\n" );
555 return 1;
556 }
557
558 Load_NumKey();
559
560 if ( !(newquest = num_key[quest+""]) )
561 newquest = quest;
562
563 created=0;
564 ob=find_player(player);
565 if(!ob)
566 {
567 ob=find_netdead(player);
568 if(!ob)
569 {
570 created=1;
571 ob=__create_player_dummy(player);
572 }
573 }
574 if(!ob)
575 {
576 write("Kein solcher Spieler gefunden.\n!");
577 return 1;
578 }
579
580 write(ERRNO_2_STRING("DQ",(int) ob->DeleteQuest ( newquest ))+"\n");
581 if(created)
582 {
583 ob->save_me(0);
584 if(!(ob->remove()))
585 {
586 destruct(ob);
587 }
588 }
589 return 1;
590}
591
592int Query_Quest ( string str )
593{
594 mixed *quest;
595 string newstr;
596 int i;
597
598 if ( !(str=UA) )
599 {
600 write ( "Syntax: QueryQ <quest>\n" );
601 return 1;
602 }
603
604 Load_NumKey();
605
606 if ( !(newstr = num_key[str+""]) )
607 newstr = str;
608
609 quest = (mixed *) QM->QueryQuest( newstr );
610
611 if ( !pointerp( quest ) || !sizeof ( quest ) )
612 {
613 write ( "Keine Quest dieses Namens gefunden.\n" );
614 return 1;
615 }
616
617 write ( "Aktueller Eintrag:\n");
618 write ( "Key : "+newstr );
619 if(quest[Q_ACTIVE])
620 write (" (aktiviert)\n");
621 else
622 write (" (deaktiviert)\n");
623 write ( "Punkte : "+quest[Q_QP]+"\n" );
624 write ( "Erfahrung : "+quest[Q_XP]+"\n" );
625 write ( break_string ( implode( quest[Q_ALLOWED], " " ), 65, "Filenamen : " ) );
626 write ( break_string ( quest[Q_HINT], 65, "Info : " ) );
627 write ( "Stufe : "+quest[Q_DIFF]+"\n" );
628 printf("Stufe (avg) : %.2f (%d)\n", quest[Q_AVERAGE][0],
629 quest[Q_AVERAGE][1]);
630 write ( "Klasse : "+ QCLASS_STARS(quest[Q_CLASS])+"\n");
631 write ( "Attribute : "+ QATTR_STRINGS[quest[Q_ATTR]]+"\n");
632 write ( "Magier : "+capitalize(quest[Q_WIZ])+"\n" );
633 write ( "Wartender Magier : "+capitalize(quest[Q_SCNDWIZ])+"\n");
634 return 1;
635}
636
637int Query_Keys ( string str )
638{
639 string *keys, active;
640 mixed *quest;
641 int i;
642
643 if ( !(keys = (string *) QM->QueryAllKeys()) )
644 return 1;
645
646 write ( "\n" );
647 keys=sort_array(keys,#'>);//')
648 for ( i = 0; i < sizeof(keys); i++ )
649 {
650 quest = (mixed *) QM->QueryQuest(keys[i]);
651 if(quest[6])
652 active="*";
653 else
654 active=" ";
655 write(sprintf("%2d%s %-33s%s",i+1,quest[6]?"*":" ",keys[i],
656 !(i%2)?" ":"\n"));
657 }
658 if(i%2)
659 write("\n");
660
661 return 1;
662}
663
664int Query_Quests ( string str )
665{
666 mixed *quest;
667 string *keys, rstr;
668 int i;
669
670 if ( !(keys = (mixed *) QM->QueryAllKeys()) )
671 return 1;
672
673 keys=sort_array(keys,#'>);//')
674 for ( i = 0, rstr = ""; i < sizeof(keys); i++ )
675 {
676 quest = (mixed *) QM->QueryQuest(keys[i]);
677 write ( "\nKey : "+keys[i] );
678 if(quest[Q_ACTIVE])
679 write (" (aktiviert)\n");
680 else
681 write (" (deaktiviert)\n");
682 write ( "Punkte : "+quest[Q_QP]+"\n" );
683 write ( "Erfahrung : "+quest[Q_XP]+"\n" );
684 write ( break_string ( implode( quest[Q_ALLOWED], " " ), 78, "Filenamen : " ) );
685 write ( break_string ( quest[Q_HINT], 78, "Info : " ) );
686 write ( "Stufe : "+quest[Q_DIFF]+"\n" );
687 write ( "Klasse : "+ QCLASS_STARS(quest[Q_CLASS])+"\n");
688 write ( "Attribute : "+ QATTR_STRINGS[quest[Q_ATTR]]+"\n");
689 write ( "Magier : "+capitalize(quest[7])+"\n" );
690 write ( "Wartender Magier : "+capitalize(quest[8])+"\n");
691 }
692 More( rstr, 0 );
693 return 1;
694}
695
696int ActivateQuest( string str )
697{
698 mixed *quest;
699 string newstr;
700 int errstat;
701
702 if ( !(str=UA) )
703 {
704 write ( "Syntax: ActiVateQ <quest>\n" );
705 return 1;
706 }
707
708 Load_NumKey();
709
710 if ( !(newstr = num_key[str+""]) )
711 newstr = str;
712
713 switch( QM->SetActive( newstr, 1 ) )
714 {
715 case -3: write ( "Ungueltiger Flag.\n" ); break;
716 case -2: write ( "Quest war bereits aktiviert.\n" ); break;
717 case -1: write ( "Keine Quest dieses Namens gefunden.\n" ); break;
718 case 0: write ( "Zugriff verweigert\n" ); break;
719 case 1: write ( "Quest '"+newstr+"' aktiviert.\n" ); break;
720 default: write ( "unbekannter Fehlerstatus.\n" );
721 }
722 return 1;
723}
724
725int DeactivateQuest( string str )
726{
727 mixed *quest;
728 string newstr;
729 int errstat;
730
731 if ( !(str=UA) )
732 {
733 write ( "Syntax: DeactiVateQ <quest>\n" );
734 return 1;
735 }
736
737 Load_NumKey();
738
739 if ( !(newstr = num_key[str+""]) )
740 newstr = str;
741
742 switch( QM->SetActive( newstr, 0 ) )
743 {
744 case -3: write ( "Ungueltiger Flag.\n" ); break;
745 case -2: write ( "Quest war bereits deaktiviert.\n" ); break;
746 case -1: write ( "Keine Quest dieses Namens gefunden.\n" ); break;
747 case 0: write ( "Zugriff verweigert\n" ); break;
748 case 1: write ( "Quest '"+newstr+"' deaktiviert.\n" ); break;
749 default: write ( "unbekannter Fehlerstatus.\n" );
750 }
751 return 1;
752}
753
754