pong3: update ui, fix bugs

icons32.png: new t_edit icon

git-svn-id: svn://kolibrios.org@7468 a494cfbc-eb01-0410-851d-a64ba20cac60

programs/cmm/txtread/txtread.c

@@ -52,7 +52,7 @@ dword color_schemes[] = {
 0xE9E5DA, 0,
 0xF0F0C7, 0,
 0xFCF0DA, 0x574531,
-0xFDF6E3, 0x303A41,
+0xFDF6E3, 0x101A21,
 0x282C34, 0xABB2BF,
 0x282923, 0xD8D8D2
 };

programs/games/pong3/trunk/pong3.asm

@@ -15,7 +15,7 @@ format binary as ""
     dd     IM_END                  ; size of image
     dd     0x300000                ; memory for app
     dd     0x300000                ; esp
-    dd     temp_area, 0x0          ; I_Param , I_Path
+    dd     0x0, 0x0                ; I_Param , I_Path
 
 ;******************************************************************************
 
@@ -24,35 +24,38 @@ include 'ascl.inc'
 include 'ascgl.inc'
 include 'ascgml.inc'
 
+AREA_W = 640
+AREA_H = 480
+
 
 START:                          ; start of execution
-        call    draw_window
-
         convbmp pongfile, tsoi
         bmptoimg pongfile, tsoi,pong
         getimg pong, 0, 0,  80, 4, img
         getimg pong, 0, 4,  80, 4, img2
         getimg pong, 5, 38, 15, 15, img3
-        getimg pong, 0, 8, 80, 20, img5
+        getimg pong, 0, 10, 80, 20, img5
-        fullimg img4, 80 ,20 ,0x00000000   ;black for rocket
+        fullimg imgbr, 80, 4,  0x00000000  ;black for rocket
-        fullimg img6, 15 ,15 ,0x00000000   ;black for ball
+        fullimg imgbg, 80, 20, 0x00000000  ;black for grav
+        fullimg imgbb, 12, 12, 0x00000000  ;black for ball
 
 still:
         scevent red,key,button
 
-        ;mcall 48, 4 ;get skin width
+        ;mcall 48, 4 ;get skin height
         ;sub [skin_h], 16
         ;div eax, 2
         ;mov [skin_h], eax
 
-        outcount [scoreb], 300, 4, 0x10000000 + cl_Blue, 5 shl 16
+remember_old_coordinates:
-        outcount [scorea], 350, 4, 0x10000000 + cl_Red, 5 shl 16
+        m2m [ply1x_old], [ply1x]
-
+        m2m [ply1y_old], [ply1y]
-del_images:
+        m2m [ply2x_old], [ply2x]
-        setimg [ply1x], [ply1y], img4
+        m2m [ply2y_old], [ply2y]
-        setimg [ply2x], [ply2y], img4
+        m2m [gravx_old], [gravx]
-        setimg [ballx], [bally], img6
+        m2m [gravy_old], [gravy]
-        setimg [gravx], [gravy], img4
+        m2m [ballx_old], [ballx]
+        m2m [bally_old], [bally]
 
 move_ply1:
         correct [ply1x], [ply1rx], 4
@@ -84,7 +87,7 @@ balln:
 by_n:
 
 ;ball collusion of screen
-        cmp     [ballx], 640-32
+        cmp     [ballx], AREA_W-12
         jna     xa_ok
         neg     [ballxv]
 xa_ok:
@@ -95,20 +98,20 @@ xb_ok:
 
 ;if ball far out of screen come back
 ; is not work already
-        cmp     [bally], 466
+        cmp     [bally], AREA_H-30 ;check RED fails
         jng     yax_ok
-        call    draw_window
         inc     [scoreb]
+        call    draw_score
         mov     [bally], 240
         mov     [ballx], 310
         mov     [ballyv], 2
         random 5, [ballxv]
         sub     [ballxv], 2
 yax_ok:
-        cmp     [bally], 30
+        cmp     [bally], 0  ;check BLUE fails
         jnl     yax_ok2
-        call    draw_window
         inc     [scorea]
+        call    draw_score
         mov     [bally], 240
         mov     [ballx], 310
         mov     [ballyv], 2
@@ -240,10 +243,45 @@ nograv:
         mov     [gravy], 1000
 endgrav:
 
+;next code checks were coordinates of player1 and player2
+;changed or not
+;    if yes => fill old
+;    if no  => do not fill old
 redraw_images:
+		;player1
+		;if (ply1x!=ply1x_old) || (ply1y!=ply1y_old) fill1
+		mov    eax, [ply1x]
+		cmp    [ply1x_old], eax
+		jne    fill1
+		mov    eax, [ply1y]
+		cmp    [ply1y_old],eax
+		jne    fill1
+		jmp    no_fill1
+	fill1:
+        setimg [ply1x_old], [ply1y_old], imgbr
+	no_fill1:
         setimg [ply1x], [ply1y], img
+		
+		;player2
+		;if (ply2x!=ply2x_old) || (ply2y!=ply2y_old) fill2
+		mov    eax, [ply2x]
+		cmp    [ply2x_old], eax
+		jne    fill2
+		mov    eax, [ply2y]
+		cmp    [ply2y_old],eax
+		jne    fill2
+		jmp    no_fill2
+	fill2:
+        setimg [ply2x_old], [ply2y_old], imgbr
+	no_fill2:
         setimg [ply2x], [ply2y], img2
+		
+		;ball
+        setimg [ballx_old], [bally_old], imgbb
         setimg [ballx], [bally], img3
+		
+		;grav
+        setimg [gravx_old], [gravy_old], imgbg
         setimg [gravx], [gravy], img5
 
         delay 1             ;don't generate delay for fast speed programm
@@ -268,10 +306,16 @@ no_r:
         cmp     ah, key_Up
         jne     no_u
         sub     [ply1ry], 16
+		cmp     [ply1ry], 0
+		jb      no_u
+		mov     [ply1ry], 0
 no_u:
         cmp     ah, key_Down
         jne     no_d
         add     [ply1ry], 16
+		cmp     [ply1ry], AREA_H-50
+		jl      no_d
+		mov     [ply1ry], AREA_H-50
 no_d:
         cmp     ah, key_Space
         jne     no_sp
@@ -280,28 +324,39 @@ no_sp:
 
         jmp     still
 
-  button:                       ; button
+  button:
-        mov     eax, 17                 ; get id
+        mcall   17         ; get id
-        mcall
         cmp     ah, 1      ; button id=1 ?
         jne     noclose
-        mov     eax, -1                 ; close this program
+        mcall   -1         ; close this program
-        mcall
   noclose:
         jmp     still
 
 
 draw_window:
         mcall 12,1 ;start window redraw
-        mcall 0, <10, 640+8>, <10, 480+24>, 0x14000000,, wtitle 
+        mcall 0, <10, AREA_W+5+9>, <10, 480+35>, 0x34000000,, wtitle 
         mcall 12,2 ;end window redraw
+
+draw_score:
+		mcall 13, <10, 100>, <AREA_H-17, 16>, 0
+		outcount [scoreb], 10, AREA_H-17, 0x01000000 + cl_Blue, 3 shl 16
+        outcount [scorea], 50, AREA_H-17, 0x01000000 + cl_Red, 3 shl 16
 		ret
 
-
 ; DATA AREA
-wtitle db 'PONG: USE ARROW KEYS           SCORE:',0
+wtitle db 'PONG: use Arrow Keys and Space',0
 ;skin_h dd 25
 
+ply1x_old dd ? 
+ply1y_old dd ?
+ply2x_old dd ?
+ply2y_old dd ?
+gravx_old dd ?
+gravy_old dd ?
+ballx_old dd ?
+bally_old dd ?
+
 xt              dd 100
 yt              dd 100
 
@@ -310,10 +365,10 @@ gravx           dd 1000
 gravy           dd 1000
 
 ply1rx          dd 200
-ply1ry          dd 50
+ply1ry          dd 40
 
 ply1x           dd 200
-ply1y           dd 50
+ply1y           dd 40
 
 ply2x           dd 200
 ply2y           dd 400
@@ -336,14 +391,16 @@ IM_END:
 
 temp            rb 20000
 
+;real images
 pong            rb 80*60*3+8
 img             rb 32*32*3+8
 img2            rb 32*32*3+8
 img3            rb 32*32*3+8
-img4            rb 80*20*3+8
 img5            rb 32*32*3+8
-img6            rb 15*15*3+8
 
-temp_area       rb 0x15000
+;black to clean old images
+imgbr           rb 80*4 *3+8
+imgbg           rb 80*20*3+8
+imgbb           rb 12*12*3+8
 
 I_END:

programs/other/t_edit/t_edit.ini

@@ -22,3 +22,5 @@ syntax_5=cpp_kol_dar.syn
 ext_5=h
 syntax_6=html.syn
 ext_6=html
+syntax_7=html.syn
+ext_7=INI