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