xboxscene.org forums

Author Topic: Another Snippet Of Sorts  (Read 618 times)

flattspott

  • Archived User
  • Hero Member
  • *
  • Posts: 1220
Another Snippet Of Sorts
« on: August 22, 2004, 12:15:00 PM »
CODE
//   Flashbang
MinimumBuild 1231
:Loop
SetFunc Input IQPeekMsgID
If %Input% != "" Then
   Quit
EndIf
Gosub Flash
DelayMS 50
Goto Loop

:Flash
For I = 0 To 3
   SetFunc Data%I% CvtToBase 16 0 %($rand%255)%
Next
Set Color 0x%Data0%%Data1%%Data2%%Data3%
BeginDraw
   Box 0 0 640 480 %Color% %Color%
EndDraw
Return
Logged