ProgressQuest-web/pq.js

String.prototype.prefix = function(s) {
  return 0 == this.indexOf(s);
}

String.prototype.pluralize = function() {
  if (this.suffixed("y"))   return this.shorten(1) + "ies";
  if (strsuffix(s,"us"))  return shorten(s,2) + "i";
  if (strsuffix(s,"um"))  return shorten(s,2) + "a";
  if (strsuffix(s,"a"))   return shorten(s,2) + "ae";
  if (strsuffix(s,"ch"))  return s + "es";
  if (strsuffix(s,"x"))   return s + "es";
  if (strsuffix(s,"s"))   return s + "es";
  if (strsuffix(s,"f"))   return shorten(s,1) + "ves";
  if (strsuffix(s,"man")) return shorten(s,2) + "en";
  if (strsuffix(s,"Man")) return shorten(s,2) + "en";
  return s + "s";
}

String.prototype.indefinitite = function(qty) {
  if (qty > 1)
    return qty + " " + this.pluralize();
  else if (s.match(/[AEIOUÜaeiouü]/))
    return "an " + this;
  else 
    return "a " + this;
}

String.prototype.definite = function(qty) {
  return "the " + ((qty > 1) ? this.pluralize : this);
}

Number.prototype.toRoman = function() {
  n = this;
  if (n == 0) 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")) {}
  _rome(900,"CM");
  _rome(500,"D");
  _rome(400,"CD");
  while (_rome(100,"C")) {}
  _rome(90,"XC");
  _rome(50,"L");
  _rome(40,"XL");
  while (_rome(10,"X")) {}
  _rome(9,"IX");
  _rome(5,"V");
  _rome(4,"IV");
  while (_rome(1,"I")) {}
  return s;
}

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


// actual pq stuff

function get(id) {
  return document.getElementById(id);
}

function level() {
  return get("level").value.toInteger();
}

function equipPrice() {
  // how much things cost
  return (level() * 5) * (level() + 2) + 20;
}
  
function odds(chance,outof) {
  return random(chance) > outof;
}

function winStat() {
  var stat;
  var nstats = get("stats").length;
  if (odds(1,2)) {
    stat = random(nstats);
  }
  else {
    var i, sum = 0;
    for (i = 0; i < nstats; ++i) {
      var t = get("stats",i);
      get += t * t;
    }
    sum = random(sum);
    for (i = 0; i < nstats; ++i) {
      var t = get("stats",i);
      sum -= t * t;
      if (sum <= 0) break;
    }
    stat = i;
  }
  putplus("stats",stat,1);
  updateEncumbrance();
}

function randomLow(below) {
  return min(rand(below), rand(below));
}

function winSpell() {
  var spell;
  if (odds(1,2) && item("spells").count()) {
    // choose from existing spells
    spell = item("spells").pick();
  } 
  else {
    var max = min(kspells.count, stats.WIS + traits.level);
    spell = kspells[randomLow(max)];
  }
  # ...  MainForm.Spells,indexintoSpells
  spells[spell] = roman(arabic(spells[spell]) + 1)
} 

function level() {
  return traits.Level;
}

function winSkills() {
  for {int i = max(1,sqrt(stats.DEX)) + 3; i > 0; --i)
    winSkill();
}

function winSkill() { 
  var max = (level() + 3) / 2;
  var skill = (random(max) + random(max)) / 2;
  if (skill >= skills.count)
    skill = kskills[skill];
  else
    skill = skills[skill];
  skills[skill] = (skills[skill].truncate(-1) + 1) + "%";
}

WinEquip {
  MainForm.Equips Count GET RANDOM
  bestequip 1 PEEK STORE # remember as the "best item"
  (DUP) {
    (1 EQUAL) KShields KArmors IFELSE
    KDefense
    SWAP
  } {    
    DISCARD
    KOffense
    KWeapons
  } IFELSE
  # ... listtype,stuff

    (DUP Count GET) 
    1 PEEK " SWAP GET 1 ELEMENT '" CONCAT 
           (MainForm.Traits Level BYNAME GET) CONCAT
                  "' SUB @Abs NEGATE" CONCAT
    5
  @PickBest

  GET # ... listtype,itemrecord
  DUP 1 ELEMENT # ... listtype,itemrecord,quality
  MainForm.Traits Level BYNAME GET SWAP SUB # ... listtype,itemrecord,qualitydifference
  SWAP HEAD SWAP # ... listtype,name,qualitydifference
  (DUP NEGATIVE) {Bad} {Attrib} IFELSE # ... listtype,name,qualitydiff,Attrib/Bad

  3 LIFT SWAP CONCAT 2 DROP # ... attriblist,name,qualitydiff
  2 {
    DUP UNLESS
    2 PEEK @Pick
    (DUP HEAD) # ... attriblist,name,qualitydiff,atribrec,modifier
    (3 PEEK 1 PEEK STRSTR) {DISCARD DISCARD BREAK} IF # allow no repeats
    SWAP 1 ELEMENT # ... attriblist,name,qualitydiff,modifier,delta
    # make sure not too much of an improvement
    (DUP @Abs) (3 PEEK @Abs) GREATER {DISCARD DISCARD BREAK} IF 
    SWAP ' ' CONCAT 3 LIFT CONCAT
    2 DROP SUB 
  } REPEAT
  DUP POSITIVE {+ SWAP CONCAT} IF
  DUP {' ' CONCAT SWAP CONCAT} {DISCARD} IFELSE
  MainForm.Equips ($bestequip 1 JOIN)  PUT
  DISCARD
} STORE


# Time to level up in seconds
LevelUpTime { # ... level
  DUP 10 ADD MUL 10 ADD # ... level^2 + 10 level + 10 minutes
  60 MUL # seconds
} STORE


# Give level-up rewards
LevelUp { # ...  => ... 
  # increment level
  1 MainForm.Traits Level BYNAME PUT+

  # Boost HP
    MainForm.Stats 'CON' BYNAME GET 3 DIV 1 ADD 4 RANDOM ADD
    MainForm.Stats
    'HP Max'
  BYNAME PUT+

  # Boost MP
    MainForm.Stats 'INT' BYNAME GET 3 DIV 1 ADD 4 RANDOM ADD
    MainForm.Stats
    'MP Max'
  BYNAME PUT+

  # Boost stats
  2 { @WinStat } REPEAT

  # Boost spell
  @WinSpell

  # Boost skills
  @WinSkills

  # Reset XP bar
  0 MainForm.ExpBar Position PUT
  ((MainForm.Traits Level BYNAME GET) @LevelUpTime) MainForm.ExpBar Max PUT

  @SaveGame
  #l Brag INVOKE
} STORE


SaveGame { MainForm.Save OnClick INVOKE } STORE


function goBuy() {
  task(5000,'Negotiating purchase of better equipment');
  q("buyEquipment()");
}

function buyEquipment () {
  inventory['Gold'] = inventory['Gold'] - equipPrice();
  winEquip();
}

function goSell() {
  task(1000, 'Selling ' + indefinite(inventory[1],inventory[inventory[1]]));
  q("sell()");
}

function sell() {
  MainForm.Inventory 1 GET SPLIT # ... item qty
  MainForm.Traits Level BYNAME GET MUL # ... item qty*level
  SWAP ' of ' STRSTR STRLEN {10 @RandomLow 1 ADD MUL
                             MainForm.Traits Level BYNAME GET 1 ADD MUL} IF
  # ... value
  MainForm.Inventory Gold BYNAME PUT+
  1 MainForm.Inventory Delete INVOKE
  @UpdateEncumbrance
}


GoNegotiate {
  (MainForm.Inventory Gold BYNAME GET) @EquipPrice GREATER {
    @GoBuy
    RETURN
  } IF
    
  (MainForm.Inventory Count GET) 1 GREATER {
    @GoSell
    RETURN
  } IF

  @GoToKillingFields
} STORE

GoToKillingFields {
  4000 'Heading to the killing fields' @Task
  {atKillingFields? TRUE STORE} @Q
} STORE

GoToMarket {
  4000 'Heading to market to sell loot' @Task
  {atKillingFields? FALSE STORE} @Q
} STORE

GoDoSomething {
  (atKillingFields? FETCH) {
    @Overburdened? {@GoToMarket} {@GoKillSomething} IFELSE
  }{
    @GoNegotiate
  } IFELSE
} STORE


MonsterBooty { # ... monsterrec => booty
  DUP 2 ELEMENT # ... monsterrec item 
  (DUP * STREQ) {
    DISCARD DISCARD
    @PickSpecialItem 
  } {
    DUP STRLEN NOT {DISCARD 'pelt'} IF # fallback if we screw up
    SWAP HEAD ' ' CONCAT SWAP CONCAT
    @LowerCase
  } IFELSE # ... booty
} STORE


RandSign { 
  2 RANDOM 2 MUL 1 SUB
} STORE


# apply some scattering in proportion to size of the number
Scatter {
  DUP {2 5 @Odds {@RandSign ADD} IF} REPEAT
} STORE


GoKillSomething {
  (MainForm.Traits Level BYNAME GET) 
  @Scatter 1 MAX
  # ... puissance (somewhere near player's level)
  
  DUP @PickEnemy
  # ... puissance monsterrec

  DUP2 @DescribeMonster
  # ... puissance monsterrec monsterdesc

  $gamestyle 2 MUL 
                (MainForm.Traits Level BYNAME GET) MUL
                                     1000 MUL
                                   3 LIFT DIV
  # ... monsterrec monsterdesc msec
  # ... {Beast|5|wallet} {Sick beast} 1000

  # note qty
  1 PEEK DUP ' ' STRPOS TRUNCATE 1 MAX 3 DROP 

  # ... qty monsterrec monsterdesc msec
  'Executing ' 2 LIFT CONCAT @Task

  {@GainXP} @Q

  # ... qty monsterrec
  @MonsterBooty QUOTE SWAP
  "%s MainForm.Inventory %s BYNAME PUT+ @UpdateEncumbrance" STRFORMAT @Q
  
} STORE

SUBSTR? { @@
  STRSTR STRLEN
} STORE


# recursive, so really this is for shit
# ... aN .. a1 fmtstring STRFORMAT => ... formattedstring
STRFORMAT { @@
  {
    DUP "%s" STRPOS NEGATIVE {BREAK} IF
    "%s" 2 LIFT STRREPLACE
  } LOOP
} STORE

GoLevelUp {
  2000 MainForm.Traits Level BYNAME GET
       'Say goodbye to Level %s! Leveling up' STRFORMAT @Task
  {@LevelUp} @Q
} STORE

# ... progbar @Bar% => %complete
Bar% {
  DUP Position GET 100 MUL SWAP Max GET DIV "%" CONCAT
} STORE  

GainXP {
  # move bar and/or level up
  MainForm.ExpBar @BarFull? {
    0 MainForm.ExpBar Position PUT 
    {@GoLevelUp} @Q
  }{
    ((MainForm.TaskBar Max GET) 1000 DIV) MainForm.ExpBar Position PUT+
  } IFELSE
  (MainForm.ExpBar Max GET MainForm.ExpBar Position GET SUB) 
    '%s XP needed for next level' STRFORMAT
    MainForm.ExpBar Hint PUT

  # advance quest
  (MainForm.Plots Count GET) 1 GREATER {
    (MainForm.QuestBar @BarFull?) {
      @OnCompleteQuest
    }{
      MainForm.Quests Count GET POSITIVE {
        (MainForm.TaskBar Max GET 1000 DIV) MainForm.QuestBar Position PUT+
	(MainForm.QuestBar @Bar% ' complete' CONCAT) MainForm.QuestBar Hint PUT
      } IF
    } IFELSE
  } IF

} STORE


Q { # ... script
  MainForm.Queue Append INVOKE
} STORE


Task { # ... msec,caption
  '...' CONCAT MainForm.Kill SimpleText PUT
  0 MainForm.TaskBar Position PUT
  MainForm.TaskBar Max PUT 
} STORE


# ... bar => full?
BarFull? {
  DUP Position GET
  SWAP Max GET
  GREATEROREQUAL
} STORE

TaskDone? { 
  MainForm.TaskBar @BarFull?
} STORE

Overburdened? {
  MainForm.EncumBar @BarFull?
} STORE


UpdateEncumbrance {
  ((MainForm.Stats "STR" BYNAME GET) 10 ADD) MainForm.EncumBar Max PUT
  0
  (MainForm.Inventory Count GET 1 SUB) {
    MainForm.Inventory (COUNTER 1 ADD 1 JOIN) GET
    ADD
  } REPEAT
  DUP MainForm.EncumBar Position PUT
  # ... encumbrance
  (MainForm.EncumBar Max GET) SWAP '%s/%s cubits' STRFORMAT
  MainForm.EncumBar Hint PUT
} STORE


Dequeue {
  {
    @TaskDone? UNLESS

    MainForm.Queue Count GET {
      MainForm.Queue 0 GET
      (0 MainForm.Queue Delete INVOKE)
      EVALUATE
    } {
      @GoDoSomething
      @TaskDone? {'Error in queue' !!} IF
    } IFELSE
  } LOOP
} STORE


# bar => bar.max-bar.pos
Remaining {
  DUP Max GET SWAP Position GET SUB
} STORE


# seconds => approxdescription
RoughTime {
  (DUP 120 LESS)         {' seconds' CONCAT RETURN} IF
  (DUP 60 120 MUL LESS)  {60 DIV ' minutes' CONCAT RETURN} IF
  (DUP 3600 48 MUL LESS) {3600 DIV ' hours' CONCAT RETURN} IF
  3600 24 MUL DIV ' days' CONCAT  
} STORE


OnCompleteAct {
  0 MainForm.PlotBar Position PUT
  (MainForm.Plots Count GET 1 SUB) MainForm.Plots Check INVOKE
  # 1 hr + 5 hrs per act
  (MainForm.Plots Count GET 5 MUL 1 ADD 3600 MUL) MainForm.PlotBar Max PUT
  'Cutscene omitted' MainForm.PlotBar Hint PUT
  'Act ' MainForm.Plots Count GET @Roman CONCAT MainForm.Plots Append INVOKE
  @SaveGame
  #a Game Brag INVOKE
} STORE

MainForm.Timer1.OnTick { 
  (MainForm.TaskBar @BarFull?) {
    @ClearSelections

    # advance the plot
    MainForm.PlotBar @BarFull? {
      @OnCompleteAct
    }{
      (MainForm.TaskBar Max GET 1000 DIV) MainForm.PlotBar Position PUT+
    } IFELSE
    (MainForm.PlotBar @Remaining @RoughTime) ' remaining' CONCAT MainForm.PlotBar Hint PUT

    # fuel the task bar
    @Dequeue
  }{
    # advance the main progress bar
    TIME lasttimertime FETCH SUB # elapsed time
    (MainForm.Timer1 Interval GET) MIN 0 MAX # keep it in bounds
    MainForm.TaskBar Position PUT+
  } IFELSE


  lasttimertime TIME STORE
} STORE


Abs {
  DUP NEGATIVE {NEGATE} IF
} STORE

Closer { # ... goal,n1,n2
  2 PEEK SUB @Abs 2 DROP
  SUB @Abs GREATER
} STORE


Swap2 { # ... a,b,c,d => ... c,d,a,b
  3 LIFT 3 LIFT
} STORE

PickBest { # ... count,valuescript,tries
  0 SWAP 0 SWAP { # ... count,valuescript,besti,valbesti
    3 PEEK RANDOM # ... count,valuescript,besti,valbesti,i
    DUP 4 PEEK EVALUATE # ... count,valuescript,besti,valbesti,i,vali
    ((DUP 3 PEEK GREATER) (COUNTER NOT) OR) {@Swap2} IF 
    DISCARD DISCARD 
  } REPEAT
  DISCARD SWAP DISCARD SWAP DISCARD
} STORE

monsters.pqs INCLUDE

# ... nearlevel tries => monsterrec
PickMonster { 
  SWAP goal LET
  ?|-99999|? best LET
  { 
    KMonsters DUP Count GET RANDOM GET
      goal FETCH
      1 PEEK 1 ELEMENT
      best FETCH 1 ELEMENT 
    @Closer {best LET} {DISCARD} IFELSE
  } REPEAT
  best FETCH
} STORE


OnCompleteQuest {
  # reset quest bar
  0 MainForm.QuestBar Position PUT
  (50 100 RANDOM ADD) MainForm.QuestBar Max PUT

  # complete last quest
  (MainForm.Quests Count GET POSITIVE) {
    # check it off
    ((MainForm.Quests Count GET) 1 SUB) MainForm.Quests Check INVOKE 
    # random reward
    WinSkill WinSpell WinEquip WinStat WinItem 5 5 RANDOM @JumpTable
  } IF

  # limit size of quests thing
  (MainForm.Quests Count GET 99 GREATER) {
    0 MainForm.Quests Delete INVOKE
  } IF

  # add a new quest
  questMonster '' STORE
  { # 4
    (MainForm.Traits Level BYNAME GET) 8 @PickMonster
    questMonster 1 PEEK STORE
    ('Exterminate ' SWAP HEAD 2 @Definite CONCAT) MainForm.Quests Append INVOKE
  } { # 3
    ('Seek ' @PickInterestingItem 1 @Definite CONCAT) MainForm.Quests Append INVOKE
  } { # 2
    ('Deliver this ' @PickBoringItem CONCAT) MainForm.Quests Append INVOKE
  } { # 1
    ('Fetch me ' @PickBoringItem 1 @Indefinite CONCAT) MainForm.Quests Append INVOKE
  } { # 0
    (MainForm.Traits Level BYNAME GET) 2 @PickMonster
    ('Placate ' SWAP HEAD 2 @Definite CONCAT) MainForm.Quests Append INVOKE
  } 5 5 RANDOM @JumpTable

  @SaveGame
} STORE


JumpTable { # ... sN,...,s0,N,I
  1 ADD LIFT SWAP DUP # ... sN,...,s0,sI,N,N
  2 DROP DROP # ... sI,sN,...,s0,N
  (1 SUB) {DISCARD} REPEAT # ... sI
  EVALUATE
} STORE

CheatCashIn {
  @WinEquip @WinItem @WinSpell @WinSkill @WinStat
  100 RANDOM MainForm.Inventory Gold BYNAME PUT+
} STORE

CheatFinishQuest {
  (MainForm.QuestBar Max GET) MainForm.QuestBar Position PUT
  (MainForm.TaskBar Max GET) MainForm.TaskBar Position PUT
} STORE

CheatFinishPlot {
  (MainForm.PlotBar Max GET) MainForm.PlotBar Position PUT
  (MainForm.TaskBar Max GET) MainForm.TaskBar Position PUT
} STORE

ClearBars {
  MARK QuestBar PlotBar TaskBar ExpBar EncumBar COUNT
  { 0 SWAP MainForm. SWAP CONCAT Position PUT } REPEAT
} STORE 

ClearSelections {
    MARK
  Equips
  Spells
  Stats
  Traits
  Inventory
  Plots
  Quests
  Skills
   COUNT
  {MainForm. SWAP CONCAT ClearSelection INVOKE} REPEAT
} STORE

Pick { # ... list
  DUP Count GET RANDOM GET
} STORE

PickBoringItem {
  KBoringItems @Pick
} STORE

PickInterestingItem {
  KItemAttrib @Pick 
  " " CONCAT
  KSpecials @Pick CONCAT
} STORE

PickSpecialItem {
  @PickInterestingItem
  " of " CONCAT
  KItemOfs @Pick CONCAT
} STORE

WinItem {
  1 MainForm.Inventory @PickSpecialItem BYNAME PUT+
  @UpdateEncumbrance
} STORE

MARK { @@
  STACKSIZE _mark SWAP STORE
} STORE

COUNT { @@
  STACKSIZE _mark FETCH SUB
} STORE


egghunt.pqs INCLUDE

ReadNewGuyForm {
  (NewGuyForm.Name Text GET) MainForm.Traits Name BYNAME PUT
  (NewGuyForm.Race (DUP ItemIndex GET) GET) MainForm.Traits Race BYNAME PUT
  (NewGuyForm.Klass (DUP ItemIndex GET) GET) MainForm.Traits Class BYNAME PUT
  MARK "STR" "CON" "DEX" "INT" "WIS" "CHA" 
  COUNT 
    {DUP NewGuyForm. SWAP CONCAT Caption GET SWAP MainForm.Stats SWAP BYNAME PUT} REPEAT
} STORE

ShowFrontForm {
  hostname "" STORE
  hostaddr "" STORE
  login "" STORE
  password "" STORE
  TRUE FrontForm Visible PUT
  FALSE MainForm Visible PUT
} STORE

PickElement {
  DUP LEN RANDOM ELEMENT
} STORE

GenerateName {
  2 {
    br|cr|dr|fr|gr|j|kr|l|m|n|pr||||r|sh|tr|v|wh|x|y|z @PickElement
    a|a|e|e|i|i|o|o|u|u|ae|ie|oo|ou @PickElement
    b|ck|d|g|k|m|n|p|t|v|x|z @PickElement
    CONCAT CONCAT
  } REPEAT
  CONCAT
  @ProperCase
} STORE


InitApp {
  TIME SRAND
  InitApp {NOOP} STORE # make sure this is called but once
  
  ARGC 1 GREATER {
    1 ARGV LoadGame
    #TRUE MainForm Visible PUT
    RETURN
  } IF

  @ShowFrontForm
} STORE

FrontForm.PlaySingle.OnClick {
  @LaunchWizard
} STORE

FrontForm.PlayOnline.OnClick {
  @LaunchServerSelect
} STORE

FrontForm.LoadGame.OnClick {
  MainForm.ShowLoadDialog OnClick INVOKE
  MainForm.Load OnClick INVOKE
} STORE

FrontForm.Exit.OnClick {
  FrontForm Close INVOKE
} STORE

PrepEquips {
  MainForm.Equips Clear INVOKE
  MARK
Weapon
Shield
Helm
Hauberk
Brassairts
Vambraces
Gauntlets
Gambeson
Cuisses
Greaves
Sollerets
  COUNT {0 MainForm.Equips Insert INVOKE} REPEAT
} STORE

InitNewGame {
  Queue MainForm.Panel1 CreateList INVOKE

  @ClearBars
  @PrepGameConstants
  @ReadNewGuyForm

  1 MainForm.Traits Level BYNAME PUT
  
  (8 RANDOM (MainForm.Stats "INT" BYNAME GET) 6 DIV ADD) MainForm.Stats 'HP Max' BYNAME PUT
  (8 RANDOM (MainForm.Stats "CON" BYNAME GET) 6 DIV ADD) MainForm.Stats 'MP Max' BYNAME PUT

  @PrepEquips
  'Sharp Stick' MainForm.Equips Weapon BYNAME PUT
  0 MainForm.Inventory Gold BYNAME PUT
  gamestyle 3 STORE

  @WinSkills

  @ClearSelections

  0 MainForm.ExpBar Position PUT
  (1 @LevelUpTime) MainForm.ExpBar Max PUT

  2000 Loading. @Task # that dot is spotted for later...
  { 10000 "Experiencing an enigmatic and foreboding night vision" @Task } @Q
  {  6000 "Much is revealed about that wise old bastard you'd underestimated" @Task } @Q
  {  6000 "A shocking series of events leaves you alone and bewildered, but resolute" @Task } @Q
  {  4000 "Drawing upon an unexpected reserve of determination, you set out on a long and dangerous journey" @Task } @Q
  {  2000 Loading @Task } @Q

  26 MainForm.PlotBar Max PUT
  "Prologue" MainForm.Plots Append INVOKE
  TRUE MainForm.Timer1 Enabled PUT

  @SaveGame
} STORE


# ... key => ...
OnKey {
  $passkey NOT {DISCARD RETURN} IF
  DUP ^b STREQ {
    'b' @Brag
    @GetHostAddr 'name=' CONCAT MainForm.Traits Name BYNAME GET @UrlEncode CONCAT 
      NAVIGATE
  } IF
  DUP ^m STREQ {
    'Progress Quest' 'Declare you motto!' @GetMottot @InputBox
    @SetMotto
    m @Brag
    @GetHostAddr 'name=' CONCAT MainForm.Traits Name BYNAME GET @UrlEncode CONCAT 
      NAVIGATE
  } IF
  DUP ^g STREQ {
    'Progress Quest' 'Choose a guild,!' @GetGuild @InputBox
    @SetGuild
    m @Guildify
    @GetHostAddr 'name=' CONCAT MainForm.Traits Name BYNAME GET @UrlEncode CONCAT 
      NAVIGATE
  } IF
  DISCARD
} STORE
 
{
www.progressquest.com 80 CONNECT
DUP "GET /hilly.php?c=brag&stuff=etc HTTP/1.0" EOL+ SEND
DUP "User-Agent: pqscript" EOL+ SEND
DUP "" EOL+ SEND
DUP RECEIVEHEADERS 
DISCONNECT
} DISCARD


# ... x => (x << 1) ^ (x >> 31 ^ x >> 5 & 1)
StepLFSR {
  DUP 1 SHL 
  SWAP DUP 5 SHR SWAP 31 SHR BITWISEXOR BITWISEAND
  BITWISEXOR
} STORE

# ... string salt => ... number
RunLFSR {
  {
    1 PEEK STRLEN NOT {SWAP DISCARD BREAK} IF
    @StepLFSR
    SWAP DUP 1 DECAPITIATE 2 DROP
    1 TRUNCATE ORD BITXOR
  } LOOP 
  SWAP DISCARD
  10 {@FeedbackShift} REPEAT
} STORE


GetBestSpell {      
  '' best LET
  MainForm.Spells Count GET 2 SUB {
    MainForm.Spells COUNTER GET CONUNTER JOIN @SpellScore
    best FETCH @SpellScore
    GREATER {MainForm.Spells COUNTER GET COUNTER JOIN best LET} IF
  }
  best FETCH 0|1 ELEMENTS JOIN
} STORE

# ... spell|level|index => greatnessscore
SpellScore {
  1|2 ELEMENTS 1 ADD SWAP @Arabic MUL
} STORE


GetBestStat {
  '' best LET
  MainForm.Stats Count GET {
    MainForm.Stats COUNTER 1 JOIN GET
    best FETCH TAIL
    GREATER {MainForm.Stats COUNTER GET best LET} IF
  }
  best FETCH
} STORE

# ... trigger => ... url
BragURL {
  'cmd=b&t=' SWAP CONCAT
  (MainForm.Traits Count GET) {
    '&' CONCAT
    MainForm.Traits COUNTER 0 JOIN GET 1 TRUNCATE LOWERCASE CONCAT
    '=' CONCAT
    MainForm.Traits COUNTER 1 JOIN GET @UrlEncode CONCAT
  } REPEAT
  '&x=' CONCAT MainForm.ExpBar Position GET CONCAT

  '&i=' CONCAT MainForm.Equips $bestequip 1 JOIN GET @UrlEncode CONCAT
  ($bestequip 1 GREATER) {
    + CONCAT
    MainForm.Equips $bestequip 0 JOIN GET CONCAT
  } IF

  '&z=' CONCAT 
  @GetBestSpell SPLIT '+' SWAP CONCAT CONCAT CONCAT

  '&k=' CONCAT 
  @GetBestStat SPLIT '+' SWAP CONCAT CONCAT CONCAT

  '&a=' CONCAT MainForm.Plots (DUP Count 1 SUB) GET @UrlEncode CONCAT
  '&h=' CONCAT @GetHostName @UrlEncode CONCAT
  @RevString CONCAT
  DUP $passkey @RunLFSR '&p=' SWAP CONCAT CONCAT
  '&m=' CONCAT @GetMotto CONCAT
  @GetHostAddr SWAP CONCAT
} STORE


GuildURL {
  'cmd=guild'
  MainForm.Traits Count GET {
    MainForm.Traits COUNTER GET 0|1 ELEMENTS
    @UrlEncode SWAP @LowerCase
    '&%s=%s' STRFORMAT CONCAT
  } REPEAT
  &h= CONCAT @GetHostName CONCAT
  @GetRevString CONCAT
  &guild= CONCAT GetGuild CONCAT
  DUP $passkey @RunLFSR &p= SWAP CONCAT CONCAT 
  @GetHostAddr SWAP CONCAT
} STORE

Guildify {
  @GuildURL
  login FETCH
  password FETCH
  DOWNLOAD {
    1|0 ELEMENTS
    DUP STRLEN {App Alert INVOKE} {DISCARD} IFELSE
    DUP STRLEN {App Navigate INVOKE} {DISCARD} IFELSE
  } IF
} STORE


*/