Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. use32
  2. org 0x0
  3.  
  4.   db  'MENUET01'
  5.   dd  0x1
  6.   dd  START
  7.   dd  I_END
  8.   dd  0x3000+640*400*3+16*20*20*3+512+640+1
  9.   dd  0x3000
  10.   dd  0x0
  11.   dd  0x0
  12. include 'lang.inc'
  13. include 'pixengin.inc'
  14. include '../../../macros.inc'
  15. START:
  16.    mov eax,40
  17.    mov ebx,111b
  18.    mcall
  19.    call drawwin
  20. ;main cycle(fps)
  21.  fpst:
  22.    call clock
  23.    mov eax,[time]
  24.    mov [old_time],eax
  25.    mov [old_frame_time],eax
  26. ;----------------------------------------------------------
  27. ;---------load all sprites from arrays to memory-----------
  28. ;----------------------------------------------------------
  29.    mov [number_sprite],0
  30.    xor eax,eax
  31. nextfile:
  32.    mov ebx,[spisok+4*eax]
  33.    mov ecx,50
  34.    mov esi,ebx
  35.    add esi,2
  36.    mov edi,0x3000+(640*400*3)+(16*20*20*3)+10
  37.    rep movsb ;copy palitra to memory
  38.    mov esi,ebx
  39.    add esi,52
  40.    xor ecx,ecx
  41.    mov cl,byte [ebx]
  42.    mov edi,0x3000+(640*400*3)+(16*20*20*3)+512
  43.    push eax
  44.    call unpakin
  45.    pop eax
  46.    mov ecx,20*20
  47.    mov esi,0x3000+(640*400*3)+(16*20*20*3)+512
  48.    mov edi,[number_sprite]
  49.    imul edi,3*20*20
  50.    add edi,0x3000+(640*400*3)
  51.    un:
  52.       xor ebx,ebx
  53.       mov bl,byte[esi]
  54.       lea ebx,[ebx+ebx*2]
  55.       add ebx,0x3000+(640*400*3)+(16*20*20*3)+10
  56.       mov edx,[ebx]
  57.       mov [edi],edx
  58.       add esi,1
  59.       add edi,3
  60.       sub ecx,1
  61.    jnz un
  62.    add [number_sprite],1
  63.    add eax,1
  64.    cmp [number_sprite],10;total number of pictures equal 10
  65.    jne nextfile
  66. ;--------------------------------------------------------
  67.    mov [total_time],0
  68.    mov [phas],0
  69.    mov [x],100
  70.    mov [y],100
  71. animation:
  72.    call clock
  73.    mov eax,[time]
  74.    sub eax,[old_time]
  75.    cmp eax,5
  76.    jl next_action
  77.    mov eax,[time]
  78.    mov [old_time],eax
  79.    mov eax,[phas]
  80.    mov [black],eax
  81.    mov [phas],15
  82.    call PutSprite
  83.    call putimage
  84.    mov eax,5
  85.    mov ebx,2
  86.    mcall
  87.    mov eax,[black]
  88.    mov [phas],eax
  89.    call PutSprite
  90.    call putimage
  91.    call print_pos
  92.    add [frames],2
  93. next_action:
  94.          call clock
  95.          mov eax,[time]
  96.          sub eax,[old_frame_time]
  97.          cmp eax,100
  98.          jl no_frames
  99.          mov eax,[time]
  100.          mov [old_frame_time],eax
  101.          mov eax,13
  102.          mov ebx,420*65536+30
  103.          mov ecx,425*65536+15
  104.          mov edx,0xffffff
  105.          mcall
  106.          mov eax,47
  107.          mov ebx,3*65536
  108.          mov ecx,[frames]
  109.          mov edx,425*65536+427
  110.          mov esi,0
  111.          mcall
  112.          mov [frames],0
  113. no_frames:
  114.          ;----------------------
  115.          mov ebx,20
  116.          mov eax,[x]
  117.          cdq
  118.          idiv ebx
  119.          mov ecx,eax
  120.          mov eax,[y]
  121.          cdq
  122.          idiv ebx
  123.          imul eax,32
  124.          add eax,ecx
  125.          add eax,0x3000+(640*400*3)+(16*20*20*3)+512
  126.          xor ebx,ebx
  127.          mov bl,byte [phas]
  128.          mov [eax],bl;write number of shablon to the map-array
  129.          ;-----------------------
  130.          ;mov eax,11
  131.          ;mcall
  132.          mov eax,23
  133.          mov ebx,2
  134.          mcall
  135.          cmp eax,2
  136.          jne animation
  137.          mov eax,2
  138.          mcall
  139.          shr eax,8
  140.          cmp eax,32
  141.          jne key2
  142.          add [phas],1
  143.          cmp [phas],10
  144.          jne animation
  145.          mov [phas],0
  146.          jmp animation
  147.     key2:cmp eax,176
  148.          jne key3
  149.          sub [x],20
  150.          jmp animation
  151.     key3:cmp eax,179
  152.          jne key4
  153.          add [x],20
  154.          jmp animation
  155.     key4:cmp eax,178
  156.          jne key5
  157.          sub [y],20
  158.          jmp animation
  159.     key5:cmp eax,177
  160.          jne key6
  161.          add [y],20
  162.          jmp animation
  163.     key6: cmp eax,51
  164.          jne key7
  165.          call save_level
  166.          jmp animation
  167.     key7:cmp eax,50
  168.          jne key8
  169.           call load_level
  170.          jmp animation
  171.     key8:cmp eax,27
  172.          jne animation
  173.          mov eax,-1
  174.          mcall
  175. ;-------------------------------------------
  176. drawwin:
  177.  mov eax,12
  178.         mov ebx,1
  179.         mcall
  180.         ;à¨á㥬 ®ª­® § ¤ ¢ ï ¢á¥ ­¥®¡å®¤¨¬ë¥ 梥â 
  181.         mov eax,0
  182.         mov ebx,50*65536+640
  183.         mov ecx,50*65536+450
  184.         mov edx,0x02AABBCC
  185.         mov esi,0x805080d0
  186.         mov edi,0x005080d0
  187.         mcall
  188.         ;¯¨è¥¬ § £®«®¢®ª ®ª­ 
  189.         mov eax,4
  190.         mov ebx,5*65536+5
  191.         mov ecx,0x10ddeeff
  192.         mov edx,name
  193.         mov esi,7
  194.         mcall
  195.         ;à¨á㥬 ª­®¯ªã § ªàëâ¨ï ®ª­ 
  196.         mov eax,8
  197.         mov ebx,(640-19)*65536+12
  198.         mov ecx,5*65536+12
  199.         mov edx,1
  200.         mov esi,0x6688dd
  201.         mcall
  202.         ret
  203. ;----------------------------------------------------------
  204. counter     dd 0
  205. ;----------------------------------------------------
  206. ;draw sprite in video memory
  207. PutSprite:
  208.         mov ebx,[x]
  209.         imul ebx,3
  210.         mov eax,[y]
  211.         imul eax,640*3
  212.         add eax,0x3000
  213.         add eax,ebx
  214.         cld
  215.         mov [counter],20
  216.         mov esi,[phas]
  217.         imul esi,1200
  218.         add esi,0x3000+(640*400*3)
  219.         mov ebx,esi
  220.    draw:
  221.         mov esi,ebx
  222.         mov edi,eax
  223.         mov ecx,20*3
  224.         rep movsb
  225.         add eax,640*3
  226.         add ebx,3*20
  227.         dec [counter]
  228.         jnz draw
  229.       ret
  230. ;-------------------------------------------------------------------------
  231. ;get time in 1/100 sec
  232. clock:  mov eax,26
  233.         mov ebx,9
  234.         mcall
  235.         mov [time],eax
  236.         ret
  237. ;---------------------------------------------------------
  238. putimage:
  239.          mov eax,7
  240.          mov ebx,0x3000
  241.          mov ecx,640*65536+400
  242.          mov edx,1*65536+20
  243.          mcall
  244.          ret
  245. ;---------------------------------------------------------
  246. print_pos:mov eax,13
  247.           mov ebx,490*65536+60
  248.           mov ecx,425*65536+15
  249.           mov edx,0xffffff
  250.           mcall
  251.           mov eax,47
  252.           mov ebx,3*65536
  253.           mov ecx,[x]
  254.           mov edx,495*65536+430
  255.           mov esi,0
  256.           mcall
  257.           mov eax,47
  258.           mov ebx,3*65536
  259.           mov ecx,[y]
  260.           mov edx,530*65536+430
  261.           mov esi,0
  262.           mcall
  263.           ret
  264. ;-----------------------------------------------------------
  265. ;-------------------------load files------------------------
  266. ;-----------------------------------------------------------
  267. loadfile:
  268.          ;ªã¤  § ¯¨á뢠âì ¯¥à¢ë© ¡«®ª
  269.          mov [file_read+12],dword 0x3000+(640*400*3)+(16*20*20*3)
  270.          ;§ £à㦠¥¬ ¯¥à¢ë© ¡«®ª ¤«ï ⮣® ç⮡ë 㧭 â à §¬¥à ä ©« 
  271.          mov eax,58
  272.          mov ebx,file_read
  273.          mcall
  274.          ;¢ëç¨á«ï¥¬ ᪮«ìª® ¡«®ª®¢ ¯® 512 ¡ ©â ­ã¦­® ¨á¯®«ì§®¢ âì
  275.          ;¤«ï § £à㧪¨ ä ©« 
  276.          mov ecx,ebx
  277.          shr ecx,9
  278.          add ecx,1
  279.          ;§ ¯¨á뢠¥¬  ¤à¥á ªã¤  ­ã¦­® § ¯¨á âì ¯¥à¢ë© ¡«®ª
  280.          mov [file_read+12],dword 0x3000+(640*400*3)+(16*20*20*3)
  281.    ;§ ­®á¨¬ ¢ áâàãªâãàã file_read ­®¬¥à ¡«®ª  á ª®â®à®£® ­ã¦­® § £à㦠âì ä ©«
  282.          mov [file_read+4],dword 0
  283.          ;§ ­®á¨¬ ¢ áâàãªâãàã file_read ç¨á«® ¡«®ª®¢ ª®â®àë¥ ­ã¦­® § £à㧨âì
  284.          mov [file_read+8],ecx
  285.          ;§ £à㦠¥¬ ¡«®ª
  286.          mov eax,58
  287.          mov ebx,file_read
  288.          mcall
  289.          cmp eax,0
  290.          jne scock2
  291.          mov esi,0x3000+(640*400*3)+(16*20*20*3)
  292.          mov ecx,[esi+8]
  293.          add esi,60
  294.          mov edi,0x3000+(640*400*3)+(16*20*20*3)+512
  295.          call unpakin
  296.          mov [addr_palitra],dword 0x3000+(640*400*3)+(16*20*20*3)+10
  297.          mov ecx,400
  298.          mov esi,0x3000+(640*400*3)+(16*20*20*3)+512
  299.          mov edi,[number_sprite]
  300.          imul edi,3*20*20
  301.          add edi,0x3000+(640*400*3)
  302.     unp:
  303.         xor eax,eax
  304.         mov al,byte[esi]
  305.         imul eax,3
  306.         add eax,[addr_palitra]
  307.         mov ebx,[eax]
  308.         and ebx,0xffffff
  309.         mov [edi],ebx
  310.         add esi,1
  311.         add edi,3
  312.         sub ecx,1
  313.         jnz unp
  314.   scock2:
  315.          ret
  316. ;---------------------------------------------------------------------------
  317. ;-----------------save level in file----------------------------------------
  318. ;---------------------------------------------------------------------------
  319. save_level:
  320.            call input_path
  321.            xor ebx,ebx
  322.   copy_path:
  323.            xor eax,eax
  324.            mov al,byte [string+ebx]
  325.            cmp al,13
  326.            je end_copy
  327.            mov [file_write+20+ebx],eax
  328.            add ebx,1
  329.            jmp copy_path
  330.    end_copy:
  331.            mov esi,0x3000+(640*400*3)+(16*20*20*3)+512;0x1000+0x1000
  332.            mov edi,0x3000+(640*400*3)+(16*20*20*3);0x1000
  333.            mov ecx,32*20
  334.            call save_image
  335.            mov eax,[SizeFile]
  336.            mov [file_write+8],eax
  337.            mov [file_write+12],dword 0x3000+(640*400*3)+(16*20*20*3);+(0x1000)
  338.            mov eax,58
  339.            mov ebx,file_write
  340.            mcall
  341.            cmp eax,0
  342.            jne scok
  343.            xor esi,esi
  344.            mov eax,55
  345.            mov ebx,eax
  346.            mov esi,sound
  347.            mcall
  348.        scok:
  349.           ret
  350. ;-----------------------------------------------------------------------------
  351. ;-----------------load level to memory----------------------------------------
  352. ;-----------------------------------------------------------------------------
  353. load_level:
  354.            call input_path
  355.            xor ebx,ebx
  356.  copy_load:xor eax,eax
  357.            mov al,byte [string+ebx]
  358.            cmp al,13
  359.            je end_load
  360.            mov [file_read+20+ebx],eax
  361.            add ebx,1
  362.            jmp copy_load
  363.   end_load:
  364.            mov [file_read+12],dword 0x3000+(640*400*3)+(16*20*20*3)
  365.            mov eax,58
  366.            mov ebx,file_read
  367.            mcall
  368.            mov ecx,ebx
  369.            shr ebx,9
  370.            add ebx,1
  371.            mov [file_read+8],ebx
  372.            mov eax,58
  373.            mov ebx,file_read
  374.            mcall
  375.            cmp eax,0
  376.            jne nosound
  377.            mov esi,0x3000+(640*400*3)+(16*20*20*3)
  378.            mov edi,0x3000+(640*400*3)+(16*20*20*3)+512;0x1000+0x1000
  379.            call unpakin
  380.            xor esi,esi
  381.            mov eax,55
  382.            mov ebx,55
  383.            mov esi,sound
  384.            mcall
  385.            xor esi,esi
  386.            mov [x_l],0
  387.            mov [y_l],0
  388.        c_y:
  389.            mov [x_l],0
  390.        c_x:
  391.            mov eax,[x_l]
  392.            mov ebx,[y_l]
  393.            imul ebx,32
  394.            add eax,ebx
  395.            add eax,0x3000+(640*400*3)+(16*20*20*3)+512;0x1000+0x1000
  396.            mov ecx,eax
  397.            xor eax,eax
  398.            mov al,byte [ecx]
  399.            imul eax,1200
  400.            add eax,0x3000+(640*400*3)
  401.            mov ebx,[x_l]
  402.            imul ebx,20*3
  403.            mov ecx,[y_l]
  404.            imul ecx,20*3*640
  405.            add ebx,ecx
  406.            add ebx,0x3000
  407.            mov esi,eax
  408.            mov edi,ebx
  409.            ;----------------------------
  410.            xor edx,edx
  411.   next_line:
  412.            mov esi,eax
  413.            mov edi,ebx
  414.            mov ecx,60
  415.            rep movsb
  416.            add edx,1
  417.            add eax,20*3
  418.            add ebx,(640*3)
  419.            cmp edx,20
  420.            jne next_line
  421.            ;----------------------------
  422.            add [x_l],1
  423.            cmp [x_l],32
  424.            jne c_x
  425.            add [y_l],1
  426.            cmp [y_l],20
  427.            jne c_y
  428.     nosound:
  429.            jmp animation
  430. ;-----------------------------------------------------------------------------
  431. input_path:
  432.             mov [position],byte -1
  433.             call print_line
  434.             mov eax,13
  435.             mov ebx,25*65536+6
  436.             mov ecx,433*65536+12
  437.             mov edx,0xff6c58
  438.             mcall
  439.       opros:mov eax,10
  440.             mcall
  441.             cmp eax,2
  442.             jne opros
  443.             mov eax,2
  444.             mcall
  445.             shr eax,8
  446.             cmp eax,13
  447.             je exit_cycle
  448.             cmp eax,8
  449.             je backspace
  450.             cmp eax,176
  451.             je left
  452.             cmp eax,179
  453.             je right
  454.             cmp eax,32
  455.             je probel
  456.             add [position],1
  457.             xor ebx,ebx
  458.             mov bl,[position]
  459.             mov [string+ebx],byte al
  460.             call print_line
  461.             call print_cursor
  462.             jmp  opros
  463.   backspace:xor ebx,ebx
  464.             mov bl,[position]
  465.             mov [string+ebx],byte ' '
  466.             sub [position],1
  467.             call print_line
  468.             call print_cursor
  469.             jmp opros
  470.        left:sub [position],1
  471.             call print_line
  472.             call print_cursor
  473.             jmp opros
  474.       right:add [position],1
  475.             call print_line
  476.             call print_cursor
  477.             jmp opros
  478.      probel:add [position],1
  479.              call print_line
  480.              call print_cursor
  481.             jmp opros
  482.  exit_cycle:add [position],1
  483.              xor ebx,ebx
  484.              mov bl,[position]
  485.              mov [string+ebx],byte 13
  486.              mov eax,13
  487.              mov ebx,20*65536+(64*6)+5
  488.              mov ecx,430*65536+15
  489.              mov edx,0xffffff
  490.              mcall
  491.             ret
  492. ;---------------------------------------------------------------
  493. print_line:
  494.              mov eax,13
  495.              mov ebx,20*65536+(64*6)+5
  496.              mov ecx,430*65536+15
  497.              mov edx,0xffffff
  498.              mcall
  499.              mov eax,4
  500.              mov ebx,25*65536+435
  501.              mov ecx,0x1
  502.              mov edx,string
  503.              mov esi,64
  504.              mcall
  505.              ret
  506. print_cursor:
  507.              mov eax,13
  508.              xor ebx,ebx
  509.              mov bl,[position]
  510.              imul ebx,6
  511.              add ebx,25+6
  512.              shl ebx,16
  513.              add ebx,6
  514.              mov ecx,433*65536+12
  515.              mov edx,0xff6c58
  516.              mcall
  517.              ret
  518. ;------------------------------------------------------------------------
  519. string:
  520.        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
  521.        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
  522. position        db 0
  523. total_time      dd 0
  524. time            dd 0
  525. old_time        dd 0
  526. frame           dd 0
  527. addr_palitra    dd 0
  528. ;addr_array      dd 0
  529. number_sprite   dd 0
  530. offs            dd 0
  531. phas            dd 0
  532. black           dd 0
  533. x               dd 0
  534. y               dd 0
  535. x_l             dd 0
  536. y_l             dd 0
  537. name      db 'testfps'
  538. frames          dd 0
  539. old_frame_time  dd 0
  540. sound     db 0x90,0x30,0
  541. file_read:
  542.        dd 0
  543.        dd 0
  544.        dd 1
  545.        dd 0
  546.        dd 0x3000
  547.        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
  548. file_write:
  549.         dd 1
  550.         dd 0
  551.         dd 0
  552.         dd 0
  553.         dd 0x3000
  554.         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
  555. water:
  556. db 247,0,0,0,0,0,255,0
  557.  
  558. db 0,128,0,255,128,0,128,255
  559.  
  560. db 0,255,0,0,255,255,0,0
  561.  
  562. db 0,0,0,0,0,0,0,0
  563.  
  564. db 0,0,0,0,0,0,0,0
  565.  
  566. db 0,0,0,0,0,0,0,0
  567.  
  568. db 0,0,7,0,2,1,19,2
  569.  
  570. db 1,2,1,2,17,2,1,18
  571.  
  572. db 35,49,19,2,49,2,17,2
  573.  
  574. db 17,3,6,5,19,2,19,17
  575.  
  576. db 18,35,18,1,2,51,5,1
  577.  
  578. db 2,5,3,6,18,1,19,5
  579.  
  580. db 3,17,2,19,6,5,19,6
  581.  
  582. db 1,3,33,19,6,3,5,3
  583.  
  584. db 2,17,51,2,1,19,18,3
  585.  
  586. db 6,67,18,1,2,3,5,35
  587.  
  588. db 1,2,17,19,5,6,5,6
  589.  
  590. db 3,1,18,51,2,3,18,3
  591.  
  592. db 6,3,5,6,19,5,19,1
  593.  
  594. db 19,33,18,1,18,3,6,3
  595.  
  596. db 6,67,1,2,1,2,65,2
  597.  
  598. db 1,19,5,3,21,3,17,34
  599.  
  600. db 1,66,1,18,67,2,17,2
  601.  
  602. db 33,2,1,18,1,2,1,34
  603.  
  604. db 1,2,1,18,1,18,17,2
  605.  
  606. db 33,34,17,50,17,2,17,66
  607.  
  608. db 1,2,1,19,5,3,2,17
  609.  
  610. db 2,17,50,17,34,19,6,3
  611.  
  612. db 6,19,1,2,65,19,6,3
  613.  
  614. db 17,3,5,19,5,35,18,17
  615.  
  616. db 3,6,3,5,19,18,3,6
  617.  
  618. db 5,19,5,19,18,17,3,21
  619.  
  620. db 3,21,2,1,35,21,19,17
  621.  
  622. db 2,1,2,3,6,3,6,5
  623.  
  624. db 3,1,18,1,35,2,17,50
  625.  
  626. db 1,3,5,6,35,1,2,1
  627.  
  628. db 2,1,2,17,2,17,2,17
  629.  
  630. db 2,51,16
  631. voda1:
  632. db 137,0,0,0,0,255,255,0
  633.  
  634. db 255,128,0,0,0,0,0,0
  635.  
  636. db 0,0,0,0,0,0,0,0
  637.  
  638. db 0,0,0,0,0,0,0,0
  639.  
  640. db 0,0,0,0,0,0,0,0
  641.  
  642. db 0,0,0,0,0,0,0,0
  643.  
  644. db 0,0,3,0,2,17,18,17
  645.  
  646. db 18,65,18,17,2,33,2,97
  647.  
  648. db 2,1,2,33,18,17,18,49
  649.  
  650. db 18,65,2,65,18,17,2,17
  651.  
  652. db 2,33,18,33,2,113,18,17
  653.  
  654. db 18,17,2,49,18,17,18,145
  655.  
  656. db 34,33,18,49,18,17,18,145
  657.  
  658. db 2,65,2,65,18,17,18,17
  659.  
  660. db 2,17,34,49,18,97,2,113
  661.  
  662. db 2,49,18,1,2,49,2,1
  663.  
  664. db 18,17,2,1,34,65,2,97
  665.  
  666. db 2,113,2,65,18,17,2,49
  667.  
  668. db 18,1,2,33,18,1,2,81
  669.  
  670. db 18,193,18,81,18,17,18,129
  671.  
  672. db 18,145,18,1,2,81,34,17
  673.  
  674. db 18,65,34,1,18,145,2,129
  675.  
  676. db 18,49,18,33,2,33,34,81
  677.  
  678. db 18,97,2,1,16
  679. trava:
  680. db 214,0,0,0,0,0,255,0
  681.  
  682. db 0,128,0,0,0,0,0,0
  683.  
  684. db 0,0,0,0,0,0,0,0
  685.  
  686. db 0,0,0,0,0,0,0,0
  687.  
  688. db 0,0,0,0,0,0,0,0
  689.  
  690. db 0,0,0,0,0,0,0,0
  691.  
  692. db 0,0,3,0,2,33,2,1
  693.  
  694. db 2,1,2,17,2,1,34,17
  695.  
  696. db 18,1,18,1,2,49,2,17
  697.  
  698. db 2,33,2,1,2,33,2,17
  699.  
  700. db 34,17,18,1,2,1,18,33
  701.  
  702. db 2,17,34,17,18,33,18,17
  703.  
  704. db 50,97,2,33,2,33,18,1
  705.  
  706. db 18,17,50,1,2,1,50,1
  707.  
  708. db 18,65,2,33,18,1,18,17
  709.  
  710. db 18,17,82,33,2,1,2,1
  711.  
  712. db 2,33,2,49,18,1,18,1
  713.  
  714. db 2,1,2,33,2,17,2,1
  715.  
  716. db 2,65,2,1,18,1,2,17
  717.  
  718. db 2,17,34,1,66,1,18,17
  719.  
  720. db 2,17,2,17,2,33,2,1
  721.  
  722. db 18,1,2,1,34,1,2,1
  723.  
  724. db 18,1,18,17,2,33,34,17
  725.  
  726. db 50,17,2,17,66,1,2,17
  727.  
  728. db 2,17,2,17,2,17,50,17
  729.  
  730. db 50,1,34,33,2,81,2,49
  731.  
  732. db 2,33,34,1,18,33,18,1
  733.  
  734. db 66,33,2,1,50,17,2,1
  735.  
  736. db 2,1,2,1,2,49,34,33
  737.  
  738. db 2,1,18,1,18,33,18,1
  739.  
  740. db 2,17,2,17,50,17,2,1
  741.  
  742. db 2,1,2,1,2,1,2,1
  743.  
  744. db 2,17,2,17,2,17,18,17
  745.  
  746. db 2,16
  747. sten3:
  748. db 104,0,0,0,0,128,128,128
  749.  
  750. db 192,192,192,0,0,0,0,0
  751.  
  752. db 0,0,0,0,0,0,0,0
  753.  
  754. db 0,0,0,0,0,0,0,0
  755.  
  756. db 0,0,0,0,0,0,0,0
  757.  
  758. db 0,0,0,0,0,0,0,0
  759.  
  760. db 0,0,3,0,226,66,65,2
  761.  
  762. db 81,2,65,2,81,2,81,2
  763.  
  764. db 65,2,81,2,81,2,65,2
  765.  
  766. db 1,226,66,33,2,81,2,81
  767.  
  768. db 2,65,2,81,2,81,2,65
  769.  
  770. db 2,81,2,81,2,17,226,66
  771.  
  772. db 1,2,81,2,81,2,65,2
  773.  
  774. db 81,2,81,2,65,2,81,2
  775.  
  776. db 81,2,49,226,66,65,2,97
  777.  
  778. db 2,65,2,65,2,97,2,65
  779.  
  780. db 2,65,2,97,2,65,226,82
  781.  
  782. db 33,2,81,2,81,2,65,2
  783.  
  784. db 81,2,81,2,65,2,81,2
  785.  
  786. db 81,2,17,16
  787. sten1:
  788. db 111,0,0,0,0,128,128,128
  789.  
  790. db 192,192,192,0,0,255,255,255
  791.  
  792. db 255,64,128,255,0,0,0,0
  793.  
  794. db 0,0,0,0,0,0,0,0
  795.  
  796. db 0,0,0,0,0,0,0,0
  797.  
  798. db 0,0,0,0,0,0,0,0
  799.  
  800. db 0,0,6,0,227,67,53,3
  801.  
  802. db 133,3,69,34,5,3,5,98
  803.  
  804. db 5,3,5,98,5,3,5,98
  805.  
  806. db 5,3,5,50,53,3,133,3
  807.  
  808. db 69,227,67,133,3,133,3,114
  809.  
  810. db 5,3,5,98,5,3,114,5
  811.  
  812. db 3,5,98,5,3,133,3,133
  813.  
  814. db 227,83,69,3,133,3,53,50
  815.  
  816. db 5,3,5,98,5,3,5,98
  817.  
  818. db 5,3,5,98,5,3,5,34
  819.  
  820. db 69,3,133,3,53,227,67,101
  821.  
  822. db 3,133,3,21,82,5,3,5
  823.  
  824. db 98,5,3,5,98,5,3,5
  825.  
  826. db 98,5,3,5,2,101,3,133
  827.  
  828. db 3,21,16
  829. pesok:
  830. db 120,0,0,0,0,0,255,255
  831.  
  832. db 0,64,128,0,128,128,64,128
  833.  
  834. db 128,64,128,255,0,0,0,0
  835.  
  836. db 0,0,0,0,0,0,0,0
  837.  
  838. db 0,0,0,0,0,0,0,0
  839.  
  840. db 0,0,0,0,0,0,0,0
  841.  
  842. db 0,0,6,0,225,81,2,33
  843.  
  844. db 2,65,2,3,33,2,1,5
  845.  
  846. db 49,5,49,2,129,3,225,97
  847.  
  848. db 3,17,2,33,2,1,5,33
  849.  
  850. db 2,1,5,129,5,65,2,65
  851.  
  852. db 2,225,97,2,33,3,17,2
  853.  
  854. db 49,3,145,2,177,3,49,5
  855.  
  856. db 81,5,1,2,33,2,65,3
  857.  
  858. db 17,2,17,3,145,2,209,3
  859.  
  860. db 81,2,49,5,33,2,177,3
  861.  
  862. db 145,2,17,2,5,113,2,225
  863.  
  864. db 1,2,33,3,17,3,49,3
  865.  
  866. db 17,3,161,2,1,5,97,2
  867.  
  868. db 177,2,49,2,33,5,33,2
  869.  
  870. db 193,2,49,3,33,2,81,3
  871.  
  872. db 1,5,1,16
  873. palma:
  874. db 209,0,0,0,0,0,255,0
  875.  
  876. db 0,128,0,0,255,255,64,128
  877.  
  878. db 128,64,128,255,0,0,0,0
  879.  
  880. db 0,0,0,0,0,0,0,0
  881.  
  882. db 0,0,0,0,0,0,0,0
  883.  
  884. db 0,0,0,0,0,0,0,0
  885.  
  886. db 0,0,6,0,2,33,2,1
  887.  
  888. db 2,1,2,17,2,1,34,17
  889.  
  890. db 18,1,18,1,51,1,2,17
  891.  
  892. db 2,1,35,1,2,33,115,2
  893.  
  894. db 51,21,19,1,2,35,69,35
  895.  
  896. db 53,35,18,3,21,67,5,3
  897.  
  898. db 21,19,1,18,19,2,5,3
  899.  
  900. db 50,1,3,5,3,5,67,17
  901.  
  902. db 3,1,19,17,67,5,99,34
  903.  
  904. db 3,2,35,5,3,5,3,5
  905.  
  906. db 3,5,3,5,35,1,18,1
  907.  
  908. db 2,19,5,35,5,3,5,35
  909.  
  910. db 21,19,33,19,5,35,5,35
  911.  
  912. db 5,51,5,3,34,35,17,51
  913.  
  914. db 20,3,5,35,5,3,2,1
  915.  
  916. db 35,18,3,5,3,36,5,19
  917.  
  918. db 1,35,1,18,3,17,2,3
  919.  
  920. db 2,52,35,50,1,2,17,2
  921.  
  922. db 17,2,1,52,3,34,17,50
  923.  
  924. db 1,34,33,36,49,2,49,2
  925.  
  926. db 33,34,1,36,17,18,1,66
  927.  
  928. db 33,2,1,2,1,36,1,2
  929.  
  930. db 1,2,1,2,1,2,49,66
  931.  
  932. db 36,18,1,18,33,18,1,2
  933.  
  934. db 17,84,2,17,2,1,2,1
  935.  
  936. db 2,1,2,1,2,1,84,2
  937.  
  938. db 17,18,17,2,16
  939. kamni:
  940. db 210,0,0,0,0,0,255,0
  941.  
  942. db 0,128,0,64,128,255,64,128
  943.  
  944. db 128,0,0,0,0,0,0,0
  945.  
  946. db 0,0,0,0,0,0,0,0
  947.  
  948. db 0,0,0,0,0,0,0,0
  949.  
  950. db 0,0,0,0,0,0,0,0
  951.  
  952. db 0,0,5,0,2,33,2,1
  953.  
  954. db 2,35,1,2,1,34,17,18
  955.  
  956. db 1,18,1,2,17,51,1,2
  957.  
  958. db 33,2,1,2,33,2,1,67
  959.  
  960. db 4,3,2,1,2,1,18,33
  961.  
  962. db 2,17,2,83,4,17,18,17
  963.  
  964. db 50,17,131,2,33,18,1,18
  965.  
  966. db 17,83,20,3,18,1,18,65
  967.  
  968. db 2,67,4,19,4,3,18,17
  969.  
  970. db 82,99,4,35,2,49,18,1
  971.  
  972. db 18,1,2,1,2,17,35,4
  973.  
  974. db 2,1,2,65,2,1,18,1
  975.  
  976. db 2,17,2,17,34,1,66,1
  977.  
  978. db 18,17,2,17,2,17,2,33
  979.  
  980. db 2,1,18,1,2,1,2,19
  981.  
  982. db 1,2,1,18,1,18,19,2
  983.  
  984. db 33,18,35,4,3,18,17,2
  985.  
  986. db 1,67,2,1,2,99,1,2
  987.  
  988. db 17,2,35,4,3,34,35,4
  989.  
  990. db 3,4,3,1,2,17,83,1
  991.  
  992. db 67,20,19,4,3,2,17,51
  993.  
  994. db 4,115,4,35,2,1,83,4
  995.  
  996. db 67,34,33,2,35,1,3,4
  997.  
  998. db 19,1,18,1,2,17,2,17
  999.  
  1000. db 50,17,2,1,2,1,2,1
  1001.  
  1002. db 2,1,2,1,2,17,2,17
  1003.  
  1004. db 2,17,18,17,2,16
  1005. drevo:
  1006. db 240,0,0,0,0,0,255,0
  1007.  
  1008. db 0,128,0,255,0,128,0,64
  1009.  
  1010. db 128,64,128,128,128,0,128,255
  1011.  
  1012. db 128,128,0,0,0,0,0,0
  1013.  
  1014. db 0,0,0,0,0,0,0,0
  1015.  
  1016. db 0,0,0,0,0,0,0,0
  1017.  
  1018. db 0,0,8,0,2,33,2,1
  1019.  
  1020. db 2,19,1,35,34,17,18,1
  1021.  
  1022. db 18,1,2,17,3,38,7,22
  1023.  
  1024. db 3,1,2,1,2,33,2,1
  1025.  
  1026. db 19,7,6,23,6,23,3,6
  1027.  
  1028. db 18,33,2,17,2,3,7,19
  1029.  
  1030. db 6,3,54,7,19,50,33,3
  1031.  
  1032. db 22,7,6,3,6,7,22,3
  1033.  
  1034. db 23,2,1,18,17,22,7,6
  1035.  
  1036. db 7,3,7,3,7,22,7,6
  1037.  
  1038. db 35,17,35,54,55,6,23,22
  1039.  
  1040. db 19,18,19,7,3,7,6,7
  1041.  
  1042. db 22,7,3,22,3,22,7,3
  1043.  
  1044. db 18,19,23,3,182,3,33,3
  1045.  
  1046. db 22,3,7,6,7,6,7,22
  1047.  
  1048. db 7,6,7,22,3,34,7,22
  1049.  
  1050. db 7,22,3,39,38,7,6,7
  1051.  
  1052. db 19,2,1,3,7,6,23,38
  1053.  
  1054. db 7,38,39,6,7,3,1,2
  1055.  
  1056. db 19,54,3,38,3,70,3,2
  1057.  
  1058. db 1,2,1,3,7,6,7,19
  1059.  
  1060. db 4,5,4,19,6,7,6,3
  1061.  
  1062. db 1,50,1,34,3,1,36,17
  1063.  
  1064. db 3,22,2,49,2,33,34,21
  1065.  
  1066. db 4,33,18,1,66,33,2,1
  1067.  
  1068. db 52,17,2,1,2,1,2,1
  1069.  
  1070. db 2,49,18,20,5,4,5,4
  1071.  
  1072. db 18,1,18,33,18,1,2,1
  1073.  
  1074. db 132,1,2,1,2,1,2,1
  1075.  
  1076. db 2,1,36,5,20,5,4,21
  1077.  
  1078. db 36,17,2,16
  1079. baza1:
  1080. db 192,0,0,0,0,0,255,0
  1081.  
  1082. db 0,128,0,255,0,128,255,128
  1083.  
  1084. db 128,255,0,0,255,128,0,255
  1085.  
  1086. db 255,0,128,0,255,0,0,255
  1087.  
  1088. db 0,255,255,0,0,0,0,0
  1089.  
  1090. db 0,0,0,0,0,0,0,0
  1091.  
  1092. db 0,0,11,0,2,33,2,1
  1093.  
  1094. db 2,1,2,17,2,1,34,17
  1095.  
  1096. db 18,1,18,1,2,49,2,17
  1097.  
  1098. db 2,33,2,1,2,17,232,9
  1099.  
  1100. db 4,17,2,8,201,8,3,9
  1101.  
  1102. db 4,2,1,8,41,150,8,19
  1103.  
  1104. db 9,2,1,57,6,101,7,6
  1105.  
  1106. db 8,3,10,3,9,2,8,41
  1107.  
  1108. db 6,5,84,7,6,8,35,9
  1109.  
  1110. db 2,8,41,6,5,84,7,6
  1111.  
  1112. db 8,35,9,2,8,41,6,5
  1113.  
  1114. db 84,7,6,8,3,21,9,1
  1115.  
  1116. db 8,41,6,5,84,7,6,8
  1117.  
  1118. db 3,21,9,2,8,41,6,5
  1119.  
  1120. db 84,7,6,8,35,9,2,8
  1121.  
  1122. db 41,6,5,103,6,8,3,10
  1123.  
  1124. db 3,9,1,8,57,134,8,35
  1125.  
  1126. db 9,1,8,201,8,3,10,3
  1127.  
  1128. db 9,2,232,35,9,2,9,131
  1129.  
  1130. db 10,19,10,3,9,4,3,9
  1131.  
  1132. db 1,2,25,19,22,131,9,4
  1133.  
  1134. db 9,33,9,35,22,131,25,1
  1135.  
  1136. db 18,1,233,9,2,1,2,1
  1137.  
  1138. db 2,1,2,17,2,17,2,17
  1139.  
  1140. db 18,17,2,16
  1141. spisok:
  1142.    dd sten1
  1143.    dd sten3
  1144.    dd trava
  1145.    dd kamni
  1146.    dd palma
  1147.    dd water
  1148.    dd voda1
  1149.    dd baza1
  1150.    dd drevo
  1151.    dd pesok
  1152. I_END: