+- Mirage Engine (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: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Shop Fix (/showthread.php?tid=228)
Shop Fix - Leighland - 08-08-2006
How can I stop the shops from selling worn equipment?
Here's what the packet looks like:
Code:
' ::::::::::::::::::::::::::
' :: Trade request packet ::
' ::::::::::::::::::::::::::
If LCase$(Parse(0)) = "traderequest" Then
' Trade num
n = Val(Parse(1))
' Prevent hacking
If (n MAX_TRADES) Then
Call HackingAttempt(Index, "Trade Request Modification")
Exit Sub
End If
' Index for shop
i = Map(GetPlayerMap(Index)).Shop
' Check if inv full
X = FindOpenInvSlot(Index, Shop(i).TradeItem(n).GetItem)
If X = 0 Then
Call PlayerMsg(Index, "Trade unsuccessful, inventory full.", BrightRed)
Exit Sub
End If
If HasItem(Index, Shop(i).traditem(n).GiveItem) >= Shop(i).TradeItem(n).GiveValue Then
Call TakeItem(Index, Shop(i).TradeItem(n).GiveItem, Shop(i).TradeItem(n).GiveValue)
Call GiveItem(Index, Shop(i).TradeItem(n).GetItem, Shop(i).TradeItem(n).GetValue)
Call PlayerMsg(Index, "The trade was successful!", BrightYellow)
Exit Sub
Else
Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
End If
Exit Sub
End IfI haven't done anything to it yet.. I tried last night and gave up...
An example of what I want to happen:
I have 2 bronze shields. I Equip Shield 1.
I then trade with a shop and try to sell a shield. Since shield 1 is equipped, it must bypass that shield, and sell the one that isn't equipped.
I tried different things and none seemed to work the way I wanted.
Any ideas?
- Dark Echo - 09-08-2006
Code:
If HasItem(Index, Shop(i).traditem(n).GiveItem) >= Shop(i).TradeItem(n).GiveValue Then
If GetPlayerArmorSlot(Index) = Shop(i).traditem(n).GiveItem Then
Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
Exit Sub
End If
If GetPlayerWeaponSlot(Index) = Shop(i).traditem(n).GiveItem Then
Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
Exit Sub
End If
If GetPlayerHelmetSlot(Index) = Shop(i).traditem(n).GiveItem Then
Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
Exit Sub
End If
If GetPlayerShieldSlot(Index) = Shop(i).traditem(n).GiveItem Then
Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
Exit Sub
End If
Call TakeItem(Index, Shop(i).TradeItem(n).GiveItem, Shop(i).TradeItem(n).GiveValue)
Call GiveItem(Index, Shop(i).TradeItem(n).GetItem, Shop(i).TradeItem(n).GetValue)
Call PlayerMsg(Index, "The trade was successful!", BrightYellow)
Exit Sub
Else
Call PlayerMsg(Index, "Trade unsuccessful.", BrightRed)
End IfSee if that works..
- Leighland - 10-08-2006
Nope... this is the most annoying thing I've tried to madify on this source...
I've tried blocking it in the Takeitem sub, the HasItem sub and in the packet handler... I'm stumped ;/