), 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.Liegts an mir, oder ist dieser Schluss wirklich zweideutig?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.
... zumal das Spiel 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
