Module_main.vb

（开头部分） 15KB

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

'[Visual Basic] Visual Basic Shooting Game

'made by - Printed Love
'Blog: https://printed.tistory.com
'YouTube: https://youtube.com/channel/UCtKTjiof6Mwa_4ffHDYyCbQ

Imports System.Drawing.Text
Imports System.Math

Module Module_main

    'screen
    Public S_WIDTH As Short = 960
    Public S_HEIGHT As Short = 960
    Public mouse_coord As Point

    'color, brush, pen
    Public MAX_ALPHA As Short = 255
    Public WHITE As Color = Color.FromArgb(MAX_ALPHA, 214, 231, 255)
    Public GRAY_DEEP As Color = Color.FromArgb(MAX_ALPHA, 66, 71, 75)
    Public GRAY As Color = Color.FromArgb(MAX_ALPHA, 79, 81, 91)
    Public GRAY_LIGHT As Color = Color.FromArgb(MAX_ALPHA, 107, 121, 141)
    Public SKYBLUE As Color = Color.FromArgb(MAX_ALPHA, 74, 140, 234)

    Public brush_W As Brush = New SolidBrush(WHITE)
    Public brush_GD As Brush = New SolidBrush(GRAY_DEEP)
    Public brush_GD160 As Brush = New SolidBrush(Color.FromArgb(160, 66, 71, 75))
    Public brush_GL As Brush = New SolidBrush(GRAY_LIGHT)
    Public brush_GL160 As Brush = New SolidBrush(Color.FromArgb(160, 107, 121, 141))
    Public brush_SK As Brush = New SolidBrush(SKYBLUE)

    Public pen_GD_2 As Pen = New Pen(brush_GD, 2)
    Public pen_GL_16 As Pen = New Pen(brush_GL, 16)
    Public pen_SK_16 As Pen = New Pen(brush_SK, 16)
    Public pen_W_3 As Pen = New Pen(brush_W, 3)
    Public pen_GD_96 As Pen = New Pen(brush_GD160, 96)
    Public pen_GL_96 As Pen = New Pen(brush_GL160, 96)

    'font
    Public font_munro As PrivateFontCollection = New PrivateFontCollection()
    Public font_8 As Font
    Public font_12 As Font
    Public font_16 As Font
    Public font_32 As Font
    Public strFormat As New StringFormat

    'image
    Public spr_player_core As Sprite
    Public spr_player_body As Sprite
    Public spr_hpBar As Sprite
    Public spr_skillicon As SpriteSheet
    Public spr_item As SpriteSheet
    Public spr_enemy As SpriteSheet
    Public spr_attack As SpriteSheet
    Public spr_attack_boom As SpriteSheet
    Public spr_attack_enemy As SpriteSheet
    Public spr_partical_attack As SpriteSheet
    Public spr_partical_critical As SpriteSheet
    Public spr_partical_enemy As SpriteSheet
后面还有 402 行代码，解锁后查看完整代码

24 小时内免费解锁 3 个项目，之后 1 积分/个。 规则说明

AI 解读 AI

登录后可用，每次 10 积分，解读结果公开显示在下面。

还没有人解读过这个文件。