Exit if

[Michael Vogel]

I'd like to have a "Exit if" line instead of the "If Then Break" thing...

Code: Select all

Repeat
  ;
	If GetAsyncKeyState_(#VK_ESCAPE)
	  Break
	EndIf
	;
ForEver

...it's just a little bit more compact, that's all...

Code: Select all

Repeat
  ;
	Exit If GetAsyncKeyState_(#VK_ESCAPE)
	;
ForEver

[/code]

[PB]

In the meantime you can do this:

Code: Select all

Macro ExitIf (code)
  If code : Break : EndIf
EndMacro

Repeat
  ExitIf (GetAsyncKeyState_(#VK_ESCAPE))
ForEver

[fsw]

Actually because of PureBasic's naming convention it should be:

Break
BreakIf

[Flype]

good tip.
so, just to finish the story :

Code: Select all

Macro BreakIf(code, depth)
  If (code) : Break depth : EndIf 
EndMacro 

For i = 0 To 10
  For j = 0 To 10
    BreakIf((i=2) And (j=3), 2) 
  Next
Next

Debug i
Debug j

[Dr. Dri]

yo can also add "= 1" after depth to make it optional

Dri

[Trond]

I suggest allowing a dynamic expression for BreakLevel. If the BreakLevel is 0 then it won't break.