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

#
#
alias -l both {
#
  if (!$window(@int)) halt
#
  var %f = $iif($2 isnum,$2,00070365)
#
  drawLoadbar -lp @int %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 @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)
#
  ;that color is blue
#
  ;for red use:  00070365
#
  ;for green use:  22222222222222222222
#
  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 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 4and 9Foshizzle
#
  echo   Please feel free to come to #helprunequest if you have anything you need to ask,know,etc. or just have feedback.
#
}
#
 
#
alias RQ {
#
  if (%RQ == active) { echo 4 -m Your Already Playing RuneQuest! | halt }
#
  /set %RQ active
#
  /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 -m _
#
  /echo -m _
#
  /echo -m _
#
  /echo -m _
#
  /echo 3 -m Starting Game... Please wait...
#
  /set %rqlastgame $date
#
}
#
 
#
alias endrq {
#
  /echo -m Ending RuneQuest... Please wait...
#
  window -apdk0Bf +b @Ending 500 412 149 13
#
  clear @Ending
#
  end 0 $iif($($1,2) isnum,$v1)
#
}
#
alias -l end {
#
  if (!$window(@Ending)) halt
#
  var %f = $iif($2 isnum,$2,00070365)
#
  drawLoadbar -lp @Ending %f -1 0 150 13 $1
#
  if ($1 <= 100) { .timerend -m 1 50 end $calc($1 + 1) %f }
#
  if ($1 >= 100) { window -c @Ending
#
    unset %rq
#
    unset %rq.*
#
    /echo -m Runequest Sucsessfully Ended.
#
  }
#
}