Save Variables in .txt file without tabbing out of actual window

[Gintaras]

Pasted with incorrect indentation. Also probably now the logic is incorrect. I don't know how exactly you want it to behave. Maybe need to move the file loading/parsing part to the beginning.

Also, your code with rep/ifk is unreliable. Instead use registered hotkeys or keyboard hook.

Macro Macro121

Code:

Copy      Help

__RegisterHotKey hk1.Register(0 1 MOD_CONTROL|MOD_SHIFT 'M')
__RegisterHotKey hk2.Register(0 2 MOD_CONTROL|MOD_SHIFT 'K')
__RegisterHotKey hk3.Register(0 3 MOD_CONTROL|MOD_SHIFT 'C')
__RegisterHotKey hk4.Register(0 4 MOD_CONTROL|MOD_SHIFT 'D')
__RegisterHotKey hk5.Register(0 5 MOD_CONTROL|MOD_SHIFT 'R')
__RegisterHotKey hk6.Register(0 6 MOD_CONTROL VK_F12) ;;Ctrl+F12, because Windows does not allow to register F12

int k ;;killcounter actual match
int c ;; chickendinner counter today
int m ;; match counter
int d ;; death counter
k = 0
c = 0
m = 0
d = 0

;at startup get previously saved values
str sData sFile.expandpath("$documents$\Kills.txt")
if FileExists(sFile)
,sData.getfile(sFile)
,ARRAY(str) a
,if(findrx(sData "^Matches: (\d+)[]Kills: (\d+)[]Chickendinners: (\d+)[]Deaths: (\d+)[]$" 0 0 a)<0) end "invalid file format"
,m=val(a[1]); k=val(a[2]); c=val(a[3]); d=val(a[4]);

MSG z
rep
,if(GetMessage(&z 0 0 0)<1) break
,sel z.message
,,case WM_HOTKEY
,,sel z.wParam
,,,case 1
,,,m+1
,,,OnScreenDisplay F"Round {m}"
,,,
,,,case 2
,,,;...
,,,
,,,case 3
,,,;...
,,,
,,,case 4
,,,;...
,,,
,,,case 5 ;;reset
,,,k=0; c=0; m=0; d=0
,,,OnScreenDisplay "Reset all counters"
,,,
,,,case 6 ;;end
,,,ret
,,,
,,sData=F"Matches: {m}[]Kills: {k}[]Chickendinners: {c}[]Deaths: {d}[]"
,,sData.setfile(sFile)
,,
,,out sData ;;delete this line
,
,DispatchMessage &z