* [9front] brought swar from 1ed sources
@ 2021-07-31 13:42 rgl
2021-08-25 11:27 ` qwx
0 siblings, 1 reply; 3+ messages in thread
From: rgl @ 2021-07-31 13:42 UTC (permalink / raw)
To: 9front
[-- Attachment #1: Type: text/plain, Size: 537 bytes --]
hi there folks,
i ported games/swar to use libdraw instead of libg. the
gameplay is... funny? it reminds me of one of those
early LCD pocket consoles where you could see each
sprite of the animation on the screen.
i also fixed enough to make it work after resizing
the window, and corrected the rendering to clear the
screen and draw the latest state. it seems the jerq
didn't have a framebuffer from which to pull the latest
image or didn't mind refreshing it, so you had to
constantly blit it all.
is it OK if it push it?
-rodri
[-- Attachment #2: Type: text/plain, Size: 26645 bytes --]
--- /tmp/plan9front/.git/fs/object/edfc72b500999863c2adbe29d6677577c3d62122/tree/sys/src/games/mkfile
+++ sys/src/games/mkfile
@@ -46,6 +46,7 @@
snes\
sokoban\
sudoku\
+ swar\
timmy\
v8e\
--- /tmp/diff100000364079
+++ sys/src/games/swar/accel.h
@@ -1,0 +1,16 @@
+512, 0,
+473, 196,
+362, 362,
+196, 473,
+0, 512,
+-196, 473,
+-362, 362,
+-473, 196,
+-512, 0,
+-473, -196,
+-362, -362,
+-196, -473,
+0, -512,
+196, -473,
+362, -362,
+473, -196,
--- /tmp/diff100000364082
+++ sys/src/games/swar/boom.icon
@@ -1,0 +1,67 @@
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ .......x........",
+"................ ................ ................ .....x.x........",
+"................ ........x....... .......x.x...... .....x.x..x.....",
+"........x....... ......x.x....... .......xxx...... .........xxx....",
+"......xxx....... ......xxx....... ......xx........ ......xx........",
+".......x........ ........xx...... .......xx....... .....xxxxx......",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+"................ ................ ................ ................",
+
+"................ ................ ................ ................",
+"................ ................ ................ x.x.......x....x",
+"................ ........xx...... ....x.xx.x....x. ..x........x....",
+"................ .........x...... ...xx..x....x... .x.x...xxx.x....",
+"......x......... ....x.xxx....... ..x.xx......x... ..xxxx..xx..x...",
+".....xxxxxx..... .....xxxx.x..... ..xx.xxxxx.x.x.. ..x.x..x.x..xx..",
+".....x.x..xx.... ...........x.... ...x....x.x..x.. .x....x..xxxx...",
+"...xxx.x.xx..... .....x.xx..x.... ...xxxxx..x.x... ....xx..xxxx..x.",
+".....x.x.xx..... ....xx.xx....... ..xx.xx.x.xx.... ..xxx.xx.xx.....",
+"......x.xx...... ....x..xx....... ..xx.xx.....x... ...x.xx...x.x...",
+"....x.x..xx..... .....xx.x.x..... ....xxx......... ..xxxx..x...x...",
+".....xx....x.... .........xx..... ...x....xxx..... ..x.x..xx.xxx...",
+"................ ........xx...... ....x..xx.x.x... ....xx.xx.x.....",
+"................ ................ ...x......x..... ...xxxxx.x...x..",
+"................ ................ ................ ...xxxx..x...x..",
+"................ ................ ................ ................",
+
+"................ ................ ................ ................",
+".......x..x..... .......x..x..... .......x..x..... .......x..x.....",
+"......x......... ......x......... ......x......... ................",
+"....x.x...x.x.x. ....x.x...x.x.x. ....x.x...x.x.x. ....x.....x.x.x.",
+"...xx.xx.xx.x.x. ...xx.xx.xx.x.x. ...xx.xx.xx.x.x. ...xx.xx.xx.x.x.",
+"..x..xxxx.xx.x.x ..x..xx.x.x..x.x ......x.x.x..x.x ........x.x..x.x",
+"...xx.x.x.x...x. ....x.x.x.....x. ....x.x.......x. ..............x.",
+"..x.x.x.x.xx.xx. ..x.x...x.xx.xx. ..x.x.....xx.xx. ..x.......xx.xx.",
+"...xx.xxxxx..x.. ...xx.x.xxx..x.. ...x..x......x.. ...x..x......x..",
+"...xxx.xxx.xxxx. ...xx...x..xxxx. ...xx...x..xx.x. ...xx.......x.x.",
+"x.x.xx.xx.x.x.x. x.x.xx.xx...x.x. x.x.x..xx...x.x. x...x.......x.x.",
+"....xx.xx.xx.x.. ....xx..x.xx.x.. ....xx..x.x..x.. ....x...x.x..x..",
+"...x...x...xx... ...x...x...xx... ...x...x....x... ...x...x....x...",
+"....xx...x..x... ....xx...x..x... ....xx...x...... ....xx...x......",
+"....x.x.x....... ....x.x.x....... ....x.x.x....... ....x.x.x.......",
+"................ ................ ................ ................",
+
+"................ ................ ................ ................",
+".......x..x..... .......x..x..... .......x..x..... .......x..x.....",
+"................ ................ ................ ................",
+"....x.....x.x.x. ....x.......x.x. ....x.......x.x. ....x.......x...",
+"...xx..x.x..x... ...x...x.x...... ...x...x........ ...x............",
+"........x.x..x.x ........x.x..x.x ........x.x....x ..........x....x",
+"................ ................ ................ ................",
+"..x.......x..xx. ..x..........xx. ..x..........xx. ..x...........x.",
+"...x..x......x.. ...x..x......x.. ................ ................",
+"...xx.........x. ...x..........x. ...x..........x. ...x..........x.",
+"x.............x. x............... x............... ................",
+"........x.x..x.. ........x.x..x.. ..........x..x.. ................",
+"...x...x....x... ...x...x....x... ...x...x....x... ...x...x....x...",
+"....x....x...... ....x....x...... .........x...... .........x......",
+"....x.x.x....... ....x...x....... ....x...x....... ....x...x.......",
+"................ ................ ................ ................",
--- /tmp/diff100000364085
+++ sys/src/games/swar/deathstar.icon
@@ -1,0 +1,16 @@
+". . . . . x x x x x x . . . . .",
+". . . x x x x x . . . . x . . .",
+". . . . . . . . . . . . . . . .",
+". x x x x x x x x x x x x x x .",
+". . x x x x x x x x . . . . x .",
+". . . . . . . . . . . . . . . .",
+"x x x x x x x x x x x x x x x x",
+". x x x x x x x x x . . . . . x",
+". . . . . . . . . . . . . . . .",
+"x x x x x x x x x x x x x x x x",
+". . . x x x x x . . . . . . . x",
+". . . . . . . . . . . . . . . .",
+". x x x x x x x x x x x x x x .",
+". . . . . . . . . . . . . . . .",
+". . . x . . . . . . . . x . . .",
+". . . . . x x x x x x . . . . .",
--- /tmp/diff100000364088
+++ sys/src/games/swar/missile.icon
@@ -1,0 +1,35 @@
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+". x x x . x x . . x x x . x x . . x x x . x x . . x x . . x x .",
+". x . . x . x . . x . . x . x . . x . . . x x . . x x . . . x .",
+"x x . . . . x x x x . . . x x x x . . x x . . x x x . x . x . x",
+"x x x x x . x x x x . x . x x x x . . . x x x x x x x . . . x x",
+". x . . . . x . . x . . . . x . . x . x x . x . . x x . . . x .",
+". x x . x x x . . x x . x x x . . x x x . x x . . x x x . x x .",
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+". x x x . x x . . x x x x x x . . x x . x x x . . x x x x x x .",
+". x x x x x x . . x x x . x x . . x x x x . x . . x . x x x x .",
+"x . . x x x . x x . . . x . x x x . x x . x . x x x . . . . x x",
+"x . . . . x x x x x . x . x . x x . x x x . . x x . . . x x . x",
+". x . . . x x . . x . . . . x . . x . x x x x . . x . . x . x .",
+". x x . x x x . . x x . . x x . . x x x . x x . . x x . . x x .",
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+". x x . . x x . . x x . x x x . . x x x x x x . . x x x x x x .",
+". x . x . . x . . x . . x x x . . x . . . x x . . x . x . x x .",
+"x . x x . x x x x x . x x . . x x x x . . . x x x x . x . x x x",
+"x . . x . x . x x . x x x x x x x x . x x . . x x . x . . . x x",
+". x . . . . x . . x x . . . x . . x x x x x x . . x . x x . x .",
+". x x . . x x . . x x . . x x . . x x . . x x . . x x . . x x .",
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
+". x x . . x x . . x x . . x x . . x x x . x x . . x x x . x x .",
+". x . . x x x . . x x . . . x . . x x x . . x . . x x x . . x .",
+"x x . x . . . x x x . x x . . x x x . x x . . x x . x x x . x x",
+"x . x x x . . x x . x . x x . x x x x . . . . x x x x . . . . x",
+". x . . x . x . . x . x . x x . . x . x . . x . . x x x x x x .",
+". x x x . x x . . x x x . x x . . x x x x x x . . x x x . x x .",
+". . . x x . . . . . . x x . . . . . . x x . . . . . . x x . . .",
--- /tmp/diff100000364091
+++ sys/src/games/swar/mkfile
@@ -1,0 +1,10 @@
+</$objtype/mkfile
+
+BIN=/$objtype/bin/games
+TARG=swar
+OFILES=\
+ swar.$O\
+
+HFILES=player0.icon player1.icon accel.h missile.icon deathstar.icon boom.icon
+
+</sys/src/cmd/mkone
--- /tmp/diff100000364094
+++ sys/src/games/swar/player0.icon
@@ -1,0 +1,47 @@
+". x . . . . . . . . . . . . x x . . . . . . . . . . . . x . . . . . . . . x . x x x . .",
+". x x . . . . . . . . . . . x . x . . . . . . . . . . x . x . . . . . x x x x . . x . .",
+". x . x . . . . . . . . x x . . x . . . . . . . . x x . . x . . . . . x x . . . x . . .",
+". x . . x x x x x . . . x x . . x . . . . . . . x x . . . x . . . x x . . . . . x . . .",
+"x x . . . . . . . x . x x . . . . x . . . . . . x . . . . x . . . x . . . . . . x . . .",
+"x x . . . . . . . . x . x . . . . . x x . . . x . . . . . . x . . . x x x . . . . x . .",
+"x x . . . . . . . x . x . . . . . . . . x . x . . . . . . . . x . . . . . x . . . x . .",
+". x . . x x x x x . . x . x x x . . . . . x . x x x x . . . . . x . . . . . x . . . x .",
+". x . x . . . . . . . x x . . . x x . . . x . . . . . x . . . . x . . . . . x . . . x .",
+". x x . . . . . . . . . . . . . . . x x x x . . . . . . x . . . x . . . . . . x . . x .",
+". x . . . . . . . . . . . . . . . . . . . . . . . . . . . x x x x . . . . . . . x x x .",
+
+". . . . x x x . . . . . . x x x . x . . . . . . . . x . . . . . . . . . . . . x x . . .",
+"x x x x x x x x x x x . . x . . x x x x . . . . . x . x . . . . . . . . . . x . x . . .",
+". x . . . . . . . x . . . . x . . . x x . . . . . x . . x x . . . . . . . . x . . x x .",
+". . x . . . . . x . . . . . x . . . . . x x . . . x . . . x x . . . . . . . x . . x x .",
+". . . x . . . x . . . . . . x . . . . . . x . . . x . . . . x . . . . . . x . . . . x x",
+". . . x . . . x . . . . . x . . . . x x x . . . x . . . . . . x . . . x x . . . . . x .",
+". . . x . . . x . . . . . x . . . x . . . . . x . . . . . . . . x . x . . . . . . . . x",
+". . . x . . . x . . . . x . . . x . . . . . x . . . . . x x x x . x . . . . . x x x . x",
+". . . x . . . x . . . . x . . . x . . . . . x . . . . x . . . . . x . . . x x . . . x x",
+". . . . x . x . . . . . x . . x . . . . . . x . . . x . . . . . . x x x x . . . . . . .",
+". . . . . x . . . . . . x x x . . . . . . . x x x x . . . . . . . . . . . . . . . . . .",
+
+". . . . . . . . . x . . . . . . . . . . . . x x x x . . . . . . . . x x x . . . . . . .",
+". . . . . . . . x x . x x x x . . . . . . . x . . . x . . . . . . . x . . x . . . . . .",
+". . . . . . . x . x . x . . . x x . . . x x x . . . . x . . . . . . x . . . x . . . . .",
+". . x x x x x . . x . x . . . . . x x x . x x . . . . . x x x x . . x . . . x . . . . .",
+". x . . . . . . . x x . x . . . . . . . . x . x . . . . . . . . x . . x . . . x . . . .",
+"x . . . . . . . . x x . . x x . . . . . x . . . x . . . . . . x . . . x . . . . x x x .",
+". x . . . . . . . x x . . . . x . . . . x x . . . x . . . . x . . . . . x . . . . . . x",
+". . x x x x x . . x . . . . . . x . . x x . . . . x . . . x x . . . . . x . . . . . x x",
+". . . . . . . x . x . . . . . . x . . x x . . . . x . . x x . . . . . . x . . . x x . .",
+". . . . . . . . x x . . . . . . x . x . . . . . . x . x . . . . . . . x . . x x x x . .",
+". . . . . . . . . x . . . . . . . x x . . . . . . . x . . . . . . . . x x x . x . . . .",
+
+". . . . . x . . . . . . . . . . . . x x x . . . . . . . . x x x x . . . . . . . . . . .",
+". . . . x . x . . . . . . . . . . x . . x . . . . . . . x . . . x . . . . . . . x x x x",
+". . . x . . . x . . . . . . . . x . . . x . . . . . . x . . . . x x x . . . x x . . . x",
+". . . x . . . x . . . . . . . . x . . . x . . x x x x . . . . . x x . x x x . . . . . x",
+". . . x . . . x . . . . . . . x . . . x . . x . . . . . . . . x . x . . . . . . . . x .",
+". . . x . . . x . . . . x x x . . . . x . . . x . . . . . . x . . . x . . . . . x x . .",
+". . . x . . . x . . . x . . . . . . x . . . . . x . . . . x . . . x x . . . . x . . . .",
+". . x . . . . . x . . x x . . . . . x . . . . . x x . . . x . . . . x x . . x . . . . .",
+". x . . . . . . . x . . . x x . . . x . . . . . . x x . . x . . . . x x . . x . . . . .",
+"x x x x x x x x x x x . . x x x x . . x . . . . . . . x . x . . . . . . x . x . . . . .",
+". . . . x x x . . . . . . . . x . x x x . . . . . . . . x . . . . . . . x x . . . . . .",
--- /tmp/diff100000364097
+++ sys/src/games/swar/player1.icon
@@ -1,0 +1,47 @@
+"x . . . . . . . . . . . . x x . . . . . . . . . . . . x . . . . . . . . x . x x x . . .",
+"x x . . . . . . . . . . . x x x . . . . . . . . . . x x x . . . . . x x x x x x x . . .",
+"x x x . . . . . . . . x x x x x . . . . . . . . x x x x x . . . . . x x x x x x x . . .",
+"x x x x x x x x . . . x x x x x . . . . . . . x x x x x x . . . x x x x x . x x . . . .",
+"x x x x x x x x x . x x x x x x x . . . . . . x x . x x x . . . x x x x x . x x . . . .",
+"x . . . . . . . . x . x x . . x x x x . . . x x x x . x x x . . . x x x x x . x x . . .",
+"x x x x x x x x x . x x x x x . . x x x . x x x x x x . x x x . . . . . x x . x x . . .",
+"x x x x x x x x . . x x x x x x x . . x x . x x x x x x . x x x . . . . . x x . x x . .",
+"x x x . . . . . . . x x x . . x x x x . x . . . . . x x x . x x . . . . . x x . x x . .",
+"x x . . . . . . . . . . . . . . . x x x x . . . . . . x x x . x . . . . . . x x . x . .",
+"x . . . . . . . . . . . . . . . . . . . . . . . . . . . x x x x . . . . . . . x x x . .",
+
+". . . x x x . . . . . . x x x . x . . . . . . . . x . . . . . . . . . . . . x x . . . .",
+"x x x x x x x x x x . . x x x x x x x . . . . . x x x . . . . . . . . . . x x x . . . .",
+"x x x x . x x x x . . . x x x x x x x . . . . . x x x x x . . . . . . . . x x x x x . .",
+". x x x . x x x . . . . . x x . x x x x x . . . x x x x x x . . . . . . . x x x x x . .",
+". . x x . x x . . . . . . x x . x x x x x . . . x x x . x x . . . . . . x x x x x x x .",
+". . x x . x x . . . . . x x . x x x x x . . . x x x . x x x x . . . x x x x . . x x . .",
+". . x x . x x . . . . . x x . x x . . . . . x x x . x x x x x x . x x x . . x x x x x .",
+". . x x . x x . . . . x x . x x . . . . . x x x . x x x x x x . x x . . x x x x x x x .",
+". . x x . x x . . . . x x . x x . . . . . x x . x x x . . . . . x . x x x x . . x x x .",
+". . . x . x . . . . . x . x x . . . . . . x . x x x . . . . . . x x x x . . . . . . . .",
+". . . . x . . . . . . x x x . . . . . . . x x x x . . . . . . . . . . . . . . . . . . .",
+
+". . . . . . . . x . . . . . . . . . . . . x x x x . . . . . . . . x x x . . . . . . . .",
+". . . . . . . x x . x x x x . . . . . . . x . x x x . . . . . . . x . x x . . . . . . .",
+". . . . . . x x x . x . x x x x . . x x x x x . x x x . . . . . . x x . x x . . . . . .",
+". x x x x x x x x . x x . . x x x x x x x x x x . x x x x x x . . x x . x x . . . . . .",
+"x x x x x x x x x x . x x x . . x x x x x . x x x . x x x x x x . . x x . x x . . . . .",
+". . . . . . . . x x . . x x x x . . x x . . . x x x . x x x x . . . x x . x x x x x . .",
+"x x x x x x x x x x . . . . x x x x x x x . . . x x x . x x . . . . . x x . x x x x x .",
+". x x x x x x x x . . . . . . x x x x x . . . . x x x x x x . . . . . x x . x x x x x .",
+". . . . . . x x x . . . . . . x x x x x . . . . x x x x x . . . . . x x x x x x x . . .",
+". . . . . . . x x . . . . . . x x x . . . . . . x x x . . . . . . . x x x x x x x . . .",
+". . . . . . . . x . . . . . . . x x . . . . . . . x . . . . . . . . x x x . x . . . . .",
+
+". . . . x . . . . . . . . . . . . x x x . . . . . . . . x x x x . . . . . . . . . . . .",
+". . . x . x . . . . . . . . . . x x . x . . . . . . . x x x . x . . . . . . . x x x x .",
+". . x x . x x . . . . . . . . x x . x x . . . . . . x x x . x x x x x . . x x x x . x .",
+". . x x . x x . . . . . . . . x x . x x . . x x x x x x . x x x x x x x x x x . . x x .",
+". . x x . x x . . . . . . . x x . x x . . x x x x x x . x x x . x x x x x . . x x x . .",
+". . x x . x x . . . . x x x x x . x x . . . x x x x . x x x . . . x x . . x x x x . . .",
+". . x x . x x . . . x x x x x . x x . . . . . x x . x x x . . . x x x x x x x . . . . .",
+". x x x . x x x . . x x x x x . x x . . . . . x x x x x x . . . . x x x x x . . . . . .",
+"x x x x . x x x x . . . x x x x x x x . . . . . x x x x x . . . . x x x x x . . . . . .",
+"x x x x x x x x x x . . x x x x x x x . . . . . . . x x x . . . . . . x x x . . . . . .",
+". . . x x x . . . . . . . . x . x x x . . . . . . . . x . . . . . . . x x . . . . . . .",
--- /tmp/diff100000364100
+++ sys/src/games/swar/swar.c
@@ -1,0 +1,430 @@
+/*
+ * swar -- jerq space war
+ * td&rob 84.01.01
+ *
+ * ported to 9front on 31jul2021
+ */
+#include <u.h>
+#include <libc.h>
+#include <draw.h>
+#include <event.h>
+int xc, yc;
+#define NOBJ (1+2+6*2)
+#define MSPEED (V/32) /* speed of missile relative to ship */
+#define SZ 512 /* maximum scaled coordinate */
+#define V 256 /* velocity scale factor */
+#define G (V*11585) /* 11585 is SZ**(3./2.) */
+#define ALIVE 1
+#define DEAD 2
+#define SUN 3
+#define BOOM 4
+#define HYPER 5
+#define SLEEP 40 /* ms per iteration */
+#define TUBA (2000/SLEEP) /* iterations until born again */
+#define HYTIME ((600+rand()%600)/SLEEP) /* iterations in hyperspace */
+char *starbits[]={
+#include "deathstar.icon"
+};
+Image *stardwg;
+Rectangle starrect={0, 0, 16, 16};
+char *p0bits[]={
+#include "player0.icon"
+};
+Image *p0dwg;
+Rectangle p0rect={0, 0, 44, 44};
+char *p1bits[]={
+#include "player1.icon"
+};
+Image *p1dwg;
+Rectangle p1rect={0, 0, 44, 44};
+char *misbits[]={
+#include "missile.icon"
+};
+Image *misdwg;
+Rectangle misrect={0, 0, 32, 32};
+char *boombits[]={
+#include "boom.icon"
+};
+Image *boomdwg;
+Rectangle boomrect={0, 0, 64, 64};
+struct obj{
+ int x, y;
+ int vx, vy; /* scaled by V */
+ int orientation;
+ int state;
+ int diameter;
+ Image *bp;
+ int curdwg;
+#define wrapped timer
+ int timer;
+}obj[NOBJ], iobj[]={
+ {0, 0, 0, 0, 0, SUN, 16},
+ { 300, 0, 0, 5*V, 8, ALIVE, 11, 0, 0, TUBA},
+ {-300, 0, 0, -5*V, 0, ALIVE, 11, 0, 0, TUBA},
+ {0, 0, 0, 0, 0, ALIVE, 8},
+};
+#define ATT (&obj[0])
+#define P0 (&obj[1])
+#define P1 (&obj[2])
+int score[3];
+#define NORIENTATION 16
+struct dv{
+ int x, y;
+}dv[NORIENTATION]={
+#include "accel.h"
+};
+
+int xc, yc, size;
+void kbdplayer(int c);
+void hyper(struct obj *o);
+void right(struct obj *o);
+void left(struct obj *o);
+void jerk(struct obj *o);
+int isqrt(int x);
+void fire(struct obj *o);
+void initobj(struct obj *o);
+void deathto(struct obj *o, int doboom);
+void boom(struct obj *o);
+void shards(struct obj *o);
+void move(struct obj *o);
+void blot(struct obj *o, int dwg);
+void collide(struct obj *o, struct obj *p);
+void newscore(struct obj *o, struct obj *p);
+void drawscore(char *str, int sc, int where);
+void doscore(void);
+Image *initbitmap(char *bits[], Rectangle r);
+
+#define sq(x) ((x)*(x))
+#define muldiv(a, b, c) ((a)*(b)/(c))
+
+int
+min(int a, int b)
+{
+ return a<b? a: b;
+}
+
+int
+abs(int a)
+{
+ return a<0? -a: a;
+}
+
+void
+redraw(void)
+{
+ draw(screen, screen->r, display->black, nil, ZP);
+ blot(ATT, ATT->orientation);
+ doscore();
+}
+
+void
+eresized(int)
+{
+ if(getwindow(display, Refnone) < 0)
+ sysfatal("resized");
+ xc=(screen->r.min.x+screen->r.max.x)/2;
+ yc=(screen->r.min.y+screen->r.max.y)/2;
+ size=min(screen->r.max.x-screen->r.min.x,
+ screen->r.max.y-screen->r.min.y)/2;
+ redraw();
+}
+
+void
+main(void)
+{
+ struct obj *o, *p;
+
+ initdraw(nil,nil,nil);
+ einit(Ekeyboard|Emouse);
+
+ iobj[0].bp = stardwg = initbitmap(starbits, starrect);
+ iobj[1].bp = p0dwg = initbitmap(p0bits, p0rect);
+ iobj[2].bp = p1dwg = initbitmap(p1bits, p1rect);
+ iobj[3].bp = misdwg = initbitmap(misbits, misrect);
+ boomdwg = initbitmap(boombits, boomrect);
+
+ xc=(screen->r.min.x+screen->r.max.x)/2;
+ yc=(screen->r.min.y+screen->r.max.y)/2;
+ size=min(screen->r.max.x-screen->r.min.x,
+ screen->r.max.y-screen->r.min.y)/2;
+
+ for(o=obj;o<=P1;o++)
+ initobj(o);
+
+ for(;o!=&obj[NOBJ];o++)
+ o->state=DEAD;
+
+ for(;;){
+ redraw();
+ for(o=obj;o!=&obj[NOBJ];o++){
+ switch(o->state){
+ case ALIVE:
+ case SUN:
+ for(p=o+1;p!=&obj[NOBJ];p++)
+ if(p->state!=DEAD)
+ collide(o, p);
+ if(o>P1)
+ left(o);
+ move(o);
+ break;
+ case HYPER:
+ if(--o->timer==0){
+ blot(o, o->curdwg);
+ o->state=ALIVE;
+ if(rand()%4==0){
+ deathto(o, 1);
+ newscore(ATT, o);
+ }
+ }else
+ move(o);
+ break;
+ case DEAD:
+ if((o==P0 || o==P1) && --o->timer==0)
+ initobj(o);
+ break;
+ case BOOM:
+ shards(o);
+ move(o);
+ break;
+ }
+ }
+ flushimage(display, 1);
+ while(ecanmouse()) emouse();
+ if(ecankbd()) kbdplayer(ekbd());
+ sleep(SLEEP);
+ }
+}
+void kbdplayer(int c){
+ switch(c){
+ case 'k': left(P0); break;
+ case 'o': jerk(P0); break;
+ case ';': right(P0); break;
+ case 'l': fire(P0); break;
+ case '.':
+ case ',': hyper(P0); break;
+ case 'a': left(P1); break;
+ case 'w': jerk(P1); break;
+ case 'd': right(P1); break;
+ case 's': fire(P1); break;
+ case 'z':
+ case 'x': hyper(P1); break;
+ case 'Q': exits(""); break;
+ }
+}
+void hyper(struct obj *o){
+ if(o->state!=ALIVE)
+ return;
+ o->state=HYPER;
+ o->timer=HYTIME;
+ blot(o, o->curdwg);
+}
+void right(struct obj *o){
+ if(++o->orientation==NORIENTATION)
+ o->orientation=0;
+}
+void left(struct obj *o){
+ if(--o->orientation<0)
+ o->orientation=NORIENTATION-1;
+}
+void jerk(struct obj *o){
+ o->vx+=dv[o->orientation].x/2;
+ o->vy+=dv[o->orientation].y/2;
+}
+int isqrt(int x){
+ int s, u;
+ if(x<=0)
+ return(0);
+ if(x>=32768L*(32768L/4))
+ return(2*isqrt(x/4)); /* avoid overflow */
+ for(s=2, u=4;u<x;s+=s, u*=4);
+ while((u=((x+s*s)/s)>>1)<s)
+ s=u;
+ return(s);
+}
+void fire(struct obj *o){
+ struct obj *m;
+ int vx, vy, vl;
+ if(o->state!=ALIVE)
+ return;
+ for(m=o+2;m<&obj[NOBJ];m+=2)
+ if(m->state==DEAD){
+ initobj(m);
+ m->state=ALIVE;
+ vl=isqrt(sq(o->vx)+sq(o->vy));
+ if(vl==0)
+ vl=V;
+ vx=muldiv(vl, dv[o->orientation].x, V);
+ vy=muldiv(vl, dv[o->orientation].y, V);
+ m->x=o->x+muldiv(vx, (o->diameter+m->diameter), vl);
+ m->y=o->y+muldiv(vy, (o->diameter+m->diameter), vl);
+ m->vx=o->vx+MSPEED*dv[o->orientation].x;
+ m->vy=o->vy+MSPEED*dv[o->orientation].y;
+ blot(m, m->orientation);
+ return;
+ }
+}
+void initobj(struct obj *o){
+ *o=(o>P1)?iobj[P1-obj+1]:iobj[o-obj];
+ if(o<=P1)
+ blot(o, o->orientation);
+}
+void deathto(struct obj *o, int doboom){
+ o->state=DEAD;
+ blot(o, o->curdwg);
+ if(doboom)
+ boom(o);
+}
+void boom(struct obj *o){
+ o->state=BOOM;
+ o->bp=boomdwg;
+ o->diameter=boomdwg->r.max.x/4;
+ blot(o, o->orientation=0);
+}
+void shards(struct obj *o){
+ if(++o->orientation==16){
+ blot(o, o->curdwg);
+ o->state=DEAD;
+ o->timer=TUBA;
+ }
+}
+void move(struct obj *o){
+ int r32;
+ int x, y;
+ if(o->state==DEAD || o->state==SUN)
+ return;
+ r32=o->x*o->x+o->y*o->y;
+ if(r32!=0){
+ r32*=isqrt(r32); /* pow(r, 3./2.) */
+ if(r32!=0){
+ o->vx-=G*o->x/r32;
+ o->vy-=G*o->y/r32;
+ }
+ }
+ x=o->x+o->vx/V;
+ y=o->y+o->vy/V;
+ if(x<-SZ || SZ<x){
+ if(o>P1 && o->wrapped){
+ Death:
+ deathto(o, 0);
+ return;
+ }
+ if(x<-SZ) x+=2*SZ; else x-=2*SZ;
+ o->wrapped++;
+ }
+ if(y<-SZ || SZ<y){
+ if(o>P1 && o->wrapped)
+ goto Death;
+ if(y<-SZ) y+=2*SZ; else y-=2*SZ;
+ o->wrapped++;
+ }
+ if(o->state!=HYPER)
+ blot(o, o->curdwg);
+ o->x=x, o->y=y;
+ if(o->state!=HYPER)
+ blot(o, o->orientation);
+}
+
+#define BLOTSIZE 5
+#define rescale(x) muldiv(x, size, SZ)
+
+void
+blot(struct obj *o, int dwg)
+{
+ Point p;
+ int dx = dwg % 4*o->diameter, dy = dwg / 4*o->diameter;
+
+ p = Pt(rescale(o->x)+xc-o->diameter/2, rescale(o->y)+yc-o->diameter/2);
+
+ draw(screen, rectaddpt(Rect(dx,dy,dx+o->diameter,dy+o->diameter),p), o->bp, nil, Pt(dx, dy));
+ o->curdwg = dwg;
+}
+
+void
+collide(struct obj *o, struct obj *p)
+{
+ int doneboom;
+ /* o<p always */
+ if(o->state!=HYPER && p->state!=HYPER
+ && sq(rescale(o->x-p->x))+sq(rescale(o->y-p->y))<
+ sq(o->diameter+p->diameter)/4){
+ newscore(o, p);
+ if(doneboom=o->state==ALIVE)
+ deathto(o, 1);
+ if(p->state==ALIVE)
+ deathto(p, !doneboom || (o==P0 && p==P1));
+ }
+}
+
+void
+newscore(struct obj *o, struct obj *p)
+{
+ doscore();
+ /* o<p always */
+ score[2]++;
+ if(o==P0 || p==P0)
+ score[1]++;
+ if(o==P1 || p==P1)
+ score[0]++;
+ doscore();
+}
+
+void
+drawscore(char *str, int sc, int where)
+{
+ static char buf[16];
+ char *p = buf+6;
+ int s;
+
+ while(*p++=*str++)
+ ;
+
+ p = buf+6;
+ s = abs(sc);
+ do{
+ *--p = s%10 + '0';
+ s /= 10;
+ }while(s);
+
+ if(sc < 0)
+ *--p = '-';
+
+ if(where == 2)
+ s = screen->r.min.x + 20;
+ else if(where == 1)
+ s = (screen->r.min.x + screen->r.max.x - stringwidth(font, p))/2;
+ else
+ s = screen->r.max.x - stringwidth(font, p) - 20;
+
+ draw(screen, Rpt(Pt(s, screen->r.min.y+5),Pt(s+stringwidth(font, p), screen->r.min.y+5+font->height)), display->black, nil, ZP);
+ string(screen, Pt(s, screen->r.min.y+5), display->white, ZP, font, p);
+}
+
+void
+doscore(void)
+{
+ drawscore(" MCI", score[0], 0);
+ drawscore(" AT&T", score[2], 1);
+ drawscore(" SPRINT", score[1], 2);
+}
+
+Image *
+initbitmap(char *bits[], Rectangle r)
+{
+ Point p;
+ char *bit;
+ Image *b=allocimage(display, r, screen->chan, 0, DTransparent);
+
+ if(b==0)
+ sysfatal("allocimage: %r");
+
+ for(p.y = r.min.y; p.y != r.max.y; p.y++){
+ bit = bits[p.y-r.min.y];
+ for(p.x = r.min.x; p.x != r.max.x; p.x++){
+ while(*bit==' ')
+ bit++;
+ if(*bit++=='x')
+ draw(b, Rpt(p,addpt(p,Pt(1,1))), display->white, nil, ZP);
+ }
+ }
+ return b;
+}
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [9front] brought swar from 1ed sources
2021-07-31 13:42 [9front] brought swar from 1ed sources rgl
@ 2021-08-25 11:27 ` qwx
2021-08-25 14:32 ` ori
0 siblings, 1 reply; 3+ messages in thread
From: qwx @ 2021-08-25 11:27 UTC (permalink / raw)
To: 9front
> hi there folks,
>
> i ported games/swar to use libdraw instead of libg. the
> gameplay is... funny? it reminds me of one of those
> early LCD pocket consoles where you could see each
> sprite of the animation on the screen.
>
> i also fixed enough to make it work after resizing
> the window, and corrected the rendering to clear the
> screen and draw the latest state. it seems the jerq
> didn't have a framebuffer from which to pull the latest
> image or didn't mind refreshing it, so you had to
> constantly blit it all.
>
>
> is it OK if it push it?
>
>
> -rodri
I think it would be nice to have this. I think you have
commit access, if nobody objects, let's add it :)
Thanks,
qwx
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: [9front] brought swar from 1ed sources
2021-08-25 11:27 ` qwx
@ 2021-08-25 14:32 ` ori
0 siblings, 0 replies; 3+ messages in thread
From: ori @ 2021-08-25 14:32 UTC (permalink / raw)
To: 9front
Quoth qwx <qwx@sciops.net>:
> > hi there folks,
> >
> > i ported games/swar to use libdraw instead of libg. the
> > gameplay is... funny? it reminds me of one of those
> > early LCD pocket consoles where you could see each
> > sprite of the animation on the screen.
> >
> > i also fixed enough to make it work after resizing
> > the window, and corrected the rendering to clear the
> > screen and draw the latest state. it seems the jerq
> > didn't have a framebuffer from which to pull the latest
> > image or didn't mind refreshing it, so you had to
> > constantly blit it all.
> >
> >
> > is it OK if it push it?
> >
> >
> > -rodri
>
> I think it would be nice to have this. I think you have
> commit access, if nobody objects, let's add it :)
>
> Thanks,
>
> qwx
>
Sure, why not.
It seems Very Historical.
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2021-08-25 14:43 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-07-31 13:42 [9front] brought swar from 1ed sources rgl
2021-08-25 11:27 ` qwx
2021-08-25 14:32 ` ori
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).