Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Send changed variables to already running function without pausing macro? Solved
#4
Give this a try:

Macro PlayerHelper
Code:
Copy      Help
__RegisterHotKey hk1.Register(0 1 MOD_CONTROL|MOD_SHIFT 'X')
__RegisterHotKey hk2.Register(0 2 MOD_CONTROL|MOD_SHIFT 'Y')
__RegisterHotKey hk3.Register(0 3 MOD_CONTROL|MOD_SHIFT 'C')
__RegisterHotKey hk4.Register(0 4 MOD_CONTROL|MOD_SHIFT VK_F10)

;Kampfsperre
int x=0

;Zuschauverbot
int y=0

;Taktikmodus
int c=0

MSG z
rep
,if(GetMessage(&z 0 0 0)<1) break
,sel z.message
,,case WM_HOTKEY
,,sel z.wParam
,,,case 1
,,,,x += 1
,,,,if (x=1)
,,,,,OnScreenDisplay "Kampfsperre" -1 20 100 "Arial" 20 0x00FFFF 8 "1"
,,,,,CombatSettings x y c
,,,,else
,,,,,x=0
,,,,,OsdHide "1"
,,,,,;;;end function
,,,,
,,,case 2
,,,,y +=1
,,,,if (y=1)
,,,,,OnScreenDisplay "Zuschauverbot" -1 20 140 "Arial" 20 0x00FFFF 8 "2"
,,,,,CombatSettings x y c
,,,,else
,,,,,y = 0
,,,,,OsdHide "2"
,,,,,;;;end function
,,,,
,,,case 3
,,,,c += 1
,,,,if (c=1)
,,,,,OnScreenDisplay "Taktikmodus" -1 20 180 "Arial" 20 0x00FFFF 8 "3"
,,,,,CombatSettings x y c
,,,,else
,,,,,c = 0
,,,,,OsdHide "3"
,,,,,;;;end function
,,,,
,,,case 4
,,,,OnScreenDisplay "END" 3 50 400 "Arial" 20 0x00FFFF

,,,ret
,DispatchMessage &z

Function CombatSettings
Code:
Copy      Help
;/exe
function x1 y1 c1

rep
,if (x1=1)
,,if(scan("resource:Kampfmodus_Sperren.bmp" 0 0 1|16 30))
,,,wait 0.5
,,,lef
,
,if (y1=1)
,,if(scan("resource:Kampfmodus_zuschauer.bmp" 0 0 1|16 30))
,,,wait 0.5
,,,lef
,
,if (c1=1)
,,if(scan("resource:Kampfmodus_map.bmp" 0 0 1|16 30))
,,,wait 0.5
,,,lef


Messages In This Thread
RE: How to send changed variables to already running function without pausing macro? - by TeddyBear - 08-06-2020, 03:44 AM

Forum Jump:


Users browsing this thread: 3 Guest(s)