if can.jump
    if.gamepad B
      if.gamepad RIGHT
        go .jumpf
      end
      get.gamepad.lx
      if r0>4096
        go .jumpf
      end
      if.gamepad LEFT
        go .jumpb
      end
      get.gamepad.lx
      if r0<-4096
        go .jumpb
      end
      go .jumpu
    end
    if.keys S
      if.keys RIGHT
        .jumpf:
        animate player, JUMP, JUMPF, jumpf.a,\
         JUMP.SPEED, 0
        go .jumpe
      end
      if.keys LEFT
        .jumpb:
        animate player, JUMP, JUMPB, jumpb.a,\
         JUMP.SPEED, 0
        go .jumpe
      end
      .jumpu:
      animate player, JUMP, JUMPU, jumpu.a,\
       JUMP.SPEED, 0
      .jumpe:
      JUMP.HEIGHT=400
      . [player.state]=SS.JUMP
      . [player.ascend]='a'
      . r0=[player.y], [player.start.y]=r0
      . r0-JUMP.HEIGHT, [player.end.y]=r0
      go .paint
    end
  end

  if can.walk
    . walk?=NO
    . can.move.up=NO, can.move.down=NO
    . can.move.left=NO, can.move.right=NO
    . move.u=NO, move.d=NO
    . move.l=NO, move.r=NO

    if [player.y]>0
      . can.move.up=YES
    end
    . r0=[screen.h], r0-[player.h], r0-16
    if [player.y]<r0
      . can.move.down=YES
    end
    if [player.x]>0
      . can.move.left=YES
    end
    . r0=[screen.w], r0-[player.w]
    if [player.x]<r0
      . can.move.right=YES
    end

    SPEED.X=10
    SPEED.Y=8

    if can.move.up
      if.keys UP
        . move.u=YES
      end
      if.gamepad UP
        . move.u=YES
      end
      get.gamepad.ly
      if r0>4096
        . move.u=YES
      end
      if move.u
        . [player.y]-SPEED.Y, walk?=YES
      end
    end
    if can.move.down
      if.keys DOWN
        . move.d=YES
      end
      if.gamepad DOWN
        . move.d=YES
      end
      get.gamepad.ly
      if r0<-4096
        . move.d=YES
      end
      if move.d
        . [player.y]+SPEED.Y, walk?=YES
      end
    end
    if can.move.left
      if.keys LEFT
        . move.l=YES
      end
      if.gamepad LEFT
        . move.l=YES
      end
      get.gamepad.lx
      if r0<-4096
        . move.l=YES
      end
      if move.l
        . [player.x]-SPEED.X, walk?=YES
        . [player.invert.x]=YES
      end
    end
    if can.move.right
      if.keys RIGHT
        . move.r=YES
      end
      if.gamepad RIGHT
        . move.r=YES
      end
      get.gamepad.lx
      if r0>4096
        . move.r=YES
      end
      if move.r
        . [player.x]+SPEED.X, walk?=YES
        . [player.invert.x]=NO
      end
    end
    if walk?
      animate player, WALK, 0, walk.a, 4, 0
      go .paint
    end
  end

  ; get distance between player and enemy

  . face.enemy=NO
  . r0=[enemy.x], r1=[player.x]
  if r0<r1
    . r1-r0, dx=r1
    if [player.invert.x]
      . face.enemy=YES
    end
  else
    . r0-r1, dx=r0
    if not [player.invert.x]
      . face.enemy=YES
    end
  end
  . r0=[enemy.y], r1=[player.y]
  if r0<r1
    . r1-r0, dy=r1
  else
    . r0-r1, dy=r0
  end 

; adjectives: 1-7 scale

texts a7.ta[]= 'best', 'fastest', 'strongest',\
 'smartest', 'greatest', 'all'
texts a6.ta[]= 'better', 'faster', 'stronger',\
 'smarter', 'greater', 'most'
texts a5.ta[]= 'good', 'fast', 'strong',\
 'smart', 'great', 'more'
texts a4.ta[]= 'medium', 'average',\
 'normal', 'some'
texts a3.ta[]= 'weak', 'slow', 'dumb', 'less'
texts a2.ta[]= 'weaker', 'slower',\
 'dumber', 'lesser'
texts a1.ta[]= 'worst', 'weakest', 'slowest',\
 'dumbest', 'least', 'none'
                             
;;;;;;;;;;;;;;;;;;;; EFFECTS ;;;;;;;;;;;;;;;;;;;;;

; stars, explosions, lasers, projectiles

align

ARRAY effect.images[IMAGE]
integer effect.index, effect.count

EFFECT.SPEED=1

text effect.folder='EFFECT\'  ; SPRITE\EFFECT
texts effect.files[]=\
 '1', '2', '3', '4', '5'

function load.effects, scale
  locals i, n, image, file
  set.sprite.folder
  set.folder effect.folder    ; \EFFECT\
  . n=effect.files.$          ; # filenames
  try @size effect.images, n  ; allocate
 
  loop i=0 to n
    @ image=effect.images[i]
    . r0=i, file=[effect.files+r0*4]
    try load.image.t image, file
    try size.image.p image, scale
  endl
  . [effect.index]=0, [effect.count]=0
endf 1

function draw.effect, x, y
  locals i, n, image
  . i=[effect.index]
  . n=[effect.count]
  @ image=effect.images[i]
  draw.image image, x, y
  . n++
  if n>EFFECT.SPEED
    . i++
    . n=0
  end
  if i>=effect.files.$
    . i=0
  end
  . [effect.index]=i
  . [effect.count]=n
endf

; ?????????????????? SOUND.INC ???????????????????

structure SOUND
 void s, s2     ; PDIRECTSOUNDBUFFER[2]
 integer status
 boolean music, replay, playing, played
ends ?sound

; load .wav. return PDIRECTSOUNDBUFFER

function load.wav, file
  locale wav,\
   wav.data(20),\     ; MMCKINFO
   fmt.data(20),\     ; same
   wav.format(18),\   ; WAVEFORMATEX
   ds.desc(20),\      ; DSBUFFERDESC
   sound,\            ; PDIRECTSOUNDBUFFER
   audio1, audio2,\   ; circular buffers
   length1, length2   ; sizes

  . r0=&wav
  memory.zero r0, ..locals.size

  try wav=mmioOpenA file, 0, MMIO_ALLOCBUF

  . r0=&wav.data              ; find 'WAVE'
  . dword [r0+8]=45564157h
  mmioDescend wav,\
   r0, 0, MMIO_FINDRIFF

  . r0=&fmt.data              ; find 'fmt '
  . dword [r0+8]=20746D66h
  . r1=&wav.data
  mmioDescend wav, r0, r1, 0

  . r0=&wav.format
  mmioRead wav, r0, 18
  . r0=&fmt.data
  mmioAscend wav, r0, 0
  . r0=&fmt.data              ; find 'data'
  . dword [r0]=61746164h
  . r1=&wav.data
  mmioDescend wav,\
   r0, r1, MMIO_FINDCHUNK

  . r0=&ds.desc      ; sound buffer description
  . dword [r0]=20    ; size
  . dword [r0+4]=224 ; flags=DSBCAPS_CTRLDEFAULT
  . r1=&fmt.data
  . r1=[r1+4]        ; fmt.data.cksize
  . dword [r0+8]=r1  ; dwBufferBytes
  . r1=&wav.format
  . dword [r0+16]=r1 ; lpwfxFormat
  . r1=&sound
  callx [dsound],\   ; CreateSoundBuffer
   12, r0, r1, 0
  if true            ; error
    . sound=0
    jmp .close
  end
  . audio1=0
  . audio2=0         ; circular buffers
  push 0             ; IDirectSoundBuffer.Lock
  . r0=&length2
  push r0
  . r0=&audio2
  push r0
  . r0=&length1
  push r0
  . r0=&audio1
  push r0
  . r0=&fmt.data
  . r0=[r0+4]
  push r0
  push 0
  callx \
   sound, DS.Lock
  cmp audio1, 0      ; read from file
  jbe .us            ; write to sound buffers
  mmioRead wav,\
   audio1, length1
  .us:
  cmp audio2, 0
  jbe .us2
  mmioRead wav,\
   audio2, length2
  .us2:
  callx sound,\      ; IDirectSoundBuffer.Unlock
   DS.Unlock,\
   audio1, length1,\
   audio2, length2
  .close:
  mmioClose wav, 0
endf sound

; load "sound" effect (play once) or "music"
; (replay and allow simultaneous sounds
; to be playing in the background)

function load.sound, sound, file
  try load.wav file
  . r1=sound, [?sound.s+r1]=r0
endf 1

function load.music, sound, file
  try load.sound sound, file
  . r0=sound, r1=[?sound.s+r0]
  . r2=&[?sound.s2+r0]
  . [?sound.replay+r0]=1
  callx [dsound],\
   DS.DuplicateSoundBuffer, r1, r2
  if true
    return 0
  end
endf 1    

                     invoke  LoadLibraryA,'XINPUT9_1_0.dll'
                       test  eax,eax
                         jz  @f
                     invoke  GetProcAddress,eax,'XInputGetState'
                       test  eax,eax
                         jz  @f
                        mov  [XInputGetState],eax
                @@:      

maybe I should mention this tip to m3ntal,
In my geometry wars game, in order to play in on a computer without the gamepad driver installed, I used

Code:

                     invoke  LoadLibraryA,'XINPUT9_1_0.dll'
                       test  eax,eax
                         jz  @f
                     invoke  GetProcAddress,eax,'XInputGetState'
                       test  eax,eax
                         jz  @f
                        mov  [XInputGetState],eax
                @@:      

dword[XInputGetState] initially points to an empty function so that the rest of the game doesn't crash if if any of these api calls fail.

Have you played the latest version of my geometry wars game with the keyboard? It will work whether or not xinput is installed.

Updated download to use LoadLibrary. It should not need X-Input now. XINPUT_GAMEPAD structures will be all zeros. Vibration works.

Did you make all the graphics or you took them from other games?

Nice, I guess we've had enough nerdy stuff, seriously something cool

slight bug that MHajduk mentioned