summaryrefslogtreecommitdiffstats
path: root/warp/us.c
diff options
context:
space:
mode:
Diffstat (limited to 'warp/us.c')
-rw-r--r--warp/us.c528
1 files changed, 528 insertions, 0 deletions
diff --git a/warp/us.c b/warp/us.c
new file mode 100644
index 00000000..c12f4090
--- /dev/null
+++ b/warp/us.c
@@ -0,0 +1,528 @@
+/* $Header: /cvsroot/src/games/warp/us.c,v 1.1 2020/11/09 23:37:05 kamil Exp $ */
+
+/* $Log: us.c,v $
+/* Revision 1.1 2020/11/09 23:37:05 kamil
+/* Add Warp Kit, Version 7.0 by Larry Wall
+/*
+/* Warp is a real-time space war game that doesn't get boring very quickly.
+/* Read warp.doc and the manual page for more information.
+/*
+/* games/warp originally distributed with 4.3BSD-Reno, is back to the BSD
+/* world via NetBSD. Its remnants were still mentioned in games/Makefile.
+/*
+/* Larry Wall, the original author and the copyright holder, generously
+/* donated the game and copyright to The NetBSD Foundation, Inc.
+/*
+/* Import the game sources as-is from 4.3BSD-Reno, with the cession
+/* of the copyright and license to BSD-2-clause NetBSD-style.
+/*
+/* Signed-off-by: Larry Wall <larry@wall.org>
+/* Signed-off-by: Kamil Rytarowski <kamil@netbsd.org>
+/*
+ * Revision 7.0.1.3 87/01/13 17:13:21 lwall
+ * Partially fixed ^S behavior. It now just ignores ^S.
+ *
+ * Revision 7.0.1.2 86/12/12 17:06:09 lwall
+ * Baseline for net release.
+ *
+ * Revision 7.0.1.1 86/10/16 10:53:50 lwall
+ * Added Damage. Fixed random bugs.
+ *
+ * Revision 7.0 86/10/08 15:14:21 lwall
+ * Split into separate files. Added amoebas and pirates.
+ *
+ */
+
+#include "EXTERN.h"
+#include "warp.h"
+#include "bang.h"
+#include "object.h"
+#include "play.h"
+#include "sig.h"
+#include "term.h"
+#include "util.h"
+#include "weapon.h"
+#include "INTERN.h"
+#include "us.h"
+
+void
+us_init()
+{
+ ;
+}
+
+void
+do_direction(dy,dx)
+int dy, dx;
+{
+ Reg1 int decr;
+ Reg2 OBJECT *obj;
+
+ if (status < 2) {
+ if (cloaking) {
+ char ch;
+
+ cloaked = FALSE;
+ ch = (ent->energy >= 500?'E':'e');
+ if (ch != ent->image) {
+ setimage(ent, ch);
+ }
+ }
+ decr = 5+abs(evely)+abs(evelx)+tractor*tractor;
+ if (ent->energy >= decr) {
+ ent->energy -= decr;
+ if (tractor) {
+ if (!damage || !damflag[NOTRACTORS]) {
+ if (!rand_mod(50)) {
+ damage++;
+ damflag[NOTRACTORS] = rand_mod(smarts+10)+2;
+ }
+ if (tract(ent,dy,dx,tractor)) {
+ evely += tractor*dy;
+ evelx += tractor*dx;
+ }
+ }
+ }
+ else if (!damage ||
+ (!entmode && !damflag[NOIMPULSE]) ||
+ (entmode && !damflag[NOWARP]) ) {
+ if (!rand_mod(30+500/(abs(evely)+abs(evelx)+1))) {
+ damage++;
+ damflag[entmode?NOWARP:NOIMPULSE] = rand_mod(smarts+10)+2;
+ }
+ evely += dy;
+ evelx += dx;
+ }
+ if (inumthols &&
+ (obj=occupant[(ent->posy+evely+YSIZE00)%YSIZE]
+ [(ent->posx+evelx+XSIZE00)%XSIZE] ) &&
+ obj->type == Web)
+ evely = evelx = 0;
+ }
+ }
+ else if (status == 2) {
+ decr = 500+abs(bvely)*5+abs(bvelx)*5+tractor*tractor*100;
+ if (base->energy >= decr) {
+ base->energy -= decr;
+ if (tractor) {
+ if (tract(base,dy,dx,tractor)) {
+ bvely += tractor*dy;
+ bvelx += tractor*dx;
+ }
+ }
+ else {
+ bvely += dy;
+ bvelx += dx;
+ }
+ if (inumthols &&
+ (obj=occupant[(base->posy+bvely+YSIZE00)%YSIZE]
+ [(base->posx+bvelx+XSIZE00)%XSIZE] ) &&
+ obj->type == Web)
+ bvely = bvelx = 0;
+ }
+ }
+ tractor = 0;
+}
+
+void
+ctrl_direction(dy,dx)
+int dy, dx;
+{
+ if (status < 2) {
+ if (cloaking) {
+ char ch;
+
+ cloaked = FALSE;
+ ch = (ent->energy >= 500?'E':'e');
+ if (ch != ent->image) {
+ setimage(ent, ch);
+ }
+ }
+ if (!damage || !damflag[NOPHASERS]) {
+ if (!rand_mod(200)) {
+ damage++;
+ damflag[NOPHASERS] = rand_mod(smarts+10)+2;
+ }
+ fire_phaser(ent, dy, dx);
+ }
+ }
+ else if (status == 2)
+ fire_phaser(base, dy, dx);
+}
+
+void
+shift_direction(dy,dx)
+int dy, dx;
+{
+ if (status < 2) {
+ if (cloaking) {
+ char ch;
+
+ cloaked = FALSE;
+ ch = (ent->energy >= 500?'E':'e');
+ if (ch != ent->image) {
+ setimage(ent, ch);
+ }
+ }
+ if (!damage || !damflag[NOTORPS]) {
+ if (!rand_mod(300)) {
+ damage++;
+ damflag[NOTORPS] = rand_mod(smarts+10)+2;
+ }
+ fire_torp(ent, dy, dx);
+ }
+ }
+ else if (status == 2)
+ fire_torp(base, dy, dx);
+}
+
+void
+get_commands(done)
+bool *done;
+{
+ static char ch[80];
+ Reg1 int i;
+ Reg2 int count;
+ Reg3 bool ctrla = FALSE;
+ char numdestructs = 0, numzaps = 0;
+
+top:
+ while (count = read_nd(ch,(sizeof ch))) {
+ for (i=0; i<count; i++) {
+ if (ch[i] == 'Q') {
+ bombed_out = TRUE;
+ *done = TRUE;
+ keepgoing = FALSE;
+ return;
+ }
+ if (ch[i] == 'q' || ch[i] == BREAKCH || ch[i] == INTRCH) {
+ int x;
+ static char quest[] = "Do you wish to escape from reality? ";
+
+ if (timer >= whenok) {
+ mvaddstr(12,22,quest);
+ do {
+ getcmd(&ch[i]);
+ } while (ch[i] != 'y' && ch[i] != 'n');
+ if (ch[i] == 'y') {
+ bombed_out = TRUE;
+ *done = TRUE;
+ return;
+ }
+ else {
+ for (x=11; x<=28; x++) {
+ mvaddch(12,x*2,
+ occupant[11][x]
+ ? occupant[11][x]->image
+ : numamoebas
+ ? amb[11][x]
+ : ' ');
+ addspace();
+ }
+ roundsleep(2);
+ whenok = timer + 10;
+ goto top;
+ }
+ }
+ else {
+ write(1,"\07",1);
+ goto top;
+ }
+ }
+ }
+ for (i=0; i<count; i++) {
+ if (ctrla) {
+ switch (ch[i]) {
+ case '1': case 'b':
+ ctrl_direction(1, -1);
+ break;
+ case '2': case 'j':
+ ctrl_direction(1, 0);
+ break;
+ case '3': case 'n':
+ ctrl_direction(1, 1);
+ break;
+ case '4': case 'h':
+ ctrl_direction(0, -1);
+ break;
+ case '6': case 'l':
+ ctrl_direction(0, 1);
+ break;
+ case '7': case 'y':
+ ctrl_direction(-1, -1);
+ break;
+ case '8': case 'k':
+ ctrl_direction(-1, 0);
+ break;
+ case '9': case 'u':
+ ctrl_direction(-1, 1);
+ break;
+ case 'r':
+ rewrite();
+ roundsleep(3);
+ ctrla = FALSE;
+ goto top;
+ case 'w':
+ clear();
+ while (!input_pending())
+ sleep(1);
+ rewrite();
+ roundsleep(3);
+ ctrla = FALSE;
+ goto top;
+#ifdef SIGTSTP
+ case 'z':
+ clear();
+ mytstp();
+ sleep(4);
+ ctrla = FALSE;
+ goto top;
+#endif
+ default:
+ break;
+ }
+ ctrla = FALSE;
+ }
+ else {
+ switch (ch[i]) {
+ case 'Z':
+ clear();
+ mytstp();
+ sleep(4);
+ goto top;
+ case 'i':
+ if (ent && (!damage || !damflag[NOIMPULSE])) {
+ entmode = 0;
+ status = 0;
+ }
+ break;
+ case 'w':
+ if (ent && (!damage || !damflag[NOWARP])) {
+ entmode = 1;
+ status = 1;
+ }
+ break;
+ case 'p':
+ if (base) {
+ status = 2;
+ }
+ break;
+ case 'o':
+ if (status < 2) {
+ if (base)
+ status = 2;
+ }
+ else if (status == 2) {
+ if (ent)
+ status = entmode;
+ }
+ break;
+ case 'v':
+ if (ent) {
+ status = entmode;
+ }
+ cloaking=FALSE;
+ cloaked=FALSE;
+ break;
+ case 'c':
+ if (ent) {
+ status = entmode;
+ if (ent->energy >= 250)
+ cloaking = TRUE;
+ }
+ break;
+ case 'z':
+ if (ent && (!damage || !damflag[NOZAPPER])) {
+ ++numzaps;
+ if (!rand_mod(100/numzaps)) {
+ damage++;
+ damflag[NOZAPPER] = rand_mod(smarts+10)+2;
+ }
+ if (nxtbang && bangm[nxtbang-1] < 0)
+ --nxtbang; /* consolidate zaps */
+ make_blast(evely*2+ent->posy,evelx*2+ent->posx,
+ -5000000L, 3*numzaps);
+ ent->energy /= 2;
+ }
+ break;
+ case 'D':
+ if (status < 2 && (!damage || !damflag[NODESTRUCT])) {
+ if (ent && !rand_mod(10)) {
+ damage++;
+ damflag[NODESTRUCT] = rand_mod(smarts+10)+2;
+ }
+ if (++numdestructs <= 2)
+ make_blast(evely*2+ent->posy,evelx*2+ent->posx,
+ 15000L, 3);
+ ent->energy /= 4;
+ }
+ else if (status == 2) {
+ if (numdestructs)
+ base->energy = base->energy / 2;
+ if (++numdestructs <= 2)
+ make_blast(base->posy, base->posx, 15000L, 5);
+ }
+ break;
+ case 'd':
+ if ((!damage || !damflag[NODESTRUCT]) && (base||ent)) {
+ Reg4 OBJECT *obj;
+ int x, y;
+
+ if (ent && !rand_mod(200)) {
+ damage++;
+ damflag[NODESTRUCT] = rand_mod(smarts+10)+2;
+ }
+ for (obj = root.prev;
+ obj != &root;
+ obj = obj->prev) {
+ if (obj->image == '+') {
+ blast[y=(obj->posy+obj->vely+YSIZE00)%YSIZE]
+ [x=(obj->posx+obj->velx+XSIZE00)%XSIZE]
+ += 1;
+ yblasted[y] |= 1;
+ xblasted[x] |= 1;
+ blasted = TRUE;
+ obj->mass = (massacre?3000:4000);
+ }
+ }
+ }
+ break;
+ case 's':
+ if ((!damage || !damflag[NODESTRUCT]) && (base||ent)) {
+ Reg4 OBJECT *obj;
+ if (ent && !rand_mod(200)) {
+ damage++;
+ damflag[NODESTRUCT] = rand_mod(smarts+10)+2;
+ }
+ for (obj = root.prev;
+ obj->type == Torp || obj->type == Web ||
+ obj->type == Star;
+ obj = obj->prev) {
+ if (obj->image == '+')
+ obj->vely = obj->velx = 0;
+ }
+ }
+ break;
+ case '\001':
+ ctrla = TRUE;
+ break;
+ case '\002':
+ case '\003':
+ case '\004':
+ case '\005':
+ case '\006':
+ case '\007':
+ case '\010':
+ case '\011':
+ case '\012':
+ case '\013':
+ case '\014':
+ case '\015':
+ case '\016':
+ case '\017':
+ case '\020':
+ case '\021':
+ case '\022':
+ case '\023':
+ case '\024':
+ case '\025':
+ case '\026':
+ case '\027':
+ case '\030':
+ case '\031':
+ case '\032':
+ ch[i] += 96;
+ i--;
+ ctrla = TRUE;
+ break;
+ case '\033':
+ tractor = 0;
+ break;
+ case 'a':
+ tractor++;
+ break;
+ case 'r':
+ tractor--;
+ break;
+ case '1': case 'b':
+ do_direction(1,-1);
+ break;
+ case '2': case 'j':
+ do_direction(1,0);
+ break;
+ case '3': case 'n':
+ do_direction(1,1);
+ break;
+ case '4': case 'h':
+ do_direction(0,-1);
+ break;
+ case '6': case 'l':
+ do_direction(0,1);
+ break;
+ case '7': case 'y':
+ do_direction(-1,-1);
+ break;
+ case '8': case 'k':
+ do_direction(-1,0);
+ break;
+ case '9': case 'u':
+ do_direction(-1,1);
+ break;
+ case '0': case 'S':
+ if (status < 2) {
+ evely = 0;
+ evelx = 0;
+ }
+ break;
+ case '-':
+ if (status < 2 && ent->energy >= 10) {
+ evely *= -1;
+ evelx *= -1;
+ ent->energy -= 10;
+ }
+ break;
+ case '%': case '\177': case '_':
+ shift_direction(0, -1);
+ shift_direction(0, 1);
+ shift_direction(-1, 0);
+ shift_direction(1, 0);
+ shift_direction(-1, -1);
+ shift_direction(-1, 1);
+ shift_direction(1, -1);
+ shift_direction(1, 1);
+ break;
+ case '!': case 'B':
+ shift_direction(1, -1);
+ break;
+ case '@': case 'J':
+ shift_direction(1, 0);
+ break;
+ case '#': case 'N':
+ shift_direction(1, 1);
+ break;
+ case '$': case 'H':
+ shift_direction(0, -1);
+ break;
+ case '^': case 'L':
+ shift_direction(0, 1);
+ break;
+ case '&': case 'Y':
+ shift_direction(-1, -1);
+ break;
+ case '*': case 'K':
+ shift_direction(-1, 0);
+ break;
+ case '(': case 'U':
+ shift_direction(-1, 1);
+ break;
+ case '?':
+ helper();
+ roundsleep(3);
+ goto top;
+ default:
+ break;
+ }
+ }
+ }
+ }
+}
generated by cgit v1.2.3-56-ge451 (git 2.39.0) at 2024-05-14 08:21:58 +0000