'OHRRPGCE GAME - Additional mostly battle-related routines
'(C) Copyright 1997-2005 James Paige and Hamster Republic Productions
'Please read LICENSE.txt for GPL License details and disclaimer of liability
'See README.txt for code docs and apologies for crappyness of this code ;)
'
'$DYNAMIC
DEFINT A-Z
'basic subs and functions
DECLARE SUB exitprogram (needfade%)
DECLARE SUB quitcleanup ()
DECLARE FUNCTION safesubtract% (number%, minus%)
DECLARE FUNCTION safemultiply% (number%, by!)
DECLARE FUNCTION rpad$ (s$, pad$, size%)
DECLARE FUNCTION atkallowed% (atkid%, attacker%, spclass%, lmplev%, stat%(), atkbuf%())
DECLARE FUNCTION trytheft% (who%, targ%, atk%(), es%())
DECLARE SUB setbatcap (cap$, captime%, capdelay%)
DECLARE FUNCTION checktheftchance% (item%, itemP%, rareitem%, rareitemP%)
DECLARE FUNCTION gethighbyte% (n%)
DECLARE SUB wrappedsong (songnumber%)
DECLARE FUNCTION readglobalstring$ (index%, default$, maxlen%)
DECLARE FUNCTION targetmaskcount% (tmask%())
DECLARE FUNCTION randomally% (who%)
DECLARE FUNCTION randomfoe% (who%)
DECLARE FUNCTION liveherocount% (stat%())
DECLARE FUNCTION countai% (ai%, them%, es%())
DECLARE SUB calibrate ()
DECLARE SUB control ()
DECLARE SUB equip (pt%, stat%())
DECLARE FUNCTION items% (stat%())
DECLARE SUB getitem (getit%, num%)
DECLARE SUB spells (pt%, stat%())
DECLARE SUB status (pt%, stat%())
DECLARE SUB getnames (stat$())
DECLARE SUB resetlmp (slot%, lev%)
DECLARE SUB addhero (who%, slot%, stat%())
DECLARE FUNCTION atlevel% (now%, a0%, a99%)
DECLARE FUNCTION range% (n%, r%)
DECLARE FUNCTION rangel% (n&, r%)
DECLARE SUB snapshot ()
DECLARE SUB delitem (it%, num%)
DECLARE FUNCTION countitem% (it%)


DECLARE FUNCTION is_hero(who%)
DECLARE FUNCTION is_enemy(who%)
DECLARE FUNCTION is_attack(who%)
DECLARE FUNCTION is_weapon(who%)

#include "bmod.bi"

#include "compat.bi"
#include "allmodex.bi"
#include "common.bi"
#include "gglobals.bi"
#include "const.bi"
#include "uiconst.bi"

DECLARE SUB loadfoe (i%, formdata%(), es%(), bslot() AS BattleSprite, p%(), ext$(), bits%(), stat%(), ebits%(), batname$())
DECLARE FUNCTION inflict (w%, t%, stat%(), bslot() AS BattleSprite, harm$(), hc%(), hx%(), hy%(), atk%(), tcount%, bits%(), revenge%(), revengemask%(), targmem%(), revengeharm%(), repeatharm%())
DECLARE SUB smartarrowmask (inrange%(), pt%, d%, axis%, bslot() AS BattleSprite, tmask%())
DECLARE FUNCTION visibleandalive% (o%, stat%(), bslot() AS BattleSprite)
DECLARE FUNCTION enemycount% (bslot() AS BattleSprite, stat%())
DECLARE FUNCTION targenemycount% (bslot() AS BattleSprite, stat%())
DECLARE FUNCTION targetable% (attacker%, target%, ebits%(), bslot() AS BattleSprite)

REM $STATIC
FUNCTION is_hero(who)
 IF who >= 0 AND who <= 3 THEN RETURN -1
 RETURN 0
END FUNCTION

FUNCTION is_enemy(who)
 IF who >= 4 AND who <= 11 THEN RETURN -1
 RETURN 0
END FUNCTION

FUNCTION is_attack(who)
 IF who >= 12 AND who <= 23 THEN RETURN -1
 RETURN 0
END FUNCTION

FUNCTION is_weapon(who)
 IF who = 24 THEN RETURN -1
 RETURN 0
END FUNCTION

SUB advance (who, atk(), bslot() AS BattleSprite, t())
d = 1 ' Hero
IF is_enemy(who) THEN d = -1 ' Enemy

IF is_hero(who) THEN
 IF atk(14) < 2 OR (atk(14) > 2 AND atk(14) < 5) THEN ' strike, cast, spin, jump
  anim_walktoggle who
  anim_setmove who, -5, 0, 4, 0
  anim_waitforall
 END IF
END IF
IF atk(14) = 2 THEN ' Dash in
 yt = (bslot(t(who, 0)).h - bslot(who).h) + 2
 anim_walktoggle who
 anim_absmove who, bslot(t(who, 0)).x + bslot(t(who, 0)).w * d, bslot(t(who, 0)).y + yt, 6, 6
 anim_waitforall
END IF
IF atk(14) = 8 THEN ' Teleport
 anim_setpos who, bslot(t(who, 0)).x + bslot(t(who, 0)).w * d, bslot(t(who, 0)).y + (bslot(t(who, 0)).h - (bslot(who).h)), 0
END IF

END SUB

FUNCTION atkallowed (atkid, attacker, spclass, lmplev, stat(), atkbuf())
'--atkid    = attack ID number
'--attacker = hero or enemy who is attacking
'--spclass  = 0 for normal attacks, 1 for level-MP spells
'--lmplev   = which level-MP level to use

IF atkid < 0 THEN
 '--fail if not a valid attack id
 atkallowed = 0
 EXIT FUNCTION
END IF

'--load attack data
loadattackdata atkbuf(), atkid

'--check for mutedness
IF readbit(atkbuf(),65,0) = 1 AND stat(attacker, 0, 15) < stat(attacker, 1, 15) THEN
 atkallowed = 0
 EXIT FUNCTION
END IF

'--check for sufficient mp
IF stat(attacker, 0, 1) - focuscost(atkbuf(8), stat(attacker, 0, 10)) < 0 THEN
 atkallowed = 0
 EXIT FUNCTION
END IF

'--check for level-MP
IF spclass = 1 THEN
 IF lmp(attacker, lmplev) - 1 < 0 THEN
  atkallowed = 0
  EXIT FUNCTION
 END IF
END IF

'--check for sufficient items
FOR i = 0 to 2
  IF atkbuf(93 + i * 2) > 0 THEN 'this slot is used
    IF countitem(atkbuf(93 + i * 2)) < atkbuf(94 + i * 2) THEN
      'yes, this still works for adding items.
      atkallowed = 0
      EXIT FUNCTION
    END IF
  END IF
NEXT i

'--succeed
atkallowed = -1

END FUNCTION

FUNCTION checktheftchance (item, itemP, rareitem, rareitemP)
IF RND * 100 < itemP THEN
 '--success!
 getitem item + 1, 1
 checktheftchance = item + 1
ELSE
 IF RND * 100 < rareitemP THEN
  '--rare success!
  getitem rareitem + 1, 1
  checktheftchance = rareitem + 1
 ELSE
  checktheftchance = 0
 END IF
END IF
END FUNCTION

SUB control

'  CARRAY()
'  0=up 1=down 2=left 3=right
'  4=use
'  5=menu
'  6=run
'  7=
'  8=

'  CSETUP()
'  0=up 1=down 2=left 3=right                13=oldmouse X
'  4=useA                                    14=oldmouse Y
'  5=useB                                    15=showmouse
'  6=useC
'  7=menuA                                      MOUSEMODE
'  8=menuB                                      0=map
'  9=runA                                       1=click only
'  10=runB
'  11=calibrate
'  12=

STATIC joyuse, joymenu

'Quick abort
IF keyval(-1) OR (keyval(73) > 0 AND keyval(81) > 0 AND keyval(1) > 1) THEN
 exitprogram 0
END IF

'alt-enter toggle windowed
if keyval(&h38) > 0 and keyval(&h1c) > 0 then
	togglewindowed
end if

FOR i = 0 TO 7: carray(i) = 0: NEXT i

IF keyval(88) > 1 THEN snapshot

IF keyval(69) = 0 THEN ' no controls while PAUSE is pressed, because of its scancode wierdness
 GOSUB keyboard
 GOSUB joystick
END IF
EXIT SUB

keyboard:
FOR i = 0 TO 3
 carray(i) = keyval(csetup(i)): carray(15) = carray(15) - 1
NEXT i
carray(4) = large(large(keyval(csetup(4)), keyval(csetup(5))), keyval(csetup(6))): carray(15) = carray(15) - 1
carray(5) = large(keyval(csetup(7)), keyval(csetup(8))): carray(15) = carray(15) - 1
carray(6) = large(keyval(csetup(9)), keyval(csetup(10))): carray(15) = carray(15) - 1
'--gen(60) is the calibration disabler flag
IF gen(60) = 0 AND keyval(29) > 0 AND keyval(csetup(11)) > 1 THEN
 calibrate
 FOR i = 0 TO 1
  gotj(i) = readjoy(joy(), i)
 NEXT i
END IF
carray(8) = keyval(csetup(12)): carray(15) = carray(15) - 1
RETRACE

joystick:

FOR i = 0 TO 1
 IF gotj(i) THEN gotj(i) = readjoy(joy(), i): EXIT FOR
NEXT i
if i = 2 THEN RETRACE

if gen(60) = 0 then retrace

'edgeprint XSTR$(i) + XSTR$(gotj(i)) + XSTR$(joy(0)) + XSTR$(joy(1)) + XSTR$(joy(2)) + XSTR$(joy(3)) + XSTR$(carray(4)) + XSTR$(carray(5)), 0, 170, 14, 0
'edgeprint XSTR$(i) + XSTR$(gotj(i)) + XSTR$(joy(0)) + XSTR$(joy(1)) + XSTR$(joy(2)) + XSTR$(joy(3)) + XSTR$(carray(4)) + XSTR$(carray(5)), 0, 170, 14, 1

IF joy(1) < joy(9) THEN
 carray(0) = 3
 IF carray(10) = 3 THEN carray(0) = 2
 IF carray(10) = 2 THEN carray(0) = 1
 IF carray(10) = 1 THEN carray(0) = 2
END IF
IF joy(1) > joy(10) THEN
 carray(1) = 3
 IF carray(11) = 3 THEN carray(1) = 1
 IF carray(11) = 2 THEN carray(1) = 1
 IF carray(11) = 1 THEN carray(1) = 2
END IF
IF joy(0) < joy(11) THEN
 carray(2) = 3
 IF carray(12) = 3 THEN carray(2) = 1
 IF carray(12) = 2 THEN carray(2) = 1
 IF carray(12) = 1 THEN carray(2) = 2
END IF
IF joy(0) > joy(12) THEN
 carray(3) = 3
 IF carray(13) = 3 THEN carray(3) = 1
 IF carray(13) = 2 THEN carray(3) = 1
 IF carray(13) = 1 THEN carray(3) = 2
END IF
'--Joystick buttons!
'edgeprint XSTR$(joyuse) + XSTR$(joymenu) + XSTR$(joy(13)) + XSTR$(joy(14)), 0, 190, 15, 0
'edgeprint XSTR$(joyuse) + XSTR$(joymenu) + XSTR$(joy(13)) + XSTR$(joy(14)), 0, 190, 15, 1
SELECT CASE joyuse
 CASE 0
  'IF joy(joy(13)) = 0 THEN joyuse = 1
  IF joy(joy(13)) = 0 THEN joyuse = 2
 CASE 1
  IF joy(joy(13)) <> 0 THEN joyuse = 2
 CASE 2
  carray(4) = 2
  joyuse = 3
 CASE 3
  carray(4) = 1
  joyuse = 0
END SELECT
SELECT CASE joymenu
 CASE 0
  IF joy(joy(14)) = 0 THEN joymenu = 1
 CASE 1
  carray(6) = 2
  IF joy(joy(14)) <> 0 THEN joymenu = 2
 CASE 2
  carray(5) = 2
  joymenu = 3
 CASE 3
  carray(5) = 1
  joymenu = 0
END SELECT

FOR i = 0 TO 3
 carray(10 + i) = carray(i)
NEXT i
RETRACE

END SUB

FUNCTION countai (ai, them, es())
o = 0
FOR i = 0 TO 4
 IF es(them - 4, 92 + (ai * 5) + i) > 0 THEN o = o + 1
NEXT i
countai = o
END FUNCTION

SUB eaifocus (j, atkdat(), t(), stat(), bslot() AS BattleSprite, ebits(), revenge(), revengemask(), targmem())

'flush the targeting space for this attacker
FOR ii = 0 TO 11
 t(j, ii) = -1
NEXT ii

'cancel if no heros are alive
IF liveherocount(stat()) = 0 THEN EXIT SUB

targetptr = 0

'target random foe
IF atkdat(3) = 0 THEN
 ol = 0
 DO
  'random targ in opposite class
  o = randomfoe(j)
  t(j, targetptr) = o
  ol = ol + 1
  'if its alive and visable and targetable, target it!
  IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN EXIT DO
 LOOP UNTIL ol > 99 'safety cutoff
END IF

'target ally, ally-including dead, ally-not-self
IF atkdat(3) = 1 OR atkdat(3) = 4 OR atkdat(3) = 5 THEN
 ol = 0
 DO
  'pick random targ from own class
  o = randomally(j)
  'if ally-not-self
  IF atkdat(3) = 5 THEN
   WHILE j = o
    o = randomally(j)
   WEND
  END IF
  t(j, targetptr) = o
  ol = ol + 1
  'if alive and targetable, target it!
  IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN EXIT DO
 LOOP UNTIL ol > 99 'safety cutoff
END IF

'self
IF atkdat(3) = 2 AND targetable(j, j, ebits(), bslot()) THEN t(j, targetptr) = j

'all
IF atkdat(3) = 3 THEN
 ol = 0
 DO
  'random anybody
  o = INT(RND * 12)
  t(j, targetptr) = o
  ol = ol + 1
  IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN EXIT DO
 LOOP UNTIL ol > 99 'safety cutoff
END IF

'revenge one
IF atkdat(3) = 6 AND revenge(j) >= 0 THEN
 IF visibleandalive(revenge(j), stat(), bslot()) AND targetable(j, revenge(j), ebits(), bslot()) THEN
  t(j, targetptr) = revenge(j)
 END IF
END IF

'revenge all
IF atkdat(3) = 7 AND revengemask(j) THEN
 ol = 0
 DO
  'random anybody
  o = INT(RND * 12)
  IF readbit(revengemask(), j, o) THEN
   t(j, targetptr) = o
   IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN EXIT DO
  END IF
  ol = ol + 1
 LOOP UNTIL ol > 99 'safety cutoff
END IF

'previous targs
IF atkdat(3) = 8 AND targmem(j) THEN
 ol = 0
 DO
  'random anybody
  o = INT(RND * 12)
  IF readbit(targmem(), j, o) THEN
   t(j, targetptr) = o
   IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN EXIT DO
  END IF
  ol = ol + 1
 LOOP UNTIL ol > 99 'safety cutoff
END IF

'stored targs
IF atkdat(3) = 9 AND targmem(j + 12) THEN
 ol = 0
 DO
  'random targ in opposite class
  o = randomfoe(j)
  IF readbit(targmem(), j + 12, o) THEN
   t(j, targetptr) = o
   IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN EXIT DO
  END IF
  ol = ol + 1
 LOOP UNTIL ol > 99 'safety cutoff
END IF

END SUB

SUB eaispread (j, atkdat(), t(), stat(), bslot() AS BattleSprite, ebits(), revenge(), revengemask(), targmem())

'clear attacker's temporary target area
FOR ii = 0 TO 11
 t(j, ii) = -1
NEXT ii

'fail if no heros are present
IF liveherocount(stat()) = 0 THEN EXIT SUB

targetptr = 0

'enemy targets hero
IF atkdat(3) = 0 AND is_enemy(j) THEN
 FOR o = 0 TO 3
  IF visibleandalive(o, stat(), bslot()) THEN
   t(j, targetptr) = o
   targetptr = targetptr + 1
  END IF
 NEXT o
END IF

'hero targets enemy
IF atkdat(3) = 0 AND is_hero(j) THEN
 FOR o = 4 TO 11
  IF is_hero(j) THEN
   IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN
    t(j, targetptr) = o
    targetptr = targetptr + 1
   END IF
  END IF
 NEXT o
END IF

'enemy targets enemy
IF (atkdat(3) = 1 OR atkdat(3) = 4 OR atkdat(3) = 5) AND is_enemy(j) THEN
 FOR o = 4 TO 11
  IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN
   IF atkdat(3) <> 5 OR j <> o THEN
    t(j, targetptr) = o
    targetptr = targetptr + 1
   END IF
  END IF
 NEXT o
END IF

'hero targets hero
IF (atkdat(3) = 1 OR atkdat(3) = 4 OR atkdat(3) = 5 OR atkdat(3) = 10) AND is_hero(j) THEN
 FOR o = 0 TO 3
  IF visibleandalive(o, stat(), bslot()) OR (bslot(o).vis = 1 AND (atkdat(3) = 4 OR atkdat(3) = 10)) THEN
   IF atkdat(3) <> 5 OR j <> o THEN
    t(j, targetptr) = o
    targetptr = targetptr + 1
   END IF
  END IF
 NEXT o
END IF

'self
IF atkdat(3) = 2 AND targetable(j, j, ebits(), bslot()) THEN t(j, 0) = j

'all
IF atkdat(3) = 3 THEN
 FOR o = 0 TO 11
  IF visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN
   t(j, targetptr) = o
   targetptr = targetptr + 1
  END IF
 NEXT o
END IF

'revenge one
IF atkdat(3) = 6 AND revenge(j) >= 0 THEN
 IF visibleandalive(revenge(j), stat(), bslot()) AND targetable(j, revenge(j), ebits(), bslot()) THEN
  t(j, targetptr) = revenge(j)
 END IF
END IF

'revengeall
IF atkdat(3) = 7 THEN
 FOR o = 0 TO 11
  IF readbit(revengemask(), j, o) AND visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN
   t(j, targetptr) = o
   targetptr = targetptr + 1
  END IF
 NEXT o
END IF

'lasttargs
IF atkdat(3) = 8 THEN
 FOR o = 0 TO 11
  IF readbit(targmem(), j, o) AND visibleandalive(o, stat(), bslot()) AND targetable(j, o, ebits(), bslot()) THEN
   t(j, targetptr) = o
   targetptr = targetptr + 1
  END IF
 NEXT o
END IF

'stored targs
IF atkdat(3) = 9 THEN
 FOR o = 0 TO 11
  IF readbit(targmem(), j + 12, o) AND visibleandalive(o, stat(), bslot()) THEN
   t(j, targetptr) = o
   targetptr = targetptr + 1
  END IF
 NEXT o
END IF

END SUB

FUNCTION enemycount (bslot() AS BattleSprite, stat())
o = 0
FOR i = 4 TO 11
 IF stat(i, 0, 0) > 0 THEN o = o + 1
NEXT i
RETURN o
END FUNCTION

FUNCTION targenemycount (bslot() AS BattleSprite, stat())
o = 0
FOR i = 4 TO 11
 IF stat(i, 0, 0) > 0 AND bslot(i).vis = 1 AND bslot(i).hero_untargetable = 0 THEN o = o + 1
NEXT i
RETURN o
END FUNCTION

SUB etwitch (who, atk(), bslot() AS BattleSprite, t())

IF atk(14) < 2 THEN' twitch
 anim_setz who, 2
 anim_wait 1
 anim_setz who, 0
END IF
IF atk(14) = 3 THEN' spin
 FOR ii = 0 TO 2
  anim_setdir who, 1
  anim_wait 1
  anim_setdir who, 0
  anim_wait 1
 NEXT ii
END IF
IF atk(14) = 4 THEN' jump
 anim_absmove who, bslot(who).x + 50, bslot(who).y, 7, 7
 anim_zmove who, 10, 20
 anim_waitforall
 anim_disappear who
END IF
IF atk(14) = 5 THEN' drop
 anim_setz who, 200
 anim_appear who
 anim_setpos who, bslot(t(who, 0)).x, bslot(t(who, 0)).y, 0
 anim_zmove who, -10, 20
 anim_waitforall
END IF

END SUB

Function GetWeaponPos(w,f,isY)'or x?
 dim fh
 IF w >= 0 THEN
  fh = FREEFILE
  OPEN game$ + ".itm" FOR BINARY AS #fh
  'debug "weapon" + XSTR$(w) + " offset: " + XSTR$(w * 200 + 157 + f * 4 + isY * 2)
  GetWeaponPos = ReadShort(fh,w * 200 + 157 + f * 4 + iif(isY,1,0) * 2)
  CLOSE #FH
 END IF
End Function

Function GetHeroPos(h,f,isY)'or x?
 dim fh
 fh = FREEFILE
 OPEN game$ + ".dt0" FOR BINARY AS #fh
 'debug "hero offset: " + XSTR$(h * 636 + 595 + f * 4 + isY * 2)
 GetHeroPos = ReadShort(fh,h * 636 + 595 + f * 4 + iif(isY,1,0) * 2)
 CLOSE #FH
End Function

SUB heroanim (who, atk(), bslot() AS BattleSprite, t())
hx = 0:hy = 0:wx = 0: wy = 0: xt = 0: yt = 0
IF atk(14) < 3 OR (atk(14) > 6 AND atk(14) < 9) THEN ' strike, cast, dash, standing cast, teleport
 anim_setframe who, 0
 anim_wait 3 'wait 3 ticks
 IF atk(14) <> 1 AND atk(14) <> 7 THEN 'if it's not cast or standing cast
 
  anim_setframe who, 2
  
  hx = GetHeroPos(hero(who)-1,0,0)
  hy = GetHeroPos(hero(who)-1,0,1)
  wx = GetWeaponPos(eqstuf(who,0)-1,1,0)
  wy = GetWeaponPos(eqstuf(who,0)-1,1,1)
  dx = hx - wx
  dy = hy - wy
  
  anim_align2 24, who, 0, 0, dx, dy
  
  anim_setframe 24, 0
  anim_appear 24
  
 END IF
 
 IF atk(14) = 1 OR atk(14) = 7 THEN 'if it's cast or standing cast
  anim_setframe who, 4
 END IF
 
 anim_wait 3
 
 IF atk(14) <> 1 AND atk(14) <> 7 THEN 'if it's not cast or standing cast
  anim_setframe who, 3
  
  hx = GetHeroPos(hero(who)-1,1,0)
  hy = GetHeroPos(hero(who)-1,1,1)
  wx = GetWeaponPos(eqstuf(who,0)-1,0,0)
  wy = GetWeaponPos(eqstuf(who,0)-1,0,1)
  dx = hx - wx
  dy = hy - wy
  
  anim_align2 24, who, 0, 0, dx, dy
  
  anim_setframe 24, 1
 END IF
 
END IF
IF atk(14) = 3 THEN ' spin
 FOR ii = 0 TO 2
  anim_setdir who, 1
  anim_wait 1
  anim_setdir who, 0
  anim_wait 1
 NEXT ii
END IF
IF atk(14) = 4 THEN ' Jump
 anim_setframe who, 4
 anim_relmove who, -40, 0, 7, 0
 anim_zmove who, 20, 10
 anim_waitforall
 anim_disappear who
 anim_setframe who, 0
END IF
IF atk(14) = 5 THEN ' Land
 anim_setz who, 200
 anim_setframe who, 2
 anim_appear who
 anim_setcenter who, t(who, 0), 0, 0
 anim_align who, t(who, 0), dirDown, 0
 anim_zmove who, -10, 20
 anim_waitforall
 anim_setframe who, 5
END IF

END SUB

FUNCTION inflict (w, t, stat(), bslot() AS BattleSprite, harm$(), hc(), hx(), hy(), atk(), tcount, bits(), revenge(), revengemask(), targmem(), revengeharm(), repeatharm())

DIM tbits(4)

dim h&

'failure by default
inflict = 0

'remember this target
setbit targmem(), w, t, 1

'stored targs
IF readbit(atk(), 20, 52) THEN setbit targmem(), w + 12, t, 1
IF readbit(atk(), 20, 53) THEN
 FOR i = 0 TO 11
  setbit targmem(), w + 12, i, 0
 NEXT i
END IF

FOR i = 0 TO 4
 tbits(i) = bits(t, i)
NEXT i

'no damage
IF atk(5) <> 4 THEN

 'init
 cure = 0
 harm$(t) = ""
 'harm$(w) = "" ' this is probably bad! What if they already have a harm$ and we wipe it out?
 hc(t) = 7
 hx(t) = bslot(t).x + (bslot(t).w * .5)
 hy(t) = bslot(t).y + (bslot(t).h * .5)
 targstat = atk(18)

 'accuracy
 a = stat(w, 0, 3): d = stat(t, 0, 5): dm! = .25
 IF atk(6) = 1 THEN dm! = .5
 IF atk(6) = 2 THEN dm! = 1
 IF atk(6) = 3 THEN dm! = 0
 IF atk(6) = 4 THEN a = stat(w, 0, 6): d = stat(t, 0, 7): dm! = 1.25
 IF range(a, 75) < range(d * dm!, 75) THEN
  harm$(t) = readglobalstring$(120, "miss", 20)
  EXIT FUNCTION
 END IF

 IF readbit(atk(),65,1) = 1 AND stat(t,0,12) < stat(t,1,12) THEN
  harm$(t) = readglobalstring$(121, "fail", 20)
  EXIT FUNCTION
 END IF
 IF readbit(atk(),65,2) = 1 AND stat(t,0,13) < stat(t,1,13) THEN
  harm$(t) = readglobalstring$(121, "fail", 20)
  EXIT FUNCTION
 END IF
 IF readbit(atk(),65,3) = 1 AND stat(t,0,14) <> stat(t,1,14) THEN
  harm$(t) = readglobalstring$(121, "fail", 20)
  EXIT FUNCTION
 END IF
 IF readbit(atk(),65,4) = 1 AND stat(t,0,15) <> stat(t,1,15) THEN
  harm$(t) = readglobalstring$(121, "fail", 20)
  EXIT FUNCTION
 END IF

 'attack and defense base
 a = stat(w, 0, 2): d = stat(t, 0, 4)
 SELECT CASE atk(7)
  CASE 1
   a = stat(w, 0, 6): d = stat(t, 0, 7)
  CASE 2
   a = stat(w, 0, 0)
  CASE 3
   a = (stat(w, 1, 0) - stat(w, 0, 0))
  CASE 4
   a = INT(RND * 999)
  CASE 5
   a = 100
  CASE 6 TO 17
   a = stat(w, 0, atk(7) - 6)
  CASE 18
   a = repeatharm(w)
  CASE 19
   a = revengeharm(w)
  CASE 20
   a = revengeharm(t)
 END SELECT

 '--defense base
 IF atk(58) > 0 THEN d = stat(t, 0, atk(58) - 1)

 'calc defense
 am! = 1: dm! = .5                    'atk-def*.5
 IF atk(5) = 1 THEN am! = .8: dm! = .1 'atk*.8-def*.5
 IF atk(5) = 2 THEN am! = 1.3: dm! = 1 'atk-1.3-def
 IF atk(5) = 3 THEN am! = 1: dm! = 0   'atk

 'resetting
 IF readbit(atk(), 20, 57) = 1 THEN
  stat(t, 0, targstat) = stat(t, 1, targstat)
 END IF

 'calc harm
 h& = (a * am!) - (d * dm!)

 'elementals
 FOR i = 0 TO 7
  IF readbit(atk(), 20, 5 + i) = 1 THEN
   IF readbit(tbits(), 0, 0 + i) = 1 THEN h& = h& * 2   'weakness
   IF readbit(tbits(), 0, 8 + i) = 1 THEN h& = h& * .12 'resistance
   IF readbit(tbits(), 0, 16 + i) = 1 THEN cure = 1   'absorb
  END IF
  IF readbit(atk(), 20, 13 + i) = 1 THEN
   IF is_enemy(t) AND readbit(tbits(), 0, 24 + i) = 1 THEN h& = h& * 1.8
  END IF
  IF readbit(atk(), 20, 21 + i) = 1 THEN
   IF readbit(tbits(), 0, 8 + i) = 1 THEN
    harm$(t) = readglobalstring$(122, "fail", 20)
    EXIT FUNCTION
   END IF
  END IF
  IF readbit(atk(), 20, 29 + i) = 1 THEN
   IF is_enemy(t) AND readbit(tbits(), 0, 24 + i) = 1 THEN
    harm$(t) = readglobalstring$(122, "fail", 20)
    EXIT FUNCTION
   END IF
  END IF
 NEXT i

 'extra damage
 h& = h& + (h& / 100) * atk(11)

 'randomize
 IF readbit(atk(), 20, 61) = 0 THEN h& = rangel(h&,20)

 'spread damage
 IF readbit(atk(), 20, 1) = 1 THEN h& = h& / (tcount + 1)

 'cap out
 IF h& <= 0 THEN
  IF readbit(atk(), 20, 62) = 0 THEN h& = 1 ELSE h& = 0
 END IF

 IF readbit(atk(), 20, 0) = 1 THEN h& = ABS(h&) * -1 'cure bit
 IF readbit(tbits(), 0, 54) THEN h& = ABS(h&)        'zombie
 IF cure = 1 THEN h& = ABS(h&) * -1                  'absorb

 'backcompat MP-targstat
 IF readbit(atk(), 20, 60) THEN
  IF targstat = 0 THEN targstat = 1
 END IF

 'remember target stat
 remtargstat = stat(t, 0, targstat)
 rematkrstat = stat(w, 0, targstat)

 'pre-calculate percentage damage for display
 chp& = stat(t, 0, targstat)
 mhp& = stat(t, 1, targstat)
 IF readbit(atk(), 65, 5) = 1 THEN
  SELECT CASE atk(5)
   CASE 5'% of max
    h& = mhp& + (atk(11) * mhp& / 100)
   CASE 6'% of cur
    h& = chp& + (atk(11) * chp& / 100)
  END SELECT
 ELSE
  SELECT CASE atk(5)
   CASE 5'% of max
    h& = chp& - (mhp& + (atk(11) * mhp& / 100))
   CASE 6'% of cur
    h& = chp& - (chp& + (atk(11) * chp& / 100))
  END SELECT
 END IF
 'inflict
 IF readbit(atk(), 20, 51) = 0 THEN
  IF gen(genDamageCap) > 0 THEN
   IF h& > gen(genDamageCap) THEN h& = gen(genDamageCap)
   IF h& < -gen(genDamageCap) THEN h& = -gen(genDamageCap)
  END IF
  h = h&
  stat(t, 0, targstat) = safesubtract(stat(t, 0, targstat), h)
  IF readbit(atk(), 20, 2) THEN
   '--drain
   IF readbit(atk(), 20, 56) = 0 THEN
    harm$(w) = STR$(ABS(h))
    IF h > 0 THEN harm$(w) = "+" + harm$(w)
   END IF
   hc(w) = 7
   hc(w + 12) = 12 'pink
   hx(w) = bslot(w).x + (bslot(w).w * .5)
   hy(w) = bslot(w).y + (bslot(w).h * .5)
   stat(w, 0, targstat) = stat(w, 0, targstat) + h
  END IF
 END IF

 'enforce bounds
 stat(t, 0, targstat) = large(stat(t, 0, targstat), 0)
 stat(w, 0, targstat) = large(stat(w, 0, targstat), 0)
 IF readbit(atk(), 20, 58) = 0 THEN
  stat(t, 0, targstat) = small(stat(t, 0, targstat), large(stat(t, 1, targstat), remtargstat))
  stat(w, 0, targstat) = small(stat(w, 0, targstat), large(stat(w, 1, targstat), rematkrstat))
 END IF

 'set damage display
 IF readbit(atk(), 20, 56) = 0 THEN
  harm$(t) = STR$(ABS(h))
  '--if cure, show + sign
  IF h < 0 THEN harm$(t) = "+" + harm$(t)
 END IF

 'remember revenge data
 IF remtargstat > stat(t, 0, targstat) THEN
  setbit revengemask(), t, w, 1
  revenge(t) = w
  revengeharm(t) = remtargstat - stat(t, 0, targstat)
  repeatharm(w) = remtargstat - stat(t, 0, targstat)
 END IF

END IF 'skips to here if no damage
'debug(readbadbinstring$(atk(), 24, 10, 1) + " - " + XSTR$(targstat))
'name
IF readbit(atk(), 20, 55) = 1 THEN
 IF LEN(harm$(t)) > 0 THEN harm$(t) = harm$(t) + " "
 harm$(t) = harm$(t) + readbadbinstring$(atk(), 24, 10, 1)
END IF

'--success!
inflict = 1

END FUNCTION

FUNCTION liveherocount (stat())
i = 0
FOR o = 0 TO 3
 IF hero(o) > 0 AND stat(o, 0, 0) > 0 THEN i = i + 1
NEXT o
liveherocount = i
END FUNCTION

SUB loadfoe (i, formdata(), es(), bslot() AS BattleSprite, p(), ext$(), bits(), stat(), ebits(), batname$())
IF formdata(i * 4) > 0 THEN
 loadenemydata buffer(), formdata(i * 4) - 1, -1
 FOR o = 0 TO 160
  es(i, o) = buffer(o)
 NEXT o
 FOR o = 0 TO 4
  ebits(i * 5 + o) = buffer(74 + o)
 NEXT o
 WITH bslot(4 + i)
  .basex = formdata(i * 4 + 1)
  .basey = formdata(i * 4 + 2)
  .x = bslot(4 + i).basex
  .y = bslot(4 + i).basey
  p(4 + i) = 44 + i
  getpal16 pal16(), 44 + i, es(i, 54), 1 + es(i, 55), es(i, 53)
  .vis = 1
  .dissolve = 0
  IF es(i, 55) = 0 THEN
   ext$(i) = ".pt1"
   .w = 34
   .h = 34
  END IF
  IF es(i, 55) = 1 THEN
   ext$(i) = ".pt2"
   .w = 50
   .h = 50
  END IF
  IF es(i, 55) = 2 THEN
   ext$(i) = ".pt3"
   .w = 80
   .h = 80
  END IF
  .hero_untargetable = readbit(ebits(), i * 5, 61)
  .enemy_untargetable = readbit(ebits(), i * 5, 60)
 END WITH
END IF
IF bslot(4 + i).vis = 1 THEN
 setpicstuf buffer(), (bslot(4 + i).w * bslot(4 + i).h) * .5, 3
 loadset game$ + ext$(i), es(i, 53), 64 + i * 10
 FOR o = 0 TO 11
  stat(4 + i, 0, o) = es(i, 62 + o)
  stat(4 + i, 1, o) = es(i, 62 + o)
 NEXT o
 FOR o = 0 TO 4
  bits(4 + i, o) = es(i, 74 + o)
 NEXT o
 batname$(4 + i) = ""
 FOR o = 1 TO es(i, 0)
  batname$(4 + i) = batname$(4 + i) + CHR$(es(i, o))
 NEXT o
END IF
END SUB

FUNCTION randomally (who)
IF is_hero(who) THEN
 randomally = INT(RND * 4)
ELSE
 randomally = 4 + INT(RND * 8)
END IF
END FUNCTION

FUNCTION randomfoe (who)
IF is_enemy(who) THEN
 randomfoe = INT(RND * 4)
ELSE
 randomfoe = 4 + INT(RND * 8)
END IF
END FUNCTION

SUB retreat (who, atk(), bslot() AS BattleSprite, t())

IF is_enemy(who) THEN
 IF atk(14) = 2 OR atk(14) = 5 THEN
  anim_setz who, 0
  anim_absmove who, bslot(who).x, bslot(who).y, 6, 6
  anim_waitforall
 END IF
END IF

IF is_hero(who) THEN
 IF atk(14) < 2 THEN ' strike, cast
  anim_walktoggle who
  anim_setmove who, 5, 0, 4, 0
  anim_waitforall
  anim_setframe who, 0
 END IF
 IF atk(14) = 2 OR atk(14) = 5 THEN ' dash, land
  anim_setframe who, 0
  anim_walktoggle who
  anim_setz who, 0
  anim_absmove who, bslot(who).x, bslot(who).y, 6, 6
  anim_waitforall
  anim_setframe who, 0
 END IF
 IF atk(14) = 7 THEN
  anim_setframe who, 0
 END IF
END IF

END SUB

FUNCTION safesubtract (number, minus)
longnumber& = number
longminus& = minus
longresult& = longnumber& - longminus&
IF longresult& > 32767 THEN longresult& = 32767
IF longresult& < -32768 THEN longresult& = -32768
result = longresult&
safesubtract = result
END FUNCTION

FUNCTION safemultiply (number, by!)
longnumber& = number
longby! = by!
longresult& = longnumber& * longby!
IF longresult& > 32767 THEN longresult& = 32767
IF longresult& < -32768 THEN longresult& = -32768
result = longresult&
safemultiply = result
END FUNCTION

SUB setbatcap (cap$, captime, capdelay)
battlecaption$ = cap$
battlecaptime = captime
battlecapdelay = capdelay
END SUB

SUB smartarrowmask (inrange(), pt, d, axis, bslot() AS BattleSprite, tmask())
FOR i = 0 TO 11
 IF tmask(i) THEN
  IF axis THEN
   distance = (bslot(i).y - bslot(pt).y) * d
  ELSE
   distance = (bslot(i).x - bslot(pt).x) * d
  END IF
  IF distance > 0 THEN
   setbit inrange(), 0, i, 1
  END IF
 END IF
NEXT i
END SUB

SUB smartarrows (pt, d, axis, bslot() AS BattleSprite, targ(), tmask(), spred)
DIM inrange(0)
inrange(0) = 0
smartarrowmask inrange(), pt, d, axis, bslot(), tmask()
IF inrange(0) THEN
 best = 999
 newptr = pt
 FOR i = 0 TO 11
  IF readbit(inrange(), 0, i) THEN
   IF axis THEN
    distance = (bslot(i).y - bslot(pt).y) * d
   ELSE
    distance = (bslot(i).x - bslot(pt).y) * d
   END IF
   IF distance < best THEN
    best = distance
    newptr = i
   END IF
  END IF
 NEXT i
 pt = newptr
ELSE
 IF spred = 1 THEN
  FOR i = 0 TO 11
   targ(i) = tmask(i)
  NEXT i
  spred = 2
 END IF
END IF
END SUB

FUNCTION targetable (attacker, target, ebits(), bslot() AS BattleSprite)
targetable = 0
IF is_hero(target) THEN
 'target is hero
 targetable = 1
ELSE
 'target is enemy
 IF is_hero(attacker) THEN
  IF bslot(target).hero_untargetable = 0 THEN targetable = 1
 END IF
 IF is_enemy(attacker) THEN
  IF bslot(target).enemy_untargetable = 0 THEN targetable = 1
 END IF
END IF
END FUNCTION

FUNCTION targetmaskcount (tmask())
n = 0
FOR i = 0 TO 11
 IF tmask(i) THEN n = n + 1
NEXT i
targetmaskcount = n
END FUNCTION

SUB traceshow (s$)
textcolor uilook(uiText), uilook(uiOutline)
s$ = s$ + STRING$(40 - LEN(s$), " ")
printstr s$, 0, 191, 0
printstr s$, 0, 191, 1
END SUB

FUNCTION trytheft (who, targ, atk(), es())
trytheft = 0'--return false by default
IF is_hero(who) AND is_enemy(targ) THEN
 '--a hero is attacking an enemy
 IF readbit(atk(), 20, 4) THEN
  '--steal bitset is on for this attack
  IF es(targ - 4, 17) >= 0 THEN
   '--enemy is theftable
   stole = checktheftchance(es(targ - 4, 18), es(targ - 4, 19), es(targ - 4, 20), es(targ - 4, 21))
   IF stole THEN
    '--success!
    IF es(targ - 4, 17) = 0 THEN
     '--only one theft permitted
     es(targ - 4, 17) = -1
    END IF
    setbatcap readglobalstring$(117, "Stole", 40) + " " + readitemname$(stole - 1), 40, 0
    trytheft = -1'--return success
   ELSE
    '--steal failed
    setbatcap readglobalstring$(114, "Cannot Steal", 40) + " ", 40, 0
   END IF
  ELSE
   '--has nothing to steal / steal disabled
   setbatcap readglobalstring$(111, "Has Nothing", 30), 40, 0
  END IF
 END IF
END IF
END FUNCTION

FUNCTION exptolevel& (level)
' cp needed to level: calling with level 0 returns xp to lvl 1
' HINT: Customisation goes here :)

 exper& = 30
 FOR o = 1 TO level
  exper& = exper& * 1.2 + 5
  IF exper& > 1000000 THEN exper& = 1000000
 NEXT o
 exptolevel = exper&
END FUNCTION

SUB updatestatslevelup (i, exstat(), stat(), allowforget)
' i = who
' exstat = external stats
' stat = in-battle stats
' allowforget = forget spells if level dropped below requirement

'wipe learnmask for this hero
'for heroes not in the active party, 5th hero is used for spell bitsets (oob only)
FOR o = small(i, 4) * 6 TO small(i, 4) * 6 + 5
 learnmask(o) = 0
NEXT

'THIS PART UPDATES STATS FOR A LEVEL UP
IF exstat(i, 1, 12) THEN

 dim her as herodef
 loadherodata @her, hero(i) - 1

 'update stats
 FOR o = 0 TO 11
  n0 = her.Lev0.sta(o)
  n99 = her.Lev99.sta(o)
  exstat(i, 1, o) = exstat(i, 1, o) + (atlevel(exstat(i, 0, 12), n0, n99) - atlevel(exstat(i, 0, 12) - exstat(i, 1, 12), n0, n99))

  'simulate levelup bug
  IF readbit(gen(), 101, 9) = 1 THEN
   FOR j = 0 TO 4
    IF eqstuf(i, j) > 0 THEN
     loaditemdata buffer(), eqstuf(i, j) - 1
     exstat(i, 1, o) = exstat(i, 1, o) + buffer(54 + o) * exstat(i, 1, 12)
    END IF
   NEXT j
  END IF

  'do stat caps
  IF gen(genStatCap + o) > 0 THEN exstat(i, 1, o) = small(exstat(i, 1, o),gen(genStatCap + o))
 NEXT o

 'stat restoration
 IF readbit(gen(), 101, 2) = 0 THEN
  '--HP restoration ON
  exstat(i, 0, 0) = exstat(i, 1, 0) 'set external cur to external max
  FOR o = 0 TO 1
   stat(i, o, 0) = exstat(i, 1, 0) 'set in-battle min and max to external max
  NEXT o
 END IF
 IF readbit(gen(), 101, 3) = 0 THEN
  '--MP restoration ON
  exstat(i, 0, 1) = exstat(i, 1, 1) 'set external cur to external max
  FOR o = 0 TO 1
   stat(i, o, 1) = exstat(i, 1, 1) 'set in-battle min and max to external max
  NEXT o
  resetlmp i, exstat(i, 0, 12)
 END IF

 'make current stats match max stats
 FOR o = 2 TO 11
  exstat(i, 0, o) = exstat(i, 1, o)
 NEXT o

 'learn spells
 FOR j = 0 TO 3
  FOR o = 0 TO 23
   WITH her.spell_lists(j,o)
    '--if slot is empty and slot accepts a spell and learn-by-level condition is true
    IF spell(i, j, o) = 0 AND .attack > 0 AND .learned - 1 <= exstat(i, 0, 12) AND .learned > 0 THEN
     spell(i, j, o) = .attack
     setbit learnmask(), 0, small(i, 4) * 96 + j * 24 + o, 1
    END IF
    IF allowforget THEN
     '--plotscripts may lower level, forget spells if drop below requirement and know the spell specified
     IF spell(i, j, o) = .attack AND .learned - 1 > exstat(i, 0, 12) THEN
      spell(i, j, o) = 0
     END IF
    END IF
   END WITH
  NEXT o
 NEXT j

END IF

END SUB

SUB giveheroexperience (i, exstat(), exper&)
 'experience
 IF hero(i) > 0 AND exstat(i, 0, 12) < 99 THEN
  exlev&(i, 0) = exlev&(i, 0) + exper&
  'levelups
  exstat(i, 1, 12) = 0
  WHILE exlev&(i, 0) >= exlev&(i, 1) AND exstat(i, 0, 12) < 99
   exlev&(i, 0) = exlev&(i, 0) - exlev&(i, 1)
   exstat(i, 0, 12) = exstat(i, 0, 12) + 1 'current level
   exstat(i, 1, 12) = exstat(i, 1, 12) + 1 'levelup flag
   exlev&(i, 1) = exptolevel(exstat(i, 0, 12))
  WEND
 END IF
END SUB

SUB setheroexperience (BYVAL who, BYVAL amount, BYVAL allowforget, stat())
 'unlike giveheroexperience, this can cause delevelling
 DIM dummystats(40, 1, 1) 'just need HP and MP

 temp = stat(who, 0, 12)
 total = 0
 FOR i = 0 TO stat(who, 0, 12) - 1
  total += exptolevel(i)
 NEXT
 IF total > amount THEN
  'losing levels; lvl up from level 0
  stat(who, 0, 12) = 0
  exlev(who, 1) = exptolevel(0)
  lostlevels = -1
 ELSE
  'set spell learnt bits correctly
  amount -= total
  temp = 0
  lostlevels = 0
 END IF
 exlev(who, 0) = 0
 giveheroexperience who, stat(), amount
 updatestatslevelup who, stat(), dummystats(), allowforget
 stat(who, 1, 12) -= temp
 IF lostlevels THEN
  'didn't learn spells, wipe mask
  FOR i = small(who, 4) * 6 TO small(who, 4) * 6 + 5
   learnmask(i) = 0
  NEXT
 END IF
END SUB

FUNCTION visibleandalive (o, stat(), bslot() AS BattleSprite)
visibleandalive = (bslot(o).vis = 1 AND stat(o, 0, 0) > 0)
END FUNCTION

SUB writestats (exstat(), stat())
setpicstuf buffer(), 636, -1
FOR i = 0 TO 3
 IF hero(i) > 0 THEN
  '--set out-of-battle HP and MP equal to in-battle HP and MP
  FOR o = 0 TO 1
   exstat(i, 0, o) = stat(i, 0, o)
  NEXT o
 END IF
NEXT i
END SUB