PureBasic Forums - English

Restored from previous forum. Originally posted by stfighter.

i try to use my dll with purebasic, but the result of the functions seems wrong.
i dont think that i make a mistake, but here is my code.
my dll and all stuff can be found on
i still tested my dll with a visual c++ programm and it works correctly.
the fault must be in this progamm.

http://mitglied.lycos.de/stfighter07/kollision/


please help!

----------------------------------------------

InitSprite() ; Iniziert DirectX
InitKeyboard() ; Die Tastatur befehle sollen verwendet werden
InitSound() ; Sound befehle sollen verwendet werden

OpenLibrary(0, "mechanic2D.dll")


;----Bildschirmkonstanten--------
#fullscreen= 0
#resolutionx= 1024
#resolutiony= 768

#kreis= 3;
#konvex= 4;

#automatic = -1;
#PI = 3.1459
#kreis= 3
#true= 1
#false= 0


If #fullscreen = 0
If OpenWindowedScreen(OpenWindow(0, 0,0, #resolutionx,#resolutiony, #PB_Window_SystemMenu|#PB_Window_WindowCentered|#PB_Window_SizeGadget, "Kollisionen"),0,0,#resolutionx,#resolutiony, 1, 0,0)= 0 : Goto programmende : EndIf
Else
If OpenScreen(#resolutionx, #resolutiony, 16, "Kollisionen") = 0 : Goto programmende : EndIf
EndIf
SetFrameRate(75)

worldhandle.l
kreis1.l
wand.l
neuewand.l
objkreis.l

; new world will be initialized here
worldhandle= CallFunction(0,"CreateWorld") ;Result may be wrong?

;the layout for an objekt will be created here
kreis1= CallFunction(0, "CreateForm")
CallFunction(0, "AddFormPart",kreis1, 3,0,0)
CallFunction(0, "AddPoint", kreis1, 0,0)
CallFunction(0, "AddPoint", kreis1, 20,0)
CallFunction(0, "CloseForm",kreis1, 100, 100, 1)

wand= CallFunction(0, "CreateForm")
CallFunction(0, "AddFormPart",wand, 4,0,0)
CallFunction(0, "AddPoint", wand, -10,250)
CallFunction(0, "AddPoint", wand, 10,250)
CallFunction(0, "AddPoint", wand, 10,-250)
CallFunction(0, "AddPoint", wand, -10,-250)
CallFunction(0, "CloseForm",wand, 0, 0, 1)


; objects will be created here
neuewand= CallFunction(0, "CreateObject", wand)
CallFunction(0, "MakeObjectAlive",neuewand, 0,-260, 0,0,0,0);

neuewand= CallFunction(0, "CreateObject", wand)
CallFunction(0, "MakeObjectAlive",neuewand, 0,260, 0,0,0,0);

neuewand= CallFunction(0, "CreateObject", wand)
CallFunction(0, "MakeObjectAlive",neuewand, 260,0, 0,0,#PI/2,0);

neuewand= CallFunction(0, "CreateObject", wand)
CallFunction(0, "MakeObjectAlive",neuewand, -260,0, 0,0,#PI/2,0);

objkreis= CallFunction(0, "CreateObject", kreis1)
CallFunction(0, "MakeObjectAlive",objkreis, 0,0, 0.3,0.2,0,0);


xpos.f
ypos.f

Repeat
ExamineKeyboard()
If #fullscreen= 0
If WindowEvent()= #PB_EventCloseWindow : Goto programmende : EndIf
EndIf


xpos.f= CallFunction(0, "GetXPosition", objkreis)
ypos.f= CallFunction(0, "GetYPosition", objkreis)

;all objects get moved
CallFunction(0,"MoveObjects")

StartDrawing(ScreenOutput())
Circle(xpos+300,ypos+300,20,255);

StopDrawing()

FlipBuffers()
ClearScreen(0,0,0)




If KeyboardPushed(1) : Goto programmende : EndIf
ForEver



;-************Programmende************************

programmende: ;Programmende label

CallFunction(0,"DestroyWorld", worldhandle)
CloseLibrary(0)
CloseScreen()