Erotik im Internet

Hier kann alles mögliche diskutiert werden. Themen zu Purebasic sind hier erwünscht.
Flames und Spam kommen ungefragt in den Mülleimer.
Benutzeravatar
Rubiko
Beiträge: 943
Registriert: 25.02.2005 19:43
Computerausstattung: Intel i7 2600k
8GB Ram
GeForce GTX 560 Ti
Wohnort: Schwabach

Beitrag von Rubiko »

Doch, doch, das ist sie ;)
Aber so schwer wars ja eigentlich nicht...
Hab übrigens nur ne billig no name Maus, ne Maus tut ihren Zweck, da brauch ich keine übergroße Genauigkeit (was bringt das überhaupt?)
Ich wollte die Welt verändern, doch Gott gab mir nicht den Quelltext.
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Genau, so sehe ich das auch. Ich kann in Tactical Ops auch so gut mit der MP5 die Leute umnieten. 8)

Einziger Anspruch, den ich habe: Die Maus muss Gewicht haben. No Name Mäuse sind mir zu leicht, die kann man ja fast vom Tisch pusten...
Sonst kann ich nicht spielen... :lol:



@ Rubiko: Dann nimm doch jetzt bitte mal die linke. DIe würde mich auch noch interessieren! :wink:
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
Rubiko
Beiträge: 943
Registriert: 25.02.2005 19:43
Computerausstattung: Intel i7 2600k
8GB Ram
GeForce GTX 560 Ti
Wohnort: Schwabach

Beitrag von Rubiko »

Bild

Sorry für die niedrige Punktezahl, aber da bei 10.000 eh letztes Bild is... bin grad etwas müde und gehe jetzt eh schlafen ;)
Ich wollte die Welt verändern, doch Gott gab mir nicht den Quelltext.
Benutzeravatar
AND51
Beiträge: 5220
Registriert: 01.10.2005 13:15

Beitrag von AND51 »

Hey, super! :allright:
Danke :lol:

Gute Nacht! :coderselixir:
PB 4.30

Code: Alles auswählen

Macro Happy
 ;-)
EndMacro

Happy End
Benutzeravatar
hardfalcon
Beiträge: 3447
Registriert: 29.08.2004 20:46

Beitrag von hardfalcon »

Nackedeis für U18s (mich zum Beispiel :mrgreen: ), das is doch letztendlich nur ne frage der Medienkompetenz. Es ist völliger Schmarrn zu sagen "ui, du hast erst morgen deinen 18. Geburtstag, du darfst noch keine Möpse sehen!", und es ist ein noch viel größerer Schmarrn, das alles "wegzensieren" zu wollen. Jemandem, der erstmal über 18 ist, kann man glücklicherweise nicht mehr vorschreiben, was er sich anschaun darf, und was nicht, und da ist es ja wohl besser, wenn man weiss, was es gibt, und eigentständig sagen kann: "das will ich nich, das is pervers", als wenn man am 18. Geburtstag von heute auf morgen plötzlich in der gewonnen Freiheit "ertrinkt", und 24/7 nur noch vorm Bildschirm hockt, Geige zu spielen... Für alle, die schon immer fanden, dass 18 eh noch zu Jung ist: bitte ersetzt die Zahl 18 in diesem Posting einfach mit 21 oder 25 oder von mir aus auch 88... Ist alles das gleiche, Freiheit will vorbereitet sein. Je früher, desto besser, sonst kann man sich am Ende selber nicht (mehr) kontrollieren.
Benutzeravatar
PMV
Beiträge: 2765
Registriert: 29.08.2004 13:59
Wohnort: Baden-Württemberg

Beitrag von PMV »

hardfalcon hat geschrieben:Ist alles das gleiche, Freiheit will vorbereitet sein. Je früher, desto besser, sonst kann man sich am Ende selber nicht (mehr) kontrollieren.
Liegts an mir, oder ist dieser Schluss wirklich zweideutig? :mrgreen:

... man man man, eure Probleme hät ich gerne :lol: ... zumal das Spiel
alt ist 8)

MFG PMV
alte Projekte:
TSE, CWL, Chatsystem, GameMaker, AI-Game DLL, Fileparser, usw. -.-
Benutzeravatar
Scarabol
Beiträge: 1427
Registriert: 30.11.2005 21:00

Beitrag von Scarabol »

Hallo Leute,

Code: Alles auswählen

Global Mem.l = AllocateMemory(1024)
PokeL(Mem, 1)


;- Proceduren

Procedure maus(x, y, aktion1 = 0, aktion2 = 0)
   BlockInput_(2 And 1) : x=Abs(x) : y=Abs(y)
   Protected a.l, b.l, sa.l, sb.l
   SetCursorPos_(x, y)
   If aktion1 <> 0 : mouse_event_(aktion1, x, y, 0, 0) : EndIf
   If aktion2 <> 0 : mouse_event_(aktion2, x, y, 0, 0) : EndIf
   BlockInput_(#False)
   ProcedureReturn #True
EndProcedure


;- Macros

Macro DesktopOutput()
  Mem
EndMacro

Macro WaitForWindow(Name)
  Repeat
    Delay(1)
  Until GetForegroundWindow_() = FindWindow_(0, Name)
EndMacro


;- Main Loop

Win$ = "Pilsner Urquell Undress - Mozilla Firefox"

SetForegroundWindow_(FindWindow_(0, Win$))

WaitForWindow(Win$)

Repeat
  Delay(1)
Until GetAsyncKeyState_(#VK_SPACE)

Repeat
  StartDrawing(DesktopOutput())
    For x = 340 To 800
      Col = Point(x, 725)
      b = (Red(Col)+Green(Col)+Blue(Col))*100/765
      If b < 75
        Maus(x, 725)
        Break
      EndIf
      If GetAsyncKeyState_(#VK_ESCAPE)
        End
      EndIf
    Next
  StopDrawing()
  Delay(1)
ForEver

End
zum selbermachen <)
Einfach Leertaste drücken und zurücklehnen, wenn ihrs beenden wollt ist Escape euer Freund.

Gruß
Scarabol

PS
Eventuell müsst ihr den Fensternamen anpassen und auch die Koordinaten ändern da jeder seine Leisten und was weiß ich anders platziert hat.
Empfehle euch dabei mein Tool Bidlschirmlupe, die zeigt euch die aktuellen Koords der Maus an, oder ihr mach nen Screenshot und vermesst ihn in Paint...
Abgeschlossen Projekte:
Schreibmaschine, Bildschirmlupe, Wings3DtoOgreMeshConverter
Watch: PureArea

PB-V: 4
WinXP
Benutzeravatar
Rubiko
Beiträge: 943
Registriert: 25.02.2005 19:43
Computerausstattung: Intel i7 2600k
8GB Ram
GeForce GTX 560 Ti
Wohnort: Schwabach

Beitrag von Rubiko »

leider etwas zu lahm später :)
Ich wollte die Welt verändern, doch Gott gab mir nicht den Quelltext.
Benutzeravatar
Scarabol
Beiträge: 1427
Registriert: 30.11.2005 21:00

Beitrag von Scarabol »

???

18400 - neuer Rekord

Gruß
Scarabol
Abgeschlossen Projekte:
Schreibmaschine, Bildschirmlupe, Wings3DtoOgreMeshConverter
Watch: PureArea

PB-V: 4
WinXP
Benutzeravatar
Rubiko
Beiträge: 943
Registriert: 25.02.2005 19:43
Computerausstattung: Intel i7 2600k
8GB Ram
GeForce GTX 560 Ti
Wohnort: Schwabach

Beitrag von Rubiko »

bei mir macht er immer schluss zwischen 10.000 und 11.000
Ich wollte die Welt verändern, doch Gott gab mir nicht den Quelltext.
Gesperrt