PureBoard

Verfasst: **11.03.2008 20:16**

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!!!!

Verfasst: **11.03.2008 20:17**

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

Ohne "-Zeichen

Verfasst: **11.03.2008 22:10**

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

Verfasst: **11.03.2008 22:53**

Aua

Der Schoner fetzt

Verfasst: **11.03.2008 23:47**

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

Verfasst: **12.03.2008 14:42**

ZeHa hat geschrieben: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

Verfasst: **12.03.2008 14:56**

LOL

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

Verfasst: **12.03.2008 15:10**

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

Is ganz nett

Gruss
PMTheQuick

Verfasst: **12.03.2008 15:16**

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

Verfasst: **12.03.2008 15:18**

Deeem2031 hat geschrieben: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

PureBoard

Remotivierender Bildschirmschoner

Remotivierender Bildschirmschoner

Re: Remotivierender Bildschirmschoner