?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Use .Er
[dragonfly.git] / games / phantasia / interplayer.c
blobf76ee2be0eee6c45803330efc3518ef1f9222034
1 /*
2 * interplayer.c - player to player routines for Phantasia
3 *
4 * $FreeBSD: src/games/phantasia/interplayer.c,v 1.6 1999/11/16 02:57:33 billf Exp $
5 * $DragonFly: src/games/phantasia/interplayer.c,v 1.3 2005/05/31 00:06:26 swildner Exp $
6 */
7
8 #include <string.h>
9 #include "include.h"
10
11 /* functions which we need to know about */
12 /* fight.c */
13 extern void encounter(int);
14 /* io.c */
15 extern int getanswer(const char *, bool);
16 extern void getstring(char *, int);
17 extern double infloat(void);
18 extern int inputoption(void);
19 extern void more(int);
20 /* misc.c */
21 extern void altercoordinates(double, double, int);
22 extern void collecttaxes(double, double);
23 extern void death(const char *);
24 extern const char *descrlocation(struct player *, bool);
25 extern const char *descrstatus(struct player *);
26 extern const char *descrtype(struct player *, bool);
27 extern void displaystats(void);
28 extern double distance(double, double, double, double);
29 extern long findname(char *, struct player *);
30 extern void readmessage(void);
31 extern void readrecord(struct player *, long);
32 extern void truncstring(char *);
33 extern void writerecord(struct player *, long);
34 /* phantglobs.c */
35 extern double drandom(void);
36
37 void checkbattle(void);
38 void battleplayer(long);
39 void myturn(void);
40 void checktampered(void);
41 void tampered(int, double, double);
42 void userlist(bool);
43 void throneroom(void);
44 void dotampered(void);
45 void writevoid(struct energyvoid *, long);
46 size_t allocvoid(void);
47
48 /************************************************************************
49 /
50 / FUNCTION NAME: checkbattle()
51 /
52 / FUNCTION: check to see if current player should battle another
53 /
54 / AUTHOR: E. A. Estes, 12/4/85
55 /
56 / ARGUMENTS: none
57 /
58 / RETURN VALUE: none
59 /
60 / MODULES CALLED: battleplayer(), fread(), fseek()
61 /
62 / GLOBAL INPUTS: Other, Users, Player, Fileloc, *Playersfp
63 /
64 / GLOBAL OUTPUTS: Users
65 /
66 / DESCRIPTION:
67 / Seach player file for a foe at the same coordinates as the
68 / current player.
69 / Also update user count.
70 /
71 *************************************************************************/
72
73 void
74 checkbattle(void)
75 {
76 long foeloc = 0L; /* location in file of person to fight */
77
78 Users = 0;
79 fseek(Playersfp, 0L, 0);
80
81 while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
82 {
83 if (Other.p_status != S_OFF
84 && Other.p_status != S_NOTUSED
85 && Other.p_status != S_HUNGUP
86 && (Other.p_status != S_CLOAKED || Other.p_specialtype != SC_VALAR))
87 /* player is on and not a cloaked valar */
88 {
89 ++Users;
90
91 if (Player.p_x == Other.p_x
92 && Player.p_y == Other.p_y
93 /* same coordinates */
94 && foeloc != Fileloc
95 /* not self */
96 && Player.p_status == S_PLAYING
97 && (Other.p_status == S_PLAYING || Other.p_status == S_INBATTLE)
98 /* both are playing */
99 && Other.p_specialtype != SC_VALAR
100 && Player.p_specialtype != SC_VALAR)
101 /* neither is valar */
102 {
103 battleplayer(foeloc);
104 return;
105 }
106 }
107 foeloc += SZ_PLAYERSTRUCT;
108 }
109 }
110 /*\f*/
111 /************************************************************************
112 /
113 / FUNCTION NAME: battleplayer()
114 /
115 / FUNCTION: inter-terminal battle with another player
116 /
117 / AUTHOR: E. A. Estes, 2/15/86
118 /
119 / ARGUMENTS:
120 / long foeplace - location in player file of person to battle
121 /
122 / RETURN VALUE: none
123 /
124 / MODULES CALLED: readrecord(), readmessage(), writerecord(), collecttaxes(),
125 / displaystats(), fabs(), more(), death(), sleep(), wmove(), waddch(), printw(),
126 / myturn(), altercoordinates(), waddstr(), wrefresh(), mvprintw(),
127 / getanswer(), wclrtoeol(), wclrtobot()
128 /
129 / GLOBAL INPUTS: Foestrikes, LINES, Lines, Other, Shield, Player, *stdscr,
130 / Fileloc, *Enemyname
131 /
132 / GLOBAL OUTPUTS: Foestrikes, Lines, Shield, Player, Luckout, *Enemyname
133 /
134 / DESCRIPTION:
135 / Inter-terminal battle is a very fragile and slightly klugy thing.
136 / At any time, one player is master and the other is slave.
137 / We pick who is master first by speed and level. After that,
138 / the slave waits for the master to relinquish its turn, and
139 / the slave becomes master, and so on.
140 /
141 / The items in the player structure which control the handshake are:
142 / p_tampered:
143 / master increments this to relinquish control
144 / p_istat:
145 / master sets this to specify particular action
146 / p_1scratch:
147 / set to total damage inflicted so far; changes to indicate action
148 /
149 *************************************************************************/
150
151 void
152 battleplayer(long foeplace)
153 {
154 double dtemp; /* for temporary calculations */
155 double oldhits = 0.0; /* previous damage inflicted by foe */
156 int loop; /* for timing out */
157 int ch; /* input */
158 short oldtampered; /* old value of foe's p_tampered */
159
160 Lines = 8;
161 Luckout = FALSE;
162 mvaddstr(4, 0, "Preparing for battle!\n");
163 refresh();
164
165 #ifdef SYS5
166 flushinp();
167 #endif
168
169 /* set up variables, file, etc. */
170 Player.p_status = S_INBATTLE;
171 Shield = Player.p_energy;
172
173 /* if p_tampered is not 0, someone else may try to change it (king, etc.) */
174 Player.p_tampered = oldtampered = 1;
175 Player.p_1scratch = 0.0;
176 Player.p_istat = I_OFF;
177
178 readrecord(&Other, foeplace);
179 if (fabs(Player.p_level - Other.p_level) > 20.0)
180 /* see if players are greatly mismatched */
181 {
182 dtemp = (Player.p_level - Other.p_level) / MAX(Player.p_level, Other.p_level);
183 if (dtemp < -0.5)
184 /* foe outweighs this one */
185 Player.p_speed *= 2.0;
186 }
187
188 writerecord(&Player, Fileloc); /* write out all our info */
189
190 if (Player.p_blindness)
191 Enemyname = "someone";
192 else
193 Enemyname = Other.p_name;
194
195 mvprintw(6, 0, "You have encountered %s Level: %.0f\n", Enemyname, Other.p_level);
196 refresh();
197
198 for (loop = 0; Other.p_status != S_INBATTLE && loop < 30; ++loop)
199 /* wait for foe to respond */
200 {
201 readrecord(&Other, foeplace);
202 sleep(1);
203 }
204
205 if (Other.p_status != S_INBATTLE)
206 /* foe did not respond */
207 {
208 mvprintw(5, 0, "%s is not responding.\n", Enemyname);
209 goto LEAVE;
210 }
211 /* else, we are ready to battle */
212
213 move(4, 0);
214 clrtoeol();
215
216 /*
217 * determine who is first master
218 * if neither player is faster, check level
219 * if neither level is greater, battle is not allowed
220 * (this should never happen, but we have to handle it)
221 */
222 if (Player.p_speed > Other.p_speed)
223 Foestrikes = FALSE;
224 else if (Other.p_speed > Player.p_speed)
225 Foestrikes = TRUE;
226 else if (Player.p_level > Other.p_level)
227 Foestrikes = FALSE;
228 else if (Other.p_level > Player.p_level)
229 Foestrikes = TRUE;
230 else
231 /* no one is faster */
232 {
233 printw("You can't fight %s yet.", Enemyname);
234 goto LEAVE;
235 }
236
237 for (;;)
238 {
239 displaystats();
240 readmessage();
241 mvprintw(1, 26, "%20.0f", Shield); /* overprint energy */
242
243 if (!Foestrikes)
244 /* take action against foe */
245 myturn();
246 else
247 /* wait for foe to take action */
248 {
249 mvaddstr(4, 0, "Waiting...\n");
250 clrtoeol();
251 refresh();
252
253 for (loop = 0; loop < 20; ++loop)
254 /* wait for foe to act */
255 {
256 readrecord(&Other, foeplace);
257 if (Other.p_1scratch != oldhits)
258 /* p_1scratch changes to indicate action */
259 break;
260 else
261 /* wait and try again */
262 {
263 sleep(1);
264 addch('.');
265 refresh();
266 }
267 }
268
269 if (Other.p_1scratch == oldhits)
270 {
271 /* timeout */
272 mvaddstr(22, 0, "Timeout: waiting for response. Do you want to wait ? ");
273 ch = getanswer("NY", FALSE);
274 move(22, 0);
275 clrtobot();
276 if (ch == 'Y')
277 continue;
278 else
279 break;
280 }
281 else
282 /* foe took action */
283 {
284 switch (Other.p_istat)
285 {
286 case I_RAN: /* foe ran away */
287 mvprintw(Lines++, 0, "%s ran away!", Enemyname);
288 break;
289
290 case I_STUCK: /* foe tried to run, but couldn't */
291 mvprintw(Lines++, 0, "%s tried to run away.", Enemyname);
292 break;
293
294 case I_BLEWIT: /* foe tried to luckout, but didn't */
295 mvprintw(Lines++, 0, "%s tried to luckout!", Enemyname);
296 break;
297
298 default:
299 dtemp = Other.p_1scratch - oldhits;
300 mvprintw(Lines++, 0, "%s hit you %.0f times!", Enemyname, dtemp);
301 Shield -= dtemp;
302 break;
303 }
304
305 oldhits = Other.p_1scratch; /* keep track of old hits */
306
307 if (Other.p_tampered != oldtampered)
308 /* p_tampered changes to relinquish turn */
309 {
310 oldtampered = Other.p_tampered;
311 Foestrikes = FALSE;
312 }
313 }
314 }
315
316 /* decide what happens next */
317 refresh();
318 if (Lines > LINES - 2)
319 {
320 more(Lines);
321 move(Lines = 8, 0);
322 clrtobot();
323 }
324
325 if (Other.p_istat == I_KILLED || Shield < 0.0)
326 /* we died */
327 {
328 Shield = -2.0; /* insure this value is negative */
329 break;
330 }
331
332 if (Player.p_istat == I_KILLED)
333 /* we killed foe; award treasre */
334 {
335 mvprintw(Lines++, 0, "You killed %s!", Enemyname);
336 Player.p_experience += Other.p_experience;
337 Player.p_crowns += (Player.p_level < 1000.0) ? Other.p_crowns : 0;
338 Player.p_amulets += Other.p_amulets;
339 Player.p_charms += Other.p_charms;
340 collecttaxes(Other.p_gold, Other.p_gems);
341 Player.p_sword = MAX(Player.p_sword, Other.p_sword);
342 Player.p_shield = MAX(Player.p_shield, Other.p_shield);
343 Player.p_quksilver = MAX(Player.p_quksilver, Other.p_quksilver);
344 if (Other.p_virgin && !Player.p_virgin)
345 {
346 mvaddstr(Lines++, 0, "You have rescued a virgin. Will you be honorable ? ");
347 if ((ch = getanswer("YN", FALSE)) == 'Y')
348 Player.p_virgin = TRUE;
349 else
350 {
351 ++Player.p_sin;
352 Player.p_experience += 8000.0;
353 }
354 }
355 sleep(3); /* give other person time to die */
356 break;
357 }
358 else if (Player.p_istat == I_RAN || Other.p_istat == I_RAN)
359 /* either player ran away */
360 break;
361 }
362
363 LEAVE:
364 /* clean up things and leave */
365 writerecord(&Player, Fileloc); /* update a final time */
366 altercoordinates(0.0, 0.0, A_NEAR); /* move away from battle site */
367 Player.p_energy = Shield; /* set energy to actual value */
368 Player.p_tampered = T_OFF; /* clear p_tampered */
369
370 more(Lines); /* pause */
371
372 move(4, 0);
373 clrtobot(); /* clear bottom area of screen */
374
375 if (Player.p_energy < 0.0)
376 /* we are dead */
377 death("Interterminal battle");
378 }
379 /*\f*/
380 /************************************************************************
381 /
382 / FUNCTION NAME: myturn()
383 /
384 / FUNCTION: process players action against foe in battle
385 /
386 / AUTHOR: E. A. Estes, 2/7/86
387 /
388 / ARGUMENTS: none
389 /
390 / RETURN VALUE: none
391 /
392 / MODULES CALLED: writerecord(), inputoption(), floor(), wmove(), drandom(),
393 / waddstr(), wrefresh(), mvprintw(), wclrtoeol(), wclrtobot()
394 /
395 / GLOBAL INPUTS: Lines, Other, Player, *stdscr, Fileloc, Luckout,
396 / *Enemyname
397 /
398 / GLOBAL OUTPUTS: Foestrikes, Lines, Player, Luckout
399 /
400 / DESCRIPTION:
401 / Take action action against foe, and decide who is master
402 / for next iteration.
403 /
404 *************************************************************************/
405
406 void
407 myturn(void)
408 {
409 double dtemp; /* for temporary calculations */
410 int ch; /* input */
411
412 mvaddstr(7, 0, "1:Fight 2:Run Away! 3:Power Blast ");
413 if (Luckout)
414 clrtoeol();
415 else
416 addstr("4:Luckout ");
417
418 ch = inputoption();
419 move(Lines = 8, 0);
420 clrtobot();
421
422 switch (ch)
423 {
424 default: /* fight */
425 dtemp = ROLL(2.0, Player.p_might);
426 HIT:
427 mvprintw(Lines++, 0, "You hit %s %.0f times!", Enemyname, dtemp);
428 Player.p_sin += 0.5;
429 Player.p_1scratch += dtemp;
430 Player.p_istat = I_OFF;
431 break;
432
433 case '2': /* run away */
434 Player.p_1scratch -= 1.0; /* change this to indicate action */
435 if (drandom() > 0.25)
436 {
437 mvaddstr(Lines++, 0, "You got away!");
438 Player.p_istat = I_RAN;
439 }
440 else
441 {
442 mvprintw(Lines++, 0, "%s is still after you!", Enemyname);
443 Player.p_istat = I_STUCK;
444 }
445 break;
446
447 case '3': /* power blast */
448 dtemp = MIN(Player.p_mana, Player.p_level * 5.0);
449 Player.p_mana -= dtemp;
450 dtemp *= (drandom() + 0.5) * Player.p_magiclvl * 0.2 + 2.0;
451 mvprintw(Lines++, 0, "You blasted %s !", Enemyname);
452 goto HIT;
453
454 case '4': /* luckout */
455 if (Luckout || drandom() > 0.1)
456 {
457 if (Luckout)
458 mvaddstr(Lines++, 0, "You already tried that!");
459 else
460 {
461 mvaddstr(Lines++, 0, "Not this time . . .");
462 Luckout = TRUE;
463 }
464
465 Player.p_1scratch -= 1.0;
466 Player.p_istat = I_BLEWIT;
467 }
468 else
469 {
470 mvaddstr(Lines++, 0, "You just lucked out!");
471 Player.p_1scratch = Other.p_energy * 1.1;
472 }
473 break;
474 }
475
476 refresh();
477 Player.p_1scratch = floor(Player.p_1scratch); /* clean up any mess */
478
479 if (Player.p_1scratch > Other.p_energy)
480 Player.p_istat = I_KILLED;
481 else if (drandom() * Player.p_speed < drandom() * Other.p_speed)
482 /* relinquish control */
483 {
484 ++Player.p_tampered;
485 Foestrikes = TRUE;
486 }
487
488 writerecord(&Player, Fileloc); /* let foe know what we did */
489 }
490 /*\f*/
491 /************************************************************************
492 /
493 / FUNCTION NAME: checktampered()
494 /
495 / FUNCTION: check if current player has been tampered with
496 /
497 / AUTHOR: E. A. Estes, 12/4/85
498 /
499 / ARGUMENTS: none
500 /
501 / RETURN VALUE: none
502 /
503 / MODULES CALLED: readrecord(), fread(), fseek(), tampered(), writevoid()
504 /
505 / GLOBAL INPUTS: *Energyvoidfp, Other, Player, Fileloc, Enrgyvoid
506 /
507 / GLOBAL OUTPUTS: Enrgyvoid
508 /
509 / DESCRIPTION:
510 / Check for energy voids, holy grail, and tampering by other
511 / players.
512 /
513 *************************************************************************/
514
515 void
516 checktampered(void)
517 {
518 long loc = 0L; /* location in energy void file */
519
520 /* first check for energy voids */
521 fseek(Energyvoidfp, 0L, 0);
522 while (fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1)
523 if (Enrgyvoid.ev_active
524 && Enrgyvoid.ev_x == Player.p_x
525 && Enrgyvoid.ev_y == Player.p_y)
526 /* sitting on one */
527 {
528 if (loc > 0L)
529 /* not the holy grail; inactivate energy void */
530 {
531 Enrgyvoid.ev_active = FALSE;
532 writevoid(&Enrgyvoid, loc);
533 tampered(T_NRGVOID, 0.0, 0.0);
534 }
535 else if (Player.p_status != S_CLOAKED)
536 /* holy grail */
537 tampered(T_GRAIL, 0.0, 0.0);
538 break;
539 }
540 else
541 loc += SZ_VOIDSTRUCT;
542
543 /* now check for other things */
544 readrecord(&Other, Fileloc);
545 if (Other.p_tampered != T_OFF)
546 tampered(Other.p_tampered, Other.p_1scratch, Other.p_2scratch);
547 }
548 /*\f*/
549 /************************************************************************
550 /
551 / FUNCTION NAME: tampered()
552 /
553 / FUNCTION: take care of tampering by other players
554 /
555 / AUTHOR: E. A. Estes, 12/4/85
556 /
557 / ARGUMENTS:
558 / int what - what type of tampering
559 / double arg1, arg2 - rest of tampering info
560 /
561 / RETURN VALUE: none
562 /
563 / MODULES CALLED: writerecord(), more(), fread(), death(), fseek(), sleep(),
564 / floor(), wmove(), waddch(), drandom(), printw(), altercoordinates(),
565 / waddstr(), wrefresh(), encounter(), writevoid()
566 /
567 / GLOBAL INPUTS: Other, Player, *stdscr, Enrgyvoid, *Playersfp
568 /
569 / GLOBAL OUTPUTS: Other, Player, Changed, Enrgyvoid
570 /
571 / DESCRIPTION:
572 / Take care of energy voids, holy grail, decree and intervention
573 / action on current player.
574 /
575 *************************************************************************/
576
577 void
578 tampered(int what, double arg1, double arg2)
579 {
580 long loc; /* location in file of other players */
581
582 Changed = TRUE;
583 move(4,0);
584
585 Player.p_tampered = T_OFF; /* no longer tampered with */
586
587 switch (what)
588 {
589 case T_NRGVOID:
590 addstr("You've hit an energy void !\n");
591 Player.p_mana /= 3.0;
592 Player.p_energy /= 2.0;
593 Player.p_gold = floor(Player.p_gold/1.25) + 0.1;
594 altercoordinates(0.0, 0.0, A_NEAR);
595 break;
596
597 case T_TRANSPORT:
598 addstr("The king transported you ! ");
599 if (Player.p_charms > 0)
600 {
601 addstr("But your charm saved you. . .\n");
602 --Player.p_charms;
603 }
604 else
605 {
606 altercoordinates(0.0, 0.0, A_FAR);
607 addch('\n');
608 }
609 break;
610
611 case T_BESTOW:
612 printw("The king has bestowed %.0f gold pieces on you !\n", arg1);
613 Player.p_gold += arg1;
614 break;
615
616 case T_CURSED:
617 addstr("You've been cursed ! ");
618 if (Player.p_blessing)
619 {
620 addstr("But your blessing saved you. . .\n");
621 Player.p_blessing = FALSE;
622 }
623 else
624 {
625 addch('\n');
626 Player.p_poison += 2.0;
627 Player.p_energy = 10.0;
628 Player.p_maxenergy *= 0.95;
629 Player.p_status = S_PLAYING; /* no longer cloaked */
630 }
631 break;
632
633 case T_VAPORIZED:
634 addstr("You have been vaporized!\n");
635 more(7);
636 death("Vaporization");
637 break;
638
639 case T_MONSTER:
640 addstr("The Valar zapped you with a monster!\n");
641 more(7);
642 encounter((int) arg1);
643 return;
644
645 case T_BLESSED:
646 addstr("The Valar has blessed you!\n");
647 Player.p_energy = (Player.p_maxenergy *= 1.05) + Player.p_shield;
648 Player.p_mana += 500.0;
649 Player.p_strength += 0.5;
650 Player.p_brains += 0.5;
651 Player.p_magiclvl += 0.5;
652 Player.p_poison = MIN(0.5, Player.p_poison);
653 break;
654
655 case T_RELOCATE:
656 addstr("You've been relocated. . .\n");
657 altercoordinates(arg1, arg2, A_FORCED);
658 break;
659
660 case T_HEAL:
661 addstr("You've been healed!\n");
662 Player.p_poison -= 0.25;
663 Player.p_energy = Player.p_maxenergy + Player.p_shield;
664 break;
665
666 case T_EXVALAR:
667 addstr("You are no longer Valar!\n");
668 Player.p_specialtype = SC_COUNCIL;
669 break;
670
671 case T_GRAIL:
672 addstr("You have found The Holy Grail!!\n");
673 if (Player.p_specialtype < SC_COUNCIL)
674 /* must be council of wise to behold grail */
675 {
676 addstr("However, you are not experienced enough to behold it.\n");
677 Player.p_sin *= Player.p_sin;
678 Player.p_mana += 1000;
679 }
680 else if (Player.p_specialtype == SC_VALAR
681 || Player.p_specialtype == SC_EXVALAR)
682 {
683 addstr("You have made it to the position of Valar once already.\n");
684 addstr("The Grail is of no more use to you now.\n");
685 }
686 else
687 {
688 addstr("It is now time to see if you are worthy to behold it. . .\n");
689 refresh();
690 sleep(4);
691
692 if (drandom() / 2.0 < Player.p_sin)
693 {
694 addstr("You have failed!\n");
695 Player.p_strength =
696 Player.p_mana =
697 Player.p_energy =
698 Player.p_maxenergy =
699 Player.p_magiclvl =
700 Player.p_brains =
701 Player.p_experience =
702 Player.p_quickness = 1.0;
703
704 altercoordinates(1.0, 1.0, A_FORCED);
705 Player.p_level = 0.0;
706 }
707 else
708 {
709 addstr("You made to position of Valar!\n");
710 Player.p_specialtype = SC_VALAR;
711 Player.p_lives = 5;
712 fseek(Playersfp, 0L, 0);
713 loc = 0L;
714 while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
715 /* search for existing valar */
716 if (Other.p_specialtype == SC_VALAR
717 && Other.p_status != S_NOTUSED)
718 /* found old valar */
719 {
720 Other.p_tampered = T_EXVALAR;
721 writerecord(&Other, loc);
722 break;
723 }
724 else
725 loc += SZ_PLAYERSTRUCT;
726 }
727 }
728
729 /* move grail to new location */
730 Enrgyvoid.ev_active = TRUE;
731 Enrgyvoid.ev_x = ROLL(-1.0e6, 2.0e6);
732 Enrgyvoid.ev_y = ROLL(-1.0e6, 2.0e6);
733 writevoid(&Enrgyvoid, 0L);
734 break;
735 }
736 refresh();
737 sleep(2);
738 }
739 /*\f*/
740 /************************************************************************
741 /
742 / FUNCTION NAME: userlist()
743 /
744 / FUNCTION: print list of players and locations
745 /
746 / AUTHOR: E. A. Estes, 2/28/86
747 /
748 / ARGUMENTS:
749 / bool ingameflag - set if called while playing
750 /
751 / RETURN VALUE: none
752 /
753 / MODULES CALLED: descrstatus(), descrlocation(), more(), fread(), fseek(),
754 / floor(), wmove(), printw(), waddstr(), distance(), wrefresh(),
755 / descrtype(), wclrtobot()
756 /
757 / GLOBAL INPUTS: LINES, Other, Circle, Wizard, Player, *stdscr, *Playersfp
758 /
759 / GLOBAL OUTPUTS: none
760 /
761 / DESCRIPTION:
762 / We can only see the coordinate of those closer to the origin
763 / from us.
764 / Kings and council of the wise can see and can be seen by everyone.
765 / Palantirs are good for seeing everyone; and the valar can use
766 / one to see through a 'cloak' spell.
767 / The valar has no coordinates, and is completely invisible if
768 / cloaked.
769 /
770 *************************************************************************/
771
772 void
773 userlist(bool ingameflag)
774 {
775 int numusers = 0; /* number of users on file */
776
777 if (ingameflag && Player.p_blindness)
778 {
779 mvaddstr(8, 0, "You cannot see anyone.\n");
780 return;
781 }
782
783 fseek(Playersfp, 0L, 0);
784 mvaddstr(8, 0,
785 "Name X Y Lvl Type Login Status\n");
786
787 while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
788 {
789 if (Other.p_status == S_NOTUSED
790 /* record is unused */
791 || (Other.p_specialtype == SC_VALAR && Other.p_status == S_CLOAKED))
792 /* cloaked valar */
793 {
794 if (!Wizard)
795 /* wizard can see everything on file */
796 continue;
797 }
798
799 ++numusers;
800
801 if (ingameflag &&
802 /* must be playing for the rest of these conditions */
803 (Player.p_specialtype >= SC_KING
804 /* kings and higher can see others */
805 || Other.p_specialtype >= SC_KING
806 /* kings and higher can be seen by others */
807 || Circle >= CIRCLE(Other.p_x, Other.p_y)
808 /* those nearer the origin can be seen */
809 || Player.p_palantir)
810 /* palantir enables one to see others */
811 && (Other.p_status != S_CLOAKED
812 || (Player.p_specialtype == SC_VALAR && Player.p_palantir))
813 /* not cloaked; valar can see through cloak with a palantir */
814 && Other.p_specialtype != SC_VALAR)
815 /* not a valar */
816 /* coordinates should be printed */
817 printw("%-20s %8.0f %8.0f ",
818 Other.p_name, Other.p_x, Other.p_y);
819 else
820 /* cannot see player's coordinates */
821 printw("%-20s %19.19s ",
822 Other.p_name, descrlocation(&Other, TRUE));
823
824 printw("%6.0f %s %-9.9s%s\n", Other.p_level, descrtype(&Other, TRUE),
825 Other.p_login, descrstatus(&Other));
826
827 if ((numusers % (LINES - 10)) == 0)
828 {
829 more(LINES - 1);
830 move(9, 0);
831 clrtobot();
832 }
833 }
834
835 printw("Total players on file = %d\n", numusers);
836 refresh();
837 }
838 /*\f*/
839 /************************************************************************
840 /
841 / FUNCTION NAME: throneroom()
842 /
843 / FUNCTION: king stuff upon entering throne
844 /
845 / AUTHOR: E. A. Estes, 12/16/85
846 /
847 / ARGUMENTS: none
848 /
849 / RETURN VALUE: none
850 /
851 / MODULES CALLED: writerecord(), fread(), fseek(), fopen(), wmove(), fclose(),
852 / fwrite(), altercoordinates(), waddstr(), fprintf()
853 /
854 / GLOBAL INPUTS: *Energyvoidfp, Other, Player, *stdscr,
855 / Enrgyvoid, *Playersfp
856 /
857 / GLOBAL OUTPUTS: Other, Player, Changed
858 /
859 / DESCRIPTION:
860 / If player is not already king, make him/her so if the old king
861 / is not playing.
862 / Clear energy voids with new king.
863 / Print 'decree' prompt.
864 /
865 *************************************************************************/
866
867 void
868 throneroom(void)
869 {
870 FILE *fp; /* to clear energy voids */
871 long loc = 0L; /* location of old king in player file */
872
873 if (Player.p_specialtype < SC_KING)
874 /* not already king -- assumes crown */
875 {
876 fseek(Playersfp, 0L, 0);
877 while (fread((char *) &Other, SZ_PLAYERSTRUCT, 1, Playersfp) == 1)
878 if (Other.p_specialtype == SC_KING && Other.p_status != S_NOTUSED)
879 /* found old king */
880 {
881 if (Other.p_status != S_OFF)
882 /* old king is playing */
883 {
884 mvaddstr( 4, 0, "The king is playing, so you cannot steal his throne\n");
885 altercoordinates(0.0, 0.0, A_NEAR);
886 move(6, 0);
887 return;
888 }
889 else
890 /* old king is not playing - remove him/her */
891 {
892 Other.p_specialtype = SC_NONE;
893 if (Other.p_crowns)
894 --Other.p_crowns;
895 writerecord(&Other, loc);
896 break;
897 }
898 }
899 else
900 loc += SZ_PLAYERSTRUCT;
901
902 /* make player new king */
903 Changed = TRUE;
904 Player.p_specialtype = SC_KING;
905 mvaddstr(4, 0, "You have become king!\n");
906
907 /* let everyone else know */
908 fp = fopen(_PATH_MESS, "w");
909 fprintf(fp, "All hail the new king!");
910 fclose(fp);
911
912 /* clear all energy voids; retain location of holy grail */
913 fseek(Energyvoidfp, 0L, 0);
914 fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp);
915 fp = fopen(_PATH_VOID, "w");
916 fwrite((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, fp);
917 fclose(fp);
918 }
919
920 mvaddstr(6, 0, "0:Decree ");
921 }
922 /*\f*/
923 /************************************************************************
924 /
925 / FUNCTION NAME: dotampered()
926 /
927 / FUNCTION: king and valar special options
928 /
929 / AUTHOR: E. A. Estes, 2/28/86
930 /
931 / ARGUMENTS: none
932 /
933 / RETURN VALUE: none
934 /
935 / MODULES CALLED: writerecord(), truncstring(), fread(), fseek(), fopen(),
936 / floor(), wmove(), drandom(), fclose(), fwrite(), sscanf(), strcmp(),
937 / infloat(), waddstr(), findname(), distance(), userlist(), mvprintw(),
938 / allocvoid(), getanswer(), getstring(), wclrtoeol(), writevoid()
939 /
940 / GLOBAL INPUTS: *Energyvoidfp, Other, Illcmd[], Wizard, Player, *stdscr,
941 / Databuf[], Enrgyvoid
942 /
943 / GLOBAL OUTPUTS: Other, Player, Enrgyvoid
944 /
945 / DESCRIPTION:
946 / Tamper with other players. Handle king/valar specific options.
947 /
948 *************************************************************************/
949
950 void
951 dotampered(void)
952 {
953 short tamper; /* value for tampering with other players */
954 const char *option; /* pointer to option description */
955 double temp1 = 0.0, temp2 = 0.0; /* other tampering values */
956 int ch; /* input */
957 long loc; /* location in energy void file */
958 FILE *fp; /* for opening gold file */
959
960 move(6, 0);
961 clrtoeol();
962 if (Player.p_specialtype < SC_COUNCIL && !Wizard)
963 /* king options */
964 {
965 addstr("1:Transport 2:Curse 3:Energy Void 4:Bestow 5:Collect Taxes ");
966
967 ch = getanswer(" ", TRUE);
968 move(6, 0);
969 clrtoeol();
970 move(4, 0);
971 switch (ch)
972 {
973 case '1': /* transport someone */
974 tamper = T_TRANSPORT;
975 option = "transport";
976 break;
977
978 case '2': /* curse another */
979 tamper = T_CURSED;
980 option = "curse";
981 break;
982
983 case '3': /* create energy void */
984 if ((loc = allocvoid()) > 20L * (long)SZ_VOIDSTRUCT)
985 /* can only have 20 void active at once */
986 mvaddstr(5, 0, "Sorry, void creation limit reached.\n");
987 else
988 {
989 addstr("Enter the X Y coordinates of void ? ");
990 getstring(Databuf, SZ_DATABUF);
991 sscanf(Databuf, "%lf %lf", &temp1, &temp2);
992 Enrgyvoid.ev_x = floor(temp1);
993 Enrgyvoid.ev_y = floor(temp2);
994 Enrgyvoid.ev_active = TRUE;
995 writevoid(&Enrgyvoid, loc);
996 mvaddstr(5, 0, "It is done.\n");
997 }
998 return;
999
1000 case '4': /* bestow gold to subject */
1001 tamper = T_BESTOW;
1002 addstr("How much gold to bestow ? ");
1003 temp1 = infloat();
1004 if (temp1 > Player.p_gold || temp1 < 0)
1005 {
1006 mvaddstr(5, 0, "You don't have that !\n");
1007 return;
1008 }
1009
1010 /* adjust gold after we are sure it will be given to someone */
1011 option = "give gold to";
1012 break;
1013
1014 case '5': /* collect accumulated taxes */
1015 if ((fp = fopen(_PATH_GOLD, "r+")) != NULL)
1016 /* collect taxes */
1017 {
1018 fread((char *) &temp1, sizeof(double), 1, fp);
1019 fseek(fp, 0L, 0);
1020 /* clear out value */
1021 temp2 = 0.0;
1022 fwrite((char *) &temp2, sizeof(double), 1, fp);
1023 fclose(fp);
1024 }
1025
1026 mvprintw(4, 0, "You have collected %.0f in gold.\n", temp1);
1027 Player.p_gold += floor(temp1);
1028 return;
1029
1030 default:
1031 return;
1032 }
1033 /* end of king options */
1034 }
1035 else
1036 /* council of wise, valar, wizard options */
1037 {
1038 addstr("1:Heal ");
1039 if (Player.p_palantir || Wizard)
1040 addstr("2:Seek Grail ");
1041 if (Player.p_specialtype == SC_VALAR || Wizard)
1042 addstr("3:Throw Monster 4:Relocate 5:Bless ");
1043 if (Wizard)
1044 addstr("6:Vaporize ");
1045
1046 ch = getanswer(" ", TRUE);
1047 if (!Wizard)
1048 {
1049 if (ch > '2' && Player.p_specialtype != SC_VALAR)
1050 {
1051 ILLCMD();
1052 return;
1053 }
1054
1055 if (Player.p_mana < MM_INTERVENE)
1056 {
1057 mvaddstr(5, 0, "No mana left.\n");
1058 return;
1059 }
1060 else
1061 Player.p_mana -= MM_INTERVENE;
1062 }
1063
1064 switch (ch)
1065 {
1066 case '1': /* heal another */
1067 tamper = T_HEAL;
1068 option = "heal";
1069 break;
1070
1071 case '2': /* seek grail */
1072 if (Player.p_palantir)
1073 /* need a palantir to seek */
1074 {
1075 fseek(Energyvoidfp, 0L, 0);
1076 fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp);
1077 temp1 = distance(Player.p_x, Enrgyvoid.ev_x, Player.p_y, Enrgyvoid.ev_y);
1078 temp1 += ROLL(-temp1 / 10.0, temp1 / 5.0); /* add some error */
1079 mvprintw(5, 0, "The palantir says the Grail is about %.0f away.\n", temp1);
1080 }
1081 else
1082 /* no palantir */
1083 mvaddstr(5, 0, "You need a palantir to seek the Grail.\n");
1084 return;
1085
1086 case '3': /* lob monster at someone */
1087 mvaddstr(4, 0, "Which monster [0-99] ? ");
1088 temp1 = infloat();
1089 temp1 = MAX(0.0, MIN(99.0, temp1));
1090 tamper = T_MONSTER;
1091 option = "throw a monster at";
1092 break;
1093
1094 case '4': /* move another player */
1095 mvaddstr(4, 0, "New X Y coordinates ? ");
1096 getstring(Databuf, SZ_DATABUF);
1097 sscanf(Databuf, "%lf %lf", &temp1, &temp2);
1098 tamper = T_RELOCATE;
1099 option = "relocate";
1100 break;
1101
1102 case '5': /* bless a player */
1103 tamper = T_BLESSED;
1104 option = "bless";
1105 break;
1106
1107 case '6': /* kill off a player */
1108 if (Wizard)
1109 {
1110 tamper = T_VAPORIZED;
1111 option = "vaporize";
1112 break;
1113 }
1114 else
1115 return;
1116
1117 default:
1118 return;
1119 }
1120
1121 /* adjust age after we are sure intervention will be done */
1122 /* end of valar, etc. options */
1123 }
1124
1125 for (;;)
1126 /* prompt for player to affect */
1127 {
1128 mvprintw(4, 0, "Who do you want to %s ? ", option);
1129 getstring(Databuf, SZ_DATABUF);
1130 truncstring(Databuf);
1131
1132 if (Databuf[0] == '\0')
1133 userlist(TRUE);
1134 else
1135 break;
1136 }
1137
1138 if (strcmp(Player.p_name, Databuf) != 0)
1139 /* name other than self */
1140 {
1141 if ((loc = findname(Databuf, &Other)) >= 0L)
1142 {
1143 if (Other.p_tampered != T_OFF)
1144 {
1145 mvaddstr(5, 0, "That person has something pending already.\n");
1146 return;
1147 }
1148 else
1149 {
1150 if (tamper == T_RELOCATE
1151 && CIRCLE(temp1, temp2) < CIRCLE(Other.p_x, Other.p_y)
1152 && !Wizard)
1153 mvaddstr(5, 0, "Cannot move someone closer to the Lord's Chamber.\n");
1154 else
1155 {
1156 if (tamper == T_BESTOW) Player.p_gold -= floor(temp1);
1157 if (!Wizard && (tamper == T_HEAL || tamper == T_MONSTER ||
1158 tamper == T_RELOCATE || tamper == T_BLESSED))
1159 Player.p_age += N_AGE; /* age penalty */
1160 Other.p_tampered = tamper;
1161 Other.p_1scratch = floor(temp1);
1162 Other.p_2scratch = floor(temp2);
1163 writerecord(&Other, loc);
1164 mvaddstr(5, 0, "It is done.\n");
1165 }
1166 return;
1167 }
1168 }
1169 else
1170 /* player not found */
1171 mvaddstr(5, 0, "There is no one by that name.\n");
1172 }
1173 else
1174 /* self */
1175 mvaddstr(5, 0, "You may not do it to yourself!\n");
1176 }
1177 /*\f*/
1178 /************************************************************************
1179 /
1180 / FUNCTION NAME: writevoid()
1181 /
1182 / FUNCTION: update energy void entry in energy void file
1183 /
1184 / AUTHOR: E. A. Estes, 12/4/85
1185 /
1186 / ARGUMENTS:
1187 / struct energyvoid *vp - pointer to structure to write to file
1188 / long loc - location in file to update
1189 /
1190 / RETURN VALUE: none
1191 /
1192 / MODULES CALLED: fseek(), fwrite(), fflush()
1193 /
1194 / GLOBAL INPUTS: *Energyvoidfp
1195 /
1196 / GLOBAL OUTPUTS: none
1197 /
1198 / DESCRIPTION:
1199 / Write out energy void structure at specified location.
1200 /
1201 *************************************************************************/
1202
1203 void
1204 writevoid(struct energyvoid *vp, long loc)
1205 {
1206
1207 fseek(Energyvoidfp, loc, 0);
1208 fwrite((char *) vp, SZ_VOIDSTRUCT, 1, Energyvoidfp);
1209 fflush(Energyvoidfp);
1210 fseek(Energyvoidfp, 0L, 0);
1211 }
1212 /*\f*/
1213 /************************************************************************
1214 /
1215 / FUNCTION NAME: allocvoid()
1216 /
1217 / FUNCTION: allocate space for a new energy void
1218 /
1219 / AUTHOR: E. A. Estes, 12/4/85
1220 /
1221 / ARGUMENTS: none
1222 /
1223 / RETURN VALUE: location of new energy void space
1224 /
1225 / MODULES CALLED: fread(), fseek()
1226 /
1227 / GLOBAL INPUTS: *Energyvoidfp, Enrgyvoid
1228 /
1229 / GLOBAL OUTPUTS: none
1230 /
1231 / DESCRIPTION:
1232 / Search energy void file for an inactive entry and return its
1233 / location.
1234 / If no inactive ones are found, return one more than last location.
1235 /
1236 *************************************************************************/
1237
1238 size_t
1239 allocvoid(void)
1240 {
1241 size_t loc = 0; /* location of new energy void */
1242
1243 fseek(Energyvoidfp, 0L, 0);
1244 while (fread((char *) &Enrgyvoid, SZ_VOIDSTRUCT, 1, Energyvoidfp) == 1)
1245 if (Enrgyvoid.ev_active)
1246 loc += SZ_VOIDSTRUCT;
1247 else
1248 break;
1249
1250 return(loc);
1251 }
DragonFly BSD