module2.bas

来自「学院MIS管理系统,适合大部分毕业生,请大家支持」· BAS 代码 · 共 19 行

Attribute VB_Name = "Module2"
'''''''''''''''''''''''''''''''''''''''''软件封面
Public Const Flame_Height = 30  ' Higher the number the shorter the flame

Type pix
    r As Integer   ' Red
    g As Integer   ' Green
    b As Integer   ' Blue
    c As Boolean   ' Constant Colour
End Type

Public maxx As Integer   ' Array max x
Public maxy As Integer   ' Array max y

Public new_flame() As pix  ' Flames buffers
Public old_flame() As pix
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''