Mirage Source
Shop Bug? - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Source Code Development (https://mirage-engine.uk/forums/forumdisplay.php?fid=51)
+----- Forum: Mirage Source 4 (Visual Basic 6) (https://mirage-engine.uk/forums/forumdisplay.php?fid=44)
+----- Thread: Shop Bug? (/showthread.php?tid=2429)

Shop Bug? - deathknight - 13-12-2008

Has anyone else noticed this besides me? With an, almost, blank copy of MS4, when I add a shop and try to go into it, it gives my server RTE9. Here is the shop code it brings me too when I click debug

Code:
Sub SendTrade(ByVal Index As Long, ByVal ShopNum As Long)
Dim Packet As String
Dim i As Long, x As Long, y As Long

    Packet = STrade & SEP_CHAR & ShopNum & SEP_CHAR & Shop(ShopNum).FixesItems
    For i = 1 To MAX_TRADES
        Packet = Packet & SEP_CHAR & Shop(ShopNum).TradeItem(i).GiveItem & SEP_CHAR & Shop(ShopNum).TradeItem(i).GiveValue & SEP_CHAR & Shop(ShopNum).TradeItem(i).GetItem & SEP_CHAR & Shop(ShopNum).TradeItem(i).GetValue
        
        ' Item #
        x = Shop(ShopNum).TradeItem(i).GetItem
        
        If Item(x).Type = ITEM_TYPE_SPELL Then
            ' Spell class requirement
            y = Spell(Item(x).Data1).ClassReq
            
            If y = 0 Then
                Call PlayerMsg(Index, Trim$(Item(x).Name) & " can be used by all classes.", Yellow)
            Else
                Call PlayerMsg(Index, Trim$(Item(x).Name) & " can only be used by a " & GetClassName(y - 1) & ".", Yellow)
            End If
        End If
    Next i
    Packet = Packet & END_CHAR
    
    Call SendDataTo(Index, Packet)
End Sub

and here is the line it highlights

Code:
If Item(x).Type = ITEM_TYPE_SPELL Then

I didn't have any spell items in my shop, nor did I have spells. This RTE went away after I added 2 spell items and 2 spells to my shop, then a new error popped up on

Code:
Function GetClassName(ByVal ClassNum As Long) As String
    GetClassName = Trim$(Class(ClassNum).Name)
End Function

on the

Code:
GetClassName = Trim$(Class(ClassNum).Name)

Any suggestions?

(edit) Forgot to mention the subscript out of range is on the code
Code:
(class(


Re: Shop Bug? - genusis - 14-12-2008

ok gakien or DFA i need you for a second here..

x = Shop(ShopNum).TradeItem(i).GetItem

is not getting the item number. for some strange reason. so Ive been sitting here trying to figure out why but i can't think of it so i will need your help. so if your not busy i could use ya ^^.