RLGWebD: rlgterm.js annotate

annotate rlgterm.js @ 102:f34a286c51bd

RLG-Web server: code cleanup. Delete some TermSession code left over from the first attempt at Websockets. Also don't bother logging the disconnection of watchers after the game has ended.

author	John "Elwin" Edwards <elwin@sdf.org>
date	Fri, 13 Jul 2012 08:52:17 -0700
parents	e59d68082664
children	a9371002aecc

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