Jump to content


Photo

Another Snippet Of Sorts


  • Please log in to reply
No replies to this topic

#1 flattspott

flattspott

    X-S Freak

  • Moderator
  • PipPipPipPipPip
  • 1,787 posts
  • Location:Southern California
  • Xbox Version:v1.0
  • 360 version:v1 (xenon)

Posted 22 August 2004 - 07:15 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





0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users