Proof that 1 can equal 2!

Richardf · **Joined:** Sun Jul 30, 2006 4:00 pm **Posts:** 1230

Aha! 1 can equal 2!

Code:

    'Check for enough mana
    If CasterType = CharType_PC Then
        '//If UserList(CasterIndex).Stats.ModStat(SID.MinMAN) < UserList(CasterIndex).Stats.BaseStat(SID.DefensiveMag) * 0.5 Then
        If 1 = 2 Then
            ConBuf.Clear
            ConBuf.Put_Byte DataCode.Comm_Talk
            ConBuf.Put_String "Not enough mana."
            ConBuf.Put_Byte DataCode.Comm_FontType_Info
            SendData ToIndex, CasterIndex, ConBuf.Get_Buffer
            Exit Sub
        End If
    ElseIf CasterType = CharType_NPC Then
        If NPCList(CasterIndex).ModStat(SID.MinMAN) < NPCList(CasterIndex).BaseStat(SID.DefensiveMag) * 0.5 Then Exit Sub
    End If

Spodi · **Posted:** Wed Aug 02, 2006 5:49 pm

Haha that's in the healing sub, isn't it? I put that there to make it there instead of commenting it out. :lol:

vbGore Free Online RPG Engine

Proof that 1 can equal 2!