|
@@ -12,8 +12,10 @@ opp_punch[0] = Power punch
|
|
|
opp_jab[0] = Ligth punch
|
|
|
opp_stren[0] = Strengh
|
|
|
opp_agil[0] = Agility
|
|
|
-opp_vital[0] = Opponent health
|
|
|
+opp_vital[0] = vitality
|
|
|
opp_react[0] = Reactions
|
|
|
+opp_health[0] = Health
|
|
|
+opp_willpwr[0] = willpower
|
|
|
opp_shoot[0] = opponent marksmanship (only required if they are armed)
|
|
|
opp_magik[0] = only if they have magic
|
|
|
opp_mana[0] = only if they have magic
|
|
@@ -39,6 +41,8 @@ if $ARGS[0] = 'initFight':
|
|
|
killvar 'opp_agil'
|
|
|
killvar 'opp_vital'
|
|
|
killvar 'opp_react'
|
|
|
+ killvar 'opp_health'
|
|
|
+ killvar 'opp_willpwr'
|
|
|
killvar 'opp_shoot'
|
|
|
killvar 'opp_magik'
|
|
|
killvar 'opp_mana'
|
|
@@ -49,7 +53,7 @@ if $ARGS[0] = 'initFight':
|
|
|
killvar 'opp_init'
|
|
|
killvar 'opp_stun'
|
|
|
|
|
|
- !! Clear any allies from previous battle
|
|
|
+ !! Clear any allies from previous battle{
|
|
|
i = arrsize('pcs_def')
|
|
|
:ClearAllyLoop
|
|
|
if i > 0:
|
|
@@ -57,7 +61,10 @@ if $ARGS[0] = 'initFight':
|
|
|
i -= 1
|
|
|
jump 'ClearAllyLoop'
|
|
|
end
|
|
|
- killvar 'i'
|
|
|
+ killvar 'i'}
|
|
|
+
|
|
|
+ !! Initialize $pcs_name for Sveta
|
|
|
+ $pcs_name[0] = 'You'
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'clearPCSArray':
|
|
@@ -78,6 +85,8 @@ if $ARGS[0] = 'clearPCSArray':
|
|
|
killvar 'pcs_agil', i
|
|
|
killvar 'pcs_vital', i
|
|
|
killvar 'pcs_react', i
|
|
|
+ killvar 'pcs_health', i
|
|
|
+ killvar 'pcs_willpwr', i
|
|
|
killvar 'pcs_shoot', i
|
|
|
killvar 'pcs_magik', i
|
|
|
killvar 'pcs_mana', i
|
|
@@ -108,7 +117,9 @@ if $ARGS[0] = 'randomOpp':
|
|
|
opp_stren[i] = rand(1,50) + OppDiffBonus
|
|
|
opp_agil[i] = rand(1,50) + OppDiffBonus
|
|
|
opp_vital[i] = rand(1,50) + OppDiffBonus
|
|
|
+ opp_health[i] = (opp_vital * 10 + opp_stren * 5)
|
|
|
opp_react[i] = rand(1,50) + OppDiffBonus
|
|
|
+ opp_willpwr[i] = rand(1,50) + OppDiffBonus
|
|
|
opp_shoot[i] = rand(1,50) + OppDiffBonus
|
|
|
killvar 'OppDiffBonus'
|
|
|
killvar 'i'
|
|
@@ -146,6 +157,63 @@ if $ARGS[0] = 'main':
|
|
|
end
|
|
|
end
|
|
|
|
|
|
+if $ARGS[0] = 'printStats':
|
|
|
+!{ Print the stats for a character
|
|
|
+ $ARGS[1] = The Type of char ('opp','pcs')
|
|
|
+ ARGS[2] = The member of the party
|
|
|
+}
|
|
|
+ $fightPStats['CharType'] = $ARGS[1]
|
|
|
+ i = ARGS[2]
|
|
|
+
|
|
|
+ if $fightPStats['CharType'] = 'opp':
|
|
|
+ $fightPStats['Name'] = $opp_name[i]
|
|
|
+ fightPStats['Health'] = opp_health[i]
|
|
|
+ fightPStats['Mana'] = opp_mana[i]
|
|
|
+ fightPStats['Willpower'] = opp_willpwr[i]
|
|
|
+ fightPStats['Shield'] = opp_shield[i]
|
|
|
+ fightPStats['Fog'] = opp_fog[i]
|
|
|
+ fightPStats['Clone'] = opp_clone[i]
|
|
|
+ else
|
|
|
+ $fightPStats['Name'] = $pcs_name[i]
|
|
|
+ fightPStats['Health'] = pcs_health[i]
|
|
|
+ fightPStats['Mana'] = pcs_mana[i]
|
|
|
+ fightPStats['Willpower'] = pcs_willpwr[i]
|
|
|
+ fightPStats['Shield'] = pcs_shield[i]
|
|
|
+ fightPStats['Fog'] = pcs_fog[i]
|
|
|
+ fightPStats['Clone'] = pcs_clone[i]
|
|
|
+ end
|
|
|
+
|
|
|
+ '<b><<$fightPStats["Name"]>></b> life <b><font color = red><<fightPStats["Health"]>></font></b>, mana <b><font color = blue><<fightPStats["Mana"]>></font></b>, willpower <b><font color = green><<fightPStats["Willpower"]>></font></b>'
|
|
|
+ if fightPStats['Shield'] > 0:'<b><font color = red>Protection <<fightPStats["Shield"]>> units</font></b>'
|
|
|
+ if fightPStats['Clone'] > 0:'<b><font color = red>Clones active <<fightPStats["Clone"]>> </font></b>'
|
|
|
+ if fightPStats['Fog'] > 0:'<b><font color = red>Obscuring Fog <<fightPStats["Fog"]>> units</font></b>'
|
|
|
+ '<b>= = = = = = = = = = = = = = = = = = = = = = = = = = = = =</b>'
|
|
|
+
|
|
|
+ killvar 'i'
|
|
|
+ killvar 'fightPStats'
|
|
|
+ killvar '$fightPStats'
|
|
|
+end
|
|
|
+
|
|
|
+if $ARGS[0] = 'statDisplay':
|
|
|
+ '<b>= = = = = = = = = = = O p p o n e n t s = = = = = = = = = = =</b>'
|
|
|
+ i = 0
|
|
|
+ :OppLoopRC1
|
|
|
+ if i < arrsize('opp_health'):
|
|
|
+ gs 'fight', 'printStats', 'opp', i
|
|
|
+ i += 1
|
|
|
+ jump 'OppLoopRC1'
|
|
|
+ end
|
|
|
+ *nl
|
|
|
+ '<b>= = = = = = = = = = = = A l l i e s = = = = = = = = = = = = =</b>'
|
|
|
+ i = 0
|
|
|
+ :PCSLoopRC1
|
|
|
+ if i < arrsize('pcs_health'):
|
|
|
+ gs 'fight', 'printStats', 'pcs', i
|
|
|
+ i += 1
|
|
|
+ jump 'PCSLoopRC1'
|
|
|
+ end
|
|
|
+end
|
|
|
+
|
|
|
if $ARGS[0] = 'result_check':
|
|
|
!!cheat to auto-win fights check
|
|
|
if fight_cheat = 1:
|
|
@@ -153,8 +221,6 @@ if $ARGS[0] = 'result_check':
|
|
|
exit
|
|
|
end
|
|
|
|
|
|
-!! gs'defence'
|
|
|
-!! gs'statBat'
|
|
|
|
|
|
!!win/lose conditions
|
|
|
if pcs_health <= 0:
|
|
@@ -162,7 +228,7 @@ if $ARGS[0] = 'result_check':
|
|
|
|
|
|
xgt'ender','loss'
|
|
|
exit
|
|
|
- elseif opp_vital[0] <= 0:
|
|
|
+ elseif opp_health[0] <= 0:
|
|
|
'<b><font color = green><<$boydesc>> You won!</font></b>'
|
|
|
|
|
|
xgt'ender','win'
|
|
@@ -174,6 +240,7 @@ if $ARGS[0] = 'result_check':
|
|
|
exit
|
|
|
end
|
|
|
!gt 'fight', 'main'
|
|
|
+ killvar 'i'
|
|
|
end
|
|
|
|
|
|
!! Kick
|
|
@@ -224,13 +291,13 @@ $fight['Attack'] = {
|
|
|
fightAtk['MinDamage'] = AttackMin[fightAtk['Type']]
|
|
|
fightAtk['MaxDamage'] = AttackMax[fightAtk['Type']]
|
|
|
|
|
|
- '<<$fightAtk["AttackerPronoun"]>> attempts a <<$fightAtk["Type"]>>!'
|
|
|
+ '<<$fightAtk["AttackerPronoun"]>> attempt a <<$fightAtk["Type"]>>!'
|
|
|
*nl
|
|
|
if fightAtk['AttackerSkillValue'] + rand(0,30) > fightAtk['TargetReactValue'] / 4 + 3 * fightAtk['TargetAgilValue'] / 4:
|
|
|
!!Calculate Damage
|
|
|
dynamic "fightAtk['Damage'] = <<$fightAtk['AttackerType']>>_stren[<<fightAtk['AttackerNumber']>>] * rand(<<fightAtk['MinDamage']>>,<<fightAtk['MaxDamage']>>) / 15"
|
|
|
!!Apply Damage
|
|
|
- dynamic "<<$fightAtk['TargetType']>>_health -= fightAtk['Damage']"
|
|
|
+ dynamic "<<$fightAtk['TargetType']>>_health[<<fightAtk['TargetNumber']>>] -= fightAtk['Damage']"
|
|
|
if fightAtk['Damage'] > 10:
|
|
|
'The hit is hard and <<$fightAtk["TargetPronoun"]>> reel in pain.'
|
|
|
else
|
|
@@ -240,6 +307,7 @@ $fight['Attack'] = {
|
|
|
'<<$fightAtk["TargetPronoun"]>> avoid the blow.'
|
|
|
end
|
|
|
dynamic "<<$fightAtk['AttackerType']>>_timer += AttackTime[fightAtk['Type']]"
|
|
|
+ cla
|
|
|
act 'Next': gt 'fight', 'main'
|
|
|
|
|
|
killvar 'fightAtk'
|
|
@@ -247,6 +315,7 @@ $fight['Attack'] = {
|
|
|
}
|
|
|
|
|
|
if $ARGS[0] = 'opponent':
|
|
|
+ gs 'fight', 'statDisplay'
|
|
|
if opp_magik[0] > 0: gs 'fight', 'opp_spellcast'
|
|
|
if rand(0,opp_kick[0]) > 40:
|
|
|
dynamic $fight['Attack'], 'Kick', 'pcs', 0, 0
|
|
@@ -258,7 +327,10 @@ if $ARGS[0] = 'opponent':
|
|
|
end
|
|
|
|
|
|
if $ARGS[0] = 'player':
|
|
|
- if pcs_magik > 0: gs 'fight', 'spellcast'
|
|
|
+ gs 'fight', 'statDisplay'
|
|
|
+ if pcs_magik > 0:
|
|
|
+ act 'Cast a Spell': gs 'fight', 'spellcast'
|
|
|
+ end
|
|
|
|
|
|
act 'Kick them':
|
|
|
dynamic $fight['Attack'], 'Kick', 'opp', 0, 0
|