ProgressQuest-web/main.js

// Copyright (c)2002-2010 Eric Fredricksen <e@fredricksen.net> all rights reserved

// TODO: Test use of seed as DNA
// TODO: Layout main better
// TODO: Test in all browsers

// revs:
// 6: pq 6.3/web 
// 5: pq 6.3
// 4: pq 6.2
// 3: pq 6.1
// 2: pq 6.0
// 1: pq 6.0, some early release I guess;)n't remember
var RevString = '&rev=6';

var game = {}; // queue: [] };
var lasttick, timerid;

function timeGetTime() {
  return new Date().getTime();
}

function StartTimer() {
  if (!timerid) {
    lasttick = timeGetTime();
    timerid = setInterval(Timer1Timer, 100);
  }
  // BS location for this, but...
  // MainForm.Caption = 'ProgressQuest - ' + ChangeFileExt(ExtractFileName(MainForm.GameSaveName()), '');
}

function StopTimer() {
  clearTimeout(timerid);
  timerid = null;
}

function GetPasskey() { return game.passkey; }
function SetPasskey(v) { game.passkey = v; }

function GetMotto() { return game.motto; }
function SetMotto(v) { game.motto = v; }

function GetHostName() { return game.hostname; }
function SetHostName(v) { game.hostname = v; }

function GetHostAddr() { return game.hostaddr; }
function SetHostAddr(v) { game.hostaddr = v; }

function GetLogin() { return game.login; }
function SetLogin(v) { game.login = v; }

function GetPassword() { return game.password; }
function SetPassword(v) { game.password = v; }

function GetGuild() { return game.guild; }
function SetGuild(v) { game.guild = v; }

function Q(s) {
  game.queue.push(s);
  Dequeue();
}

function TaskDone() {
  return TaskBar.done();
}

function Odds(chance, outof) {
  return Random(outof) < chance;
}

function RandSign() {
  return Random(2) * 2 - 1;
}

function RandomLow(below) {
  return Min(Random(below), Random(below));
}

function PickLow(s) {
  return s[RandomLow(s.length)];
}

function Copy(s, b, l) {
  return s.substr(b-1, l);
}

function Length(s) {
  return s.length;
}

function Starts(s, pre) {
  return 0 === s.indexOf(pre);
}

function Ends(s, e) {
  return Copy(s, 1+Length(s)-Length(e), Length(e)) == e;
}

function Plural(s) {
  if (Ends(s,'y')) 
    return Copy(s,1,Length(s)-1) + 'ies';
  else if (Ends(s,'us')) 
    return Copy(s,1,Length(s)-2) + 'i';
  else if (Ends(s,'ch') || Ends(s,'x') || Ends(s,'s') || Ends(s, 'sh')) 
    return s + 'es';
  else if (Ends(s,'f')) 
    return Copy(s,1,Length(s)-1) + 'ves';
  else if (Ends(s,'man') || Ends(s,'Man')) 
    return Copy(s,1,Length(s)-2) + 'en';
  else return s + 's';
}

function Split(s, field, separator) {
  return s.split(separator || "|")[field];
}

function Indefinite(s, qty) {
  if (qty == 1) {
    if (Pos(s.charAt(0), 'AEIOUÜaeiouü') > 0) 
      return 'an ' + s;
    else 
      return 'a ' + s;
  } else {
    return IntToStr(qty) + ' ' + Plural(s);
  }
}

function Definite(s, qty) {
  if (qty > 1)
    s = Plural(s);
  return 'the ' + s;
}

function prefix(a, m, s, sep) {
  if (sep == undefined) sep = ' ';
  m = Abs(m);
  if (m < 1 || m > a.length) return s;  // In case of screwups
  return a[m-1] + sep + s;
}

function Sick(m, s) {
  m = 6 - Abs(m);
  return prefix(['dead','comatose','crippled','sick','undernourished'], m, s);
}


function Young(m, s) {
  m = 6 - Abs(m);
  return prefix(['foetal','baby','preadolescent','teenage','underage'], m, s);
}


function Big(m, s) {
  return prefix(['greater','massive','enormous','giant','titanic'], m, s);
}

function Special(m, s) {
  if (Pos(' ', s) > 0)
    return prefix(['veteran','cursed','warrior','undead','demon'], m, s);
  else
    return prefix(['Battle-','cursed ','Were-','undead ','demon '], m, s, '');
}

function InterplotCinematic() {
  switch (Random(3)) {
  case 0: 
    Q('task|1|Exhausted, you arrive at a friendly oasis in a hostile land');
    Q('task|2|You greet old friends and meet new allies');
    Q('task|2|You are privy to a council of powerful do-gooders');
    Q('task|1|There is much to be done. You are chosen!');
    break;
  case 1: 
    Q('task|1|Your quarry is in sight, but a mighty enemy bars your path!');
    var nemesis = NamedMonster(GetI(Traits,'Level')+3);
    Q('task|4|A desperate struggle commences with ' + nemesis);
    var s = Random(3);
    for (var i = 1; i <= Random(1 + Plots.length()); ++i) {
      s += 1 + Random(2);
      switch (s % 3) {
      case 0: Q('task|2|Locked in grim combat with ' + nemesis); break;
      case 1: Q('task|2|' + nemesis + ' seems to have the upper hand'); break;
      case 2: Q('task|2|You seem to gain the advantage over ' + nemesis); break;
      }
    }
    Q('task|3|Victory! ' + nemesis + ' is slain! Exhausted, you lose conciousness');
    Q('task|2|You awake in a friendly place, but the road awaits');
    break;
  case 2: 
    var nemesis2 = ImpressiveGuy();
    Q("task|2|Oh sweet relief! You've reached the protection of the good " + nemesis2);
    Q('task|3|There is rejoicing, and an unnerving encouter with ' + nemesis2 + ' in private');
    Q('task|2|You forget your ' + BoringItem() + ' and go back to get it');
    Q("task|2|What's this!? You overhear something shocking!");
    Q('task|2|Could ' + nemesis2 + ' be a dirty double-dealer?');
    Q('task|3|Who can possibly be trusted with this news!? ... Oh yes, of course');
    break;
  }
  Q('plot|1|Loading');
}


function StrToInt(s) {
  return parseInt(s, 10);
}

function IntToStr(i) {
  return i + "";
}

function NamedMonster(level) {
  var lev = 0;
  var result = '';
  for (var i = 0; i < 5; ++i) {
    var m = Pick(K.Monsters);
    if (!result || (Abs(level-StrToInt(Split(m,1))) < Abs(level-lev))) {
      result = Split(m,0);
      lev = StrToInt(Split(m,1));
    }
  }
  return GenerateName() + ' the ' + result;
}

function ImpressiveGuy() {
  return Pick(K.ImpressiveTitles) + 
    (Random(2) ? ' of the ' + Pick(K.Races) : ' of ' + GenerateName());
}

function MonsterTask(level) {
  var definite = false;
  for (var i = level; i >= 1; --i) {
    if (Odds(2,5))
      level += RandSign();
  }
  if (level < 1) level = 1;
  // level = level of puissance of opponent(s) we'll return

  var monster, lev;
  if (Odds(1,25)) {
    // Use an NPC every once in a while
      monster = ' ' + Split(Pick(K.Races), 0);
    if (Odds(1,2)) {
      monster = 'passing' + monster + ' ' + Split(Pick(K.Klasses), 0);
    } else {
      monster = PickLow(K.Titles) + ' ' + GenerateName() + ' the' + monster;
      definite = true;
    }
    lev = level;
    monster = monster + '|' + IntToStr(level) + '|*';
  } else if (game.questmonster && Odds(1,4)) {
    // Use the quest monster
    monster = K.Monsters[game.questmonsterindex];
    lev = StrToInt(Split(monster,1));
  } else {
    // Pick the monster out of so many random ones closest to the level we want
    monster = Pick(K.Monsters);
    lev = StrToInt(Split(monster,1));
    for (var ii = 0; ii < 5; ++ii) {
      var m1 = Pick(K.Monsters);
      if (Abs(level-StrToInt(Split(m1,1))) < Abs(level-lev)) {
        monster = m1;
        lev = StrToInt(Split(monster,1));
      }
    }
  }

  var result = Split(monster,0);
  game.task = 'kill|' + monster;

  var qty = 1;
  if (level-lev > 10) {
    // lev is too low. multiply...
    qty = Math.floor((level + Random(lev)) / max(lev,1));
    if (qty < 1) qty = 1;
    level = Math.floor(level / qty);
  }

  if ((level - lev) <= -10) {
    result = 'imaginary ' + result;
  } else if ((level-lev) < -5) {
    i = 10+(level-lev);
    i = 5-Random(i+1);
    result = Sick(i,Young((lev-level)-i,result));
  } else if (((level-lev) < 0) && (Random(2) == 1)) {
    result = Sick(level-lev,result);
  } else if (((level-lev) < 0)) {
    result = Young(level-lev,result);
  } else if ((level-lev) >= 10) {
    result = 'messianic ' + result;
  } else if ((level-lev) > 5) {
    i = 10-(level-lev);
    i = 5-Random(i+1);
    result = Big(i,Special((level-lev)-i,result));
  } else if (((level-lev) > 0) && (Random(2) == 1)) {
    result = Big(level-lev,result);
  } else if (((level-lev) > 0)) {
    result = Special(level-lev,result);
  }

  lev = level;
  level = lev * qty;

  if (!definite) result = Indefinite(result, qty);
  return { 'description': result, 'level': level };
}

function LowerCase(s) {
  return s.toLowerCase();
}

function ProperCase(s) {
  return Copy(s,1,1).toUpperCase() + Copy(s,2,10000);
}

function EquipPrice() {
  return  5 * GetI(Traits,'Level') * GetI(Traits,'Level') + 
    10 * GetI(Traits,'Level') + 
    20;
}

function Dequeue() {
  while (TaskDone()) {
    if (Split(game.task,0) == 'kill') {
      if (Split(game.task,3) == '*') {
        WinItem();
      } else if (Split(game.task,3)) {
        Add(Inventory,LowerCase(Split(game.task,1) + ' ' + 
                                ProperCase(Split(game.task,3))),1);
      }
    } else if (game.task == 'buying') {
      // buy some equipment
      Add(Inventory,'Gold',-EquipPrice());
      WinEquip();
    } else if ((game.task == 'market') || (game.task == 'sell')) {
      if (game.task == 'sell') {
        var amt = GetI(Inventory, 1) * GetI(Traits,'Level');
        if (Pos(' of ', Inventory.label(1)) > 0)
          amt *= (1+RandomLow(10)) * (1+RandomLow(GetI(Traits,'Level')));
        Inventory.remove(1);
        Add(Inventory, 'Gold', amt);
      }
      if (Inventory.length() > 1) {
        Inventory.scrollToTop();
        Task('Selling ' + Indefinite(Inventory.label(1), GetI(Inventory,1)), 
             1 * 1000);
        game.task = 'sell';
        break;
      }
    }
    
    var old = game.task;
    game.task = '';
    if (game.queue.length > 0) {
      var a = Split(game.queue[0],0);
      var n = StrToInt(Split(game.queue[0],1));
      var s = Split(game.queue[0],2);
      if (a == 'task' || a == 'plot') {
        game.queue.shift();
        if (a == 'plot') {
          CompleteAct();
          s = 'Loading ' + Plots.last().text();
        }
        Task(s, n * 1000);
      } else {
        throw 'bah!' + a;
      }
    } else if (EncumBar.done()) {
      Task('Heading to market to sell loot',4 * 1000);
      game.task = 'market';
    } else if ((Pos('kill|',old) <= 0) && (old != 'heading')) {
      if (GetI(Inventory, 'Gold') > EquipPrice()) {
        Task('Negotiating purchase of better equipment', 5 * 1000);
        game.task = 'buying';
      } else {
        Task('Heading to the killing fields', 4 * 1000);
        game.task = 'heading';
      }
    } else {
      var nn = GetI(Traits, 'Level');
      var t = MonsterTask(nn);
      var InventoryLabelAlsoGameStyleTag = 3;
      nn = Math.floor((2 * InventoryLabelAlsoGameStyleTag * t.level * 1000) / nn);
      Task('Executing ' + t.description, nn);
    }
  }
}


function Put(list, key, value) {
  var item = list.item(key);
  item.children().last().text(value);
  item.addClass("selected");
  item.each(function () {this.scrollIntoView();});

  if (key === 'STR') {
    EncumBar.Max = 10 + value;
    EncumBar.reposition(EncumBar.Position);
  }

  if (list === Inventory)
    EncumBar.reposition(Sum(Inventory) - GetI(Inventory,'Gold'));
}

function LevelUpTime(level) {  // seconds 
  // 20 minutes per level
  return 20 * level * 60;
}


function ProgressBar(id) {
  this.id = id;
  this.bar = $("#"+ id + " > .bar");
  this.hint = '';

  this.reset = function (newmax) {
    this.Max = newmax;
    this.reposition(0);
  };

  this.reposition = function (newpos) {
    this.Position = Min(newpos, this.Max);
    this.bar.css("width", 100 * this.Position / this.Max + "%");

    // Recompute hint
    var label = $("#" + this.id).find(".hint");
    this.percent = (100 * this.Position).div(this.Max);
    this.remaining = Math.floor(this.Max - this.Position);
    this.time = RoughTime(this.Max - this.Position);
    this.hint = template(label.attr("template"), this);
    label.text(this.hint);
  };

  this.increment = function (inc) {
    this.reposition(this.Position + inc);
  };

  this.done = function () {
    return this.Position >= this.Max;
  };

  this.save = function (game) {
    game[id] = {position: this.Position, 
                max: this.Max,
                hint: this.hint};
  };
  
  this.load = function (game) {
    this.Max = game[id].max;
    this.reposition(game[id].position);
  };
}


function ListBox(id, columns, fixedkeys) {
  this.id = id;
  this.box = $("#"+ id);
  this.columns = columns;
  this.fixedkeys = fixedkeys;

  this.Add = function (caption) {
    var tr = $("<tr><td><input type=checkbox disabled> " + 
               caption + "</td></tr>");
    tr.appendTo(this.box);
    tr.each(function () {this.scrollIntoView();});
    game[this.id].last = caption;
    return tr;
  };

  this.ClearSelection = function () {
    this.box.find("tr").removeClass("selected");
  };

  this.item = function (key) {
    if (typeof key == typeof 'string') {
      var result = this.rows().filter(function (index) {
        return $(this).children().first().text() === key;
      });
      if (!result.length) {
        result = $("<tr><td>" + key + "</td><td/></tr>");
        this.box.append(result);
      }
      return result;
    } else {
      return this.box.find("tr").eq(key);
    }
  };

  this.last = function () {
    return this.rows().last();
  };

  this.scrollToTop = function () {
    this.box.parents(".scroll").scrollTop(0);
  };

  this.rows = function () {
    return this.box.find("tr").has("td");
  };

  this.length = function () {
    return this.rows().length;
  };

  this.remove = function (n) {
    this.box.find("tr").eq(n).remove();
  };

  this.save = function (game) {
    if (!game[this.id])
      game[this.id] = {};
    var dict = game[this.id];
    dict.html = this.box.html();
    if (this.columns == 2) {
      this.rows().each(function (index) {
        dict[$(this).children().first().text()] = 
          $(this).children().last().text();
      });
    }
  };

  this.load = function (game) {
    this.box.html(game[this.id].html);
  };

  this.label = function (n) {
    return this.item(n).children().first().text();
  };
}


var ExpBar, PlotBar, TaskBar, QuestBar, EncumBar;
var Traits,Stats,Spells,Equips,Inventory,Plots,Quests;
var Kill;
var AllBars, AllLists;
    
    
function InitializeCharacter(sheet) {
  game = sheet;

  Put(Traits, 'Name', sheet.name);
  Put(Traits, 'Level', 1);
  Put(Traits, 'Race', sheet.race);
  Put(Traits, 'Class', sheet['class']);

  Put(Stats, 'STR', sheet.STR);
  Put(Stats, 'CON', sheet.CON);
  Put(Stats, 'DEX', sheet.DEX);
  Put(Stats, 'INT', sheet.INT);
  Put(Stats, 'WIS', sheet.WIS);
  Put(Stats, 'CHA', sheet.CHA);
  Put(Stats, 'HP Max', Random(8) + sheet.CON.div(6));
  Put(Stats, 'MP Max', Random(8) + sheet.INT.div(6));

  game.Equips = {best: 'Sharp Stick'};
  Put(Equips, 'Weapon', game.Equips.best);

  Put(Inventory,'Gold',0);

  SaveGame();

  ClearAllSelections();

  // GoButtonClick();
  
  ExpBar.reset(LevelUpTime(1));

  game.task = '';
  game.questmonster = '';
  game.queue = [];

  Task('Loading.',2000); // that dot is spotted for later...
  Q('task|10|Experiencing an enigmatic and foreboding night vision');
  Q("task|6|Much is revealed about that wise old bastard you'd underestimated");
  Q('task|6|A shocking series of events leaves you alone and bewildered, but resolute');
  Q('task|4|Drawing upon an unexpected reserve of determination, you set out on a long and dangerous journey');
  Q('plot|2|Loading');

  PlotBar.reset(26);
  Plots.Add('Prologue');
  game.act = 0;

  //debugger;
  QuestBar.reset(1);

  EncumBar.reset(GetI(Stats, "STR") + 10);

  Put(Equips, "Hauberk", "-3 Burlap");
  
  ClearAllSelections();

  StartTimer();
  SaveGame();
  Brag('s');
}


function StrToIntDef(s, def) {
  var result = parseInt(s, 10);
  return isNaN(result) ? def : result;
}


$(document).ready(FormCreate);


function WinSpell() {
  AddR(Spells, K.Spells[RandomLow(Min(GetI(Stats,'WIS')+GetI(Traits,'Level'),
                                      K.Spells.length))], 1);
}

function LPick(list, goal) {
  var result = Pick(list);
  for (var i = 1; i <= 5; ++i) {
    var best = StrToInt(Split(result, 1));
    var s = Pick(list);
    var b1 = StrToInt(Split(s,1));
    if (Abs(goal-best) > Abs(goal-b1))
      result = s;
  }
  return result;
}

function Abs(x) {
  return x < 0 ? -x : x;
}

function WinEquip() {
  var posn = Random(Equips.length());

  if (!posn) {
    stuff = K.Weapons;
    better = K.OffenseAttrib;
    worse = K.OffenseBad;
  } else {
    better = K.DefenseAttrib;
    worse = K.DefenseBad;
    stuff = (posn == 1) ? K.Shields:  K.Armors;
  }
  var name = LPick(stuff, GetI(Traits,'Level'));
  var qual = StrToInt(Split(name,1));
  name = Split(name,0);
  var plus = GetI(Traits,'Level') - qual;
  if (plus < 0) better = worse;
  var count = 0;
  while (count < 2 && plus) {
    var modifier = Pick(better);
    qual = StrToInt(Split(modifier, 1));
    modifier = Split(modifier, 0);
    if (Pos(modifier, name) > 0) break; // no repeats
    if (Abs(plus) < Abs(qual)) break; // too much
    name = modifier + ' ' + name;
    plus -= qual;
    ++count;
  }
  if (plus) name = plus + ' ' + name;
  if (plus > 0) name = '+' + name;

  Put(Equips, posn, name);
  game.Equips.best = name;
  if (posn > 1) game.Equips.best += ' ' + Equips.label(posn);
}


function Square(x) { return x * x; }

function WinStat() {
  var i;
  if (Odds(1,2))  {
    i = Stats.rows().eq(Random(Stats.length()));
  } else {
    // Favor the best stat so it will tend to clump
    var t = 0;
    Stats.rows().each(function (index,elt) {
      t += Square(StrToInt($(this).children().last().text()));
    });
    t = Random(t);
    Stats.rows().each(function (index,elt) {
      i = this;
      t -= Square(StrToInt($(this).children().last().text()));
      return t < 0;
    });
  }
  Add(Stats, $(i).find("td").first().text(), 1);
}

function SpecialItem() {
  return InterestingItem() + ' of ' + Pick(K.ItemOfs);
}

function InterestingItem() {
  return Pick(K.ItemAttrib) + ' ' + Pick(K.Specials);
}

function BoringItem() {
  return Pick(K.BoringItems);
}

function WinItem() {
  Add(Inventory, SpecialItem(), 1);
}

function CompleteQuest() {
  QuestBar.reset(50 + Random(100));
  if (Quests.last().length) {
    /*$IFDEF LOGGING*/
    Log('Quest completed: ' + Quests.last().text());
    /*$ENDIF*/
    
    Quests.rows().find("input:checkbox").attr("checked", "true");
    [WinSpell,WinEquip,WinStat,WinItem][Random(4)]();
  }
  while (Quests.length() > 99)
    Quests.remove(0);

  game.questmonster = '';
  var caption;
  switch (Random(5)) {
  case 0: 
    var level = GetI(Traits,'Level');
    var lev = 0;
    for (var i = 1; i <= 4; ++i) {
      var montag = Random(K.Monsters.length);
      var m = K.Monsters[montag];
      var l = StrToInt(Split(m,1));
      if (i == 1 || Abs(l - level) < Abs(lev - level)) {
        lev = l;
        game.questmonster = m;
        game.questmonsterindex = montag;
      }
    }
    caption = 'Exterminate ' + Definite(Split(game.questmonster,0),2);
    break;
  case 1:
    caption = 'Seek ' + Definite(InterestingItem(), 1);
    break;
  case 2: 
    caption = 'Deliver this ' + BoringItem();
    break;
  case 3: 
    caption = 'Fetch me ' + Indefinite(BoringItem(), 1);
    break;
  case 4: 
    var mlev = 0;
    level = GetI(Traits,'Level');
    for (var ii = 1; ii <= 2; ++ii) {
      montag = Random(K.Monsters.length);
      m = K.Monsters[montag];
      l = StrToInt(Split(m,1));
      if ((ii == 1) || (Abs(l - level) < Abs(mlev - level))) {
        mlev = l;
        game.questmonster = m;
      }
    }
    caption = 'Placate ' + Definite(Split(game.questmonster,0),2);
    game.questmonster = '';  // We're trying to placate them, after all
    break;
  }
  Quests.Add(caption);
  
  Log('Commencing quest: ' + caption);

  SaveGame();
}

function toRoman(n) {
  if (!n) return "N";
  var s = "";
  function _rome(dn,ds) {
    if (n >= dn) {
      n -= dn;
      s += ds;
      return true;
    } else return false;
  }
  if (n < 0) {
    s = "-";
    n = -n;
  }
  while (_rome(1000,"M")) {0;}
  _rome(900,"CM");
  _rome(500,"D");
  _rome(400,"CD");
  while (_rome(100,"C")) {0;}
  _rome(90,"XC");
  _rome(50,"L");
  _rome(40,"XL");
  while (_rome(10,"X")) {0;}
  _rome(9,"IX");
  _rome(5,"V");
  _rome(4,"IV");
  while (_rome(1,"I")) {0;}
  return s;
}

function toArabic(s) {
  n = 0;
  s = s.toUpperCase();
  function _arab(ds,dn) {
    if (!Starts(s, ds)) return false;
    s = s.substr(ds.length);
    n += dn;
    return true;
  }
  while (_arab("M",1000)) {0;}
  _arab("CM",900);
  _arab("D",500);
  _arab("CD",400);
  while (_arab("C",100)) {0;}
  _arab("XC",90);
  _arab("L",50);
  _arab("XL",40);
  while (_arab("X",10)) {0;}
  _arab("IX",9);
  _arab("V",5);
  _arab("IV",4);
  while (_arab("I",1)) {0;}
  return n;
}

function CompleteAct() {
  Plots.rows().find("input:checkbox").attr("checked", "true");
  game.act += 1;
  PlotBar.reset(60 * 60 * (1 + 5 * game.act)); // 1 hr + 5/act
  while (Plots.length() > 99)
    Plots.remove(0);
  Plots.Add('Act ' + toRoman(game.act));

  WinItem();
  WinEquip();
  SaveGame();
  Brag('a');
}


function Log(line) {
  if (game.log)
    game.log[+new Date()] = line;
  // TODO: and now what?
}

function Task(caption, msec) {
  Kill.text(caption + '...');
  Log(Kill.text());
  game.kill = Kill.text();
  TaskBar.reset(msec);
}

function Add(list, key, value) {
  Put(list, key, value + GetI(list,key));

  /*$IFDEF LOGGING*/
  if (!value) return;
  var line = (value > 0) ? "Gained" : "Lost";
  if (key == 'Gold') {
    key = "gold piece";
    line = (value > 0) ? "Got paid" : "Spent";
  }
  if (value < 0) value = -value;
  line = line + ' ' + Indefinite(key, value);
  Log(line);
  /*$ENDIF*/
}

function AddR(list, key, value) {
  Put(list, key, toRoman(value + toArabic(Get(list,key))));
}

function Get(list, key) {
  var item = list.item(key);
  return item.children().last().text();
}

function GetI(list, key) {
  return StrToIntDef(Get(list,key), 0);
}

function Min(a,b) {
  return a < b ? a : b;
}

function Sum(list) {
  var result = 0;
  list.rows().each(function (index) {
    result += StrToInt($(this).children().last().text());
  });
  return result;
}

Number.prototype.div = function (divisor) {
  var dividend = this / divisor;
  return (dividend < 0 ? Math.ceil : Math.floor)(dividend);
};


function LevelUp() {
  Add(Traits,'Level',1);
  Add(Stats,'HP Max', GetI(Stats,'CON').div(3) + 1 + Random(4));
  Add(Stats,'MP Max', GetI(Stats,'INT').div(3) + 1 + Random(4));
  WinStat();
  WinStat();
  WinSpell();
  ExpBar.Position = 0;
  ExpBar.reset(LevelUpTime(GetI(Traits,'Level')));
  SaveGame();
  Brag('l');
}

function ClearAllSelections() {
  $.each(AllLists, function () {this.ClearSelection();});
}

function RoughTime(s) {
  if (s < 120) return s + ' seconds';
  else if (s < 60 * 120) return s.div(60) + ' minutes';
  else if (s < 60 * 60 * 48) return s.div(3600) + ' hours';
  else return s.div(3600 * 24) + ' days';
}

function Pos(needle, haystack) {
  return haystack.indexOf(needle) + 1;
}

function Timer1Timer() {
  if (TaskBar.done()) {
    ClearAllSelections();
      
    if (Kill.text() == 'Loading....') TaskBar.Max = 0;
      
    // gain XP / level up
    var gain = Pos('kill|', game.task) == 1;
    if (gain) {
      if (ExpBar.done()) 
        LevelUp();
      else 
        ExpBar.increment(TaskBar.Max / 1000);
    }

    // advance quest
    if (gain && game.act >= 1) {
      if (QuestBar.done() || !Quests.length()) {
        CompleteQuest();
      } else {
        QuestBar.increment(TaskBar.Max / 1000);
      }
    }
      
    // advance plot
    if (gain || !game.act) {
      if (PlotBar.done()) 
        InterplotCinematic();
      else 
        PlotBar.increment(TaskBar.Max / 1000);
    }
     
    Dequeue();
  } else {
    var elapsed = timeGetTime() - lasttick;
    if (elapsed > 100) elapsed = 100;
    if (elapsed < 0) elapsed = 0;
    TaskBar.increment(elapsed);
  }
  lasttick = timeGetTime();
}

function FormCreate() {
  ExpBar = new ProgressBar("ExpBar");
  PlotBar = new ProgressBar("PlotBar");
  TaskBar = new ProgressBar("TaskBar");
  QuestBar = new ProgressBar("QuestBar");
  EncumBar = new ProgressBar("EncumBar");

  AllBars = [ExpBar,PlotBar,TaskBar,QuestBar,EncumBar];

  $.each(AllBars, function (i,bar) { bar.reposition(0); });
  
  Traits = new ListBox("Traits", 2, true);
  Stats = new ListBox("Stats", 2, true);
  Spells = new ListBox("Spells", 2, false);
  Equips = new ListBox("Equips", 2, true);
  Inventory = new ListBox("Inventory", 2, false);
  Plots = new ListBox("Plots", 1);
  Quests = new ListBox("Quests", 1);

  AllLists = [Traits,Stats,Spells,Equips,Inventory,Plots,Quests];

  Kill = $("#Kill");

  $("#quit").click(function () {
    SaveGame();
    window.location = "roster.html";
  });

  LoadCharacter();

  $(document).keypress(FormKeyDown);
}


function LoadCharacter() {
  var result = true;
  var name = window.location.href.split('#')[1];
  var sheet = loadRoster()[name];

  if (!sheet.Traits) {
    // New game
    InitializeCharacter(sheet);
  } else {
    LoadGame(sheet);
  }

  $("#titlebar span").text("Progress Quest - " + GameSaveName());
}


function FormShow() {
  if (timerid) return;
  var done = false;
  var exportandexit = false;

  while (!done) {
    SetHostName('');
    SetHostAddr('');
    SetLogin('');
    SetPassword('');
    switch (FrontForm.ShowModal) {
    case mrOk: 
      done = RollCharacter;
      break;
    case mrRetry:
      // load
      if (FrontForm.OpenDialog1.Execute) {
        LoadGame(FrontForm.OpenDialog1.Filename);
        done = true;
      }
      break;
    case mrYesToAll: 
      done = ServerSelectForm.Go;
      break;
    case mrCancel:
      Close();
      done = true;
      break;
    }
  }
}


/*$IFDEF CHEATS*/
$(function() {
  function cheat(label, effect) {
    var b = $("<button/>");
    b.text(label);
    b.click(effect);
    b.appendTo('body');
  }

  cheat("Task", function () {
    TaskBar.reposition(TaskBar.Max);
  });

  cheat("Level", function () {
    LevelUp();
  });

  cheat("Quest", function () {
    QuestBar.reposition(QuestBar.Max);
    TaskBar.reposition(TaskBar.Max);
  });

  cheat("Plot", function () {
    PlotBar.reposition(PlotBar.Max);
    TaskBar.reposition(TaskBar.Max);
  });


  cheat("Pause", function () {
    if (timerid) {
      StopTimer();
    } else {
      StartTimer();
    }
  });

  cheat("Equip", function () {
    WinEquip();
  });

  cheat("Item", function () {
    WinItem();
  });

  cheat("Spell", function () {
    WinSpell();
  });

  cheat("Stat", function () {
    WinStat();
  });

  cheat("$$$", function () {
    Add(Inventory,'Gold',Random(100));
  });

  cheat("Save", SaveGame);

});
/*$ENDIF*/

function HotOrNot() {
  // Figure out which spell is best
  var flat = 1;  // Flattening constant
  var best = 0, i;
  for (i = 1; i < Spells.length(); ++i) {
    if ((i+flat) * toArabic(Get(Spells,i)) >
        (best+flat) * toArabic(Get(Spells,best)))
      best = i;
  }
  game.Spells.best = Spells.label(best) + ' ' + Get(Spells, best);

  /// And which stat is best?
  best = 0;
  for (i = 1; i <= 5; ++i) {
    if (GetI(Stats,i) > GetI(Stats,best)) 
      best = i;
  }
  game.Stats.best = Stats.label(best) + ' ' + GetI(Stats, best);
}


function SaveGame() {
  Log('Saving game: ' + GameSaveName());
  $.each(AllBars.concat(AllLists), function (i, e) { e.save(game); });
  HotOrNot();
  game.date = ''+new Date();
  game.stamp = +new Date();
  game.seed = randseed();
  return addToRoster(game);
}

function LoadGame(sheet) {
  game = sheet;
  randseed(game.seed);
  $.each(AllBars.concat(AllLists), function (i, e) { e.load(game); });
  Kill.text(game.kill);
  ClearAllSelections();
  $.each([Plots,Quests], function () {
    this.rows().find("input:checkbox").not(':last').attr("checked", "true");
  });
  Log('Loaded game: ' + name);
  StartTimer();
}

$(window).unload(function () {
  StopTimer();
  SaveGame();
});


function GameSaveName() {
  if (!game.saveName) {
    game.saveName = Get(Traits, 'Name');
    if (GetHostName())
      game.saveName += ' [' + GetHostName() + ']';
  }
  return game.saveName;
}


function InputBox(message, def) {
  var i = prompt(message, def || '');
  return (i !== null) ? i : def;
}

function FormKeyDown(e) {
  if (e.which == 13) { // ^M
    game.motto = InputBox('Declare your motto!', game.motto);
    // Brag('m');
    // Navigate(GetHostAddr + 'name=' + UrlEncode(Get(Traits,'Name')));
  }

  if (!GetPasskey()) return; // no need for these things

  if (e.which == 2) { // ^B
    //Brag('b');
    //Navigate(GetHostAddr + 'name=' + UrlEncode(Get(Traits,'Name')));
  }
  
  if (e.which == 7) { // ^G
    game.guild = InputBox('Choose a guild.\r\rMake sure you undestand the guild rules before you join one. To learn more about guilds, visit http://progressquest.com/guilds.php', game.guild);
    // Guildify();
  }

}

function Navigate(url) {
  window.open(url);
}

function LFSR(pt, salt) {
  var result = salt;
  for (var k = 1; k <= Length(pt); ++k)
    result = Ord(pt[k]) ^ (result << 1) ^ (1 && ((result >> 31) ^ (result >> 5)));
  for (var kk = 1; kk <= 10; ++kk)
    result = (result << 1) ^ (1 && ((result >> 31) ^ (result >> 5)));
}


function Brag(trigger) {
  /* TODO
  var flat = 1;
  if (GetPasskey() == 0) return; // not a online game!
  var url = 'cmd=b&t=' + trigger;
  with (Traits) for (i = 0; i <= Items.length()-1; ++i) 
    url = url + '&' + LowerCase(Items[i].Caption[1]) + '=' + UrlEncode(Items[i].Subitems[0]);
  url = url + '&x=' + IntToStr(ExpBar.Position);
  url = url + '&i=' + UrlEncode(game.Equips.best);
  var best = 0;
  if (Spells.length() > 0) with (Spells) {
    for (i = 1; i <= Items.length()-1; ++i)
      if ((i+flat) * RomanToInt(Get(Spells,i)) >
          (best+flat) * RomanToInt(Get(Spells,best)))
        best = i;
    url = url + '&z=' + UrlEncode(Items[best].Caption + ' ' + Get(Spells,best));
  }
  best = 0;
  for (var i = 1; i <= 5; ++i)
    if (GetI(Stats,i) > GetI(Stats,best)) best = i;
  url = url + '&k=' + Stats[best].Caption + '+' + Get(Stats,best);
  url = url + '&a=' + UrlEncode(Plots.last().text());
  url = url + '&h=' + UrlEncode(GetHostName());
  url = url + RevString;
  url = url + '&p=' + IntToStr(LFSR(url, GetPasskey()));
  url = url + '&m=' + UrlEncode(GetMotto);
  url = AuthenticateUrl(GetHostAddr + url);
  try {
    body = DownloadString(url);
    if ((LowerCase(Split(body,0)) == 'report'))
      ShowMessage(Split(body,1));
  } catch (EWebError) {
    // 'ats okay.
  }
  */
}

function TMainForm_AuthenticateUrl(url) {
  if ((GetLogin()) || (GetPassword()))
    return StuffString(url, 8, 0, GetLogin()+':'+GetPassword()+'@');
  else
    return url;
}

function TMainForm_Guildify() {
  if (!GetPasskey()) return; // not a online game!
  var url = 'cmd=guild';
  for (i = 0; i < Traits.length(); ++i)
    url = url + '&' + LowerCase(Traits[i].Caption[1]) + '=' + UrlEncode(Traits[i].Subitems[0]);
  url = url + '&h=' + UrlEncode(GetHostName());
  url = url + RevString;
  url = url + '&guild=' + UrlEncode(GetGuild());
  url = url + '&p=' + IntToStr(LFSR(url, GetPasskey()));
  url = AuthenticateUrl(GetHostAddr() + url);
  try {
    b = DownloadString(url);
    s = Take(b);
    if (s) ShowMessage(s);
    s = Take(b);
    if (s) Navigate(s);
  } catch (EWebError) {
    // 'ats okay.
    Abort();
  }
}