0 Members and 1 Guest are viewing this topic.
Thanks guys. Good idea benny. I am using drawstring so it is difficult to fade in, but maybe simulating writing the text would work better.Thanks.
drawstring
Color.FromArgb(128, 255, 255, 255)
t = Timerts = Timertc = TimerDo ch = InKey If Timer > (t + .1) Then currcoolmap = GetRandom(0, numcoolmaps) t = Timer end If 'This is the scene timing code. 20 here = 20 secs. If (Timer > (ts + 20)) Or (ch = Chr(32)) Then scene += 1 ts = Timer av = 0 EndIf If Timer > (tc + .03) Then av += 2 If av > 255 Then av = 255 tc = Timer EndIf DoFire av Sleep 1loop until (ch = Chr(27)) Or (scene = 6)