Recent changes to Macro Library

Macro Library modified by Honguito98

Honguito98 — Sun, 14 Dec 2014 14:58:36 -0000

--- v7
+++ v8
@@ -58,18 +58,19 @@

 # SelectBox
 # MenuBox
+
 # Physics
 Compare two objects and returns 'true (1)' if these are _touching_, else will return 'false (0)' as errorlevel

 ** Dependencies:**

 * Set each sprite type X.Y.W.H measures
-* Set **Fn** variable to exe name.

 ** Return values:**
 !Errorlevel! = (1) for 'are touching' and (0) for 'nothing'

 ** Example: **
+
     Set Goomba.x=10
     Set Goomba.y=10
     Set Goomba.h=16

Macro Library modified by Honguito98

Honguito98 — Sun, 14 Dec 2014 14:54:30 -0000

--- v6
+++ v7
@@ -59,6 +59,74 @@
 # SelectBox
 # MenuBox
 # Physics
+Compare two objects and returns 'true (1)' if these are _touching_, else will return 'false (0)' as errorlevel
+
+** Dependencies:**
+
+* Set each sprite type X.Y.W.H measures
+* Set **Fn** variable to exe name.
+
+** Return values:**
+!Errorlevel! = (1) for 'are touching' and (0) for 'nothing'
+
+** Example: **
+    Set Goomba.x=10
+    Set Goomba.y=10
+    Set Goomba.h=16
+    Set Goomba.w=16
+    
+    Set Player.x=0
+    Set Player.y=0
+    Set Player.w=10
+    Set Player.h=15
+    %Physics% Player Goomba
+    If !Errorlevel! Equ 1 Echo; Player touchs a goomba
+    If !Errorlevel! Equ 0 Echo; Player still alive
+
+** Code: **
+
+    <Macro=Physics|2>
+   Set /a^
+   "__W_p=%1.W + %1.X,"^
+   "__H_p=%1.H + %1.Y,"^
+   "__X_p=%1.X,"^
+   "__Y_p=%1.Y"
+   
+   For /F "Tokens=1-2" %X in ("!%2!") Do (
+       Set /a^
+       "__W_e=%2.W + %Y,"^
+       "__H_e=%2.H + %X,"^
+       "__X_e=%Y,"^
+       "__Y_e=%X,"^
+       "__C1=0,"^
+       "__C2=0"
+       
+       Rem X
+       If !__W_p! Gtr !__X_e! (
+           If !__W_p! Lss !__W_e! (
+               Set __C1=1
+           ) Else (
+               If !__X_p! Lss !__W_e! Set __C1=1
+           )
+       )
+       Rem Y
+       If !__H_p! Gtr !__Y_e! (
+           If !__H_p! Lss !__H_e! (
+               Set __C2=1
+           ) Else (
+               If !__Y_p! Lss !__H_e! Set __C2=1
+           )
+       )
+       
+       If "!__C1!!__C2!" == "11" (Call) Else (Call )
+   )
+   
+    </Macro=Physics>
+
+
+
+
+
 # Render
 # Gpu

Macro Library modified by Honguito98

Honguito98 — Mon, 27 Oct 2014 18:54:46 -0000

--- v5
+++ v6
@@ -57,6 +57,7 @@

 # SelectBox
+# MenuBox
 # Physics
 # Render
 # Gpu

Macro Library modified by Honguito98

Honguito98 — Tue, 14 Oct 2014 22:43:17 -0000

Macro Library modified by Honguito98

Honguito98 — Mon, 13 Oct 2014 23:35:11 -0000

--- v3
+++ v4
@@ -1,4 +1,5 @@
-# Macro Library #
+Macro Library
+================

 [TOC]
 # Mouse

Macro Library modified by Honguito98

Honguito98 — Mon, 13 Oct 2014 00:31:00 -0000

MacroLib modified by Honguito98

Honguito98 — Mon, 13 Oct 2014 00:25:51 -0000

--- v1
+++ v2
@@ -8,7 +8,7 @@
 ** Dependencies:**

 * Fn.dll or Seta_Core.dll or bg.exe
-* Set variable **Fn** to exe name
+* Set **Fn** variable to exe name.

 ** Return values:**

@@ -19,6 +19,17 @@
 * **!Char!** Keyboard character -**space** not supported-
 * **!WStatus!** Is focused or not the window.
 * **!Wheel!** Returns current mouse wheel position.
+
+** Example: **
+
+    %Mouse%
+    Cls
+    Echo;Mouse Pos. is: !X!.!Y!
+    Echo;Mouse button is: !Btn!
+    Echo;Keyboard code and char.: !Kbd! - "!Char!"
+    Echo;Is focused window?: !WStatus!
+    Echo;Wheel Position: !Wheel!
+

 **Code:**

@@ -48,5 +59,72 @@
 # Physics
 # Render
 # Gpu
+
 # FCalc
+Fixed-floating point calculator.
+_Change **prec** var for decimal precision_
+Co-developer: **einstein1969**
+
+** Dependencies: **
+
+* None
+
+** Return values: **
+
+* **!Int!** integer result
+* **!Float!** fixed-f.p. result
+
+** Example: **
+
+    %FCalc% 12.5 + 12.5
+    Echo;!Int!.!Float!
+    
+    %FCalc% 12 * 2.56
+    Echo;!Int!.!Float!
+
+    %FCalc% 12 / 2.56
+    Echo;!Int!.!Float!
+
+    %FCalc% 12 - 2.56
+    Echo;!Int!.!Float!
+
+** Code: **
+
+   <Macro=FCalc|2>
+   set Sum1=%1
+   set Mode=%2
+   set Sum2=%3
+   set prec=2
+   For %P in (!prec!) do (
+   
+       For %T in (1;2) Do (
+   
+       for /f tokens^=1-4^ delims^=+^"^  %f in ("!Sum%T!") do set Sum%T=0000000000%~f%~g%~h%~i
+   
+       set i%T=!Sum%T:*.=!0!Sum%T:~0,%P!
+           For %I in ("!Sum%T:*.=!") do if not "%~I" == "!Sum%T!" set i%T=!Sum%T:.%~I=!!i%T:~0,1!!i%T:~1,%P!
+       
+       for /f "tokens=* delims=0" %z in ("!i%T!") do set /a "i%T=(%z+5)/10"
+   
+       )
+       set Div.acc=1!Sum1:~0,%P!
+   
+       if "!Mode!" equ "/" (
+           set /a Total=!i1!*!Div.acc!/!i2!
+       ) else (
+       if "!Mode!" equ "*" (
+           set /a Total=!i1!*!i2!/!Div.acc!
+       ) else set /a Total=!i1!!Mode!!i2!
+       )
+           
+       If !total! geq 0 (
+           set /a "Int=Total/Div.acc, Float=Total % Div.acc"
+       ) else  set /a "Int=Total/Div.acc, Float=-(Total % Div.acc)"
+   
+       set Float=!Sum1:~0,%P!!Float!
+       set Float=!Float:~-%P!
+   )
+   </Macro=FCalc>
+
+
 # Mult

MacroLib modified by Honguito98

Honguito98 — Sun, 12 Oct 2014 22:09:32 -0000

Macro Library

Macro Library
Mouse
SelectBox
Physics
Render
Gpu
FCalc
Mult

Mouse

Reads Mouse and keyboard input.
Change 'InputHit' to 'InputHit 1' to no wait for keystroke.

Dependencies:

Fn.dll or Seta_Core.dll or bg.exe
Set variable Fn to exe name

Return values:

!X! X coord.
!Y! Y coord.
!Btn! Mouse Button code.
!Kbd! Keyboard button code.
!Char! Keyboard character -space not supported-
!WStatus! Is focused or not the window.
!Wheel! Returns current mouse wheel position.

Code:

<Macro=Mouse|1>
    If Not Defined __FData (
        Set __FData=Mouse_!Random!.tmp
        For /L %# in (1,1,3) Do If Exist !__FData! Set __FData=Mouse_!Random!.tmp
    )
    !Fn! Inputhit 1 >!__FData!
    For /F "Tokens=1-5" %A in (!__FData!) Do (
        Set "Char="
        If %A Equ -2 (
            Set WStatus=Not Present
        ) Else Set WStatus=Focused
        If %A Geq 0 Set Y=%A
        If %B Geq 0 Set X=%B
        If %C Geq 0 If %C Leq 5 Set Btn=%C
        If %C Geq 10000  Set/a Wheel+=1
        If %C Leq -10000 Set/a Wheel-=1 
        If "%E" Neq "" Set "Char=%E"
        Set Kbd=%D
    )
</Macro=Mouse>