kolibrios/programs/games/tanks/trunk/leveledit.asm

use32
org 0x0

  db  'MENUET01'
  dd  0x1
  dd  START
  dd  I_END
  dd  0x3000+640*400*3+16*20*20*3+512+640+1
  dd  0x3000
  dd  0x0
  dd  0x0
include 'lang.inc'
include 'pixengin.inc'
include '../../../macros.inc'
START:
   mov eax,40
   mov ebx,111b
   mcall
   call drawwin
;main cycle(fps)
 fpst:
   call clock
   mov eax,[time]
   mov [old_time],eax
   mov [old_frame_time],eax
;----------------------------------------------------------
;---------load all sprites from arrays to memory-----------
;----------------------------------------------------------
   mov [number_sprite],0
   xor eax,eax
nextfile:
   mov ebx,[spisok+4*eax]
   mov ecx,50
   mov esi,ebx
   add esi,2
   mov edi,0x3000+(640*400*3)+(16*20*20*3)+10
   rep movsb ;copy palitra to memory
   mov esi,ebx
   add esi,52
   xor ecx,ecx
   mov cl,byte [ebx]
   mov edi,0x3000+(640*400*3)+(16*20*20*3)+512
   push eax
   call unpakin
   pop eax
   mov ecx,20*20
   mov esi,0x3000+(640*400*3)+(16*20*20*3)+512
   mov edi,[number_sprite]
   imul edi,3*20*20
   add edi,0x3000+(640*400*3)
   un:
      xor ebx,ebx
      mov bl,byte[esi]
      lea ebx,[ebx+ebx*2]
      add ebx,0x3000+(640*400*3)+(16*20*20*3)+10
      mov edx,[ebx]
      mov [edi],edx
      add esi,1
      add edi,3
      sub ecx,1
   jnz un
   add [number_sprite],1
   add eax,1
   cmp [number_sprite],10;total number of pictures equal 10
   jne nextfile
;--------------------------------------------------------
   mov [total_time],0
   mov [phas],0
   mov [x],100
   mov [y],100
animation:
   call clock
   mov eax,[time]
   sub eax,[old_time]
   cmp eax,5
   jl next_action
   mov eax,[time]
   mov [old_time],eax
   mov eax,[phas]
   mov [black],eax
   mov [phas],15
   call PutSprite
   call putimage
   mov eax,5
   mov ebx,2
   mcall
   mov eax,[black]
   mov [phas],eax
   call PutSprite
   call putimage
   call print_pos
   add [frames],2
next_action:
	 call clock
	 mov eax,[time]
	 sub eax,[old_frame_time]
	 cmp eax,100
	 jl no_frames
	 mov eax,[time]
	 mov [old_frame_time],eax
	 mov eax,13
	 mov ebx,420*65536+30
	 mov ecx,425*65536+15
	 mov edx,0xffffff
	 mcall
	 mov eax,47
	 mov ebx,3*65536
	 mov ecx,[frames]
	 mov edx,425*65536+427
	 mov esi,0
	 mcall
	 mov [frames],0
no_frames:
	 ;----------------------
	 mov ebx,20
	 mov eax,[x]
	 cdq
	 idiv ebx
	 mov ecx,eax
	 mov eax,[y]
	 cdq
	 idiv ebx
	 imul eax,32
	 add eax,ecx
	 add eax,0x3000+(640*400*3)+(16*20*20*3)+512
	 xor ebx,ebx
	 mov bl,byte [phas]
	 mov [eax],bl;write number of shablon to the map-array
	 ;-----------------------
	 ;mov eax,11
	 ;mcall
	 mov eax,23
	 mov ebx,2
	 mcall
	 cmp eax,2
	 jne animation
	 mov eax,2
	 mcall
	 shr eax,8
	 cmp eax,32
	 jne key2
	 add [phas],1
	 cmp [phas],10
	 jne animation
	 mov [phas],0
	 jmp animation
    key2:cmp eax,176
	 jne key3
	 sub [x],20
	 jmp animation
    key3:cmp eax,179
	 jne key4
	 add [x],20
	 jmp animation
    key4:cmp eax,178
	 jne key5
	 sub [y],20
	 jmp animation
    key5:cmp eax,177
	 jne key6
	 add [y],20
	 jmp animation
    key6: cmp eax,51
	 jne key7
	 call save_level
	 jmp animation
    key7:cmp eax,50
	 jne key8
	  call load_level
	 jmp animation
    key8:cmp eax,27
	 jne animation
	 mov eax,-1
	 mcall
;-------------------------------------------
drawwin:
 mov eax,12
	mov ebx,1
	mcall
	;<3B><><EFBFBD>㥬 <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> <20><><EFBFBD><EFBFBD>室<EFBFBD><E5AEA4><EFBFBD><EFBFBD> 梥<><E6A2A5>
	mov eax,0
	mov ebx,50*65536+640
	mov ecx,50*65536+450
	mov edx,0x02AABBCC
	mov esi,0x805080d0
	mov edi,0x005080d0
	mcall
	;<3B><>襬 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
	mov eax,4
	mov ebx,5*65536+5
	mov ecx,0x10ddeeff
	mov edx,name
	mov esi,7
	mcall
	;<3B><><EFBFBD>㥬 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
	mov eax,8
	mov ebx,(640-19)*65536+12
	mov ecx,5*65536+12
	mov edx,1
	mov esi,0x6688dd
	mcall
	ret
;----------------------------------------------------------
counter     dd 0
;----------------------------------------------------
;draw sprite in video memory
PutSprite:
	mov ebx,[x]
	imul ebx,3
	mov eax,[y]
	imul eax,640*3
	add eax,0x3000
	add eax,ebx
	cld
	mov [counter],20
	mov esi,[phas]
	imul esi,1200
	add esi,0x3000+(640*400*3)
	mov ebx,esi
   draw:
	mov esi,ebx
	mov edi,eax
	mov ecx,20*3
	rep movsb
	add eax,640*3
	add ebx,3*20
	dec [counter]
	jnz draw
      ret
;-------------------------------------------------------------------------
;get time in 1/100 sec
clock:	mov eax,26
	mov ebx,9
	mcall
	mov [time],eax
	ret
;---------------------------------------------------------
putimage:
	 mov eax,7
	 mov ebx,0x3000
	 mov ecx,640*65536+400
	 mov edx,1*65536+20
	 mcall
	 ret
;---------------------------------------------------------
print_pos:mov eax,13
	  mov ebx,490*65536+60
	  mov ecx,425*65536+15
	  mov edx,0xffffff
	  mcall
	  mov eax,47
	  mov ebx,3*65536
	  mov ecx,[x]
	  mov edx,495*65536+430
	  mov esi,0
	  mcall
	  mov eax,47
	  mov ebx,3*65536
	  mov ecx,[y]
	  mov edx,530*65536+430
	  mov esi,0
	  mcall
	  ret
;-----------------------------------------------------------
;-------------------------load files------------------------
;-----------------------------------------------------------
loadfile:
	 ;<3B>㤠 <20><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
	 mov [file_read+12],dword 0x3000+(640*400*3)+(16*20*20*3)
	 ;<3B><><EFBFBD><EFBFBD>㦠<EFBFBD><E3A6A0> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD> ⮣<> <20>⮡<EFBFBD> 㧭<><E3A7AD> ࠧ<><E0A0A7><EFBFBD> 䠩<><E4A0A9>
	 mov eax,58
	 mov ebx,file_read
	 mcall
	 ;<3B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>塞 ᪮<>쪮 <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> 512 <20><><EFBFBD><EFBFBD> <20>㦭<EFBFBD> <20>ᯮ<EFBFBD>짮<EFBFBD><ECA7AE><EFBFBD><EFBFBD>
	 ;<3B><><EFBFBD> <20><><EFBFBD><EFBFBD>㧪<EFBFBD> 䠩<><E4A0A9>
	 mov ecx,ebx
	 shr ecx,9
	 add ecx,1
	 ;<3B><><EFBFBD><EFBFBD><EFBFBD>뢠<EFBFBD><EBA2A0> <20><><EFBFBD><EFBFBD><EFBFBD> <20>㤠 <20>㦭<EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>
	 mov [file_read+12],dword 0x3000+(640*400*3)+(16*20*20*3)
   ;<3B><><EFBFBD><EFBFBD>ᨬ <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> file_read <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD> <20> <20><><EFBFBD><EFBFBD>ண<EFBFBD> <20>㦭<EFBFBD> <20><><EFBFBD><EFBFBD>㦠<EFBFBD><E3A6A0> 䠩<>
	 mov [file_read+4],dword 0
	 ;<3B><><EFBFBD><EFBFBD>ᨬ <20> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> file_read <20><>᫮ <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>㦭<EFBFBD> <20><><EFBFBD><EFBFBD>㧨<EFBFBD><E3A7A8>
	 mov [file_read+8],ecx
	 ;<3B><><EFBFBD><EFBFBD>㦠<EFBFBD><E3A6A0> <20><><EFBFBD><EFBFBD>
	 mov eax,58
	 mov ebx,file_read
	 mcall
	 cmp eax,0
	 jne scock2
	 mov esi,0x3000+(640*400*3)+(16*20*20*3)
	 mov ecx,[esi+8]
	 add esi,60
	 mov edi,0x3000+(640*400*3)+(16*20*20*3)+512
	 call unpakin
	 mov [addr_palitra],dword 0x3000+(640*400*3)+(16*20*20*3)+10
	 mov ecx,400
	 mov esi,0x3000+(640*400*3)+(16*20*20*3)+512
	 mov edi,[number_sprite]
	 imul edi,3*20*20
	 add edi,0x3000+(640*400*3)
    unp:
	xor eax,eax
	mov al,byte[esi]
	imul eax,3
	add eax,[addr_palitra]
	mov ebx,[eax]
	and ebx,0xffffff
	mov [edi],ebx
	add esi,1
	add edi,3
	sub ecx,1
	jnz unp
  scock2:
	 ret
;---------------------------------------------------------------------------
;-----------------save level in file----------------------------------------
;---------------------------------------------------------------------------
save_level:
	   call input_path
	   xor ebx,ebx
  copy_path:
	   xor eax,eax
	   mov al,byte [string+ebx]
	   cmp al,13
	   je end_copy
	   mov [file_write+20+ebx],eax
	   add ebx,1
	   jmp copy_path
   end_copy:
	   mov esi,0x3000+(640*400*3)+(16*20*20*3)+512;0x1000+0x1000
	   mov edi,0x3000+(640*400*3)+(16*20*20*3);0x1000
	   mov ecx,32*20
	   call save_image
	   mov eax,[SizeFile]
	   mov [file_write+8],eax
	   mov [file_write+12],dword 0x3000+(640*400*3)+(16*20*20*3);+(0x1000)
	   mov eax,58
	   mov ebx,file_write
	   mcall
	   cmp eax,0
	   jne scok
	   xor esi,esi
	   mov eax,55
	   mov ebx,eax
	   mov esi,sound
	   mcall
       scok:
	  ret
;-----------------------------------------------------------------------------
;-----------------load level to memory----------------------------------------
;-----------------------------------------------------------------------------
load_level:
	   call input_path
	   xor ebx,ebx
 copy_load:xor eax,eax
	   mov al,byte [string+ebx]
	   cmp al,13
	   je end_load
	   mov [file_read+20+ebx],eax
	   add ebx,1
	   jmp copy_load
  end_load:
	   mov [file_read+12],dword 0x3000+(640*400*3)+(16*20*20*3)
	   mov eax,58
	   mov ebx,file_read
	   mcall
	   mov ecx,ebx
	   shr ebx,9
	   add ebx,1
	   mov [file_read+8],ebx
	   mov eax,58
	   mov ebx,file_read
	   mcall
	   cmp eax,0
	   jne nosound
	   mov esi,0x3000+(640*400*3)+(16*20*20*3)
	   mov edi,0x3000+(640*400*3)+(16*20*20*3)+512;0x1000+0x1000
	   call unpakin
	   xor esi,esi
	   mov eax,55
	   mov ebx,55
	   mov esi,sound
	   mcall
	   xor esi,esi
	   mov [x_l],0
	   mov [y_l],0
       c_y:
	   mov [x_l],0
       c_x:
	   mov eax,[x_l]
	   mov ebx,[y_l]
	   imul ebx,32
	   add eax,ebx
	   add eax,0x3000+(640*400*3)+(16*20*20*3)+512;0x1000+0x1000
	   mov ecx,eax
	   xor eax,eax
	   mov al,byte [ecx]
	   imul eax,1200
	   add eax,0x3000+(640*400*3)
	   mov ebx,[x_l]
	   imul ebx,20*3
	   mov ecx,[y_l]
	   imul ecx,20*3*640
	   add ebx,ecx
	   add ebx,0x3000
	   mov esi,eax
	   mov edi,ebx
	   ;----------------------------
	   xor edx,edx
  next_line:
	   mov esi,eax
	   mov edi,ebx
	   mov ecx,60
	   rep movsb
	   add edx,1
	   add eax,20*3
	   add ebx,(640*3)
	   cmp edx,20
	   jne next_line
	   ;----------------------------
	   add [x_l],1
	   cmp [x_l],32
	   jne c_x
	   add [y_l],1
	   cmp [y_l],20
	   jne c_y
    nosound:
	   jmp animation
;-----------------------------------------------------------------------------
input_path:
	    mov [position],byte -1
	    call print_line
	    mov eax,13
	    mov ebx,25*65536+6
	    mov ecx,433*65536+12
	    mov edx,0xff6c58
	    mcall
      opros:mov eax,10
	    mcall
	    cmp eax,2
	    jne opros
	    mov eax,2
	    mcall
	    shr eax,8
	    cmp eax,13
	    je exit_cycle
	    cmp eax,8
	    je backspace
	    cmp eax,176
	    je left
	    cmp eax,179
	    je right
	    cmp eax,32
	    je probel
	    add [position],1
	    xor ebx,ebx
	    mov bl,[position]
	    mov [string+ebx],byte al
	    call print_line
	    call print_cursor
	    jmp  opros
  backspace:xor ebx,ebx
	    mov bl,[position]
	    mov [string+ebx],byte ' '
	    sub [position],1
	    call print_line
	    call print_cursor
	    jmp opros
       left:sub [position],1
	    call print_line
	    call print_cursor
	    jmp opros
      right:add [position],1
	    call print_line
	    call print_cursor
	    jmp opros
     probel:add [position],1
	     call print_line
	     call print_cursor
	    jmp opros
 exit_cycle:add [position],1
	     xor ebx,ebx
	     mov bl,[position]
	     mov [string+ebx],byte 13
	     mov eax,13
	     mov ebx,20*65536+(64*6)+5
	     mov ecx,430*65536+15
	     mov edx,0xffffff
	     mcall
	    ret
;---------------------------------------------------------------
print_line:
	     mov eax,13
	     mov ebx,20*65536+(64*6)+5
	     mov ecx,430*65536+15
	     mov edx,0xffffff
	     mcall
	     mov eax,4
	     mov ebx,25*65536+435
	     mov ecx,0x1
	     mov edx,string
	     mov esi,64
	     mcall
	     ret
print_cursor:
	     mov eax,13
	     xor ebx,ebx
	     mov bl,[position]
	     imul ebx,6
	     add ebx,25+6
	     shl ebx,16
	     add ebx,6
	     mov ecx,433*65536+12
	     mov edx,0xff6c58
	     mcall
	     ret
;------------------------------------------------------------------------
string:
       db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
       db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
position	db 0
total_time	dd 0
time		dd 0
old_time	dd 0
frame		dd 0
addr_palitra	dd 0
;addr_array      dd 0
number_sprite	dd 0
offs		dd 0
phas		dd 0
black		dd 0
x		dd 0
y		dd 0
x_l		dd 0
y_l		dd 0
name	  db 'testfps'
frames		dd 0
old_frame_time	dd 0
sound	  db 0x90,0x30,0
file_read:
       dd 0
       dd 0
       dd 1
       dd 0
       dd 0x3000
       db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
file_write:
	dd 1
	dd 0
	dd 0
	dd 0
	dd 0x3000
	db 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
water:
db 247,0,0,0,0,0,255,0

db 0,128,0,255,128,0,128,255

db 0,255,0,0,255,255,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,7,0,2,1,19,2

db 1,2,1,2,17,2,1,18

db 35,49,19,2,49,2,17,2

db 17,3,6,5,19,2,19,17

db 18,35,18,1,2,51,5,1

db 2,5,3,6,18,1,19,5

db 3,17,2,19,6,5,19,6

db 1,3,33,19,6,3,5,3

db 2,17,51,2,1,19,18,3

db 6,67,18,1,2,3,5,35

db 1,2,17,19,5,6,5,6

db 3,1,18,51,2,3,18,3

db 6,3,5,6,19,5,19,1

db 19,33,18,1,18,3,6,3

db 6,67,1,2,1,2,65,2

db 1,19,5,3,21,3,17,34

db 1,66,1,18,67,2,17,2

db 33,2,1,18,1,2,1,34

db 1,2,1,18,1,18,17,2

db 33,34,17,50,17,2,17,66

db 1,2,1,19,5,3,2,17

db 2,17,50,17,34,19,6,3

db 6,19,1,2,65,19,6,3

db 17,3,5,19,5,35,18,17

db 3,6,3,5,19,18,3,6

db 5,19,5,19,18,17,3,21

db 3,21,2,1,35,21,19,17

db 2,1,2,3,6,3,6,5

db 3,1,18,1,35,2,17,50

db 1,3,5,6,35,1,2,1

db 2,1,2,17,2,17,2,17

db 2,51,16
voda1:
db 137,0,0,0,0,255,255,0

db 255,128,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,3,0,2,17,18,17

db 18,65,18,17,2,33,2,97

db 2,1,2,33,18,17,18,49

db 18,65,2,65,18,17,2,17

db 2,33,18,33,2,113,18,17

db 18,17,2,49,18,17,18,145

db 34,33,18,49,18,17,18,145

db 2,65,2,65,18,17,18,17

db 2,17,34,49,18,97,2,113

db 2,49,18,1,2,49,2,1

db 18,17,2,1,34,65,2,97

db 2,113,2,65,18,17,2,49

db 18,1,2,33,18,1,2,81

db 18,193,18,81,18,17,18,129

db 18,145,18,1,2,81,34,17

db 18,65,34,1,18,145,2,129

db 18,49,18,33,2,33,34,81

db 18,97,2,1,16
trava:
db 214,0,0,0,0,0,255,0

db 0,128,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,3,0,2,33,2,1

db 2,1,2,17,2,1,34,17

db 18,1,18,1,2,49,2,17

db 2,33,2,1,2,33,2,17

db 34,17,18,1,2,1,18,33

db 2,17,34,17,18,33,18,17

db 50,97,2,33,2,33,18,1

db 18,17,50,1,2,1,50,1

db 18,65,2,33,18,1,18,17

db 18,17,82,33,2,1,2,1

db 2,33,2,49,18,1,18,1

db 2,1,2,33,2,17,2,1

db 2,65,2,1,18,1,2,17

db 2,17,34,1,66,1,18,17

db 2,17,2,17,2,33,2,1

db 18,1,2,1,34,1,2,1

db 18,1,18,17,2,33,34,17

db 50,17,2,17,66,1,2,17

db 2,17,2,17,2,17,50,17

db 50,1,34,33,2,81,2,49

db 2,33,34,1,18,33,18,1

db 66,33,2,1,50,17,2,1

db 2,1,2,1,2,49,34,33

db 2,1,18,1,18,33,18,1

db 2,17,2,17,50,17,2,1

db 2,1,2,1,2,1,2,1

db 2,17,2,17,2,17,18,17

db 2,16
sten3:
db 104,0,0,0,0,128,128,128

db 192,192,192,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,3,0,226,66,65,2

db 81,2,65,2,81,2,81,2

db 65,2,81,2,81,2,65,2

db 1,226,66,33,2,81,2,81

db 2,65,2,81,2,81,2,65

db 2,81,2,81,2,17,226,66

db 1,2,81,2,81,2,65,2

db 81,2,81,2,65,2,81,2

db 81,2,49,226,66,65,2,97

db 2,65,2,65,2,97,2,65

db 2,65,2,97,2,65,226,82

db 33,2,81,2,81,2,65,2

db 81,2,81,2,65,2,81,2

db 81,2,17,16
sten1:
db 111,0,0,0,0,128,128,128

db 192,192,192,0,0,255,255,255

db 255,64,128,255,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,6,0,227,67,53,3

db 133,3,69,34,5,3,5,98

db 5,3,5,98,5,3,5,98

db 5,3,5,50,53,3,133,3

db 69,227,67,133,3,133,3,114

db 5,3,5,98,5,3,114,5

db 3,5,98,5,3,133,3,133

db 227,83,69,3,133,3,53,50

db 5,3,5,98,5,3,5,98

db 5,3,5,98,5,3,5,34

db 69,3,133,3,53,227,67,101

db 3,133,3,21,82,5,3,5

db 98,5,3,5,98,5,3,5

db 98,5,3,5,2,101,3,133

db 3,21,16
pesok:
db 120,0,0,0,0,0,255,255

db 0,64,128,0,128,128,64,128

db 128,64,128,255,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,6,0,225,81,2,33

db 2,65,2,3,33,2,1,5

db 49,5,49,2,129,3,225,97

db 3,17,2,33,2,1,5,33

db 2,1,5,129,5,65,2,65

db 2,225,97,2,33,3,17,2

db 49,3,145,2,177,3,49,5

db 81,5,1,2,33,2,65,3

db 17,2,17,3,145,2,209,3

db 81,2,49,5,33,2,177,3

db 145,2,17,2,5,113,2,225

db 1,2,33,3,17,3,49,3

db 17,3,161,2,1,5,97,2

db 177,2,49,2,33,5,33,2

db 193,2,49,3,33,2,81,3

db 1,5,1,16
palma:
db 209,0,0,0,0,0,255,0

db 0,128,0,0,255,255,64,128

db 128,64,128,255,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,6,0,2,33,2,1

db 2,1,2,17,2,1,34,17

db 18,1,18,1,51,1,2,17

db 2,1,35,1,2,33,115,2

db 51,21,19,1,2,35,69,35

db 53,35,18,3,21,67,5,3

db 21,19,1,18,19,2,5,3

db 50,1,3,5,3,5,67,17

db 3,1,19,17,67,5,99,34

db 3,2,35,5,3,5,3,5

db 3,5,3,5,35,1,18,1

db 2,19,5,35,5,3,5,35

db 21,19,33,19,5,35,5,35

db 5,51,5,3,34,35,17,51

db 20,3,5,35,5,3,2,1

db 35,18,3,5,3,36,5,19

db 1,35,1,18,3,17,2,3

db 2,52,35,50,1,2,17,2

db 17,2,1,52,3,34,17,50

db 1,34,33,36,49,2,49,2

db 33,34,1,36,17,18,1,66

db 33,2,1,2,1,36,1,2

db 1,2,1,2,1,2,49,66

db 36,18,1,18,33,18,1,2

db 17,84,2,17,2,1,2,1

db 2,1,2,1,2,1,84,2

db 17,18,17,2,16
kamni:
db 210,0,0,0,0,0,255,0

db 0,128,0,64,128,255,64,128

db 128,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,5,0,2,33,2,1

db 2,35,1,2,1,34,17,18

db 1,18,1,2,17,51,1,2

db 33,2,1,2,33,2,1,67

db 4,3,2,1,2,1,18,33

db 2,17,2,83,4,17,18,17

db 50,17,131,2,33,18,1,18

db 17,83,20,3,18,1,18,65

db 2,67,4,19,4,3,18,17

db 82,99,4,35,2,49,18,1

db 18,1,2,1,2,17,35,4

db 2,1,2,65,2,1,18,1

db 2,17,2,17,34,1,66,1

db 18,17,2,17,2,17,2,33

db 2,1,18,1,2,1,2,19

db 1,2,1,18,1,18,19,2

db 33,18,35,4,3,18,17,2

db 1,67,2,1,2,99,1,2

db 17,2,35,4,3,34,35,4

db 3,4,3,1,2,17,83,1

db 67,20,19,4,3,2,17,51

db 4,115,4,35,2,1,83,4

db 67,34,33,2,35,1,3,4

db 19,1,18,1,2,17,2,17

db 50,17,2,1,2,1,2,1

db 2,1,2,1,2,17,2,17

db 2,17,18,17,2,16
drevo:
db 240,0,0,0,0,0,255,0

db 0,128,0,255,0,128,0,64

db 128,64,128,128,128,0,128,255

db 128,128,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,8,0,2,33,2,1

db 2,19,1,35,34,17,18,1

db 18,1,2,17,3,38,7,22

db 3,1,2,1,2,33,2,1

db 19,7,6,23,6,23,3,6

db 18,33,2,17,2,3,7,19

db 6,3,54,7,19,50,33,3

db 22,7,6,3,6,7,22,3

db 23,2,1,18,17,22,7,6

db 7,3,7,3,7,22,7,6

db 35,17,35,54,55,6,23,22

db 19,18,19,7,3,7,6,7

db 22,7,3,22,3,22,7,3

db 18,19,23,3,182,3,33,3

db 22,3,7,6,7,6,7,22

db 7,6,7,22,3,34,7,22

db 7,22,3,39,38,7,6,7

db 19,2,1,3,7,6,23,38

db 7,38,39,6,7,3,1,2

db 19,54,3,38,3,70,3,2

db 1,2,1,3,7,6,7,19

db 4,5,4,19,6,7,6,3

db 1,50,1,34,3,1,36,17

db 3,22,2,49,2,33,34,21

db 4,33,18,1,66,33,2,1

db 52,17,2,1,2,1,2,1

db 2,49,18,20,5,4,5,4

db 18,1,18,33,18,1,2,1

db 132,1,2,1,2,1,2,1

db 2,1,36,5,20,5,4,21

db 36,17,2,16
baza1:
db 192,0,0,0,0,0,255,0

db 0,128,0,255,0,128,255,128

db 128,255,0,0,255,128,0,255

db 255,0,128,0,255,0,0,255

db 0,255,255,0,0,0,0,0

db 0,0,0,0,0,0,0,0

db 0,0,11,0,2,33,2,1

db 2,1,2,17,2,1,34,17

db 18,1,18,1,2,49,2,17

db 2,33,2,1,2,17,232,9

db 4,17,2,8,201,8,3,9

db 4,2,1,8,41,150,8,19

db 9,2,1,57,6,101,7,6

db 8,3,10,3,9,2,8,41

db 6,5,84,7,6,8,35,9

db 2,8,41,6,5,84,7,6

db 8,35,9,2,8,41,6,5

db 84,7,6,8,3,21,9,1

db 8,41,6,5,84,7,6,8

db 3,21,9,2,8,41,6,5

db 84,7,6,8,35,9,2,8

db 41,6,5,103,6,8,3,10

db 3,9,1,8,57,134,8,35

db 9,1,8,201,8,3,10,3

db 9,2,232,35,9,2,9,131

db 10,19,10,3,9,4,3,9

db 1,2,25,19,22,131,9,4

db 9,33,9,35,22,131,25,1

db 18,1,233,9,2,1,2,1

db 2,1,2,17,2,17,2,17

db 18,17,2,16
spisok:
   dd sten1
   dd sten3
   dd trava
   dd kamni
   dd palma
   dd water
   dd voda1
   dd baza1
   dd drevo
   dd pesok
I_END: