rendered paste bodyalias pqc1 return $+(,$readini(pq.ini,n,Settings,c1),$$1)
alias pqc2 return $+(,$readini(pq.ini,n,Settings,c2),$$1)
alias xpforlvl {
if ($1 == 2) return 83
elseif ($1 == 3) return 174
elseif ($1 == 4) return 276
elseif ($1 == 5) return 388
elseif ($1 == 6) return 512
elseif ($1 == 7) return 650
elseif ($1 == 8) return 801
elseif ($1 == 9) return 969
elseif ($1 == 10) return 1154
elseif ($1 == 11) return 1358
elseif ($1 == 12) return 1584
elseif ($1 == 13) return 1833
elseif ($1 == 14) return 2107
elseif ($1 == 15) return 2411
elseif ($1 == 16) return 2746
elseif ($1 == 17) return 3115
elseif ($1 == 18) return 3523
elseif ($1 == 19) return 3973
elseif ($1 == 20) return 4470
elseif ($1 == 21) return 5018
elseif ($1 == 22) return 5624
elseif ($1 == 23) return 6291
elseif ($1 == 24) return 7028
elseif ($1 == 25) return 7842
elseif ($1 == 26) return 8740
elseif ($1 == 27) return 9730
elseif ($1 == 28) return 10824
elseif ($1 == 29) return 12031
elseif ($1 == 30) return 13363
elseif ($1 == 31) return 14833
elseif ($1 == 32) return 16456
elseif ($1 == 33) return 18247
elseif ($1 == 34) return 20224
elseif ($1 == 35) return 22406
elseif ($1 == 36) return 24815
elseif ($1 == 37) return 27473
elseif ($1 == 38) return 30408
elseif ($1 == 39) return 33648
elseif ($1 == 40) return 37224
elseif ($1 == 41) return 41171
elseif ($1 == 42) return 45529
elseif ($1 == 43) return 50339
elseif ($1 == 44) return 55649
elseif ($1 == 45) return 61512
elseif ($1 == 46) return 67983
elseif ($1 == 47) return 75127
elseif ($1 == 48) return 83014
elseif ($1 == 49) return 91721
elseif ($1 == 50) return 101333
elseif ($1 == 51) return 111945
elseif ($1 == 52) return 123660
elseif ($1 == 53) return 136594
elseif ($1 == 54) return 150872
elseif ($1 == 55) return 166636
elseif ($1 == 56) return 184040
elseif ($1 == 57) return 203254
elseif ($1 == 58) return 224466
elseif ($1 == 59) return 247886
elseif ($1 == 60) return 273742
elseif ($1 == 61) return 302288
elseif ($1 == 62) return 333804
elseif ($1 == 63) return 368599
elseif ($1 == 64) return 407015
elseif ($1 == 65) return 449428
elseif ($1 == 66) return 496254
elseif ($1 == 67) return 547953
elseif ($1 == 68) return 605032
elseif ($1 == 69) return 668051
elseif ($1 == 70) return 737627
elseif ($1 == 71) return 814445
elseif ($1 == 72) return 899257
elseif ($1 == 73) return 992895
elseif ($1 == 74) return 1096278
elseif ($1 == 75) return 1210421
elseif ($1 == 76) return 1336443
elseif ($1 == 77) return 1475581
elseif ($1 == 78) return 1629200
elseif ($1 == 79) return 1798808
elseif ($1 == 80) return 1986068
elseif ($1 == 81) return 2192818
elseif ($1 == 82) return 2421087
elseif ($1 == 83) return 2673114
elseif ($1 == 84) return 2951373
elseif ($1 == 85) return 3258594
elseif ($1 == 86) return 3597792
elseif ($1 == 87) return 3972294
elseif ($1 == 88) return 4385776
elseif ($1 == 89) return 4842295
elseif ($1 == 90) return 5346332
elseif ($1 == 91) return 5902831
elseif ($1 == 92) return 6517253
elseif ($1 == 93) return 7195629
elseif ($1 == 94) return 7944614
elseif ($1 == 95) return 8771558
elseif ($1 == 96) return 9684577
elseif ($1 == 97) return 10692629
elseif ($1 == 98) return 11805606
elseif ($1 == 99) return 13034431
}
alias cmblvl {
;att,def,hit,range,mage,summoning
var %a $calc($3 * 100)
var %b $calc($4 * 100)
if ($isbit($6,1)) var %c $calc($calc($6 - 1) * 50)
else var %c $calc($6 * 50)
if ($isbit($8,1)) var %d $calc($calc($8 - 1) * 50)
else var %d $calc($8 * 50)
var %base $calc($calc(%a + %b + %c + %d) / 400)
var %e $calc($1 * 130), %f $calc($2 * 130)
if ($isbit($5,1)) var %g $calc($calc($calc($5 - 1) + $calc($5 * 2)) * 65)
else var %g $calc($5 * 195)
if ($isbit($7,1)) var %h $calc($calc($calc($7 - 1) + $calc($7 * 2)) * 65)
else var %h $calc($7 * 195)
var %melee $calc($calc(%e + %f) / 400)
var %range $calc(%g / 400)
var %mage $calc(%h / 400)
if ($gettok($sorttok(%melee %range %mage,32,nr),1,32) == %melee) var %type Melee
elseif ($v1 == %range) var %type Ranged
else var %type Magic
return $calc($v1 + %base)
}
alias hpbar {
var %g $round($calc($$1 /5),-1), %r $calc(20 - %g), %x 1
var %t $right(0 $+ $1,-1)
while (%x < 21) {
var %c $iif(%x isnum 1- $+ %g,09,04)
if (%x isnum 10-11) { var %m $+(,01,$chr(44),%c,$mid(%t,$calc(%x -9),1)) }
else { var %m $+(,%c,$chr(44),%c,$chr(160)) }
var %re %re $+ %m
inc %x
}
return %re $+
}
alias admin {
var %a $ini(pq.ini,$1,Admin)
while (%a >= 1) {
if (%a iswm $v1) return $true
dec %a
}
return $false
}
alias lfield {
writeini pq.ini $2 Battle No
msg $1 $pqc2($readini(pq.ini,$2,chr)) $pqc1(has escaped from the battle field!)
mode $1 -v $2
}
alias lock {
writeini pq.ini $2 lock $3
msg $1 $pqc2($readini(pq.ini,$2,chr)) $pqc1(has locked on to) $pqc2($readini(pq.ini,$3,chr)) $+ $pqc1(... They can now say) $pqc2(. skill ) $pqc1(to attack) $pqc2($iif(($readini(pq.ini,$3,Gender) == M),him,her)) $+ $pqc1(.)
}
alias datk {
writeini pq.ini $1 Attack No
notice $1 $readini(pq.ini,$1,chr) has finished $readini(pq.ini,$nick,Gender) attack.
}
on $*:TEXT:/^[!.~]p(ortal)?q(uest)?c(om)?m(an)?ds?$/Si:*: {
$iif($left($1,1) = ~,msg #,msg $nick) $pqc1(A list of commands can be found at:) $pqc2(http://www.portal-quest.com/commands)
$iif($left($1,1) = ~,msg #,msg $nick) $pqc1(Scroll lower for) $pqc2(Admin) $pqc1(commands.)
$iif($left($1,1) = ~,msg #,msg $nick) $pqc1(If you can't see the URL $+ $chr(44) Type:) $pqc2(/mode $nick -f) $pqc1(and type) $pqc2($1) $pqc1(again.)
}
on $*:TEXT:/^[!.~]skill(s)?/Si:#: {
if (!$2) { set %temp.nick $nick | goto continue }
if ($2) { set %temp.nick $2 }
:continue
$iif($left($1,1) = ~,msg #,msg $nick) $pqc1(Information for) $pqc2(%temp.nick) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2(Melee) $+ $pqc1(:) $pqc2($readini(pq.ini,%temp.nick,Melees)) $+ $pqc1($chr(41)) $chr(40) $+ $pqc2(Magic Attack) $+ $pqc1(:) $&
$pqc2($readini(pq.ini,%temp.nick,Magics)) $+ $pqc1($chr(41)) $chr(40) $+ $pqc2(Range Attack) $+ $pqc1(:) $pqc2($readini(pq.ini,%temp.nick,Ranges)) $+ $pqc1($chr(41)) $chr(40) $+ $pqc2(Summon Attack) $+ $pqc1(:) $pqc2($readini(pq.ini,%temp.nick,Summons)) $+ $pqc1($chr(41))
unset %temp.nick
}
on $*:TEXT:/^[!.~]a(dmin)?o(verride)? /Si:#: {
if ($admin($nick)) {
if ($regex($2,/^(Hp|HpMax|Attack|Summon|Defence|Magic|Range)/i)) {
writeini pq.ini $3 $2 $4
$iif($left($1,1) = ~,msg #,notice $nick) $pqc2($3) $+ $pqc1('s) $pqc2($2) $pqc1(is now) $pqc2($4) $+ $pqc1(.)
msg #Portal-Quest.Staff $pqc2($nick) $pqc1(used) $pqc2($1-) $pqc1(to set) $pqc2($3) $+ $pqc1('s) $pqc2($2) $pqc1(to) $pqc2($4) $+ $pqc1(.)
}
}
if (!$admin($nick)) {
}
}
on $*:TEXT:/^[!.~]stats ?(-s)?/Si:#: {
if ($2 != -s) { set %temp.nick $iif($2,$2,$nick) | goto continue }
elseif ($2 == -s) { set %temp.nick $iif($4,$4,$nick) | goto next }
:continue
if (!$readini(pq.ini,%temp.nick,HPMax)) { $iif($left($1,1) = ~,msg #,notice $nick) $pqc1([PQ] Error) $pqc2(-) $pqc1(There is a problem with your/their stats.) | return }
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $+($pqc1([Combat),$chr(32),$pqc2($readini(pq.ini,%temp.nick,Combat)),$pqc1(])) $($pqc1([Attack),$pqc2($readini(pq.ini,%temp.nick,Attack)),$pqc1(| Summoning),$pqc2($readini(pq.ini,%temp.nick,Summon)),$pqc1(| Defence),$pqc2($readini(pq.ini,%temp.nick,Defence)),$pqc1(| Hitpoints),$pqc2($readini(pq.ini,%temp.nick,HPMax)),$pqc1(| Ranged),$pqc2($readini(pq.ini,%temp.nick,Range)),$pqc1(| Magic),$remove($+($pqc2($readini(pq.ini,%temp.nick,Magic)),$pqc1(])),$chr(32))) | return
:next
if ($regex($3,/^(att(ack)?)/i)) {
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2(Attack),$chr(32),$pqc1(for),$chr(32),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $pqc1([Level) $pqc2($readini(pq.ini,%temp.nick,Attack)) $pqc1(| EXP:) $pqc2($bytes($readini(pq.ini,%temp.nick,AEXP),db)) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,AEXP) / 13034431 * 100),2) $+ $chr(37)) $&
$pqc1(of 99 $+ $chr(41)) $pqc1(| Exp to) $pqc2($calc($readini(pq.ini,%temp.nick,Attack) + 1) $chr(40) $+ $calc($xpforlvl($calc($readini(pq.ini,%temp.nick,Attack) + 1)) - $readini(pq.ini,%temp.nick,AEXP)) exp $+ $chr(41))) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,AEXP) / $xpforlvl($calc($readini(pq.ini,%temp.nick,Attack) + 1)) * 100),2) $+ $chr(37)) $pqc1(of $pqc2($calc($readini(pq.ini,%temp.nick,Attack) + 1)) $+ $pqc1($chr(41) $+ $chr(93)))
}
if ($regex($3,/^(def(ence)?)/i)) {
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2(Defence),$chr(32),$pqc1(for),$chr(32),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $pqc1([Level) $pqc2($readini(pq.ini,%temp.nick,Defence)) $pqc1(| EXP:) $pqc2($bytes($readini(pq.ini,%temp.nick,DEXP),db)) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,DEXP) / 13034431 * 100),2) $+ $chr(37)) $&
$pqc1(of 99 $+ $chr(41)) $pqc1(| Exp to) $pqc2($calc($readini(pq.ini,%temp.nick,Defence) + 1) $chr(40) $+ $calc($xpforlvl($calc($readini(pq.ini,%temp.nick,Defence) + 1)) - $readini(pq.ini,%temp.nick,DEXP)) exp $+ $chr(41))) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,DEXP) / $xpforlvl($calc($readini(pq.ini,%temp.nick,Defence) + 1)) * 100),2) $+ $chr(37)) $pqc1(of $pqc2($calc($readini(pq.ini,%temp.nick,Defence) + 1)) $+ $pqc1($chr(41) $+ $chr(93)))
}
if ($regex($3,/^(range(d)?)/i)) {
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2(Range),$chr(32),$pqc1(for),$chr(32),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $pqc1([Level) $pqc2($readini(pq.ini,%temp.nick,Range)) $pqc1(| EXP:) $pqc2($bytes($readini(pq.ini,%temp.nick,REXP),db)) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,REXP) / 13034431 * 100),2) $+ $chr(37)) $&
$pqc1(of 99 $+ $chr(41)) $pqc1(| Exp to) $pqc2($calc($readini(pq.ini,%temp.nick,Range) + 1) $chr(40) $+ $calc($xpforlvl($calc($readini(pq.ini,%temp.nick,Range) + 1)) - $readini(pq.ini,%temp.nick,REXP)) exp $+ $chr(41))) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,REXP) / $xpforlvl($calc($readini(pq.ini,%temp.nick,Range) + 1)) * 100),2) $+ $chr(37)) $pqc1(of $pqc2($calc($readini(pq.ini,%temp.nick,Range) + 1)) $+ $pqc1($chr(41) $+ $chr(93)))
}
if ($regex($3,/^(sum(mon)?)/i)) {
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2(Summoning),$chr(32),$pqc1(for),$chr(32),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $pqc1([Level) $pqc2($readini(pq.ini,%temp.nick,Summon)) $pqc1(| EXP:) $pqc2($bytes($readini(pq.ini,%temp.nick,SEXP),db)) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,SEXP) / 13034431 * 100),2) $+ $chr(37)) $&
$pqc1(of 99 $+ $chr(41)) $pqc1(| Exp to) $pqc2($calc($readini(pq.ini,%temp.nick,Summon) + 1) $chr(40) $+ $calc($xpforlvl($calc($readini(pq.ini,%temp.nick,Summon) + 1)) - $readini(pq.ini,%temp.nick,SEXP)) exp $+ $chr(41))) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,SEXP) / $xpforlvl($calc($readini(pq.ini,%temp.nick,Summon) + 1)) * 100),2) $+ $chr(37)) $pqc1(of $pqc2($calc($readini(pq.ini,%temp.nick,Summon) + 1)) $+ $pqc1($chr(41) $+ $chr(93)))
}
if ($regex($3,/^(Mag(e|ic)?)/i)) {
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2(Magic),$chr(32),$pqc1(for),$chr(32),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $pqc1([Level) $pqc2($readini(pq.ini,%temp.nick,Magic)) $pqc1(| EXP:) $pqc2($bytes($readini(pq.ini,%temp.nick,MEXP),db)) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,MEXP) / 13034431 * 100),2) $+ $chr(37)) $&
$pqc1(of 99 $+ $chr(41)) $pqc1(| Exp to) $pqc2($calc($readini(pq.ini,%temp.nick,Magic) + 1) $chr(40) $+ $capc($xpforlvl($calc($readini(pq.ini,%temp.nick,Magic) + 1)) - $readini(pq.ini,%temp.nick,MEXP)) exp $+ $chr(41))) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,MEXP) / $xpforlvl($calc($readini(pq.ini,%temp.nick,Magic) + 1)) * 100),2) $+ $chr(37)) $pqc1(of $pqc2($calc($readini(pq.ini,%temp.nick,Magic) + 1)) $+ $pqc1($chr(41) $+ $chr(93)))
}
if ($regex($3,/^(HP)/i)) {
$iif($left($1,1) = ~,msg #,notice $nick) $+($pqc1([),$pqc2(Hitpoints),$chr(32),$pqc1(for),$chr(32),$pqc2($readini(pq.ini,%temp.nick,chr)),$pqc1(])) $pqc1([Level) $pqc2($readini(pq.ini,%temp.nick,HPMax)) $pqc1(| EXP:) $pqc2($bytes($readini(pq.ini,%temp.nick,HEXP),db)) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,HEXP) / 13034431 * 100),2) $+ $chr(37)) $&
$pqc1(of 99 $+ $chr(41)) $pqc1(| Exp to) $pqc2($calc($readini(pq.ini,%temp.nick,HPMax) + 1) $chr(40) $+ $calc($xpforlvl($calc($readini(pq.ini,%temp.nick,HPMax) + 1)) - $readini(pq.ini,%temp.nick,HEXP))) exp $+ $chr(41))) $+ $pqc1(:) $pqc1($chr(40)) $+ $pqc2($round($calc($readini(pq.ini,%temp.nick,HEXP) / $xpforlvl($calc($readini(pq.ini,%temp.nick,HPMax) + 1)) * 100),2) $+ $chr(37)) $pqc1(of $pqc2($calc($readini(pq.ini,%temp.nick,HPMax) + 1)) $+ $pqc1($chr(41) $+ $chr(93)))
}
}
on $*:TEXT:/^[!.@]pqset(tings)?\s.+/Si:#: {
if ($admin($nick)) {
if ($istok(c1 c2,$2,32) && $3 isnum 0-15) {
notice $nick $2 is now color $pqs($2)
writein pq.ini Settings $2 $3
var %set .
}
else {
notice $nick Incorrect syntax. Type !pqcmds and scroll down on the webpage for the admin commands.
var %set .
}
elseif (!%set) notice $nick Incorrect syntax. Type !pqcmds and scroll down on the webpage for the admin commands.
}
elseif (!$admin($nick)) { notice $nick You do not have sufficient access to set Portal Quest settings. }
}
on *:TEXT:REGISTER *:?: {
if (*$* isin $2-) {
halt
}
else {
writeini pq.ini $nick chr $replace($2,_,$chr(32),-,$chr(32))
writeini pq.ini $nick Pass $encode($3)
if (male == $4) {
writeini pq.ini $nick Gender M
writeini pq.ini $nick Admin N
writeini pq.ini $nick Connected Yes
msg $nick $pqc2($nick) $pqc1(Your player name is:) $pqc2($replace($2,_,$chr(32),-,$chr(32))) $+ $pqc1(. Your set gender is:) $pqc2($4) $pqc1(and I have stored and encoded your password as:) $pqc2($3) $+ $pqc1(.)
msg $nick $pqc2($nick) $pqc1(Now that you are) $pqc2(Registered) $pqc1(you need to set your Skills. To do so you must type) $pqc2(set Melee/Magic/Range/Summon skill ) $+ $pqc1(.)
}
if (female == $4) {
writeini pq.ini $nick Gender F
writeini pq.ini $nick Admin N
writeini pq.ini $nick Connected Yes
msg $nick $pqc2($nick) $pqc1(Your player name is:) $pqc2($replace($2,_,$chr(32),-,$chr(32))) $+ $pqc1(. Your set gender is:) $pqc2($4) $pqc1(and I have stored and encoded your password as:) $pqc2($3) $+ $pqc1(.)
msg $nick $pqc2($nick) $pqc1(Now that you are) $pqc2(Registered) $pqc1(you need to set your Skills. To do so you must type) $pqc2(set Melee/Magic/Range/Summon skill ) $+ $pqc1(.)
}
writeini pq.ini $nick Combat 3.4
writeini pq.ini $nick Attack 1
writeini pq.ini $nick AEXP 0
writeini pq.ini $nick NextAlvl 83
writeini pq.ini $nick Defence 1
writeini pq.ini $nick DEXP 0
writeini pq.ini $nick NextDlvl 83
writeini pq.ini $nick Magic 1
writeini pq.ini $nick MEXP 0
writeini pq.ini $nick NextMlvl 83
writeini pq.ini $nick Range 1
writeini pq.ini $nick REXP 0
writeini pq.ini $nick NextRlvl 83
writeini pq.ini $nick Summon 1
writeini pq.ini $nick SEXP 0
writeini pq.ini $nick NextSlvl 83
writeini pq.ini $nick HP 10
writeini pq.ini $nick HPMax 10
writeini pq.ini $nick HEXP 1154
writeini pq.ini $nick NextHlvl 1358
writeini pq.ini $nick Melees 0
writeini pq.ini $nick Magics 0
writeini pq.ini $nick Ranges 0
writeini pq.ini $nick Summons 0
}
}
on *:TEXT:SET *:?: {
if (*$* isin $2-) {
halt
}
if ($readini(pq.ini,$nick,$2) != 0) {
msg $nick $nick You already have your set $2 $+ .
halt
}
else {
if ($2 == Melee) {
writeini pq.ini $nick Melees $replace($3,_,$chr(32),-,$chr(32))
msg $nick $nick You have set your Melee Attack as: $replace($3,_,$chr(32),-,$chr(32)) .
}
if ($2 == Magic) {
writeini pq.ini $nick Magics $replace($3,_,$chr(32),-,$chr(32))
msg $nick $nick You have set your Magic Attack as: $replace($3,_,$chr(32),-,$chr(32)) $+ .
}
if ($2 == Range) {
writeini pq.ini $nick Ranges $replace($3,_,$chr(32),-,$chr(32))
msg $nick $nick $+ , You have set your Range Attack as: $replace($3,_,$chr(32),-,$chr(32)) $+ .
}
if ($2 == Summon) {
writeini pq.ini $nick Summons $replace($3,_,$chr(32),-,$chr(32))
msg $nick $nick You hve set your Summoning Attack as: $replace($3,_,$chr(32),-,$chr(32)) $+ .
}
}
}
on *:TEXT:LOGIN *:?: {
if ($readini(pq.ini,$nick,Connected) == Y) {
notice $nick $nick $+ , You are already logged in.
return
}
elseif ($readini(pq.ini,$nick,pass) != $encode($2)) {
notice $nick $nick $+ , Your login has been Denied.
msg #PQS $pqc2($nick) $+ $pqc1('s login has been) $pqc2(Denied) $+ $pqc1(.)
return
}
else {
writeini pq.ini $nick Connected Y
notice $nick $nick $+ , Your login has been Confirmed.
msg #PQS $pqc2($nick) $+ $pqc1('s login has been) $pqc2(Confirmed) $+ $pqc1(.)
}
}
on *:TEXT:LOGOUT:?: {
if ($readini(pq.ini,$nick,Connected) == N) {
notice $nick $nick $+ , You are already logged out.
return
}
else {
writeini pq.ini $nick Connected N
notice $nick $nick $+ , Your logout has been Confirmed.
msg #PQS $pqc2($nick) $+ $pqc1('s logout has been) $pqc2(Confirmed) $+ $pqc1(.)
}
}
on *:PART:#Portal-Quest: {
if ($readini(pq.ini,$nick,Battle) = Y) {
msg $chan $pqc2($nick) $pqc1(has left the zone due to parting the channel.)
writeini pq.ini $nick Battle N
}
}
on *:QUIT: {
if ($readini(pq.ini,$nick,Battle) = Y) || ($readini(pq.ini,$nick,Connected) = Y) {
msg #Portal-Quest $pqc2($nick) $pqc1(has been logged out due to Quiting.)
writeini pq.ini $nick Battle N
writeini pq.ini $nick Connected N
}
}
on $*:TEXT:/^[!.]fight$/Si:#: {
if (!$readini(pq.ini,$nick,chr)) { notice $nick You are not registered. | return }
if ($readini(pq.ini,$nick,Connected) == N) { notice $nick You are not loged in. | return }
if ($readini(pq.ini,$nick,Battle) == Y) { msg $chan $pqc2($readini(pq.ini,$nick,chr)) $pqc1(starts running from the battle field..) | timer 1 10 lfield $chan $nick | return }
writeini pq.ini $nick Battle Y
msg $chan $pqc2($nick $+ ( $+ $readini(pq.ini,$nick,chr) $+ )) $pqc1(has entered the field! To lock on to) $pqc2($iif(($readini(pq.ini,$nick,Gender) == his),him,her)) $pqc1(type) $pqc2(.lo <nick>) $+ $pqc1(.)
mode # +v $nick
}
on $*:TEXT:/^[!.]lo/Si:#: {
if (!$2-) && ($readini(pq.ini,$nick,lock) != 0) { notice $nick $nick has stopped locking on to $readini(pq.ini,$nick,lock) $+ . | writeini pq.ini $nick lock 0 | return }
if ($2 !ison $chan) { notice $nick Error - That person is not here. | return }
if ($readini(pq.ini,$nick,Battle) != Y) { notice $nick Error - You are not in the field. | return }
if ($readini(pq.ini,$2,Battle) != Y) { notice $nick Error - That person is not in the field. | return }
msg $chan $pqc2($nick) $pqc1(begins targeting) $pqc2($readini(pq.ini,$2,chr)) $+ $pqc1(..)
timer 1 5 lock $chan $nick $2
}
on $*:TEXT:/^[!.]melee/Si:#: {
if (!$readini(pq.ini,$nick,Melees)) { notice $nick You do not have a Melee skill. | return }
if ($readini(pq.ini,$nick,lock) == 0) {
if (!$2) || ($2 !ison $chan) || ($readini(pq.ini,$2,Battle) != Yes) { notice $nick Error - Incorrect Syntax. | return }
set %temp.lo $2
set %temp.miss 5
goto continue
}
if ($2) { notice $nick Error - You are already locked on to someone. Say .lo to stop, or .lo <nick> to lock on to someone else. | return }
if ($readini(pq.ini,$nick,Battle) != Yes) { notice $nick Error - You are not in the Battle Field. | return }
set %temp.lo $readini(pq.ini,$nick,lock)
set %temp.miss 3
:continue
var %hit $rand(0,$calc($readini(pq.ini,$nick,Attack) / $rand(1,4)))
var %dmg $calc($readini(pq.ini,$nick,Attack) - $readini(pq.ini,%temp.lo,Defence) + %hit)
if ($readini(pq.ini,$nick,Attack) == Yes) { notice $nick Error - You are already attacking. | return }
writeini pqf.ini $nick Attack Yes
timer 1 3 datk $nick
set %temp.hom $rand(1,%temp.miss)
if (%temp.hom == 1) {
msg $chan $pqc1([PQ]) $pqc2($readini(pq.ini,$nick,chr)) $pqc1(attacks) $pqc2($readini(pq.ini,%temp.lo,chr)) $pqc1(but misses.)
return
}
writeini pq.ini %temp.lo HP $calc($readini(pq.ini,%temp.lo,HP) - %dmg)
var %exp $calc($rand(2,5)*%dmg))
var %hp $calc(1.5*%dmg)
if ($readini(pq.ini,%temp.lo,HP) < 1) { writeini pq.ini %temp.lo HP 0 }
msg $chan $pqc1([PQ]) $pqc2($readini(pq.ini,$nick,chr)) $pqc1(hit a) $pqc2(%dmg) $pqc1(with $readini(pq.ini,$nickgen,)) $pqc2($readini(pq.ini,$nick,Melee)) $pqc1(leaving) $pqc2($readini(pq.ini,%temp.lo,chr)) $pqc1(with) $&
$pqc2($iif(($readini(pq.ini,%temp.lo,HPMax) == 99),$hpbar($readini(pq.ini,%temp.lo,HP)),$readini(pq.ini,%temp.lo,HP))) $pqc1(hp.)
notice $nick $pqc1([PQ] $readini(pq.ini,$nick,chr) $+ 's) $pqc2(HP) $+ $pqc1(:) $pqc2($readini(pq.ini,$nick,HP)) $pqc1(- $readini(pq.ini,%temp.lo,chr) $+ 's) $pqc2(HP) $pqc1(:) $pqc2($readini(pq.ini,%temp.lo,HP))
if ($readini(pq.ini,$nick,AEXP) < $readini(pq.ini,$nick,NextAlvl)) && ($readini(pq.ini,$nick,Defgain) == No) {
writeini pq.ini $nick AEXP $calc($readini(pq.ini,$nick,AEXP) + %exp)
}
if ($readini(pq.ini,$nick,DEXP) < $readini(pq.ini,$nick,NextDlvl)) && ($readini(pq.ini,$nick,Defgain) == Def) {
writeini pq.ini $nick DEXP $calc($readini(pq.ini,$nick,DEXP) + %exp)
}
if ($readini(pqstats.ini,$nick,HEXP) < $readini(pqstats.ini,$nick,NextHlvl)) {
writeini pq.ini $nick HEXP $calc($readini(pq.ini,$nick,HEXP) + %hp)
}
if ($readini(pq.ini,%temp.lo,HP) < 1) {
writeini pq.ini %temp.lo HP $readini(pq.ini,%temp.lo,HPMax)
msg $chan $pqc1([PQ]) $pqc2($readini(pq.ini,%temp.lo,chr)) $pqc1(has died.) $pqc2($readini(pq.ini,%temp.lo,chr)) $pqc1(came into the safe zone.)
mode # -v %temp.lo
remini pq.ini %temp.lo lock
writeini pq.ini %temp.lo Battle No
}
if ($readini(pq.ini,$nick,Attack) >= 99) || ($readini(pq.ini,$nick,Defence) >= 99) {
halt
}
else {
if ($readini(pq.ini,$nick,AEXP) >= $readini(pq.ini,$nick,NextAlvl)) && ($readini(pq.ini,$nick,Defgain) == No) {
msg $chan $pqc1([PQ]) $pqc2($readini(pq.ini,$nick,chr)) $pqc1(has grown to) $pqc2($calc($readini(pq.ini,$nick,Attack) + 1)) $pqc1(Attack.)
writeini pq.ini $nick Attack $calc($readini(pq.ini,$nick,Attack) + 1)
writeini pq.ini $nick NextAlvl $xpforlvl($calc($readini(pq.ini,$nick,Attack) + 1))
}
if ($readini(pq.ini,$nick,DEXP) >= $readini(pq.ini,$nick,NextDlvl)) && ($readini(pq.ini,$nick,Defgain) == Def) {
msg $chan $pqc1([PQ]) $pqc2($readini(pq.ini,$nick,chr)) $pqc1(has grown to) $pqc2($calc($readini(pq.ini,$nick,Defence) + 1)) $pqc1(Defence.)
writeini pq.ini $nick Defence $calc($readini(pq.ini,$nick,Defence) + 1)
writeini pq.ini $nick NextDlvl $xpforlvl($calc($readini(pq.ini,$nick,Defence) + 1))
}
if ($readini(pq.ini,$nick,HEXP) >= $readini(pq.ini,$nick,NextHlvl)) {
msg $chan $pqc1([PQ]) $pqc2($readini(pq.ini,$nick,chr)) $pqc1(has grown to) $pqc2($calc($readini(pq.ini,$nick,HPMax) + 1)) $pqc1(Hitpoints.)
writeini pq.ini $nick HPMax $calc($readini(pq.ini,$nick,HPMax) + 1)
writeini pq.ini $nick HP $readini(pq.ini,$nick,HPMax)
writeini pq.ini $nick NextHlvl $xpforlvl($calc($readini(pq.ini,$nick,HPMax) + 1))
}
}
}