menu * {
  RuneQuest
  .Runequest:/RQ
  .End RuneQuest:/endRQ
  .Mod Panel
  .Add-ons
  .RQ Forums:/run iexplore.exe http://z3.invisionfree.com/RuneQuest_Forums/index.php?
  .Credits
  .Commands:/helprq
  .Help
}

;Runequest Version2
/*
Comments go here
*/
;ABSOLUTLY DO NOT EDIT THIS SECTION!
;made by Couch
alias Loadrq {
  window -adpk0Bf +l @Loading 500 412 250 20
  clear @Loading
  both 0 $iif($($1,2) isnum,$v1)
}

alias -l both {
  if (!$window(@Loading)) halt
  var %f = $iif($2 isnum,$2,$rgb(200,155,230))
  ;that color is red(00070365)
  ;for blue use:  1000000000000000
  ;for green use:  22222222222222222222
  drawLoadbar -lp @Loading %f -1 0 252 13 $1
  if ($1 <= 100) { .timerBoth -m 1 50 both $calc($1 + 1) %f | halt }
  else .timerBoth -m 1 200 both 0 %f
}
on *:LOAD: {
  ;Variables & Files that are created
  /write rq_monsters.txt 2
  /write rq_monsters.txt Evil Chicken
  /write rq_monsters.txt M. Hyde
  ;--
  ;This creates the loading bar
  window -adpk0Bf +b @Installing 500 412 250 13
  clear @Installing
  int 0 $iif($($1,2) isnum,$v1)
  ;--
}
;:;:;:;:;
alias -l int {
  if (!$window(@Installing)) halt
  var %f = $iif($2 isnum,$2,1000000000000000)
  drawLoadbar -lp @Installing %f -1 0 251 13 $1
  if ($1 <= 100) { .timerint -m 1 50 int $calc($1 + 1) %f | halt }
  if ($1 >= 100) { /window -c @Installing }
}

:::::::LoadBar
alias drawLoadbar {
  var %err = //echo $color(info) -a * $iif($isid,$chr(36),/) $+ Loading Bar Invalid Parameters.
  tokenize 32 $remove($1-,$chr(37))
  if (-* iswm $1) { var %switch = $1 | tokenize 32 $2- }
  if (!$5) { %err | halt }
  if ($2 isnum) var %col = $rgb($2)
  var %win = $1,%x = $3,%y = $4,%w = $5,%h = $6,%p = $iif($7 >= 99.4,99.4,$iif($7,$7,0))
  if (!%col) { %err | halt }
  var %b = $iif(%w >= %h,%W,%H),%v = $iif(%w >= %h,%H,%W),%c = $iif(%w >= %h,%x,%y),%n = $iif(%w >= %h,%y,%x),%q = 1
  while (%q <= 3) {
    if ($gettok(%col,%q,44) > 256) { %err | goto done }
    inc %q
  }
  drawline -rn %win $rgb(178,178,178) 1 $calc(%c + 1) $calc(%n -1) $calc(%c + (%b -1)) $calc(%n -1)
  drawline -rn %win $rgb(178,178,178) 1 $calc(%c + 1) $calc(%n + %v) $calc(%c + (%b -1)) $calc(%n + %v)
  drawline -rn %win $rgb(178,178,178) 1 %c %n %c $calc(%n + %v)
  drawline -rn %win $rgb(178,178,178) 1 $calc(%c + %b -1) %n $calc(%c + %b -1) $calc(%n + %v)
  var %o = 1,%1 = 243
  while (%o <= %v) {
    drawline -rn %win $rgb(%1,%1,%1) 1 $calc(%c +1) $calc(%n + %o -1) $calc(%c + %b -1) $calc(%n + %o -1)
    dec %1 5
    inc %o
  }
  var %per = $calc((%p /100) * %b), %g = 1, %1 = $gettok(%col,1,44), %2 = $gettok(%col,2,44), %3 = $gettok(%col,3,44)
  while (%g <= %v) {
    drawline -rn %win $rgb($iif(%1 > 0,%1,0),$iif(%2 > 0,%2,0),$iif(%3 > 0,%3,0)) 1 $calc(%c +1) $calc(%n + %g -1) $calc(%c + %per +1) $calc(%n + %g -1)
    dec %1 5
    dec %2 5
    dec %3 5
    inc %g
  }
  if (*l* iswm %switch) drawtext -rn %win $rgb(250,250,250) Tahoma 9 $calc(%c + 3)    $calc(%n +1) $iif($ceil(%p) >= 100,Load Complete.,Loading $str(.,$and(3,%p)))
  if (*p* iswm %switch) drawtext -rn %win $rgb(250,250,250) Tahoma 9 $calc(%b /2 - 5) $calc(%n +1) $+($ceil(%p),$chr(37))
  drawdot %win
  :done
}
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;;;
alias helprq {
  echo Commands:
  echo /RuneQuest -- Starts a game of RuneQuest
  echo /HelpRQ -- Displays this message
  echo /RQCredits -- Displays the Credits
  echo /EndRQ -- Ends the current game of RuneQuest
  echo /Challenge <Monster> -- Challenges a monster :|: If you type /challenge list you can get the list for all the challengable monsters.
  echo /Attack -- Hit or take a hit from the current monster your fighting
  echo /Eat <Food> -- Eats one of the food that you have
  echo --
  echo 4 *Note Changing the script may result in its failure. Please Don't Leech.
  echo 0 -
  echo Made By 11Hang um High 4and 9Foshizzle
  echo 0 -
  echo  Please feel free to come to #HelpRuneQuest or #RuneQuest if you have anything you need to ask,know,etc. or just have feedback.
}
alias endrq {
  /echo -m Ending RuneQuest... Please wait...
  /unset %rq.*
  /unset %rq
  /echo 3 -m RuneQuest Sucsessfully Ended.
}
;RuneQuest2 Startup:

alias RuneQuest {
  if (%RQ == active) { echo 4 -m Your Already Playing RuneQuest! | halt }
  /set %RQ active
  /inc %rqgames
  /echo -m RuneQuest Version 2.20
  /echo -m :::::::
  /echo -m :By
  /echo -m :F $+ $chr(111) $+ shiz$&
    $+ $chr(122) $+ le    
  /echo -m :and
  /echo -m :Hang_um_High
  /echo -m :::::::
  /echo -m Type /helprunequest for the commands
  /echo 5 -a Game Started At $asctime(hh:mm:ss) $asctime(tt) on $day $+ , $date $+ .
  /echo 5 -m You currently have played %rqgames Games of RuneQuest!
  /echo -m _
  /echo -m _
  /echo -m _
  /echo -m _
  /echo 3 -m Starting Game... Please wait...
  ;Last Time Played & Numbers
  /set %rqlastgame $date
  if (%rqplayed == $null || %rqplayed == 0) && (%rq.* == $null) && ($readini(rq-stats.ini, <[stats]>, %rq.*) == $null) {
    ;Basic Variables
    /set %rq.combat 3
    /set %rq.boss none
    /set %rq.player $me
    /set %rq.oppnum 0
    /set %rq.exp 0
    /set %rq.occupied no
    ;Health Stats
    /set %rq.hp 10
    ;My Weapons
    /set %rq.hasdds no
    /set %rq.hasscim no
    /set %rq.haswhip no
    /set %rq.hasgaxe no  
    /set %rq.hasanchor no
    /set %rq.hashally no
    /set %rq.hassword yes
    /set %rq.hasmace no
    /set %rq.hashammer no
    /set %rq.hasregaxe no
    /set %rq.hasmaul no
    /set %rq.has2hsword no
    /set %rq.curwep sword
    /set %rq.wepmax 17
    ;Food
    /set %rq.sharks 0
    /set %rq.shrimp 10
    /set %rq.lobster 0
    /set %rq.tuna 0
    /set %rq.salmon 0
    /echo 3 -m You Can now play!
  }
  else { /echo 3 -m You can now play! }
}
;:;:;:;
;Error Message Output:
on *:ERROR: { /echo 4 -m An ERROR occured while trying to complete what you were doing! Error: $error }
;:;:;:;
/*
This is the challenge part
This is a short section of script... please do not edit this section. If you do the variables will get screwed up and your script won't work correctly
--
Monsters Currently:
%1:Evil Chicken
%2:
--
*/
alias Challenge {
  if (%rq != active) { /echo 4 -m You're Not Playing RuneQuest! | halt }
  elseif ($$1 == list) {
    /echo Currently Availible Monsters:
    /var %rq.i 2
    while (%rq.i <= $read(rq_monsters.txt, 1) {
      /echo 12 -m $read(rq_monsters.txt, %rq.i)
    }
  }
  elseif (%rq == active) if ($$1- == Evil Chicken) && (%rq.combat <= 15) { /set %rq.monsterhp 35 | /var %rq.hit $rand(0,%rq.wepmax) | /set %rq.monshit 3 | /echo 4 -m You Hit an Evil Chicken with your %rq.curwep and hit a %rq.hit $+ .
    /dec %rq.monsterhp %rq.hit | /set %rq.hitable true | /echo 3 -m You may<type /attack to attack the Evil Chicken your fighting.
  }
  elseif (%rq == active) if ($$1- == Evil Chicken) && (%rq.combat <= 40) { /set %rq.monsterhp 55 | /var %rq.hit $rand(0,%rq.wepmax) | /set %rq.monshit 10 | /echo 4 -m You Hit an Evil Chicken with your %rq.curwep and hit a %rq.hit $+ .
    /dec %rq.monsterhp %rq.hit | /set %rq.hitable true | /echo 3 -m You may type /attack to attack the Evil Chicken your fighting.
  }
  elseif (%rq == active) if ($$1- == Evil Chicken) && (%rq.combat <= 65) { /set %rq.monsterhp 75 | /var %rq.hit $rand(0,%rq.wepmax) | /set %rq.monshit 15 | /echo 4 -m You Hit an Evil Chicken with your %rq.curwep and hit a %rq.hit $+ .
    /dec %rq.monsterhp %rq.hit | /set %rq.hitable true | /echo 3 -m You may type /attack to attack the Evil Chicken your fighting.
  }
  elseif (%rq == active) if ($$1- == Evil Chicken) && (%rq.combat <= 90) { /set %rq.monsterhp 95 | /var %rq.hit $rand(0,%rq.wepmax) | /set %rq.monshit 23 | /echo 4 -m You Hit an Evil Chicken with your %rq.curwep and hit a %rq.hit $+ .
    /dec %rq.monsterhp %rq.hit | /set %rq.hitable true | /echo 3 -m You may type /attack to attack the Evil Chicken your fighting.
  }
  elseif (%rq == active) if ($$1- == Evil Chicken) && (%rq.combat <= 115) { /set %rq.monsterhp 125 | /var %rq.hit $rand(0,%rq.wepmax) | /set %rq.monshit 29 | /echo 4 -m You Hit an Evil Chicken with your %rq.curwep and hit a %rq.hit $+ .
    /dec %rq.monsterhp %rq.hit | /set %rq.hitable true | /echo 3 -m You may type /attack to attack the Evil Chicken your fighting.
  }
  elseif (%rq == active) if ($$1- == Evil Chicken) && (%rq.combat <= 125) { /set %rq.monsterhp 175 | /var %rq.hit $rand(0,%rq.wepmax) | /set %rq.monshit 35 | /echo 4 -m You Hit an Evil Chicken with your %rq.curwep and hit a %rq.hit $+ .
    /dec %rq.monsterhp %rq.hit | /set %rq.hitable true | /echo 3 -m You may type /attack to attack the Evil Chicken your fighting.
  }  
}
;:;:;:;
/*
This is the hit sequence for attacking.
syntax:/attack
*/
alias attack {
  if (%rq == active) && (%rq.hitable == true) {  /var %hitrand $r(1,2)
    if (%hitrand == 1) {
      /var %rq.hit $r(0,%rq.wepmax)
      /echo 5 -m You attack the evil chicken with your %rq.curwep and hit a %hit $+ !
      /dec %rq.monsterhp %rq.hit
    }
    elseif (%hitrand == 2)  {
      /var %rq.hit $r(0,%rq.monshit)
      /echo 7 -m The evil chicken attacks you with their claw and hits a %hit $+ !
    }
  }
  elseif (%rq != active || %rq.occupied != yes) { /echo 4 -m You're Not Playing RuneQuest; Or your busy! | halt }
}