screwy battle script (wip)

#include moves.bsh
#dynamic 0x800000

#org @start
jumpifhalfword B_!= 0x2023D4A 0x(index of your relic song) 0x81D6A60
setbyte 0x02023E85 0x1
attackcanceler
accuracycheck 0x81D695E 0x0
attackstring
ppreduce
calculatedamage
attackanimation
waitanimation
missmessage
cmd5c BANK_TARGET
waitstate
datahpupdate BANK_TARGET
graphicalhpupdate BANK_TARGET
critmessage
waitmessage DELAY_1SECOND
resultmessage
waitmessage DELAY_1SECOND
seteffectwithchancetarget
faintpokemon BANK_TARGET 0x0 0x8000000
callasm 0x(AAAAAA + 1)
jumpifbyte 0x1 0x020370D4 0x1 @doanimation
setbyte 0x02023FD8 0x0
cmd49 0x0 0x0
end

#org @doanimation
setbyte 0x020370D4 0x1
playanimation 0x1 0x1C 0x0
setbyte 0x02023FD8 0x0
cmd49 0x0 0x0
end