Home

Add

Edit

Without Linenumbers

Code in Textfield

Download

  1. '=[ Parameter ]=
    
  2. 
    
  3. '[RI] = Rechen-Intensiv
    
  4. '(Wirkt sich in verbindung mit anderen [RI]s EXTREM!!! auf die Rechenzeit aus)
    
  5. 
    
  6. 
    
  7. 'Bildschirmbreite
    
  8. Dim SWidth As Uinteger = 500
    
  9. 
    
  10. 'Sparc Höhe (Wie weit sich von Sparc zu Sparc der ""Beam verdehnen darf)
    
  11. Dim XHight As Uinteger = 30
    
  12. 
    
  13. '[RI] Sparc Schritte (Nach wie vielen Schritten ein Sparc ausbrechen soll
    
  14. Dim Sparcs As Uinteger = 25
    
  15. 
    
  16. '[RI] Sparc Ausbrüche (Wie viele Sparcs ausbrechen sollen)
    
  17. Dim SparcsBreak As Uinteger = 2
    
  18. 
    
  19. '[RI] Sparc Ausbruchs Höhe / Länge (Wei weit ein ausgebrochener Sparc laufen soll)
    
  20. Dim SparcsBreakLen As Uinteger = 1000
    
  21. 
    
  22. 'Sparc Ausbruchs Breite (Wie weit der Sparc seine richtung (Links/Rechts) ändern darf)
    
  23. Dim SparcsBreakW As Uinteger = 5
    
  24. 
    
  25. 'Korrektur der Sparc Ausbruchsrichtung (Korriegiert Laufbahn des Sparcs zum ausbruchspunkt zurück)
    
  26. Dim SparcCorrection As Uinteger = 12
    
  27. 
    
  28. 'Aktiviert den interaktiven Maus-Sensor
    
  29. Dim Sensing As Ubyte = 0
    
  30. 
    
  31. 
    
  32. 
    
  33. 'Farben
    
  34. Dim RCol As Uinteger = 100
    
  35. Dim GCol As Uinteger = 100
    
  36. Dim BCol As Uinteger = 255
    
  37. 
    
  38. 
    
  39. 
    
  40. 
    
  41. 
    
  42. Dim C As Uinteger
    
  43. Dim ZY As Uinteger
    
  44. Dim LY As Uinteger = XHight / 2
    
  45. Dim TX As Uinteger
    
  46. Dim TY As Uinteger
    
  47. Dim LTX As Uinteger
    
  48. Dim LTY As Uinteger
    
  49. Dim XCV1 As Uinteger
    
  50. Dim XCV2 As Uinteger
    
  51. Dim XCV3 As Uinteger
    
  52. Dim YScreen As Uinteger = 100
    
  53. Dim XOffSet As Uinteger = 10
    
  54. Dim YOffSet As Uinteger = 100
    
  55. Dim MouseX As Integer
    
  56. Dim MouseY As Integer
    
  57. Dim MouseXL As Integer
    
  58. Dim MouseYL As Integer
    
  59. Screenres SWidth, 400, 24
    
  60. Randomize Timer
    
  61. Do
    
  62.     If Sensing = 1 Then
    
  63.         If Getmouse(MouseX, MouseY) = 0 Then
    
  64.             XHight = Abs(MouseYL - MouseYL)
    
  65.             SparcsBreakLen = (Abs(MouseXL - MouseXL) + 1) * 300
    
  66.             MouseXL = MouseX
    
  67.             MouseYL = MouseY
    
  68.         End If
    
  69.     End If
    
  70.     Cls
    
  71.     For X As Uinteger = 1 To SWidth - XOffSet Step Sparcs
    
  72.         C = Int((Rnd * XHight) + 1) - (XHight / 2)
    
  73.         If ZY + C > YScreen Then
    
  74.             ZY -= C
    
  75.         Else: ZY += C
    
  76.         End If
    
  77.         For Y As Uinteger = 1 To Sparcs
    
  78.             ZY += Int((Rnd * 3) - 1)
    
  79.             Pset(XOffSet + X + Y, YOffSet + ZY), Rgb(RCol, GCol, BCol)
    
  80. '           For Z as UInteger = 1 to 10
    
  81. '               PSet(XOffSet + X + Y + Int((Rnd * Sparcs) - (Sparcs / 2)), YOffSet + ZY + Int((Rnd * 3) - 1)), RGB(100, 100, 255)
    
  82. '           Next
    
  83.         Next
    
  84.         LY = ZY
    
  85.         For Y As Uinteger = 1 To SparcsBreak
    
  86.             TY = LY
    
  87.             TX = X
    
  88.             For Z As Uinteger = 1 To SparcsBreakLen
    
  89.                 TX += Int((Rnd * SparcsBreakW) - Fix(SparcsBreakW / 2))
    
  90.                 TY += Int((Rnd * 3) - 1)
    
  91.                 XCV1 = RCol - ((RCol / SparcsBreakLen) * Z)
    
  92.                 XCV2 = GCol - ((GCol / SparcsBreakLen) * Z)
    
  93.                 XCV3 = BCol - ((BCol / SparcsBreakLen) * Z)
    
  94.                 Pset(XOffSet + TX, YOffSet + TY), Rgb(XCV1, XCV2, XCV3)
    
  95. '               Line(XOffSet + LTX, YOffSet + LTY)-(XOffSet + TX, YOffSet + TY), RGB(XCV, XCV, 255 - ((255 / SparcsBreakLen) * Z))
    
  96.                 LTX = TX
    
  97.                 LTY = TY
    
  98.                 If TX < X Then
    
  99.                     TX += Fix(Int(Rnd * SparcCorrection) / 10)
    
  100.                 Else: TX -= Fix(Int(Rnd * SparcCorrection) / 10)
    
  101.                 End If
    
  102.             Next
    
  103.         Next
    
  104.     Next
    
  105.     Sleep '1000, 1
    
  106. Loop Until Inkey() = Chr(27)
    
  107. Screen 0
    
  108. End