;Runequest Version2
/*
Comments go here
*/
;ABSOLUTLY DO NOT EDIT THIS SECTION!

alias drawpbar { 
  var %err = //echo $color(info) -a * $iif($isid,$chr(36),/) $+ DRAWPBAR 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.,Unpacking RuneQuest $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 Loadrq { 
  window -adpk0Bf +b @Loading 500 412 250 13 
  clear @Loading 
  both 0 $iif($($1,2) isnum,$v1) 
} 
;:;:;:;:;
alias -l both { 
  if (!$window(@Loading)) halt 
  var %f = $iif($2 isnum,$2,00070365) 
  drawpbar -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: { 
  window -adpk0Bf +b @Load 500 412 250 13 
  clear @Load
  both 0 $iif($($1,2) isnum,$v1) 
} 
;:;:;:;:;
alias -l both { 
  if (!$window(@Load)) halt 
  var %f = $iif($2 isnum,$2,00070365) 
  drawpbar -lp @Load %f -1 0 251 13 $1 
  if ($1 <= 100) { /window -c @Load } 
  else { halt } 
} 
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::;;;
alias helprq { 
  echo Command list : 
  echo /RuneQuest Starts RuneQuest 
  echo /endgame Quits RuneQuest 
  echo /helprunequest Pulls up command list 
  echo /viewstatus Shows which weapons you have, which bosses you have defeated, and your combat lvl. 
  echo /sword Uses the sword. This is the basic weapon. 
  echo /whip Uses the whip. You can obtain a whip by defeating the evil chicken boss. 
  echo /gaxe Uses the whip. You can obtain a Gaxe by defeating the greater demon. 
  echo /RuneQuestCredits Lists the credits for RuneQuest. 
  echo *Note Changing the script will result in its failure. Please Don't Leech.
  echo Made By 11Hang um High 4& 9Foshizzle
  echo 14,1 Please feel free to come to #helprunequest if you have anything you need to ask,know,etc. or just have feedback.
}