PR #4 Create PLAYABLE program

.gitignore

@@ -8,7 +8,10 @@
 /Debug
 /Release
 bin/
-settings.txt
+settings.ini
+ticks.ini
+builder/
+tactickgame.fas
 
 # temp close
 .github/
@@ -18,3 +21,8 @@ build.yml/
 
 # Texture Packer resource files
 Graphics/Draw/ASCII/TextureAtlases/Resources
+
+
+# node js temp
+node_modules/
+package-lock.json

Application/Includes.asm

@@ -1 +1,2 @@
-include '_components/Exit.asm'
+include '_components/Exit.asm'
+include '_components/FreeMemory.asm'

Application/_components/Exit.asm

@@ -1,6 +1,11 @@
 proc Application.Exit
     stdcall File.IniFile.Write
+    stdcall File.TicksPosition.Write
+    stdcall Application.FreeMamory
     invoke  HeapDestroy, [hHeap]
-    invoke  ExitProcess, [msg.wParam]
+    invoke  wglMakeCurrent,0,0
+    invoke  wglDeleteContext,[hrc]
+    invoke  ReleaseDC,[hwnd],[hdc]
+    invoke  PostQuitMessage,0
     ret
 endp

Application/_components/FreeMemory.asm

@@ -0,0 +1,16 @@
+proc Application.FreeMamory
+    stdcall Application.FreeArray, [txts_array]
+    ret
+endp
+
+proc Application.FreeArray uses eax ebx,\
+     array
+    mov     ebx, [array]
+    .freeLoop:
+        invoke HeapFree, [hHeap], 0, [ebx]
+        add     ebx, 4
+        mov     eax, [ebx]
+        cmp     eax, 0
+        jne     .freeLoop
+    ret
+endp

File/Includes.asm

@@ -3,4 +3,7 @@ include 'BMP/LoadBoat.asm'
 include 'BMP/BMP.inc'
 ; init settings file
 include 'Settings/IniFile.asm'
-include 'Settings/Settings.inc'
+include 'Settings/Settings.inc'
+; ticks
+include 'TicksPositions/Ticks.asm'
+include 'TicksPositions/TicksPosition.inc'

File/Settings/IniFile.asm

@@ -42,6 +42,8 @@ proc File.IniFile.Read uses eax ebx ecx edx edi
         invoke  HeapAlloc, [hHeap], 8, [bufferLength]
         mov     [readBuffer], eax
         invoke  ReadFile, [hIniFile], [readBuffer], [bufferLength], bytesRead, 0
+        cmp     [bytesRead], 0
+        je      @F
 ; ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ;
 ; !!!!!!!!!!!!!!!!!!!!!!!!!!! DO NOT TOUCH EDI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;
         mov     edi, [readBuffer]
@@ -56,7 +58,8 @@ proc File.IniFile.Read uses eax ebx ecx edx edi
         stdcall File.IniFIle.ReadString, HK_SETTINGS, 0
         stdcall File.IniFIle.ReadString, HK_RESTART, 0
 ; !!!!!!!!!!!!!!!!!!!!! ALARM DIACTIVATE! GOOD LUCK :) !!!!!!!!!!!!!!!!!!!!!!!! ;
-        invoke HeapFree, [hHeap], 0, [readBuffer]
+        @@:
+            invoke HeapFree, [hHeap], 0, [readBuffer]
     .exit:
         invoke  CloseHandle, [hIniFile]
         ret
@@ -187,6 +190,46 @@ proc File.IniFile.IntToStr uses ecx edx ebx esi,\
     ret
 endp
 
+proc File.IniFile.ArrIntToStr uses eax ebx edx ecx,\
+     prompt, arr, size
+    stdcall File.IniFile.WriteLine, [prompt]
+    mov     ecx, [size]
+    mov     ebx, [arr]
+    .convertLoop:
+        push    ecx
+        mov     edx, [ebx]
+        stdcall File.IniFile.IntToStr, edx
+        stdcall File.IniFile.WriteLine, strBuffer
+        pop     ecx
+        add     ebx, 4
+        loop    .convertLoop
+    mov     eax, arrayBuffer
+    stdcall File.IniFile.WriteLine, NEXT_LINE
+    ret
+endp
+
+proc File.IniFile.StrToArrInt uses eax ebx ecx,\
+    arr, size
+    stdcall File.IniFile.ReadRule, edi
+    push    edi
+
+    mov     edi, strBuffer
+    mov     ecx, [size]
+    mov     ebx, [arr]
+    .convertLoop:
+        xor     eax, eax
+        mov     al, byte [edi]
+        sub     eax, '0'
+        mov     [ebx], eax
+        add     ebx, 4
+        inc     edi
+        loop    .convertLoop
+    mov     eax, arrayBuffer
+
+    pop     edi
+    ret
+endp
+
 proc File.IniFile.WriteRule,\
     prompt, status
     stdcall File.IniFile.WriteLine, [prompt]
@@ -195,7 +238,7 @@ proc File.IniFile.WriteRule,\
     ret
 endp
 
-proc File.IniFile.WriteLine,\
+proc File.IniFile.WriteLine uses eax,\
     message
     locals
         messageLen      dd      ?

File/Settings/IniFile.inc

@@ -1,9 +1,10 @@
 hIniFile     dd     ?
-iniFilePath  db     'settings.txt', 0
+iniFilePath  db     'settings.ini', 0
 readBuffer   dd     ?
 bufferLength dd     1000
 bytesRead    dd     0
 strBuffer    db     256 dup (0)
+arrayBuffer  db     256 dup (0)
 
 ; ==== prompts ==== ;
 NEXT_LINE               db      13, 10, 0

File/TicksPositions/Ticks.asm

@@ -0,0 +1,52 @@
+proc File.TicksPosition.Write
+    invoke  CreateFile, ticksFilePath, GENERIC_WRITE, 0, 0, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0
+    mov     [hTicksFile], eax
+    cmp     eax, INVALID_HANDLE_VALUE
+    jne     @F
+        stdcall File.IniFile.Error
+        jmp     .exit
+    @@:
+
+    ; write settings in file
+    stdcall File.IniFile.IntToStr, [garbgeCounter]
+    stdcall File.IniFile.WriteRule, GARBAGE_COUNTER_PROMPT, eax
+    stdcall File.IniFile.IntToStr, [isGameStart]
+    stdcall File.IniFile.WriteRule, IS_GAME_START_PROMPT, eax
+    stdcall File.IniFile.IntToStr, [currentScore]
+    stdcall File.IniFile.WriteRule, CURRENT_SCORE_PROMPT, eax
+    stdcall File.IniFile.ArrIntToStr, TICKS_MATRIX_PROMPT, TicksMatrix, 64
+
+    .exit:
+        invoke  CloseHandle, [hTicksFile]
+        ret
+    ret
+endp
+
+proc File.TicksPosition.Read uses eax ebx ecx edx edi
+    invoke  CreateFile, ticksFilePath, GENERIC_READ, 0, 0, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0
+    mov     [hTicksFile], eax
+    cmp     eax, INVALID_HANDLE_VALUE
+    jne     @F
+        stdcall File.IniFile.Error
+        jmp     .exit
+    @@:
+        ; length
+        invoke  HeapAlloc, [hHeap], 8, [bufferLength]
+        mov     [readBuffer], eax
+        invoke  ReadFile, [hTicksFile], [readBuffer], [bufferLength], bytesRead, 0
+        cmp     [bytesRead], 0
+        je      @F
+; ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ALARM ;
+; !!!!!!!!!!!!!!!!!!!!!!!!!!! DO NOT TOUCH EDI !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;
+        mov     edi, [readBuffer]
+        stdcall File.IniFIle.ReadString, garbgeCounter, 1
+        stdcall File.IniFIle.ReadString, isGameStart, 1
+        stdcall File.IniFIle.ReadString, currentScore, 1
+        stdcall File.IniFile.StrToArrInt, TicksMatrix, 64
+; !!!!!!!!!!!!!!!!!!!!! ALARM DIACTIVATE! GOOD LUCK :) !!!!!!!!!!!!!!!!!!!!!!!! ;
+        @@:
+            invoke HeapFree, [hHeap], 0, [readBuffer]
+    .exit:
+        invoke  CloseHandle, [hTicksFile]
+        ret
+endp

File/TicksPositions/TicksPosition.inc

@@ -0,0 +1,7 @@
+hTicksFile     dd     ?
+ticksFilePath  db     'ticks.ini', 0
+
+TICKS_MATRIX_PROMPT     db  "TICKS_MATRIX=", 0
+GARBAGE_COUNTER_PROMPT  db  "GARBAGE_COUNTER=", 0
+IS_GAME_START_PROMPT    db  "IS_GAME_START=", 0
+CURRENT_SCORE_PROMPT    db  "CURRENT_SCORE=", 0

Graphics/Animations/Animations.inc

@@ -34,7 +34,8 @@ Anim_GamePage                   dd  4,\
                                     Anim_btn_cl, Anim_Settingsbtn_cl,\
                                     Anim_btn_cl, Anim_Pausebtn_cl
 
-Anim_AboutPage                  dd  1,\
+Anim_AboutPage                  dd  2,\
+                                    Anim_btn_cl, Anim_Settingsbtn_cl,\
                                     Anim_btn_cl, Anim_SubPages_cl
 
 Anim_SReturnFont_cl             dd  sp_return_circle_design,\
@@ -105,4 +106,18 @@ Anim_HotkeysPage                dd  2,\
                                     Anim_btn_cl, Anim_HRetBtnFont_cl,\
                                     Anim_btn_cl, Anim_HRetBtnHrst_cl
 
-AnimsList                       dd  Anim_LoadingPage, Anim_MainPage, Anim_GamePage, Anim_AboutPage, Anim_SettingsPage, Anim_PausePage, Anim_WinnerPage, Anim_HotkeysPage
+Anim_EPYesFont_cl               dd  ep_yes_brdr_design,\
+                                    yes_font_color, brown_text_color, brown_color
+Anim_EPYesText_cl               dd  ep_yes_brdr_design,\
+                                    yes_text_color, brown_color, brown_text_color
+Anim_EPNoFont_cl                dd  ep_no_brdr_design,\
+                                    no_font_color, brown_text_color, pale_color
+Anim_EPNoText_cl                dd  ep_no_brdr_design,\
+                                    no_text_color, pale_color, brown_text_color
+Anim_ExitPage                   dd  4,\
+                                    Anim_btn_cl, Anim_EPYesFont_cl,\
+                                    Anim_btn_cl, Anim_EPYesText_cl,\
+                                    Anim_btn_cl, Anim_EPNoFont_cl,\
+                                    Anim_btn_cl, Anim_EPNoText_cl                                    
+
+AnimsList                       dd  Anim_LoadingPage, Anim_MainPage, Anim_GamePage, Anim_AboutPage, Anim_SettingsPage, Anim_PausePage, Anim_WinnerPage, Anim_HotkeysPage, Anim_ExitPage

Graphics/Draw/ASCII/Letters.asm

@@ -68,15 +68,19 @@ proc Graphics.Draw.ASCII.Letters.CreateGLChar uses eax ecx ebx edi,\
         ret
 endp
 
-proc Graphics.Draw.ASCII.Letters.GetLetterLen uses ebx,\
+proc Graphics.Draw.ASCII.Letters.GetLetterLen,\
      letter, multiplier
     mov     ebx, [letter]
-    stdcall Math.Absolute, [multiplier]
-    mov     eax, [multiplier]
-    cmp     eax, 0
-    jne     @F
-        inc     eax
+    cmp     dword [ebx + 4], -1
+    je      @F
+        stdcall Scripts.Getters.GetIMULNumber, [ebx + 4], [multiplier]
+        mov     ebx, 1
+        jmp     .exit
     @@:
-    stdcall Scripts.Getters.GetIMULNumber, [ebx + 4], eax
-    ret
+        stdcall Scripts.Getters.GetIMULNumber, [ebx + 8], [multiplier]
+        mov     eax, 33
+        mov     ebx, -1
+        jmp     .exit
+    .exit:
+        ret
 endp

Graphics/Draw/Components/PauseButton.asm

@@ -1,6 +1,6 @@
 proc Graphics.Draw.Components.PauseButton
     stdcall Graphics.Draw.Shapes, pause_btn_fnt_design, pause_button_color
     stdcall Graphics.Draw.Shapes, pause_btn_lines_design, book_title_color
-    stdcall Graphics.Draw.Text.Write, txt_P_hk, book_title_color
+    stdcall Graphics.Draw.Text.Write, [txt_P_hk], book_title_color
     ret
 endp

Graphics/Draw/Components/RecoveryButton.asm

@@ -5,6 +5,6 @@ proc Graphics.Draw.Components.RecoveryButton
     stdcall Graphics.Draw.Shapes, recovery_btn_fntblock_design, recovery_button_color
     stdcall Graphics.Draw.Shapes, recovery_btn_lftriangle_design, book_title_color
     stdcall Graphics.Draw.Shapes, recovery_btn_rgtriangle_design, book_title_color
-    stdcall Graphics.Draw.Text.Write, txt_R_hk, book_title_color
+    stdcall Graphics.Draw.Text.Write, [txt_R_hk], book_title_color
     ret
 endp

Graphics/Draw/Components/SettingsButton.asm

@@ -4,6 +4,6 @@ proc Graphics.Draw.Components.SettingsButton
     stdcall Graphics.Draw.Shapes, settings_btn_in_circle_design, settings_button_color
     stdcall Graphics.Draw.Shapes, settings_btn_mainline_design, book_title_color
     stdcall Graphics.Draw.Shapes, settings_btn_subline_design, book_title_color
-    stdcall Graphics.Draw.Text.Write, txt_S_hk, book_title_color
+    stdcall Graphics.Draw.Text.Write, [txt_S_hk], book_title_color
     ret
 endp