Verfasst: 24.05.2007 16:08
was auch logisch und einsehbar ist.
ich wollte einfach nur nachhaken, was AND meinte mit seiner 1...
ich wollte einfach nur nachhaken, was AND meinte mit seiner 1...
Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/
So etwas Ähnliches möchte ich machen.real hat geschrieben:Schau Dir mal den Speedometer-Mod fuer GTA an, in dem ein Analog-Tachometer in's Spiel eingeblendet wird. (Der Quellcode ist verfuegbar unter http://www.pawfectfilms.com/mods/speedo_src.zip)
Schon klar,real hat geschrieben:Du hast aber schon bemerkt, dass Programmie in ein anderes Spiel reinzeichnen will.
Und da geht das, was Du vorgeschlagen hast, definitiv nicht (und schon gar nicht flimmerfrei).
Code: Alles auswählen
Titel$= "NameDesSpiels" ;Titel der Anwendung/Fenstername (Taskmanager)
;OpenConsole()
;EnableGraphicalConsole(#True) ;Bildschirmgrösse (ich hatte es auskommentiert, weiss nicht mehr warum)
;wx.w=GetSystemMetrics_(#SM_CXFULLSCREEN)
;wy.w=GetSystemMetrics_(#SM_CYFULLSCREEN)
wx=1280
wy=1024
WindowID = FindWindow_(#Null, Titel$)
dc= GetDC_(WindowID)
center_x = wx/2-1
center_y = wy/2-2
halfsize = 20/2
Repeat
If GetAsyncKeyState_(#VK_RBUTTON)<>0
If counter=0
WindowID = FindWindow_(#Null, Titel$)
If WindowID = 0
Debug "Window not Exists"
EndIf
WindowDC.l = GetWindowDC_(#Null)
counter=1
EndIf
sleeptime = 1
range=16
r=8
While GetAsyncKeyState_(#VK_ESCAPE) <> -32767
For i= 0 To range
For k= 0 To range
x=center_x-r+i
y=center_y-r+k
Colour = GetPixel_(GetDC_(WindowID), x, y)
If colour=16185078
movex=r-range+i
movey=r-range+k
mouse_event_(#MOUSEEVENTF_MOVE, movex,movey, 0, 0 )
;Sleep_(sleeptime)
EndIf
For X2= center_x-range/2 To center_x+range/2
SetPixel_(dc, X2, center_y-range/2, RGB(55,100,200))
SetPixel_(dc, X2, center_y+range/2, RGB(55,100,200))
Next
For Y2= center_y-range/2 To center_y+range/2
SetPixel_(dc, center_x-range/2,Y2, RGB(55,100,200))
SetPixel_(dc, center_x+range/2,Y2, RGB(55,100,200))
Next
ReleaseDC_(WindowID, dc)
;Delay(1)
Next
Next
Wend
EndIf
;Delay(1)
ForEver
;CloseConsole()
End
K.Putt hat geschrieben:Komisch ist nur dass es bei mir geht,
aber die Antwort hast Du sicherlich schon:
1. es gibt mich gar nicht
2. schon gar nicht im PB Forum.