RLGWebD: rlgterm.js annotate

annotate rlgterm.js @ 111:f56fdfeed01a

Replace taking over games with forced saves. Instead of reusing the id, just SIGHUP the game process. This works whether it is using polling, WebSockets, or dgamelaunch.

author	John "Elwin" Edwards <elwin@sdf.org>
date	Sun, 15 Jul 2012 22:33:44 -0700
parents	67b393f10c2b
children	4f2b89e6fde2

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 }
63 a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	30 else if (session.playing) {
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	31 if (this.state < 8) {
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	32 this.set(15000);
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	33 this.state++;
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	34 }
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	35 else {
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	36 /* It's been over a minute. Stop polling. */
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	37 this.clear();
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	38 }
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	39 }
b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	40 else {
63 a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	41 /* If watching, it can't stop polling entirely, because there
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	42 * are no POST events to start it up again. */
a077f9f84052 RLG-Web client: adjust polling for watching. John "Elwin" Edwards <elwin@sdf.org> parents: 61 diff changeset	43 this.set(10000);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	44 }
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	45 },
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	46 posted: function (wasdata) {
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	47 if (wasdata) {
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	48 this.set(1000);
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	49 this.state = 1;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	50 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	51 else {
35 f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	52 this.set(200);
f15efa4818b4 rglterm.js: reduce the server polling. John "Elwin" Edwards <elwin@sdf.org> parents: 27 diff changeset	53 this.state = 0;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	54 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	55 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	56 };
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	57
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	58 /* Data on the available games. */
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	59 var games = {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	60 "rogue3": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	61 "name": "Rogue V3",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	62 "uname": "rogue3"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	63 },
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	64 "rogue4": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	65 "name": "Rogue V4",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	66 "uname": "rogue4"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	67 },
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	68 "rogue5": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	69 "name": "Rogue V5",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	70 "uname": "rogue5"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	71 },
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	72 "srogue": {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	73 "name": "Super-Rogue",
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	74 "uname": "srogue"
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	75 }
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	76 };
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	77
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	78 var session = {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	79 /* The session id assigned by the server. */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	80 id: null,
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	81 /* Login name and key */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	82 lname: null,
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	83 lcred: null,
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	84 /* Whether the game is being played or just watched. */
100 3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	85 playing: false,
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	86 /* WebSocket for communication */
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	87 sock: null
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	88 };
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	89
73 d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	90 /* The interval ID for checking the status of current games. */
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	91 var statInterval = null;
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	92 /* How frequently to check. */
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	93 var statDelta = 8000;
105 a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	94 /* A WebSocket to listen for status events. */
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	95 var statsock = null;
73 d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	96
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	97 function writeData(hexstr) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	98 var codenum;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	99 var codes = [];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	100 var nc;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	101 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	102 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	103 /* UTF-8 translation. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	104 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	105 nc = Number("0x" + hexstr.substr(i, 2));
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	106 if (nc < 0x7F) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	107 /* 0------- */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	108 codes.push(nc);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	109 /* Any incomplete sequence will be discarded. */
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 expect = 0;
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 else if (nc < 0xC0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	114 /* 10------ : part of a multibyte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	115 if (expect > 0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	116 u8wait <<= 6;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	117 u8wait += (nc & 0x3F);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	118 expect--;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	119 if (expect == 0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	120 codes.push(u8wait);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	121 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	122 }
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 {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	125 /* Assume an initial byte was missed. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	126 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	127 }
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 /* These will all discard any incomplete sequence. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	130 else if (nc < 0xE0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	131 /* 110----- : introduces 2-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	132 u8wait = (nc & 0x1F);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	133 expect = 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	134 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	135 else if (nc < 0xF0) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	136 /* 1110---- : introduces 3-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	137 u8wait = (nc & 0x0F);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	138 expect = 2;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	139 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	140 else if (nc < 0xF8) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	141 /* 11110--- : introduces 4-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	142 u8wait = (nc & 0x07);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	143 expect = 3;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	144 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	145 else if (nc < 0xFC) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	146 /* 111110-- : introduces 5-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	147 u8wait = (nc & 0x03);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	148 expect = 4;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	149 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	150 else if (nc < 0xFE) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	151 /* 1111110- : introduces 6-byte sequence */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	152 u8wait = (nc & 0x01);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	153 expect = 5;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	154 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	155 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	156 /* 1111111- : should never appear */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	157 u8wait = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	158 expect = 0;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	159 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	160 /* Supporting all 31 bits is probably overkill... */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	161 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	162 termemu.write(codes);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	163 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	164 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	165
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	166 /* State for sending and receiving messages. */
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	167 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	168 var nrecv = 0; // The next packet expected.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	169 var msgQ = []; // Queue for out-of-order messages.
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	170
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	171 /* 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	172 * 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	173 * 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	174 */
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	175 function processMsg(msg) {
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	176 var msgDicts;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	177 var havedata = null; // eventual return value
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	178 try {
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	179 msgDicts = JSON.parse(msg);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	180 } catch (e) {
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	181 if (e instanceof SyntaxError)
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	182 return null;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	183 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	184 if (msgDicts.length === 0)
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	185 return false;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	186 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	187 if (!msgDicts[j].t)
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	188 continue;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	189 else if (msgDicts[j].t == "E") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	190 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	191 gameover();
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	192 if (msgDicts[j].c == 1) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	193 logout();
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	194 }
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	195 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	196 debug(1, "Server error: " + msgDicts[j].s);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	197 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	198 // A data message
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	199 else if (msgDicts[j].t == "d") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	200 if (msgDicts[j].n === nrecv) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	201 writeData(msgDicts[j].d);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	202 nrecv++;
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	203 /* 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	204 var next;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	205 while ((next = msgQ.shift()) !== undefined) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	206 writeData(next.d);
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	207 nrecv++;
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	208 }
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	209 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	210 else if (msgDicts[j].n > nrecv) {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	211 /* 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	212 * for later use. */
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	213 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	214 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	215 }
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	216 else {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	217 /* This message's number was encountered previously. */
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	218 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	219 }
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	220 havedata = true;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	221 }
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	222 else if (msgDicts[j].t == "T") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	223 setTitle(msgDicts[j].d);
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	224 }
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	225 else if (msgDicts[j].t == "q") {
96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	226 gameover();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	227 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	228 else {
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	229 debug(1, "Unrecognized server message " + msg);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	230 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	231 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	232 return havedata;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	233 }
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 function getData() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	236 if (session.id == null)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	237 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	238 var datareq = new XMLHttpRequest();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	239 var msg = JSON.stringify({"id": session.id, "t": "n"});
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	240 datareq.onerror = errHandler;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	241 datareq.onreadystatechange = function () {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	242 if (datareq.readyState == 4 && datareq.status == 200) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	243 var wasdata = processMsg(datareq.responseText);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	244 if (wasdata != null) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	245 if (wasdata)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	246 ajaxstate.gotdata();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	247 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	248 ajaxstate.gotnothing();
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 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	251 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	252 };
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	253 datareq.open('POST', '/feed', true);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	254 datareq.send(msg);
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	255 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	256 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	257
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	258 function postResponseHandler() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	259 if (this.readyState == 4 && this.status == 200) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	260 // 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	261 var wasdata = processMsg(this.responseText);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	262 ajaxstate.posted();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	263 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	264 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	265 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	266
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	267 function errHandler() {
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	268 message("Unable to connect to the server.", "warn");
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	269 }
2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	270
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	271 function sendback(str) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	272 /* For responding to terminal queries. */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	273 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	274 var datareq = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	275 datareq.onerror = errHandler;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	276 datareq.onreadystatechange = postResponseHandler;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	277 datareq.open('POST', '/feed', true);
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	278 datareq.send(JSON.stringify(msgDict));
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	279 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	280 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	281
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	282 function sendkey(ev) {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	283 if (!session.playing)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	284 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	285 var keynum = ev.keyCode;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	286 var code;
70 d7eb63cd7a16 Try to get some compatibility for keys. John "Elwin" Edwards <elwin@sdf.org> parents: 67 diff changeset	287 if (keynum >= 65 && keynum <= 90) {
d7eb63cd7a16 Try to get some compatibility for keys. John "Elwin" Edwards <elwin@sdf.org> parents: 67 diff changeset	288 /* Letters. */
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	289 if (ev.ctrlKey)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	290 keynum -= 64;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	291 else if (!ev.shiftKey)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	292 keynum += 32;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	293 code = keynum.toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	294 if (code.length < 2)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	295 code = "0" + code;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	296 }
70 d7eb63cd7a16 Try to get some compatibility for keys. John "Elwin" Edwards <elwin@sdf.org> parents: 67 diff changeset	297 else if (keynum >= 48 && keynum <= 57) {
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	298 /* The number row, NOT the numpad. */
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	299 if (ev.shiftKey) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	300 code = numShifts[keynum - 48].toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	301 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	302 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	303 code = keynum.toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	304 }
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 else if (keynum in keyHexCodes) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	307 if (ev.shiftKey)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	308 code = keyHexCodes[keynum][1];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	309 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	310 code = keyHexCodes[keynum][0];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	311 }
70 d7eb63cd7a16 Try to get some compatibility for keys. John "Elwin" Edwards <elwin@sdf.org> parents: 67 diff changeset	312 else if (keynum >= 16 && keynum <= 20) {
d7eb63cd7a16 Try to get some compatibility for keys. John "Elwin" Edwards <elwin@sdf.org> parents: 67 diff changeset	313 /* Shift, Cntl, Alt, CAPSLOCK */
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	314 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	315 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	316 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	317 debug(1, "Ignoring keycode " + keynum);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	318 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	319 }
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	320 ev.preventDefault();
108 86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	321 if (session.sock) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	322 session.sock.send(JSON.stringify({"t": "d", "d": code}));
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	323 }
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	324 else {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	325 var datareq = new XMLHttpRequest();
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	326 var msgDict = {"id": session.id, "t": "d", "n": nsend++, "d": code};
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	327 datareq.onerror = errHandler;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	328 datareq.onreadystatechange = postResponseHandler;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	329 datareq.open('POST', '/feed', true);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	330 datareq.send(JSON.stringify(msgDict));
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	331 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	332 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	333 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	334
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	335 var charshifts = { '-': "5f", '=': "2b", '[': "7b", ']': "7d", '\\': "7c",
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	336 ';': "3a", '\'': "22", ',': "3c", '.': "3e", '/': "3f", '`': "7e"
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	337 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	338
76 a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	339 var kpkeys = { "KP1": "1b4f46", "KP2": "1b4f42", "KP3": "1b5b367e",
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	340 "KP4": "1b4f44", "KP5": "1b5b45", "KP6": "1b4f43",
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	341 "KP7": "1b4f48", "KP8": "1b4f41", "KP9": "1b5b357e" };
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	342
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	343 function vkey(c) {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	344 if (!session.playing)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	345 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	346 var keystr;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	347 if (c.match(/^[a-z]$/)) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	348 if (termemu.ctrlp()) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	349 var n = c.charCodeAt(0) - 96;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	350 keystr = n.toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	351 if (keystr.length < 2)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	352 keystr = "0" + keystr;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	353 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	354 else if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	355 keystr = c.toUpperCase().charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	356 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	357 keystr = c.charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	358 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	359 else if (c.match(/^[0-9]$/)) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	360 if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	361 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	362 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	363 keystr = c.charCodeAt(0).toString(16);
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 else if (c == '\n')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	366 keystr = "0a";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	367 else if (c == '\t')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	368 keystr = "09";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	369 else if (c == '\b')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	370 keystr = "08";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	371 else if (c == ' ')
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	372 keystr = "20";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	373 else if (c in charshifts) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	374 if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	375 keystr = charshifts[c];
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	376 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	377 keystr = c.charCodeAt(0).toString(16);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	378 }
76 a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	379 else if (c in kpkeys) {
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	380 keystr = kpkeys[c];
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	381 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	382 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	383 return;
108 86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	384 if (session.sock) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	385 session.sock.send(JSON.stringify({"t": "d", "d": keystr}));
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	386 }
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	387 else {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	388 var datareq = new XMLHttpRequest();
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	389 var msgDict = {"id": session.id, "t": "d", "n": nsend++, "d": keystr};
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	390 datareq.onerror = errHandler;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	391 datareq.onreadystatechange = postResponseHandler;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	392 datareq.open('POST', '/feed', true);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	393 datareq.send(JSON.stringify(msgDict));
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	394 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	395 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	396 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	397
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	398 function setup() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	399 keyHexCodes.init();
4 ee22eb9ab009 Client: don't assume the terminal is 24x80. John "Elwin" Edwards <elwin@sdf.org> parents: 0 diff changeset	400 termemu.init("termwrap", 24, 80);
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	401 setmode("login");
78 06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	402 /* Set up the text size. */
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	403 var cssSize = termemu.view.style.fontSize;
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	404 var match = cssSize.match(/\d*/);
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	405 if (!match) {
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	406 return;
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	407 }
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	408 var csize = Number(match[0]);
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	409 var allscreen = document.getElementById("termwrap");
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	410 while (csize > 9 && csize < 48) {
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	411 if (allscreen.scrollWidth * 1.2 > window.innerWidth) {
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	412 csize = textsize(false);
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	413 }
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	414 else if (allscreen.scrollWidth * 2 < window.innerWidth) {
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	415 csize = textsize(true);
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	416 }
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	417 else
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	418 break;
06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	419 }
109 67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	420 if (!WebSocket) {
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	421 message("Your browser does not support WebSockets. You can still play, " +
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	422 "but it will be slower, and may not work in the future.", "warn");
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	423 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	424 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	425 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	426
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	427 function toggleshift() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	428 termemu.toggleshift();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	429 keydiv = document.getElementById("shiftkey");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	430 if (termemu.shiftp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	431 keydiv.className = "keysel";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	432 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	433 keydiv.className = "key";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	434 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	435 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	436
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	437 function togglectrl() {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	438 termemu.togglectrl();
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	439 keydiv = document.getElementById("ctrlkey");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	440 if (termemu.ctrlp())
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	441 keydiv.className = "keysel";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	442 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	443 keydiv.className = "key";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	444 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	445 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	446
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	447 function formlogin(ev) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	448 ev.preventDefault();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	449 if (session.id != null)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	450 return;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	451 var loginmsg = {};
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	452 loginmsg["name"] = document.getElementById("input_name").value;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	453 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	454 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	455 req.onerror = errHandler;
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	456 req.onreadystatechange = function () {
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	457 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	458 return;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	459 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	460 if (reply.t == 'l') {
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	461 /* Success */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	462 session.lcred = reply.k;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	463 session.lname = reply.u;
89 6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	464 message("You are now logged in as " + reply.u + ".");
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	465 setmode("choose");
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	466 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	467 else if (reply.t == 'E') {
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	468 var failmsg = "Logging in failed. ";
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	469 if (reply.c == 2)
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	470 failmsg += reply.s.match(/Invalid data: (.*)/)[1];
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	471 else if (reply.c == 3)
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	472 failmsg += "The username or password was incorrect.";
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	473 else if (reply.c == 6)
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	474 failmsg += "The server is shutting down.";
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	475 message(failmsg, "warn");
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	476 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	477 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	478 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	479 };
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	480 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	481 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	482 return;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	483 }
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	484
105 a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	485 function tableCurrent(gamelist) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	486 var gamediv = document.getElementById("gametable");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	487 while (gamediv.children.length > 2)
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	488 gamediv.removeChild(gamediv.children[2]);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	489 if (gamelist.length === 0) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	490 gamediv.style.display = "none";
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	491 document.getElementById("nogames").style.display = "block";
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	492 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	493 else {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	494 gamediv.style.display = "table";
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	495 document.getElementById("nogames").style.display = "none";
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	496 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	497 for (var i = 0; i < gamelist.length; i++) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	498 var row = document.createElement("div");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	499 var cell1 = document.createElement("div");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	500 var cell2 = document.createElement("div");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	501 var cell3 = document.createElement("div");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	502 var cell4 = document.createElement("div");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	503 cell1.appendChild(document.createTextNode(gamelist[i].p));
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	504 var uname = gamelist[i].g;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	505 if (uname in games)
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	506 cell2.appendChild(document.createTextNode(games[uname].name));
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	507 else {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	508 continue;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	509 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	510 cell3.appendChild(document.createTextNode(idlestr(gamelist[i].i)));
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	511 var button = document.createElement("span");
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	512 button.appendChild(document.createTextNode("Watch"));
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	513 button.onclick = makeWatcher(gamelist[i].n);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	514 button.className = "ibutton";
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	515 cell4.appendChild(button);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	516 row.appendChild(cell1);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	517 row.appendChild(cell2);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	518 row.appendChild(cell3);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	519 row.appendChild(cell4);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	520 gamediv.appendChild(row);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	521 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	522 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	523
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	524 /* Handles the status socket, opening and closing it when necessary. */
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	525 function wsCurrent() {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	526 if (!WebSocket)
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	527 return;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	528 if (session.id) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	529 /* Don't bother with status if already playing/watching. */
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	530 if (statsock) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	531 statsock.close();
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	532 statsock = null;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	533 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	534 return;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	535 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	536 if (statsock)
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	537 return;
106 dc1414faee19 RLG-Web client: determine the host for WebSocket connections. John "Elwin" Edwards <elwin@sdf.org> parents: 105 diff changeset	538 statsock = new WebSocket("ws://" + window.location.host + "/status");
105 a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	539 statsock.onmessage = function (ev) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	540 var msg;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	541 try {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	542 msg = JSON.parse(ev.data);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	543 } catch (e) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	544 if (e instanceof SyntaxError)
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	545 return;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	546 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	547 if (msg.t != "t") {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	548 return;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	549 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	550 tableCurrent(msg.g);
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	551 };
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	552 statsock.onclose = function (ev) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	553 statsock = null;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	554 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	555 }
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	556
73 d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	557 function getcurrent(clear) {
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	558 if (session.id \|\| clear) {
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	559 if (statInterval) {
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	560 window.clearInterval(statInterval);
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	561 statInterval = null;
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	562 }
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	563 return;
73 d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	564 }
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	565 if (!statInterval) {
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	566 statInterval = window.setInterval(getcurrent, statDelta);
d084610a89b5 Automatically update the lists of current games and actions. John "Elwin" Edwards <elwin@sdf.org> parents: 70 diff changeset	567 }
105 a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	568 if (session.lcred)
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	569 getchoices();
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	570 if (WebSocket) {
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	571 return;
a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	572 }
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	573 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	574 req.onerror = errHandler;
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	575 req.onreadystatechange = function () {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	576 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	577 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	578 var reply;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	579 try {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	580 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	581 } catch (e) {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	582 if (e instanceof SyntaxError)
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	583 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	584 }
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	585 if (!reply.s) {
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	586 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	587 }
105 a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	588 tableCurrent(reply.g);
56 7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	589 };
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	590 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	591 req.send();
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	592 return;
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	593 }
7f3ca16409fe RLG-Web client: display a list of current games. John "Elwin" Edwards <elwin@sdf.org> parents: 55 diff changeset	594
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	595 function getchoices() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	596 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	597 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	598 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	599 req.onerror = errHandler;
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	600 req.onreadystatechange = function () {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	601 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	602 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	603 var reply;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	604 try {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	605 reply = JSON.parse(req.responseText);
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	606 } catch (e) {
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	607 if (e instanceof SyntaxError)
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	608 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	609 }
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	610 if (!("name" in reply) \|\| reply["name"] != session.lname \|\|
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	611 !("stat" in reply))
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	612 return;
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	613 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	614 /* 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	615 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	616 optdiv.removeChild(optdiv.childNodes[1]);
64 e3082fd06520 Some status improvements. John "Elwin" Edwards <elwin@sdf.org> parents: 63 diff changeset	617 for (var gname in games) {
e3082fd06520 Some status improvements. John "Elwin" Edwards <elwin@sdf.org> parents: 63 diff changeset	618 if (!(gname in reply.stat))
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	619 continue;
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	620 var acttext;
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	621 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	622 acttext = "Resume your game";
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	623 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	624 acttext = "Start a game";
111 f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	625 else if (reply.stat[gname] == "p" \|\| reply.stat[gname] == "d")
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	626 acttext = "Force save";
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	627 else
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	628 continue;
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	629 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	630 button.appendChild(document.createTextNode(acttext));
111 f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	631 if ("s0".indexOf(reply.stat[gname]) >= 0) {
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	632 button.onclick = makeStarter(gname);
51 2eda3909f6a3 rlgterm.js: don't make nonfunctional button. John "Elwin" Edwards <elwin@sdf.org> parents: 47 diff changeset	633 button.className = "ibutton";
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	634 }
111 f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	635 else {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	636 button.onclick = makeStopper(gname);
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	637 button.className = "ibutton";
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	638 }
45 1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	639 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	640 actdiv.appendChild(button);
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	641 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	642 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	643 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	644 rowdiv.appendChild(gamediv);
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	645 rowdiv.appendChild(actdiv);
1bbd0e76ba92 RLG-Web: put the game options into a table. John "Elwin" Edwards <elwin@sdf.org> parents: 44 diff changeset	646 optdiv.appendChild(rowdiv);
44 b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	647 }
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	648 };
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	649 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	650 req.send();
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	651 return;
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	652 }
b848cb50cd69 rlgterm.js: present game options to the player. John "Elwin" Edwards <elwin@sdf.org> parents: 41 diff changeset	653
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	654 /* 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	655 * 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	656 * being Super-Rogue.
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	657 */
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	658 function makeStarter(gname) {
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	659 if (!(gname in games))
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	660 return null;
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	661 var game = games[gname];
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	662 function starter(ev) {
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	663 startgame(game);
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	664 }
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	665 return starter;
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	666 }
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	667
59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	668 function startgame(game) {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	669 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	670 return;
108 86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	671 if (WebSocket) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	672 wsStart(game);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	673 return;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	674 }
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	675 var smsg = {};
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	676 smsg["key"] = session.lcred;
46 59ecd99845eb rlgterm.js: make the options table functional. John "Elwin" Edwards <elwin@sdf.org> parents: 45 diff changeset	677 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	678 smsg["h"] = 24;
e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	679 smsg["w"] = 80;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	680 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	681 req.onerror = errHandler;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	682 req.onreadystatechange = function () {
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	683 if (req.readyState != 4 \|\| req.status != 200)
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	684 return;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	685 var reply = JSON.parse(req.responseText);
55 96815eae4ebe RLG-Web: make multiple watchers possible. John "Elwin" Edwards <elwin@sdf.org> parents: 51 diff changeset	686 if (reply.t == 's') {
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	687 /* Success */
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	688 session.id = reply.id;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	689 session.playing = true;
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	690 termemu.resize(reply.h, reply.w);
91 e07f98799120 RLG-Web: improve game-starting messages. John "Elwin" Edwards <elwin@sdf.org> parents: 90 diff changeset	691 message("You are now playing " + game.name + ".");
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	692 setmode("play");
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	693 getData();
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	694 }
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	695 else if (reply.t == 'E') {
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	696 if (reply.c == 1) {
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	697 logout();
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	698 message("The server forgot about you, please log in again.", "warn");
94 597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	699 }
597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	700 else if (reply.c == 4) {
109 67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	701 if (reply.s == "dgamelaunch") {
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	702 message("You are already playing " + game.name + " over SSH.",
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	703 "warn");
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	704 }
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	705 else {
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	706 message("You are already playing " + game.name +
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	707 " in another browser window.", "warn");
67b393f10c2b RLG-Web: improve taking over sessions. John "Elwin" Edwards <elwin@sdf.org> parents: 108 diff changeset	708 }
94 597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	709 }
597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	710 else if (reply.c == 7) {
597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	711 message("The game is being saved, try again in a few seconds.");
597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	712 }
597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	713 else {
597e9477b8ae RLG-Web: Allow games to be taken over. John "Elwin" Edwards <elwin@sdf.org> parents: 93 diff changeset	714 message("The server says it can't start your game because \"" +
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	715 reply.s + "\". This is probably a bug.", "warn");
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	716 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	717 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	718 };
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	719 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	720 req.send(JSON.stringify(smsg));
0 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
111 f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	724 function makeStopper(gname) {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	725 if (!(gname in games))
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	726 return null;
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	727 var game = games[gname];
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	728 function stopper(ev) {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	729 stopgame(game);
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	730 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	731 return stopper;
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	732 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	733
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	734 function stopgame(game) {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	735 if (!session.lcred)
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	736 return;
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	737 var stopmsg = {"key": session.lcred, "g": game.uname};
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	738 var req = new XMLHttpRequest();
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	739 req.onerror = errHandler;
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	740 req.onreadystatechange = function () {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	741 if (req.readyState != 4 \|\| req.status != 200)
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	742 return;
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	743 var reply = JSON.parse(req.responseText);
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	744 if (reply.t == 'E') {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	745 if (reply.c == 7)
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	746 message("That game has already stopped.");
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	747 else if (reply.c == 1) {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	748 logout();
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	749 message("The server forgot about you, please log in again.", "warn");
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	750 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	751 else {
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	752 message("That game could not be stopped because: " + reply.s +
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	753 "This might be a bug.", "warn");
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	754 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	755 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	756 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	757 req.open('POST', '/quit', true);
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	758 req.send(JSON.stringify(stopmsg));
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	759 return;
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	760 }
f56fdfeed01a Replace taking over games with forced saves. John "Elwin" Edwards <elwin@sdf.org> parents: 109 diff changeset	761
108 86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	762 function wsStart(game) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	763 var sockurl = "ws://" + window.location.host + "/play/" + game.uname;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	764 sockurl += "?key=" + session.lcred + "&w=80&h=24";
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	765 ws = new WebSocket(sockurl);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	766 ws.onopen = function (event) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	767 session.id = true;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	768 session.playing = true;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	769 session.sock = ws;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	770 setmode("play");
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	771 };
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	772 ws.onmessage = function (event) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	773 var msgObject = JSON.parse(event.data);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	774 if (msgObject.t == 's') {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	775 termemu.resize(msgObject.h, msgObject.w);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	776 message("You are now playing " + msgObject.g + ".");
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	777 }
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	778 else if (msgObject.t == 'd') {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	779 writeData(msgObject.d);
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	780 }
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	781 };
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	782 ws.onclose = function (event) {
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	783 session.sock = null;
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	784 gameover();
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	785 };
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	786 }
86a458080e80 RLG-Web client: add playing through WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 106 diff changeset	787
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	788 function startwatching(gamenumber) {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	789 if (session.id != null)
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	790 return;
100 3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	791 if (WebSocket) {
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	792 wsWatch(gamenumber);
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	793 return;
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	794 }
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	795 var wmsg = {"n": Number(gamenumber)};
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	796 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	797 req.onerror = errHandler;
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	798 req.onreadystatechange = function () {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	799 if (req.readyState != 4 \|\| req.status != 200)
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	800 return;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	801 var reply = JSON.parse(req.responseText);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	802 if (reply.t == 'w') {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	803 /* Success */
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	804 session.id = reply.id;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	805 session.playing = false;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	806 termemu.resize(reply.h, reply.w);
61 071ec6b1ec03 RLG-Web client: initialize and restore the terminal when watching. John "Elwin" Edwards <elwin@sdf.org> parents: 59 diff changeset	807 termemu.reset();
071ec6b1ec03 RLG-Web client: initialize and restore the terminal when watching. John "Elwin" Edwards <elwin@sdf.org> parents: 59 diff changeset	808 termemu.toAltBuf();
91 e07f98799120 RLG-Web: improve game-starting messages. John "Elwin" Edwards <elwin@sdf.org> parents: 90 diff changeset	809 var pname = reply.p;
e07f98799120 RLG-Web: improve game-starting messages. John "Elwin" Edwards <elwin@sdf.org> parents: 90 diff changeset	810 var gname = games[reply.g].name;
e07f98799120 RLG-Web: improve game-starting messages. John "Elwin" Edwards <elwin@sdf.org> parents: 90 diff changeset	811 message("You are now watching " + pname + " play " + gname + ".");
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	812 setmode("watch");
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	813 getData();
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	814 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	815 else if (reply.t == 'E') {
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	816 message("The game could not be watched: " + reply.s, "warn");
65 e63c26dc0497 RLG-Web client: refresh the current games list. John "Elwin" Edwards <elwin@sdf.org> parents: 64 diff changeset	817 getcurrent();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	818 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	819 };
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	820 req.open('POST', '/watch', true);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	821 req.send(JSON.stringify(wmsg));
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	822 return;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	823 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	824
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	825 function makeWatcher(n) {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	826 function watcher(ev) {
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	827 startwatching(n);
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	828 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	829 return watcher;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	830 }
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	831
100 3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	832 function wsWatch(gamenumber) {
106 dc1414faee19 RLG-Web client: determine the host for WebSocket connections. John "Elwin" Edwards <elwin@sdf.org> parents: 105 diff changeset	833 var sockurl = "ws://" + window.location.host + "/watch/" + String(gamenumber);
100 3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	834 var ws = new WebSocket(sockurl);
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	835 ws.onopen = function (event) {
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	836 session.id = true;
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	837 session.sock = ws;
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	838 setmode("watch");
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	839 };
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	840 ws.onmessage = function (event) {
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	841 var msgObject = JSON.parse(event.data);
101 e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	842 if (msgObject.t == 'w') {
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	843 termemu.resize(msgObject.h, msgObject.w);
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	844 termemu.reset();
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	845 termemu.toAltBuf();
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	846 var pname = msgObject.p;
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	847 var gname = games[msgObject.g].name;
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	848 message("You are now watching " + pname + " play " + gname + ".");
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	849 }
e59d68082664 RLG-Web: Complete the WebSocket watcher. John "Elwin" Edwards <elwin@sdf.org> parents: 100 diff changeset	850 else if (msgObject.t == 'd') {
100 3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	851 writeData(msgObject.d);
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	852 }
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	853 };
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	854 ws.onclose = function (event) {
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	855 session.sock = null;
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	856 gameover();
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	857 };
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	858 }
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	859
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	860 function formreg(ev) {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	861 ev.preventDefault();
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	862 if (session.id != null)
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	863 return;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	864 var regmsg = {};
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	865 regmsg["name"] = document.getElementById("regin_name").value;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	866 regmsg["pw"] = document.getElementById("regin_pw").value;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	867 regmsg["email"] = document.getElementById("regin_email").value;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	868 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	869 req.onerror = errHandler;
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	870 req.onreadystatechange = function () {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	871 if (req.readyState != 4 \|\| req.status != 200)
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	872 return;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	873 var reply = JSON.parse(req.responseText);
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	874 if (reply.t == 'r') {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	875 /* Success */
89 6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	876 message("Welcome " + reply.u + ", you are now registered.");
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	877 session.lcred = reply.k;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	878 session.lname = reply.u;
89 6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	879 message("You are now logged in as " + reply.u + ".");
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	880 setmode("choose");
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	881 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	882 else if (reply.t == 'E') {
93 104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	883 var failmsg = "Registration failed.";
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	884 if (reply.c == 2) {
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	885 var errdesc = reply.s.match(/Invalid data: (.*)/)[1];
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	886 if (errdesc.match(/No name/))
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	887 failmsg += " You need to choose a name.";
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	888 else if (errdesc.match(/No password/))
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	889 failmsg += " You need to choose a password.";
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	890 else if (errdesc.match(/Invalid/)) {
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	891 failmsg += " Names must be letters and numbers. E-mail addresses " +
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	892 "can also contain these characters: @.-_";
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	893 }
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	894 else if (errdesc.match(/Username/))
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	895 failmsg += " Someone else is already using that name.";
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	896 else
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	897 failmsg += " This is probably a bug.";
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	898 }
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	899 else
104409bf5f03 rlgterm.js: improve registration failure messages. John "Elwin" Edwards <elwin@sdf.org> parents: 92 diff changeset	900 failmsg += " This is probably a bug.";
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	901 message(failmsg, "warn");
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	902 document.getElementById("regin_name").value = "";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	903 document.getElementById("regin_pw").value = "";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	904 document.getElementById("regin_email").value = "";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	905 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	906 };
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	907 req.open('POST', '/addacct', true);
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	908 req.send(JSON.stringify(regmsg));
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	909 return;
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	910 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	911
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	912 function gameover() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	913 if (session.id == null)
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	914 return;
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	915 /* TODO IFACE2 If the end was unexpected, tell player the game was saved. */
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	916 if (session.playing)
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	917 message("Finished playing.");
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	918 else
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	919 message("Finished watching.");
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	920 session.id = null;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	921 session.playing = false;
38 b06a14876645 RLG-Web: reduce polling further. John "Elwin" Edwards <elwin@sdf.org> parents: 35 diff changeset	922 ajaxstate.clear();
61 071ec6b1ec03 RLG-Web client: initialize and restore the terminal when watching. John "Elwin" Edwards <elwin@sdf.org> parents: 59 diff changeset	923 termemu.toNormBuf();
16 ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	924 nsend = 0;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	925 nrecv = 0;
ef6127ed6da3 RLGWeb: switch to JSON protocol. John "Elwin" Edwards <elwin@sdf.org> parents: 9 diff changeset	926 msgQ = [];
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	927 if (session.lcred != null)
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	928 setmode("choose");
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	929 else
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	930 setmode("login");
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	931 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	932 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	933
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	934 function logout() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	935 session.lcred = null;
00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	936 session.lname = null;
47 27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	937 setmode("login");
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	938 }
27b7f0c8b9f0 RLG-Web: make login sessions time out. John "Elwin" Edwards <elwin@sdf.org> parents: 46 diff changeset	939
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	940 function stop() {
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	941 if (!session.id)
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	942 return;
100 3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	943 if (session.sock) {
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	944 session.sock.close();
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	945 return;
3dbfdaf62623 RLG-Web: begin converting to WebSockets. John "Elwin" Edwards <elwin@sdf.org> parents: 97 diff changeset	946 }
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	947 var req = new XMLHttpRequest();
75 2984604ce3e6 Begin handling XMLHttpRequest errors. John "Elwin" Edwards <elwin@sdf.org> parents: 73 diff changeset	948 req.onerror = errHandler;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	949 req.onreadystatechange = function () {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	950 if (req.readyState == 4 && req.status == 200) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	951 processMsg(req.responseText);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	952 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	953 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	954 };
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	955 req.open('POST', '/feed', true);
59 00b985b8ba6a RLG-Web client: implement watching. John "Elwin" Edwards <elwin@sdf.org> parents: 58 diff changeset	956 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	957 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	958 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	959
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	960 function setmode(mode, ev) {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	961 if (ev)
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	962 ev.preventDefault();
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	963 if (mode == "play") {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	964 document.getElementById("keyboard").style.display = "block";
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	965 document.getElementById("playctl").style.display = "block";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	966 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	967 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	968 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	969 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	970 }
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	971 else if (mode == "watch") {
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	972 document.getElementById("keyboard").style.display = "none";
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	973 document.getElementById("playctl").style.display = "block";
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	974 document.getElementById("startgame").style.display = "none";
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	975 document.getElementById("login").style.display = "none";
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	976 document.getElementById("register").style.display = "none";
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	977 document.getElementById("current").style.display = "none";
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	978 }
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	979 else if (mode == "choose") {
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	980 document.getElementById("keyboard").style.display = "none";
6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	981 document.getElementById("playctl").style.display = "none";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	982 document.getElementById("startgame").style.display = "block";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	983 document.getElementById("login").style.display = "none";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	984 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	985 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	986 getcurrent();
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	987 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	988 else if (mode == "login") {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	989 document.getElementById("keyboard").style.display = "none";
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	990 document.getElementById("playctl").style.display = "none";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	991 document.getElementById("startgame").style.display = "none";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	992 document.getElementById("login").style.display = "block";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	993 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	994 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	995 getcurrent();
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	996 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	997 else if (mode == "register") {
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	998 document.getElementById("keyboard").style.display = "none";
90 6c6a6e4f1e5b RLG-Web client: distinguish playing and watching in UI. John "Elwin" Edwards <elwin@sdf.org> parents: 89 diff changeset	999 document.getElementById("playctl").style.display = "none";
39 e8ac0e3d2614 RLG-Web: separate logging in and starting a game. John "Elwin" Edwards <elwin@sdf.org> parents: 38 diff changeset	1000 document.getElementById("startgame").style.display = "none";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	1001 document.getElementById("login").style.display = "none";
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	1002 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	1003 document.getElementById("current").style.display = "none";
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	1004 }
105 a9371002aecc RLG-Web client: use WebSockets for game lists. John "Elwin" Edwards <elwin@sdf.org> parents: 101 diff changeset	1005 wsCurrent();
19 188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	1006 }
188bbd857124 RLG-Web: add user registration John "Elwin" Edwards <elwin@sdf.org> parents: 16 diff changeset	1007
76 a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1008 function toggleBlock(id) {
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1009 var element = document.getElementById(id);
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1010 if (!element)
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1011 return;
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1012 if (element.style.display != "block")
a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1013 element.style.display = "block";
67 b6a3b26fe0dc RLG-Web client: some visual improvements. John "Elwin" Edwards <elwin@sdf.org> parents: 66 diff changeset	1014 else
76 a497ecd116d9 Improvements to the keyboard. John "Elwin" Edwards <elwin@sdf.org> parents: 75 diff changeset	1015 element.style.display = "none";
67 b6a3b26fe0dc RLG-Web client: some visual improvements. John "Elwin" Edwards <elwin@sdf.org> parents: 66 diff changeset	1016 }
b6a3b26fe0dc RLG-Web client: some visual improvements. John "Elwin" Edwards <elwin@sdf.org> parents: 66 diff changeset	1017
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	1018 function message(msg, mtype) {
89 6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1019 var msgdiv = document.createElement("div");
6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1020 var msgtext = document.createTextNode(msg);
6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1021 msgdiv.appendChild(msgtext);
96 7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	1022 if (mtype) {
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	1023 msgdiv.className = mtype;
7bb634f6995c RLG-Web client: improvements to UI messages. John "Elwin" Edwards <elwin@sdf.org> parents: 94 diff changeset	1024 }
89 6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1025 var msgcontainer = document.getElementById("messages");
6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1026 msgcontainer.insertBefore(msgdiv, msgcontainer.firstChild);
6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1027 }
6145e1ea7ace RLG-Web: add a new message framework. John "Elwin" Edwards <elwin@sdf.org> parents: 88 diff changeset	1028
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1029 function debug(level, msg) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1030 if (level < debugSuppress)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1031 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1032 var msgdiv = document.createElement("div");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1033 var msgtext = document.createTextNode(msg);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1034 msgdiv.appendChild(msgtext);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1035 document.getElementById("debug").appendChild(msgdiv);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1036 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1037 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1038
92 a4d3ecf188b7 RLG-Web client: replace setTitle() with message(). John "Elwin" Edwards <elwin@sdf.org> parents: 91 diff changeset	1039 function setTitle(tstr) {
a4d3ecf188b7 RLG-Web client: replace setTitle() with message(). John "Elwin" Edwards <elwin@sdf.org> parents: 91 diff changeset	1040 message(tstr);
a4d3ecf188b7 RLG-Web client: replace setTitle() with message(). John "Elwin" Edwards <elwin@sdf.org> parents: 91 diff changeset	1041 }
a4d3ecf188b7 RLG-Web client: replace setTitle() with message(). John "Elwin" Edwards <elwin@sdf.org> parents: 91 diff changeset	1042
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1043 function textsize(larger) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1044 var cssSize = termemu.view.style.fontSize;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1045 if (!cssSize) {
78 06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	1046 return null;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1047 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1048 var match = cssSize.match(/\d*/);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1049 if (!match) {
78 06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	1050 return null;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1051 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1052 var csize = Number(match[0]);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1053 var nsize;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1054 if (larger) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1055 if (csize >= 48)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1056 nsize = 48;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1057 else if (csize >= 20)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1058 nsize = csize + 4;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1059 else if (csize >= 12)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1060 nsize = csize + 2;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1061 else if (csize >= 8)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1062 nsize = csize + 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1063 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1064 nsize = 8;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1065 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1066 else {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1067 if (csize <= 8)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1068 nsize = 8;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1069 else if (csize <= 12)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1070 nsize = csize - 1;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1071 else if (csize <= 20)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1072 nsize = csize - 2;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1073 else if (csize <= 48)
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1074 nsize = csize - 4;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1075 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1076 nsize = 48;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1077 }
77 f8bb37f48d58 Make font resizing affect the keyboard too. John "Elwin" Edwards <elwin@sdf.org> parents: 76 diff changeset	1078 var cssvalstr = nsize.toString() + "px";
f8bb37f48d58 Make font resizing affect the keyboard too. John "Elwin" Edwards <elwin@sdf.org> parents: 76 diff changeset	1079 document.getElementById("term").style.fontSize = cssvalstr;
f8bb37f48d58 Make font resizing affect the keyboard too. John "Elwin" Edwards <elwin@sdf.org> parents: 76 diff changeset	1080 document.getElementById("keys").style.fontSize = cssvalstr;
9 826a7ced69f8 Make the emulator screen resizable. John "Elwin" Edwards <elwin@sdf.org> parents: 6 diff changeset	1081 termemu.fixsize();
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1082 debug(1, "Changing font size to " + nsize.toString());
78 06375a159188 Try to guess a good text size. John "Elwin" Edwards <elwin@sdf.org> parents: 77 diff changeset	1083 return nsize;
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1084 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1085
66 57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1086 function idlestr(ms) {
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1087 if (typeof(ms) != "number")
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1088 return "?";
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1089 var seconds = Math.round(ms / 1000);
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1090 var ss = String(seconds % 60);
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1091 if (ss.length < 2)
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1092 ss = "0" + ss;
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1093 var mm = String(Math.floor((seconds % 3600) / 60));
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1094 if (mm.length < 2)
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1095 mm = "0" + mm;
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1096 var hh = String(Math.floor(seconds / 3600));
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1097 if (hh.length < 2)
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1098 hh = "0" + hh;
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1099 return hh + ":" + mm + ":" + ss;
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1100 }
57bf0dcd080e Display idle time of games in progress. John "Elwin" Edwards <elwin@sdf.org> parents: 65 diff changeset	1101
0 bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1102 function bell(on) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1103 var imgnode = document.getElementById("bell");
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1104 if (on) {
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1105 imgnode.style.visibility = "visible";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1106 window.setTimeout(bell, 1500, false);
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1107 }
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1108 else
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1109 imgnode.style.visibility = "hidden";
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1110 return;
bd412f63ce0d Put this project under version control, finally. John "Elwin" Edwards <elwin@sdf.org> parents: diff changeset	1111 }