Sorry your browser is not supported!

`Keeps track on the combo.
ComboAttack = 0
`Prevents holding down the A key.
Akey = 0

if keystate(30) = 1 and leftkey() = 0 and Rightkey() = 0 and ComboAttack = 0 and Akey = 0
   Hide Sprite 999
   Show Sprite 104
   ComboAttack = ComboAttack + 1
   Akey = Akey + 1


  if keystate(30) = 1 and leftkey() = 0 and Rightkey() = 0 and ComboAttack = 1 and Akey = 0
      Hide Sprite 999
      Show Sprite 105
      ComboAttack = ComboAttack + 1
      Akey = Akey + 1

      if keystate(30) = 1 and leftkey() = 0 and Rightkey() = 0 and ComboAttack = 2 and Akey = 0
         Hide Sprite 999
         Show Sprite 106
         ComboAttack = 0
         Akey = Akey + 1
      endif
   endif
endif
`Unlocks the A button when there is no input from the A button.
if keystate(30) = 0 and Akey >0
   Akey = 0
endif

`Keeps track on the combo.
ComboAttack = 0
`Prevents holding down the A key.
Akey = 0

if keystate(30) = 1 and leftkey() = 0 and Rightkey() = 0 and ComboAttack = 0 and Akey = 0
   Hide Sprite 999
   Show Sprite 104
   ComboAttack = ComboAttack + 1
   Akey = Akey + 1
endif

if keystate(30) = 1 and leftkey() = 0 and Rightkey() = 0 and ComboAttack = 1 and Akey = 0
   Hide Sprite 999
   Show Sprite 105
   ComboAttack = ComboAttack + 1
   Akey = Akey + 1
endif

if keystate(30) = 1 and leftkey() = 0 and Rightkey() = 0 and ComboAttack = 2 and Akey = 0
   Hide Sprite 999
   Show Sprite 106
   ComboAttack = 0
   Akey = Akey + 1
endif

`Unlocks the A button when there is no input from the A button.
if keystate(30) = 0 and Akey >0
   Akey = 0
endif

Type ComboList
  Key as string
  Timer as integer
  Valid as boolean // optional, used to cap the combo, i.e. (1),(2) valid but not (3) until it's unlocked
  Sprite as integer // optional value to specify the actual sprite used for each move
Endtype

dim Combo(10) as ComboList
// list keypresses for each 'move' in order, along with a timer value
// meaning this key must be pressed within X ms of the next, otherwise the combo resets
Combo(1).Key="a" : Combo(1).Timer=100
Combo(2).Key="a" : Combo(2).Timer=80
Combo(3).Key="d" : Combo(3).Timer=50

// use a function to check valid 'states' of a key, i.e. not allowed to hold down a key
// it must be released after being pressed to 'unlock' and allow it to be pressed again

if KeyValid(CurrentKey)=1
 // check to see if pressing key within the timeout period, if so advance your combo by 1
 if Combo(CurrentMove).Key=CurrentKey and timer()-TimeSinceLastMove =< Combo(CurrentMove).Timer
   inc CurrentMove,1
   TimeSinceLastMove=timer()
   // do stuff
   // (optional) set sprite to defined image
 else // if not within the timer value, or pressed the wrong key, reset back to first move
   CurrentMove=1
   TimeSinceLastMove=timer()
 endif
endif

// seperate function/commands here to deal damage, change sprite etc according to CurrentMove

dim KeyLocked(255) as boolean // if keyboard key was pressed previously, must be released to be pressed again, call KeyCheck(#)
dim KeyTimer(255) as integer : KeyTimer(0)=500 : KeyTimer(1)=16 // used for repeated key strokes, 0=Initial delay in ms, 1=repeat delay in ms
dim KeyRepeating(255) as boolean// Checks if key is still in initial delay stage, 0=delayed, 1=repeating


function KeyCheck(i)
	i2=0
	if i=0
		for i3=1 to 255
			if keystate(i3)=0 then KeyLocked(i3)=0 : KeyRepeating(i3)=0 : KeyTimer(i3)=hitimer(1000)
		Next i3
	Endif
	if KeyLocked(i)=0 and keystate(i)=1 then KeyLocked(i)=1 : i2=1 : KeyTimer(i)=hitimer(1000)
	if keystate(i)=0 then KeyLocked(i)=0 : KeyRepeating(i)=0
	if keystate(i) then if i>1 and i<28 or i>29 and i<42 or i>42 and i<54 or i=57 or i>70 and i<84 or i=181 or i=199 or i=200 or i=201 or i=203 or i=205 or i>206 and i<212 // check for valid repeatable keys
		if KeyRepeating(i)=0 and hitimer(1000)-KeyTimer(i)=>KeyTimer(0) then KeyRepeating(i)=1 : KeyLocked(i)=0
		if KeyRepeating(i)=1 and hitimer(1000)-KeyTimer(i)=>KeyTimer(1) then KeyLocked(i)=0 : KeyTimer(i)=hitimer(1000)
	Endif
Endfunction i2