Remotivierender Bildschirmschoner

[Franky]

Hi Leute, mal etwas psychopatische Hilfestellung beim Programmieren.

Man hat ja immer mal das Problem, dass man in Gedanken versinkt und minuntenlang nur auf den Bildschirm starrt.
Einfach als Bildschirmschoner einrichten und feddich
Dieser Bildschirmschoner wird sich einmal aktivieren, und ich schwöre euch, ihr werdet es nie wieder drauf ankommen lassen, ihn zu sehen

Es war ne kleine 10 Minuten spielerei, weil ich langeweile hatte


Link

Edit: Vorsicht, als Epileptiker nicht starten!!!!

[Mok]

[url="http://braineagles.org/programme/Grausa ... nSaver.scr]Link[/url]

Ohne "-Zeichen

[Deluxe0321]

Ich finde deinen Screensaver sogar Prima. Er motiviert auch gewaltig meine CPU

[gekkonier]

Aua
Der Schoner fetzt

[ZeHa]

Ziemlich cool

Ansonsten ist auch das hier eine gute Lösung für den nötigen Motivationsschub:

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()

#SW = 800
#SH = 600

OpenScreen(#SW, #SH, 32, "Motivation")
LoadFont(0, "Arial Black", #SW / 8)

Repeat
    ClearScreen(0)
    StartDrawing(ScreenOutput())
    DrawingFont(FontID(0))
    
    Read str$
    x = 800 / 2 - TextWidth(str$) / 2
    y = 600 / 2 - TextHeight(str$)
    DrawText(x, y, str$, $FFFFFF, 0)
    
    StopDrawing()
    FlipBuffers()
    
    For i = 1 To 100
        Delay(10)
        ExamineMouse()
        ExamineKeyboard()
        
        If MouseDeltaX() Or MouseDeltaY() Or KeyboardPushed(#PB_Any)
            ClearScreen(0)
            FlipBuffers()
            CloseScreen()
            End
        EndIf
    Next i
    
    If str$ = ""
        Restore text
    EndIf    
ForEver

DataSection
text:
    Data$ "MACH", "ENDLICH", "DEIN", "SCHEISS", "SPIEL", "FERTIG", "!", ""
EndDataSection

Der Text kann natürlich beliebig angepaßt werden


EDIT: Vielleicht wäre auch eine Kombination möglich - der Text im Vordergrund, Frankys wirre Grafikexperimente im Hintergrund

[PMTheQuick]

Ziemlich cool

Ansonsten ist auch das hier eine gute Lösung für den nötigen Motivationsschub:

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()

#SW = 800
#SH = 600

OpenScreen(#SW, #SH, 32, "Motivation")
LoadFont(0, "Arial Black", #SW / 8)

Repeat
    ClearScreen(0)
    StartDrawing(ScreenOutput())
    DrawingFont(FontID(0))
    
    Read str$
    x = 800 / 2 - TextWidth(str$) / 2
    y = 600 / 2 - TextHeight(str$)
    DrawText(x, y, str$, $FFFFFF, 0)
    
    StopDrawing()
    FlipBuffers()
    
    For i = 1 To 100
        Delay(10)
        ExamineMouse()
        ExamineKeyboard()
        
        If MouseDeltaX() Or MouseDeltaY() Or KeyboardPushed(#PB_Any)
            ClearScreen(0)
            FlipBuffers()
            CloseScreen()
            End
        EndIf
    Next i
    
    If str$ = ""
        Restore text
    EndIf    
ForEver

DataSection
text:
    Data$ "MACH", "ENDLICH", "DEIN", "SCHEISS", "SPIEL", "FERTIG", "!", ""
EndDataSection

Der Text kann natürlich beliebig angepaßt werden


EDIT: Vielleicht wäre auch eine Kombination möglich - der Text im Vordergrund, Frankys wirre Grafikexperimente im Hintergrund

Buuuuh ZeHa. Das motiviert GAR nicht. Das hier motiviert:

Code: Alles auswählen

InitSprite()
InitKeyboard()
InitMouse()

#SW = 800
#SH = 600

OpenScreen(#SW, #SH, 32, "Motivation")
LoadFont(0, "Arial Black", #SW / 8)

d = 50

Procedure beepi(dummy)
  Repeat
    Beep_(Random(4000), Random(100))
  ForEver
EndProcedure

CreateThread(@Beepi(), 1)
Repeat
    ClearScreen(0)
    StartDrawing(ScreenOutput())
    DrawingFont(FontID(0))
    DrawingMode(1)
   
    For aa = 1 To 100
      r = Random(1)
      If r = 0
        c = RGB(255, 0, 0)
      Else
        c = RGB(0, 0, 255)
      EndIf
      Circle(Random(700), Random(600), Random(100), c)
    Next aa
    For aa = 1 To 100
      r = Random(1)
      If r = 0
        c = RGB(255, 0, 0)
      Else
        c = RGB(0, 0, 255)
      EndIf
      LineXY(Random(700), Random(600), Random(700), Random(600), c)
    Next aa
    If d = 50
      Read str$
      d = 0
    EndIf
    d + 1
    x = 800 / 2 - TextWidth(str$) / 2
    y = 600 / 2 - TextHeight(str$)
    r = Random(1)
    If r = 0
      c = RGB(255, 0, 0)
    Else
      c = RGB(0, 0, 255)
    EndIf
    DrawText(x, y, str$, c, 0)
   
    StopDrawing()
    FlipBuffers()
   
    For i = 1 To 1
        Delay(10)
        ExamineMouse()
        ExamineKeyboard()
       
        If MouseDeltaX() Or MouseDeltaY() Or KeyboardPushed(#PB_Any)
            ClearScreen(0)
            FlipBuffers()
            CloseScreen()
            End
        EndIf
    Next i
   
    If str$ = ""
        Restore text
    EndIf   
ForEver

DataSection
text:
    Data$ "MACH", "ENDLICH", "DEIN", "SCHEISS", "SPIEL", "FERTIG", "!", ""
EndDataSection

Have fun

Gruss
PMTheQuick

[ZeHa]

LOL nur die Sounds haben bei mir nicht funktioniert... ist aber vielleicht auch besser so

[PMTheQuick]

Für solche, welche wirklich so etwas von unmotiviert sind:
http://www.q-soft.ch/Motivation.exe

Is ganz nett

Gruss
PMTheQuick

[Deeem2031]

Ob das den Monitoren gut tut... "Bildschirmschoner"...

[PMTheQuick]

Ob das den Monitoren gut tut... "Bildschirmschoner"...

Hm
[TV-Spot]
Neuste Erfindung: "Bildschirmzerreisser + Motivationsanreger" in einem für sagenhafte 49,99€
Jetzt anrufen: 000 000 00 01
Ihr Bildschirm wird so begeistert sein, dass er gar nicht mehr arbeitet.
[/TV-Spot]

Gruss
PMTheQuick XD