Sorry your browser is not supported!

PUSH EBP
MOV EBP ESP
SUB ESP <A>
MOV EAX ESP
MOV ECX IMM4 <B>

   3 LINE : function NoReturn(a as integer)
3 PUSH EBP                   ; PUSH EBP   
3 MOV EBP ESP                ; MOV EBP ESP   
3 SUB ESP 16                 ; SUB ESP   
3 MOV EAX ESP 
3 MOV ECX IMM4 2
3 MOV SIB[EAX:ECX*4],IMM4 , 0
3 LOOP ECX , -9              ; CLEAR STACK   

   4 LINE :    local b as float
4 MOV EAX IMM4 , 0
4 MOV [EBP+A] EAX4 -8        ; ASSIGN X TO X   
4 MOV MEM IMM4 @$_SLN_, 4
4 MOV EAX MEM4 @$_ERR_
4 CMP EAX4 0
4 JNE $labelend              ; CALL Normal Runtime Error Hook  

   5 LINE : endfunction
5 MOV ESP EBP                ; MOV ESP EBP   
5 POP EBP                    ; POP EBP   
5 RET                        ; RETURN   

print GetFunctionFormat("test")
wait key
end

function test(param1, param2$)
    var = 1
endfunction

function GetFunctionFormat(name$)
    ptr = get ptr to function(name$)
    dataSize = peek integer(ptr+5)-peek integer(ptr+12)*4
    format$ = get type pattern$(name$,0)
    pformat$ = ""
    i = 1
    while dataSize > 0
        c$ = mid$(format$, i)
        pformat$ = pformat$ + c$
        
        if c$ = "O" or c$ = "R"
            dec dataSize, 8
        else
            dec dataSize, 4
        endif
        
        inc i
    endwhile
endfunction pformat$

REM - Request two different object IDs
A = RES_grab(RES_Object)
B = RES_grab(RES_Object)

remstart
/////////////////////////////////////////////////////
//
// OpenFPS RESOURCE MANAGEMENT Core Module
//
// Created by BMacZero
// Maintained by BMacZero
//
/////////////////////////////////////////////////////

----- Changelog:
(11/18/09) - BMacZero - Created
(12/16/09) - BMacZero - Fixed potentially serious bug concerning grabResource
(2/7/10)   - BMacZero - Fixed more general bugs.
(2/11/10)  - Kaedroho - Made all math resource types the same type to avoid conflicts
(2/12/10)  - BMacZero - Combined Vector values into one.
(2/12/10)  - miso     - Added log commands.
(11/28/10) - thenerd  - restructured module to fit the new module layout
(1/3/11)   - thenerd  - added shader types

----- To-Do:
-None-

----- Purpose:
Assigns and frees resource numbers (anything that needs identification in DBpro)

----- Dependancies and Conflicts:
-None-

----- Other Notes:
Usage (IMPORTANT***):
Whenever ANY module needs ANY type of resource for ANY reason,
	it MUST go through this module(excepting only BlitzTerrains)
How do you do that?  Call the RES_grab() function.  The parameter
    represents the type of resource you want (see the constant
    declarations after these statements).
When you are through with a resource, free it with the RES_free()
    function so it can be reused.

All functions in this module are prefixed with RES_
    
/////////////////////////////////////////////////////
remend

`Resource types
#Constant res_Object   0
#Constant res_Image    1
#Constant res_Sprite   2
#Constant res_File     3
#Constant res_Sound    4
#Constant res_Music    5
#Constant res_Memblock 6
#Constant res_Bitmap   7
#Constant res_Anim     8
#Constant res_Light    9
#Constant res_Camera   10
#Constant res_Mesh     11
#Constant res_Matrix   12
#Constant res_Matrix4  13
#Constant res_Vector   13
#Constant res_Particle 14
#Constant res_DLL      15
#Constant res_Shader   16

`number of resource types
#Constant res_Count    16

`resource management type
Type res_Type
    start as integer
    qty as integer
endtype

/////////////////////////////////////////////////////////
// INIT                                                //
/////////////////////////////////////////////////////////


function RES_init()
	// -----------------------
	// Init function
	// -----------------------
	`write debug
	
	`global init
	global DIM ResourceCounters(res_Count)   as integer
	global DIM FreeResourcesIndex(res_Count) as res_Type
	global DIM FreeResources(0)              as integer
	
	`done, write debug
	// -----------------------
	// -----------------------
endfunction


/////////////////////////////////////////////////////////
// CORE                                                //
/////////////////////////////////////////////////////////


function RES_grab(restype)
	// -----------------------
	// Grab a resource
	// -----------------------
	local result as integer
	if FreeResourcesIndex(restype).qty=0
    	inc ResourceCounters(restype)
    	result=ResourceCounters(restype)
    else
    	result=FreeResources(FreeResourcesIndex(restype).start)
    	array delete element FreeResources(0),FreeResourcesIndex(restype).start
    	dec FreeResourcesIndex(restype).qty
    	
    	for d=restype+1 to res_Count
        	dec FreeResourcesIndex(d).start
    	next d
	endif    
	// -----------------------
endfunction result



function RES_free(number,restype)
	// -----------------------
	// Free a resource
	// -----------------------
	local temp as integer
	`Delete it if it hasn't been
	select restype
    	case res_Object
        	if object exist(number) then delete object number
    	endcase
    	case res_Image
        	if image exist(number) then delete image number
    	endcase
    	case res_Sprite
        	if sprite exist(number) then delete sprite number
    	endcase
    	case res_File
        	if file open(number) then close file number
    	endcase
    	case res_Sound
        	if sound exist(number) then delete sound number
    	endcase
    	case res_Music
        	if music exist(number) then delete music number
    	endcase
    	case res_Memblock
        	if memblock exist(number) then delete memblock number
    	endcase
    	case res_Bitmap
        	if bitmap exist(number) then delete bitmap number
    	endcase
    	case res_Anim
        	if animation exist(number) then delete animation number
    	endcase
    	case res_Light
        	if light exist(number) then delete light number
    	endcase
    	case res_Camera
        	if camera exist(number) then delete camera number
    	endcase
    	case res_Mesh
        	if mesh exist(number) then delete mesh number
    	endcase
    	case res_Matrix
        	if matrix exist(number) then delete matrix number
    	endcase
    	case res_Particle
        	if particles exist(number) then delete particles number
    	endcase
    	case res_Matrix4
        	`if matrix4 exist(number) then delete matrix4 number
    	endcase
    	case res_Vector
        if vector exist(number) then delete vector3 number
     endcase
    	case res_DLL
        	if dll exist(number) then delete dll number
    	endcase
        case res_Shader
        	if effect exist(number) then delete effect number
    	endcase
    	case default
        	exitfunction
    	endcase
	endselect
	
	if number=ResourceCounters(restype)
    	dec ResourceCounters(restype)
    	else
    	temp=FreeResourcesIndex(restype).start+FreeResourcesIndex(restype).qty
    	array insert at element FreeResources(0),temp
    	FreeResources(temp)=number
    	inc FreeResourcesIndex(restype).qty
    	
    	for d=restype+1 to res_Count
        	inc FreeResourcesIndex(d).start
    	next d
	endif
	// -----------------------
endfunction

`old function names for compatibility

function grabResource(restype)
	result=RES_grab(restype)
endfunction result

function freeResource(number,restype)
	RES_free(number,restype)
endfunction

/////////////////////////////////////////////////////////
// TERMINATE                                           //
/////////////////////////////////////////////////////////


function RES_terminate()
	// -----------------------
	// Terminate resource module
	// -----------------------
	UNDIM ResourceCounters(0)
	UNDIM FreeResourcesIndex(0)
	UNDIM FreeResources(0)
	// -----------------------
endfunction

#constant IMG_COUNT     10
#constant IMG_FREE      5

dim Images() as integer

RES_init()

` Allocate a chunk of images
for i = 1 to IMG_COUNT
   Img = RES_grab( res_Image )
   array insert at bottom Images()
   Images() = Img
next

print "Initial allocation of images"
print Images(0); "";
for i = 1 to array count( Images() )
   print ", "; Images(i);
next
print ""
print ""

` Free up a random selection of them
for i = 1 to IMG_FREE
   j = rnd( array count( Images() ) )
   RES_free( Images(j), res_Image )
   print "Freeing "; Images(j)
   array delete element Images(), j
next
print ""

print "These are the allocated images after freeing"
print Images(0); "";
for i = 1 to array count( Images() )
   print ", "; Images(i);
next
print ""
print ""

` Allocate a new chunk of images
for i = 1 to IMG_COUNT
   Img = RES_grab( res_Image )
   array insert at bottom Images()
   Images() = Img
next

print "These are the allocated images after a new round of allocation"
print Images(0); "";
for i = 1 to array count( Images() )
   print ", "; Images(i);
next
print ""
print ""

print "Checking for duplicates"
DuplicateCount = 0
sort array Images()
for i = 1 to array count( Images() )
   if Images(i-1) = Images(i)
      print i; " is duplicated"
      inc DuplicateCount
   endif
next
if DuplicateCount = 0 then print "No duplicates found"

wait key
RES_terminate()
end

#Constant res_Image    1
#Constant res_Sprite   2
#Constant res_File     3
#Constant res_Sound    4
#Constant res_Music    5
#Constant res_Memblock 6
#Constant res_Bitmap   7
#Constant res_Anim     8
#Constant res_Light    9
#Constant res_Camera   10
#Constant res_Mesh     11
#Constant res_Matrix   12
#Constant res_Matrix4  13
#Constant res_Vector   13
#Constant res_Particle 14
#Constant res_DLL      15
#Constant res_Shader   16
#Constant res_Object   17

`number of resource types
#Constant res_Count    17

function RES_init()
   for i = 1 to res_Count
      make freelist i
   next
endfunction

function RES_grab(restype)
   local result as integer
   result = get from freelist( restype )
endfunction result

function RES_free(number, restype)
   return to freelist restype, number

   select restype
      case res_Object
         if object exist(number) then delete object number
      endcase
      case res_Image
         if image exist(number) then delete image number
      endcase
      case res_Sprite
         if sprite exist(number) then delete sprite number
      endcase
      case res_File
         if file open(number) then close file number
      endcase
      case res_Sound
         if sound exist(number) then delete sound number
      endcase
      case res_Music
         if music exist(number) then delete music number
      endcase
      case res_Memblock
         if memblock exist(number) then delete memblock number
      endcase
      case res_Bitmap
         if bitmap exist(number) then delete bitmap number
      endcase
      case res_Anim
         if animation exist(number) then delete animation number
      endcase
      case res_Light
         if light exist(number) then delete light number
      endcase
      case res_Camera
         if camera exist(number) then delete camera number
      endcase
      case res_Mesh
         if mesh exist(number) then delete mesh number
      endcase
      case res_Matrix
         if matrix exist(number) then delete matrix number
      endcase
      case res_Particle
         if particles exist(number) then delete particles number
      endcase
      case res_Matrix4
         `if matrix4 exist(number) then delete matrix4 number
      endcase
      case res_Vector
         if vector exist(number) then delete vector3 number
      endcase
      case res_DLL
         if dll exist(number) then delete dll number
      endcase
      case res_Shader
         if effect exist(number) then delete effect number
      endcase
      case default
         exitfunction
      endcase
   endselect
endfunction

function grabResource(restype)
   result=RES_grab(restype)
endfunction result

function freeResource(number,restype)
   RES_free(number,restype)
endfunction

/////////////////////////////////////////////////////////
// TERMINATE                                           //
/////////////////////////////////////////////////////////

function RES_terminate()
   for i = 1 to res_Count
      delete freelist i
   next
endfunction

img = get free image()
obj = get free object()
etc...

id = RES_grab(res_Object)
make object cube id, 1
...
RES_free(id, res_Object)

id = get free object()
make object cube id, 1
...
delete object id

>	matrix1util_22.dll!PushDir()  + 0x583 bytes	
 	matrix1util_22.dll!FindFreeFileRange()  + 0x7be bytes	
 	726f436f()	

sync on : sync rate 60 : sync
global result2#
result# = call function name("xSquared", 2.0) ` this doesn't work - but the function is called - see result2a#
result2a# = result2#
result3# = call function ptr (get ptr to function(1), 2.0)        ` this works

print "value = ", result#
print "value2a = ", result2a#
print "value3 = ", result3#
print "exact result = ", 4.0

sync

wait key

end

function xSquared(x as float)
  result# = x * x
  result2# = result#
endfunction result#

FunctionPtr  as dword
FunctionPtr = get ptr to function(2) ` this should refer to the second function, i.e. x^2
global s2#
global s3#
result# = test(FunctionPtr, 2.0, 3.0, 10)

print "result = ", result#
print "s2 = ", s2#
print "s3 = ", s3#
print "exact value = ", 9.0-8.0/3.0

wait key

end

function test(f as dword, a as float, b as float, n as integer)
  ` estimates the definite integral of the function with pointer f
  x# = a
  xStep# = (b-a)/n
  s# = call function ptr(f, a)
  f# = call function ptr(f, b)
  s# = (s# + f#) * 0.5
  n1 = n-1
  for i = 1 to n1
    inc x#, xStep#
    f# = call function ptr(f, x#)
    inc s#, f#
  next i
  s# = s# * xStep#
  s2# = s#
endfunction s#

function xSquared(x as float)
  result# = x * x
  s3# = result#
endfunction result#

FunctionPtr  as dword
FunctionPtr = get ptr to function(2) ` this should refer to the second function, i.e. x^2
global s2#
global s3#
result# = test(FunctionPtr, 2.0, 3.0, 10)

print "result = ", result#
print "s2 = ", s2#
print "s3 = ", s3#
print "exact value = ", 9.0-8.0/3.0

wait key

end

function test(f as dword, a as float, b as float, n as integer)
  ` estimates the definite integral of the function with pointer f
  x# = a
  xStep# = (b-a)/n
  s# = (call function ptr(f, a) + call function ptr(f, b)) * 0.5 ` this line is a problem
  n1 = n-1
  for i = 1 to n1
    inc x#, xStep#
    f# = call function ptr(f, x#)
    inc s#, f#
  next i
  s# = s# * xStep#
  s2# = s#
endfunction s#

function xSquared(x as float)
  result# = x * x
  s3# = result#
endfunction result#

FunctionPtr  as dword
FunctionPtr = get ptr to function(2) ` this should refer to the second function, i.e. x^2
global s2#
global s3#
result# = test(FunctionPtr, 2.0, 3.0, 10)

print "result = ", result#
print "s2 = ", s2#
print "s3 = ", s3#
print "exact value = ", 9.0-8.0/3.0

wait key

end

function test(f as dword, a as float, b as float, n as integer)
  ` estimates the definite integral of the function with pointer f
  x# = a
  xStep# = (b-a)/n
  s# = (call function ptr(f, a) + call function ptr(f, b)) * 0.5 ` this line is a problem
  n1 = n-1
  for i = 1 to n1
    inc x#, xStep#
    inc s#, call function ptr(f, x#) ` and so is this
  next i
  s# = s# * xStep#
  s2# = s#
endfunction s#

function xSquared(x as float)
  result# = x * x
  s3# = result#
endfunction result#

p = get ptr to function( "ReturnsFloat" )

ui as dword
si as integer
fp as float

addr = alloc(4)

ui = call function ptr(p)
si = call function ptr(p)
fp = call function ptr(p)

print "     DWORD : "; bin$(ui)

poke integer addr, si
print "   INTEGER : "; bin$( peek dword(addr) )

poke float addr, fp
print "     FLOAT : "; bin$( peek dword(addr) )

free addr

wait key
end

function ReturnsFloat()
endfunction 1234.5678

p1 = get ptr to function( "ReturnsFloat1" )
p2 = get ptr to function( "ReturnsFloat2" )

ui as dword
si as integer
fp as float

ui = CallAndReturnFloat(p1)
si = CallAndReturnFloat(p1)
fp = CallAndReturnFloat(p1)

print ui
print si
print fp

ui = CallAndReturnFloat(p2)
si = CallAndReturnFloat(p2)
fp = CallAndReturnFloat(p2)

print ui
print si
print fp

wait key
end

function CallAndReturnFloat(p as dword)
    local v as float
    v = call function ptr(p)
endfunction v

function ReturnsFloat1()
endfunction 1234.5678

function ReturnsFloat2()
endfunction 9876.54321

a = int( call function ptr(p) )

a = call function ptr(p) * 2

a# = call function ptr(p)
b# = call function ptr(p)
c# = a# + b#

c# = call function ptr(p) + call function ptr(p)

call function name "DoSomething"
result = get dword result()

Windows 7 64 Bit
I5 Core 2.80 GHz

L_S = The long string in the program.
S_S = Short string in the program.

Average time.

Len

L_S DBPro = 280
L_S Matrix1 = 630

S_S DBPro = 170
S_S Matrix1 = 194

Left

L_S DBPro = 575
L_S Matrix1 = 570

S_S DBPro = 572
S_S Matrix1 = 570

Right

L_S DBPro = 570
L_S Matrix1 = 577

S_S DBPro = 575
S_S Matrix1 = 570

Lower

L_S DBPro = 580
L_S Matrix1 = 577

S_S DBPro = 580
S_S Matrix1 = 575

Upper

L_S DBPro = 575
L_S Matrix1 = 580

S_S DBPro = 575
S_S Matrix1 = 570

The loop time is on most of them 59999999.

    make lookup from ini 1, "bin\game.ini"
    if lookup$(1,"system/hash") <> "CREATEME"
        hash$ = genLookupHash(1)
        if lookup$(1,"system/hash") <> hash$
            message "The Ini File has been tampered with, please reinstall", "Tut Tut"
            end
        endif
    else
        Set Lookup 1,"system/hash", genLookupHash(1)
        Save Lookup To Ini 1, "bin\game.ini"
    Endif

function genLookupHash(lk)

    First Lookup lk
    myString$ = ""
    while Lookup Is Valid(lk)
        if Lookup Current Key$(lk) <> "misc/hash"
            myString$=myString$ + Lookup Current Key$(lk) + Lookup Current Value$(lk)
        endif
        next Lookup lk
    endwhile
    myString$ = myString$ + "PASSCODE"
    hash$ = hash md5(myString$)    

endfunction hash$

#constant INI_NAME          "bin\game.ini"
#constant INI_HASH_STORE    "system/hash"

make lookup from ini 1, INI_NAME
if lookup$(1,INI_HASH_STORE) <> "CREATEME"
   hash$ = genLookupHash(1)
   if lookup$(1, INI_HASH_STORE) <> hash$
      print "The Ini File has been tampered with, please reinstall"
   else
      print "The hash is correct"
   endif
else
   print "First time - generated a new hash"
   Set Lookup 1, INI_HASH_STORE, genLookupHash(1)
   Save Lookup To Ini 1, INI_NAME
Endif

print "Done"
wait key
end

function genLookupHash(lk)

    First Lookup lk
    myString$ = ""
    while Lookup Is Valid(lk)
        if Lookup Current Key$(lk) <> INI_HASH_STORE
            myString$=myString$ + Lookup Current Key$(lk) + Lookup Current Value$(lk)
        endif
        next Lookup lk
    endwhile
    myString$ = myString$ + "PASSCODE"
    hash$ = hash md5(myString$)    

endfunction hash$

make lookup 1
set lookup 1,"tree","size=large"
next lookup 1
set lookup 1,"tree","cells=1"
next lookup 1
set lookup 1,"tree","frames=14"
save lookup to ini 1,"blank.ini"

[tree]
=frames=14

[tree]
size=large
cells=1
frames=14

[tree]
=14

[tree]
size=1

[tree/position]
x=123

make lookup 1
set lookup 1,"tree/size","large"
set lookup 1,"tree/cells","1"
set lookup 1,"tree/frames","14"
save lookup to ini 1,"blank.ini"