Subversion Repositories Kolibri OS

;=============================================================================;

; Hidnplayr's invaders, Compilable for DexOs and Kolibrios                    ;

;-----------------------------------------------------------------------------;

;                                                                             ;

; Copyright (C) hidnplayr 2007. All rights reserved.                          ;

;                                                                             ;

; Invaders is distributed in the hope that it will be useful, but WITHOUT ANY ;

; WARRANTY. No author or distributor accepts responsibility to anyone for the ;

; consequences of using it or for whether it serves any particular purpose or ;

; works at all, unless he says so in writing. Refer to the GNU General Public ;

; License (the "GPL") for full details.                                       ;

; Everyone is granted permission to copy, modify and redistribute KolibriOS,  ;

; but only under the conditions described in the GPL. A copy of this license  ;

; is supposed to have been given to you along with KolibriOS so you can know  ;

; your rights and responsibilities. It should be in a file named COPYING.     ;

; Among other things, the copyright notice and this notice must be preserved  ;

; on all copies.                                                              ;

;                                                                             ;

; see copying.txt                                                             ;

;                                                                             ;

; contact me on hidnplayr@gmail.com                                           ;

;                                                                             ;

;-----------------------------------------------------------------------------;

SCREEN_X equ 640

SCREEN_Y equ 480

SHIP_X equ 32

SHIP_Y equ 32

SHIP_X_POS equ (SCREEN_X-SHIP_X)/2

SHIP_Y_POS equ SCREEN_Y-SHIP_Y-27

ENEMY_X equ 32

ENEMY_Y equ 32

ALIEN_X equ 48

ALIEN_Y equ 38

ALIEN_Y_POS equ 1

BOUNDARY equ 10

MOVEMENT equ 7

TRANSPARENCY equ 0x00000000

WINDOW_X equ 100

WINDOW_Y equ 100

BULLET_X equ 10

BULLET_Y equ 10

STARS_   equ 226

STARLEVELS equ 3

ENEMY_STARTING_X equ 25

ENEMY_STARTING_Y equ 50

BULLETSPEED equ 12

SCREEN_X_POS equ 5

SCREEN_Y_POS equ 25

gif_hash_offset = gif_hash_area

include 'ascgl.inc'

include 'invaders_kolibri.inc'

decodegif:

        giftoimg gif_bullet,bullet

        giftoimg gif_bullet2,bullet2

        giftoimg gif_ship,ship

        giftoimg gif_enemy1,enemy1

        giftoimg gif_enemy2,enemy2

        giftoimg gif_enemy3,enemy3

        giftoimg gif_enemy4,enemy4

        giftoimg gif_enemy5,enemy5

        giftoimg gif_alien,alien

        giftoimg gif_menu1,menu1

        giftoimg gif_menu2,menu2

        giftoimg gif_menu3,menu3

        giftoimg gif_menu4,menu4

        giftoimg gif_logo,logo

        giftoimg gif_pause,pause_

        giftoimg gif_levelup,levelup

        giftoimg gif_gameover,gameover

        giftoimg gif_highscore,highscore

        giftoimg gif_smallfont,smallfont

        giftoimg gif_bigfont,bigfont

        giftoimg gif_numbers,numbers

        call  createstars

        call  drawit

        call  [drawroutine]

mainloop:

    cmp  byte[status],3 ; if game is paused,...

    je   waitfordraw

    call drawit

    call [drawroutine]

    call checkbullet

   waitfordraw:

    call waitandgetkey ;;;

    test ah,ah

    jz   mainloop

    cmp  byte[status],1      ;

    jne  nogame

         cmp  ah, KEY_RIGHT

         jnz  noright

         cmp  dword[ship_x],SCREEN_X-SHIP_X-BOUNDARY

         jge  mainloop

         add  dword[ship_x],MOVEMENT

         jmp  mainloop

       noright:

         cmp  ah, KEY_LEFT

         jnz  noleft

         cmp  dword[ship_x],BOUNDARY

         jle  mainloop

         sub  dword[ship_x],MOVEMENT

         jmp  mainloop

       noleft:

         cmp  ah, KEY_UP

         jnz  noup

         cmp  dword[bullet_y],1

         jg   mainloop

         mov  eax,dword[ship_x]

         add  eax,(SHIP_X-BULLET_X)/2

         mov  dword[bullet_x],eax

         mov  dword[bullet_y],SHIP_Y_POS;-BULLET_Y

         jmp  mainloop

       noup:

         cmp  ah,KEY_P

         jnz  no_pause1

         mov  byte[status],3

         aimgtoimg pause_,150,180,vscreen,TRANSPARENCY,0

         call [drawroutine]

         jmp  mainloop

       no_pause1:

nogame:

    cmp  byte[status],0

    jne  nomenu

         cmp  ah, KEY_DOWN

         jnz  no_down

         cmp  byte[menu],3

         jne  no_menu1

         mov  byte[menu],0

         jmp  nomenu

       no_menu1:

         inc  byte[menu]

       no_down:

         cmp  ah, KEY_UP

         jnz  no_up

         cmp  byte[menu],0

         jne  no_menu0

         mov  byte[menu],3

         jmp  nomenu

       no_menu0:

         dec  byte[menu]

       no_up:

         cmp  ah, KEY_ESC

         je   exit

       no_esc:

         cmp  ah, KEY_ENTER

         jnz  no_enter

        exemenu:

                cmp  byte[menu],0  ;start

                jne  exemenu1

              new_game:

                        mov  dword[score],0

                        mov  eax,[score]

                        call convertscore

                        mov  esi, level1

                        mov  word[levelnumb],'01'

              load_level:

                        mov  byte[enemy_speed],1

                        mov  dword[enemy_x], ENEMY_STARTING_X

                        mov  dword[enemy_y], ENEMY_STARTING_Y

                        mov  edi, enemy_table

                        mov  ecx, 5

                        rep  movsd

                        mov  byte[status],1

                        jmp  mainloop