RLGWebD: rlgterm.js annotate

annotate rlgterm.js @ 60:31bb3cf4f25f

Make sure watchers start with completely drawn screens. TermSessions now buffer all data since the last screen clear, so new Watchers can start with complete screens.

author	John "Elwin" Edwards <elwin@sdf.org>
date	Tue, 19 Jun 2012 19:11:59 -0700
parents	00b985b8ba6a
children	071ec6b1ec03

rev	line source
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1 /* rlgterm.js: Roguelike Gallery's driver for termemu.js */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	2
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	3 // A state machine that keeps track of polling the server.
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	4 var ajaxstate = {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	5 state: 0,
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	6 timerID: null,
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	7 clear: function () {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	8 if (this.timerID != null) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	9 window.clearTimeout(this.timerID);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	10 this.timerID = null;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	11 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	12 },
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	13 set: function (ms) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	14 this.clear();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	15 this.timerID = window.setTimeout(getData, ms);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	16 },
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	17 gotdata: function () {
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	18 this.set(1000);
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	19 this.state = 1;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	20 },
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	21 gotnothing: function () {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	22 if (this.state == 0) {
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	23 this.set(1000);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	24 this.state = 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	25 }
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	26 else if (this.state < 4) {
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	27 this.set(4000);
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	28 this.state++;
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	29 }
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	30 else if (this.state < 8) {
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	31 this.set(15000);
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	32 this.state++;
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	33 }
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	34 else {
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	35 /* It's been over a minute. Stop polling. */
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	36 this.clear();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	37 }
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	38 },
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	39 posted: function (wasdata) {
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	40 if (wasdata) {
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	41 this.set(1000);
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	42 this.state = 1;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	43 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	44 else {
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	45 this.set(200);
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	46 this.state = 0;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	47 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	48 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	49 };
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	50
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	51 /* Data on the available games. */
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	52 var games = {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	53 "rogue3": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	54 "name": "Rogue V3",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	55 "uname": "rogue3"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	56 },
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	57 "rogue4": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	58 "name": "Rogue V4",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	59 "uname": "rogue4"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	60 },
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	61 "rogue5": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	62 "name": "Rogue V5",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	63 "uname": "rogue5"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	64 },
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	65 "srogue": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	66 "name": "Super-Rogue",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	67 "uname": "srogue"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	68 }
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	69 };
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	70
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	71 var session = {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	72 /* The session id assigned by the server. */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	73 id: null,
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	74 /* Login name and key */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	75 lname: null,
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	76 lcred: null,
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	77 /* Whether the game is being played or just watched. */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	78 playing: false
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	79 };
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	80
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	81 function writeData(hexstr) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	82 var codenum;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	83 var codes = [];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	84 var nc;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	85 var u8wait = 0; /* Stores bits from previous bytes of multibyte sequences. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	86 var expect = 0; /* The number of 10------ bytes expected. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	87 /* UTF-8 translation. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	88 for (var i = 0; i < hexstr.length; i += 2) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	89 nc = Number("0x" + hexstr.substr(i, 2));
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	90 if (nc < 0x7F) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	91 /* 0------- */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	92 codes.push(nc);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	93 /* Any incomplete sequence will be discarded. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	94 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	95 expect = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	96 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	97 else if (nc < 0xC0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	98 /* 10------ : part of a multibyte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	99 if (expect > 0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	100 u8wait <<= 6;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	101 u8wait += (nc & 0x3F);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	102 expect--;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	103 if (expect == 0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	104 codes.push(u8wait);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	105 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	106 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	107 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	108 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	109 /* Assume an initial byte was missed. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	110 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	111 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	112 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	113 /* These will all discard any incomplete sequence. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	114 else if (nc < 0xE0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	115 /* 110----- : introduces 2-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	116 u8wait = (nc & 0x1F);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	117 expect = 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	118 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	119 else if (nc < 0xF0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	120 /* 1110---- : introduces 3-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	121 u8wait = (nc & 0x0F);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	122 expect = 2;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	123 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	124 else if (nc < 0xF8) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	125 /* 11110--- : introduces 4-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	126 u8wait = (nc & 0x07);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	127 expect = 3;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	128 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	129 else if (nc < 0xFC) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	130 /* 111110-- : introduces 5-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	131 u8wait = (nc & 0x03);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	132 expect = 4;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	133 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	134 else if (nc < 0xFE) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	135 /* 1111110- : introduces 6-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	136 u8wait = (nc & 0x01);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	137 expect = 5;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	138 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	139 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	140 /* 1111111- : should never appear */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	141 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	142 expect = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	143 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	144 /* Supporting all 31 bits is probably overkill... */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	145 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	146 termemu.write(codes);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	147 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	148 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	149
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	150 /* State for sending and receiving messages. */
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	151 var nsend = 0; // The number of the next packet to send.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	152 var nrecv = 0; // The next packet expected.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	153 var msgQ = []; // Queue for out-of-order messages.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	154
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	155 /* Processes a message from the server, returning true or false if it was a
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	156 * data message with or without data, null if not data.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	157 * All non-special responseTexts should be handed directly to this function.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	158 */
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	159 function processMsg(msg) {
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	160 var msgDicts;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	161 var havedata = null; // eventual return value
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	162 try {
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	163 msgDicts = JSON.parse(msg);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	164 } catch (e) {
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	165 if (e instanceof SyntaxError)
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	166 return null;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	167 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	168 if (msgDicts.length === 0)
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	169 return false;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	170 for (var j = 0; j < msgDicts.length; j++) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	171 if (!msgDicts[j].t)
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	172 continue;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	173 else if (msgDicts[j].t == "E") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	174 if (msgDicts[j].c == 1 \|\| msgDicts[j].c == 6 \|\| msgDicts[j].c == 7) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	175 gameover();
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	176 if (msgDicts[j].c == 1) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	177 logout();
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	178 }
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	179 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	180 debug(1, "Server error: " + msgDicts[j].s);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	181 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	182 // A data message
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	183 else if (msgDicts[j].t == "d") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	184 if (msgDicts[j].n === nrecv) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	185 writeData(msgDicts[j].d);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	186 nrecv++;
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	187 /* Process anything in the queue that's now ready. */
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	188 var next;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	189 while ((next = msgQ.shift()) !== undefined) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	190 writeData(next.d);
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	191 nrecv++;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	192 }
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	193 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	194 else if (msgDicts[j].n > nrecv) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	195 /* The current message comes after one still missing. Queue this one
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	196 * for later use. */
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	197 debug(1, "Got packet " + msgDicts[j].n + ", expected " + nrecv);
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	198 msgQ[msgDicts[j].n - nrecv - 1] = msgDicts[j];
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	199 }
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	200 else {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	201 /* This message's number was encountered previously. */
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	202 debug(1, "Discarding packet " + msgDicts[j].n + ", expected " + nrecv);
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	203 }
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	204 havedata = true;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	205 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	206 else if (msgDicts[j].t == "T") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	207 setTitle(msgDicts[j].d);
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	208 }
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	209 else if (msgDicts[j].t == "q") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	210 gameover();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	211 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	212 else {
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	213 debug(1, "Unrecognized server message " + msg);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	214 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	215 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	216 return havedata;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	217 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	218
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	219 function getData() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	220 if (session.id == null)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	221 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	222 var datareq = new XMLHttpRequest();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	223 var msg = JSON.stringify({"id": session.id, "t": "n"});
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	224 datareq.onreadystatechange = function () {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	225 if (datareq.readyState == 4 && datareq.status == 200) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	226 var wasdata = processMsg(datareq.responseText);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	227 if (wasdata != null) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	228 if (wasdata)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	229 ajaxstate.gotdata();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	230 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	231 ajaxstate.gotnothing();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	232 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	233 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	234 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	235 };
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	236 datareq.open('POST', '/feed', true);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	237 datareq.send(msg);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	238 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	239 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	240
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	241 function postResponseHandler() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	242 if (this.readyState == 4 && this.status == 200) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	243 // We might want to do something with wasdata someday.
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	244 var wasdata = processMsg(this.responseText);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	245 ajaxstate.posted();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	246 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	247 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	248 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	249
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	250 function sendback(str) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	251 /* For responding to terminal queries. */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	252 var msgDict = {"id": session.id, "t": "d", "n": nsend++, "d": str};
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	253 var datareq = new XMLHttpRequest();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	254 datareq.onreadystatechange = postResponseHandler;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	255 datareq.open('POST', '/feed', true);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	256 datareq.send(JSON.stringify(msgDict));
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	257 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	258 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	259
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	260 function sendkey(ev) {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	261 if (!session.playing)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	262 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	263 var keynum = ev.keyCode;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	264 var code;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	265 if (keynum >= ev.DOM_VK_A && keynum <= ev.DOM_VK_Z) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	266 /* Letters. This assumes the codes are 65-90. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	267 if (ev.ctrlKey)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	268 keynum -= 64;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	269 else if (!ev.shiftKey)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	270 keynum += 32;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	271 code = keynum.toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	272 if (code.length < 2)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	273 code = "0" + code;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	274 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	275 else if (keynum >= ev.DOM_VK_0 && keynum <= ev.DOM_VK_9) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	276 /* The number row, NOT the numpad. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	277 if (ev.shiftKey) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	278 code = numShifts[keynum - 48].toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	279 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	280 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	281 code = keynum.toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	282 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	283 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	284 else if (keynum in keyHexCodes) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	285 if (ev.shiftKey)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	286 code = keyHexCodes[keynum][1];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	287 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	288 code = keyHexCodes[keynum][0];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	289 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	290 else if (keynum == ev.DOM_VK_SHIFT \|\| keynum == ev.DOM_VK_CONTROL \|\|
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	291 keynum == ev.DOM_VK_ALT \|\| keynum == ev.DOM_VK_CAPS_LOCK) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	292 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	293 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	294 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	295 debug(1, "Ignoring keycode " + keynum);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	296 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	297 }
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	298 ev.preventDefault();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	299 var datareq = new XMLHttpRequest();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	300 var msgDict = {"id": session.id, "t": "d", "n": nsend++, "d": code};
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	301 datareq.onreadystatechange = postResponseHandler;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	302 datareq.open('POST', '/feed', true);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	303 datareq.send(JSON.stringify(msgDict));
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	304 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	305 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	306
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	307 var charshifts = { '-': "5f", '=': "2b", '[': "7b", ']': "7d", '\\': "7c",
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	308 ';': "3a", '\'': "22", ',': "3c", '.': "3e", '/': "3f", '`': "7e"
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	309 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	310
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	311 function vkey(c) {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	312 if (!session.playing)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	313 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	314 var keystr;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	315 if (c.match(/^[a-z]$/)) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	316 if (termemu.ctrlp()) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	317 var n = c.charCodeAt(0) - 96;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	318 keystr = n.toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	319 if (keystr.length < 2)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	320 keystr = "0" + keystr;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	321 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	322 else if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	323 keystr = c.toUpperCase().charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	324 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	325 keystr = c.charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	326 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	327 else if (c.match(/^[0-9]$/)) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	328 if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	329 keystr = numShifts[c.charCodeAt(0) - 48].toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	330 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	331 keystr = c.charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	332 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	333 else if (c == '\n')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	334 keystr = "0a";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	335 else if (c == '\t')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	336 keystr = "09";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	337 else if (c == '\b')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	338 keystr = "08";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	339 else if (c == ' ')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	340 keystr = "20";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	341 else if (c in charshifts) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	342 if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	343 keystr = charshifts[c];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	344 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	345 keystr = c.charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	346 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	347 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	348 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	349 var datareq = new XMLHttpRequest();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	350 var msgDict = {"id": session.id, "t": "d", "n": nsend++, "d": keystr};
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	351 datareq.onreadystatechange = postResponseHandler;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	352 datareq.open('POST', '/feed', true);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	353 datareq.send(JSON.stringify(msgDict));
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	354 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	355 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	356
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	357 function setup() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	358 keyHexCodes.init();
4 ee22eb9ab009 Client: don't assume the terminal is 24x80. John "Elwin" Edwards <elwin@sdf.org> parents: 0 diff changeset	359 termemu.init("termwrap", 24, 80);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	360 setTitle("Not connected.");
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	361 setmode("login");
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	362 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	363 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	364
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	365 function toggleshift() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	366 termemu.toggleshift();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	367 keydiv = document.getElementById("shiftkey");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	368 if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	369 keydiv.className = "keysel";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	370 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	371 keydiv.className = "key";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	372 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	373 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	374
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	375 function togglectrl() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	376 termemu.togglectrl();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	377 keydiv = document.getElementById("ctrlkey");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	378 if (termemu.ctrlp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	379 keydiv.className = "keysel";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	380 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	381 keydiv.className = "key";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	382 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	383 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	384
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	385 function formlogin(ev) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	386 ev.preventDefault();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	387 if (session.id != null)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	388 return;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	389 var loginmsg = {};
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	390 loginmsg["name"] = document.getElementById("input_name").value;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	391 loginmsg["pw"] = document.getElementById("input_pw").value;
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	392 var req = new XMLHttpRequest();
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	393 req.onreadystatechange = function () {
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	394 if (req.readyState != 4 \|\| req.status != 200)
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	395 return;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	396 var reply = JSON.parse(req.responseText);
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	397 if (reply.t == 'l') {
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	398 /* Success */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	399 session.lcred = reply.k;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	400 session.lname = reply.u;
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	401 setTitle("Logged in as " + reply.u);
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	402 debug(1, "Logged in as " + reply.u + " with id " + reply.k);
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	403 setmode("choose");
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	404 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	405 else if (reply.t == 'E') {
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	406 debug(1, "Could not log in: " + reply.s);
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	407 document.getElementById("input_name").value = "";
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	408 document.getElementById("input_pw").value = "";
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	409 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	410 };
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	411 req.open('POST', '/login', true);
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	412 req.send(JSON.stringify(loginmsg));
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	413 return;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	414 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	415
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	416 function getcurrent() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	417 if (session.id)
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	418 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	419 var req = new XMLHttpRequest();
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	420 req.onreadystatechange = function () {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	421 if (req.readyState != 4 \|\| req.status != 200)
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	422 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	423 var reply;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	424 try {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	425 reply = JSON.parse(req.responseText);
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	426 } catch (e) {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	427 if (e instanceof SyntaxError)
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	428 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	429 }
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	430 if (!reply.s) {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	431 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	432 }
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	433 var gamediv = document.getElementById("gametable");
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	434 while (gamediv.children.length > 2)
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	435 gamediv.removeChild(gamediv.children[2]);
57 e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	436 if (reply.g.length === 0) {
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	437 gamediv.style.display = "none";
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	438 document.getElementById("nogames").style.display = "block";
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	439 }
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	440 else {
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	441 gamediv.style.display = "table";
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	442 document.getElementById("nogames").style.display = "none";
e7c864e80a79 RLG-Web client: explain when there are no games to watch John "Elwin" Edwards <elwin@sdf.org> parents: 56 diff changeset	443 }
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	444 for (var i = 0; i < reply.g.length; i++) {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	445 var row = document.createElement("div");
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	446 var cell1 = document.createElement("div");
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	447 var cell2 = document.createElement("div");
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	448 var cell3 = document.createElement("div");
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	449 cell1.appendChild(document.createTextNode(reply.g[i].p));
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	450 cell2.appendChild(document.createTextNode(reply.g[i].g));
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	451 var button = document.createElement("span");
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	452 button.appendChild(document.createTextNode("Watch"));
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	453 button.onclick = makeWatcher(reply.g[i].n);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	454 button.className = "ibutton";
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	455 cell3.appendChild(button);
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	456 row.appendChild(cell1);
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	457 row.appendChild(cell2);
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	458 row.appendChild(cell3);
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	459 gamediv.appendChild(row);
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	460 }
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	461 };
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	462 req.open('GET', '/status', true);
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	463 req.send();
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	464 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	465 }
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	466
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	467 function getchoices() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	468 if (session.id != null \|\| !session.lcred)
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	469 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	470 var req = new XMLHttpRequest();
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	471 req.onreadystatechange = function () {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	472 if (req.readyState != 4 \|\| req.status != 200)
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	473 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	474 var reply;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	475 try {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	476 reply = JSON.parse(req.responseText);
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	477 } catch (e) {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	478 if (e instanceof SyntaxError)
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	479 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	480 }
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	481 if (!("name" in reply) \|\| reply["name"] != session.lname \|\|
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	482 !("stat" in reply))
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	483 return;
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	484 var optdiv = document.getElementById("opttable");
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	485 /* Don't remove the first child, it's the header. */
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	486 while (optdiv.childNodes.length > 1)
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	487 optdiv.removeChild(optdiv.childNodes[1]);
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	488 for (var gname in reply.stat) {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	489 if (!(gname in games))
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	490 continue;
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	491 var acttext;
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	492 if (reply.stat[gname] == "s")
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	493 acttext = "Resume your game";
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	494 else if (reply.stat[gname] == "0")
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	495 acttext = "Start a game";
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	496 else if (reply.stat[gname] == "p")
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	497 acttext = "Game in progress";
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	498 else
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	499 continue;
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	500 var button = document.createElement("span");
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	501 button.appendChild(document.createTextNode(acttext));
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	502 if ("s0".indexOf(reply.stat[gname]) >= 0) {
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	503 button.onclick = makeStarter(gname);
51 2eda3909f6a3 rlgterm.js: don't make nonfunctional button. John "Elwin" Edwards <elwin@sdf.org> parents: 47 diff changeset	504 button.className = "ibutton";
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	505 }
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	506 var actdiv = document.createElement("div");
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	507 actdiv.appendChild(button);
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	508 var gamediv = document.createElement("div");
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	509 gamediv.appendChild(document.createTextNode(games[gname].name));
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	510 var rowdiv = document.createElement("div");
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	511 rowdiv.appendChild(gamediv);
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	512 rowdiv.appendChild(actdiv);
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	513 optdiv.appendChild(rowdiv);
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	514 }
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	515 };
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	516 req.open('GET', '/pstatus/' + session.lname, true);
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	517 req.send();
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	518 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	519 }
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	520
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	521 /* This can't be in the loop in getchoices(), or the closure's scope will
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	522 * get overwritten on the next iteration, and then all the games end up
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	523 * being Super-Rogue.
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	524 */
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	525 function makeStarter(gname) {
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	526 if (!(gname in games))
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	527 return null;
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	528 var game = games[gname];
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	529 function starter(ev) {
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	530 startgame(game);
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	531 }
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	532 return starter;
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	533 }
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	534
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	535 function startgame(game) {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	536 if (session.id != null \|\| !session.lcred)
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	537 return;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	538 var smsg = {};
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	539 smsg["key"] = session.lcred;
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	540 smsg["game"] = game.uname;
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	541 smsg["h"] = 24;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	542 smsg["w"] = 80;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	543 var req = new XMLHttpRequest();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	544 req.onreadystatechange = function () {
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	545 if (req.readyState != 4 \|\| req.status != 200)
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	546 return;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	547 var reply = JSON.parse(req.responseText);
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	548 if (reply.t == 's') {
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	549 /* Success */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	550 session.id = reply.id;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	551 session.playing = true;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	552 termemu.resize(reply.h, reply.w);
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	553 setTitle("Playing as " + session.lname);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	554 debug(1, "Playing with id " + session.id);
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	555 setmode("play");
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	556 getData();
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	557 }
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	558 else if (reply.t == 'E') {
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	559 debug(1, "Could not start game: " + reply.s);
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	560 if (reply.c == 1) {
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	561 logout();
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	562 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	563 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	564 };
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	565 req.open('POST', '/play', true);
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	566 req.send(JSON.stringify(smsg));
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	567 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	568 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	569
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	570 function startwatching(gamenumber) {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	571 if (session.id != null)
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	572 return;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	573 var wmsg = {"n": Number(gamenumber)};
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	574 var req = new XMLHttpRequest();
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	575 req.onreadystatechange = function () {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	576 if (req.readyState != 4 \|\| req.status != 200)
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	577 return;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	578 var reply = JSON.parse(req.responseText);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	579 if (reply.t == 'w') {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	580 /* Success */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	581 session.id = reply.id;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	582 session.playing = false;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	583 termemu.resize(reply.h, reply.w);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	584 setTitle("Watching");
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	585 debug(1, "Watching with id " + session.id);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	586 setmode("play");
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	587 getData();
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	588 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	589 else if (reply.t == 'E') {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	590 debug(1, "Could not watch game " + gamenumber + ": " + reply.s);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	591 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	592 };
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	593 req.open('POST', '/watch', true);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	594 req.send(JSON.stringify(wmsg));
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	595 return;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	596 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	597
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	598 function makeWatcher(n) {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	599 function watcher(ev) {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	600 startwatching(n);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	601 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	602 return watcher;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	603 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	604
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	605 function formreg(ev) {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	606 ev.preventDefault();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	607 if (session.id != null)
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	608 return;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	609 var regmsg = {};
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	610 regmsg["name"] = document.getElementById("regin_name").value;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	611 regmsg["pw"] = document.getElementById("regin_pw").value;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	612 regmsg["email"] = document.getElementById("regin_email").value;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	613 var req = new XMLHttpRequest();
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	614 req.onreadystatechange = function () {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	615 if (req.readyState != 4 \|\| req.status != 200)
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	616 return;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	617 var reply = JSON.parse(req.responseText);
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	618 if (reply.t == 'r') {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	619 /* Success */
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	620 debug(1, "Registered account: " + reply.d);
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	621 session.lcred = reply.k;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	622 session.lname = reply.u;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	623 setTitle("Logged in as " + session.lname);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	624 debug(1, "Logged in as " + session.lname + "with id " + session.lcred);
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	625 setmode("choose");
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	626 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	627 else if (reply.t == 'E') {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	628 debug(1, "Could not register: " + reply.s);
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	629 document.getElementById("regin_name").value = "";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	630 document.getElementById("regin_pw").value = "";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	631 document.getElementById("regin_email").value = "";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	632 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	633 };
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	634 req.open('POST', '/addacct', true);
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	635 req.send(JSON.stringify(regmsg));
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	636 return;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	637 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	638
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	639 function gameover() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	640 if (session.id == null)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	641 return;
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	642 /* TODO IFACE2 If the end was unexpected, tell player the game was saved. */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	643 session.id = null;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	644 session.playing = false;
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	645 ajaxstate.clear();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	646 setTitle("Game over.");
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	647 nsend = 0;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	648 nrecv = 0;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	649 msgQ = [];
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	650 if (session.lcred != null)
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	651 setmode("choose");
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	652 else
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	653 setmode("login");
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	654 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	655 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	656
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	657 function logout() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	658 session.lcred = null;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	659 session.lname = null;
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	660 setmode("login");
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	661 }
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	662
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	663 function stop() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	664 if (!session.id)
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	665 return;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	666 var req = new XMLHttpRequest();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	667 req.onreadystatechange = function () {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	668 if (req.readyState == 4 && req.status == 200) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	669 processMsg(req.responseText);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	670 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	671 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	672 };
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	673 req.open('POST', '/feed', true);
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	674 req.send(JSON.stringify({"id": session.id, "t": "q"}));
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	675 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	676 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	677
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	678 function setmode(mode, ev) {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	679 if (ev)
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	680 ev.preventDefault();
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	681 if (mode == "play") {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	682 document.getElementById("keyboard").style.display = "block";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	683 document.getElementById("startgame").style.display = "none";
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	684 document.getElementById("login").style.display = "none";
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	685 document.getElementById("register").style.display = "none";
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	686 document.getElementById("current").style.display = "none";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	687 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	688 if (mode == "choose") {
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	689 document.getElementById("keyboard").style.display = "none";
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	690 document.getElementById("startgame").style.display = "block";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	691 document.getElementById("login").style.display = "none";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	692 document.getElementById("register").style.display = "none";
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	693 document.getElementById("current").style.display = "block";
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	694 getchoices();
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	695 getcurrent();
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	696 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	697 else if (mode == "login") {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	698 document.getElementById("keyboard").style.display = "none";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	699 document.getElementById("startgame").style.display = "none";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	700 document.getElementById("login").style.display = "block";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	701 document.getElementById("register").style.display = "none";
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	702 document.getElementById("current").style.display = "block";
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	703 getcurrent();
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	704 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	705 else if (mode == "register") {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	706 document.getElementById("keyboard").style.display = "none";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	707 document.getElementById("startgame").style.display = "none";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	708 document.getElementById("login").style.display = "none";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	709 document.getElementById("register").style.display = "block";
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	710 document.getElementById("current").style.display = "none";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	711 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	712 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	713
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	714 function debug(level, msg) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	715 if (level < debugSuppress)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	716 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	717 var msgdiv = document.createElement("div");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	718 var msgtext = document.createTextNode(msg);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	719 msgdiv.appendChild(msgtext);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	720 document.getElementById("debug").appendChild(msgdiv);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	721 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	722 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	723
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	724 function textsize(larger) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	725 var cssSize = termemu.view.style.fontSize;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	726 if (!cssSize) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	727 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	728 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	729 var match = cssSize.match(/\d*/);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	730 if (!match) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	731 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	732 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	733 var csize = Number(match[0]);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	734 var nsize;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	735 if (larger) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	736 if (csize >= 48)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	737 nsize = 48;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	738 else if (csize >= 20)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	739 nsize = csize + 4;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	740 else if (csize >= 12)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	741 nsize = csize + 2;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	742 else if (csize >= 8)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	743 nsize = csize + 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	744 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	745 nsize = 8;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	746 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	747 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	748 if (csize <= 8)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	749 nsize = 8;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	750 else if (csize <= 12)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	751 nsize = csize - 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	752 else if (csize <= 20)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	753 nsize = csize - 2;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	754 else if (csize <= 48)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	755 nsize = csize - 4;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	756 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	757 nsize = 48;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	758 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	759 document.getElementById("term").style.fontSize = nsize.toString() + "px";
9 826a7ced69f8 Make the emulator screen resizable. John "Elwin" Edwards <elwin@sdf.org> parents: 6 diff changeset	760 termemu.fixsize();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	761 debug(1, "Changing font size to " + nsize.toString());
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	762 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	763 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	764
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	765 function bell(on) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	766 var imgnode = document.getElementById("bell");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	767 if (on) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	768 imgnode.style.visibility = "visible";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	769 window.setTimeout(bell, 1500, false);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	770 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	771 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	772 imgnode.style.visibility = "hidden";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	773 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	774 }