Item.vb

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

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports System.Math

Public Class Item : Inherits ObjectBase

    Public getItem As Boolean = False

    Sub New()
        spr = spr_item
        Dim item_type = random.Next(1, 100)

        'spon probability
        If item_type < 3 Then           '2 %
            type = 2
        ElseIf item_type < 13 Then      '10 %
            type = 1
        ElseIf item_type < 21 Then      '7 %
            type = 3
        Else                            '80 %
            type = 0
        End If

        spr_index = type
        rec.Location = GetCoordCircle(S_WIDTH \ 2, S_HEIGHT \ 2,
                                      random.Next(0, 360) * 180 / Math.PI, S_WIDTH + random.Next(0, S_WIDTH \ 2))

        'size setting
        Select Case type
            Case 0                              'exp(small)
                rec.Size = New Point(11, 11)
            Case 1                              'exp(medium)
                rec.Size = New Point(17, 17)
            Case 2                              'exp(big)
                rec.Size = New Point(23, 23)
            Case 3                              'hp  ball
                rec.Size = New Point(15, 15)
        End Select
    End Sub

    Sub IndividualEvent()
        DefaultEvent()

        'collision with player 
        If Not getItem And rec.IntersectsWith(player_rec) Then
            kill = True
            getItem = True

            Select Case type
                Case 0
                    exp_present += Round((5 + exp_required \ 100) * exp_bonus)      'exp 5 + 1 %
                Case 1
                    exp_present += Round((25 + exp_required \ 10) * exp_bonus)       'exp 25 + 10 %
                Case 2
                    exp_present += Round((50 + exp_required \ 3) * exp_bonus)        'exp 50 + 33 %
                Case 3
                    hp += hp_max \ 5                           'hp 20%

                    If hp > hp_max Then
                        hp = hp_max
                    End If
            End Select