Anonymous

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

alias Loadrq {
  window -adpk0Bf +l @int 500 412 250 20
  clear @int
  both 0 $iif($($1,2) isnum,$v1)
}

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.
  }
}