Mirage Source
Hotel Map Moral - 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: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Hotel Map Moral (/showthread.php?tid=82)

Hotel Map Moral - grimsk8ter11 - 02-06-2006

Hotel Map Moral

Very fun and easy

CLIENT SIDE:

modGameLogic, under:

Code:
' Party request

add:

Code:
' Map inn If LCase(Mid(MyText, 1, 10)) = "/sleep" Then Call SendInnSleep MyText = "" Exit Sub End If


in modClientTCP, under :
Code:
Sub SendJoinParty()

add, this sub:

Code:
Sub SendInnSleep()
Dim Packet As String
Packet = "INNSLEEP" & SEP_CHAR & END_CHAR
Call SendData(Packet)
End Sub



In frmMapProperties add to the list of cmbMoral a new line and type on it "Inn"

SERVER SIDE:


In modHandleData, under:

Code:
' :: Respawn map packet ::


add:

Code:
' ::::::::::::::::::::::::::
' :: Sleep Request packet ::
' ::::::::::::::::::::::::::
If LCase(Parse(0)) = "innsleep" Then
If Map(GetPlayerMap(Index)).Moral = MAP_MORAL_INN Then
Call TakeItem(Index, 1, 100) 'Change the valeu from 1(ItemNum) for the # you want and 100(GetValue) from the # you want
Call SetPlayerHP(Index, GetPlayerMaxHP(Index))
Call SetPlayerMP(Index, GetPlayerMaxMP(Index))
Call SetPlayerSP(Index, GetPlayerMaxSP(Index))
Call SendHP(Index)
Call SendMP(Index)
Call SendSP(Index)
Call PlayerMsg(Index, "You sleep...", White)
Else
Call PlayerMsg(Index, "You cant sleep here...", White)
End If
Exit Sub
End If

Done!

Can some 1 post an add to this, that if inn is selected on cmdMoral in frmMapProperties it apears 2 txtboxes and on it you type the item and the value that you wana get?

Server and client, in modConstants

unde:

Code:
Public Const MAP_MORAL_SAFE = 1

add:

Code:
Public Const MAP_MORAL_INN = 2



NOTE FROM GRIM:
REMIND EM LATER TO ADD THE UPDATE REQUESTED IN THIS TUT

- Reece - 17-09-2006

this never worked for me on the old forum. I'll test tonight, much love


- Gawian - 14-04-2007

Sorry to necro-post but i've tried this time and time again and it always kicks me telling me i have an invalid packet (INNSLEEP)) and highlights nothing :?

- Uarepoo2 - 14-04-2007

taken from elysium tuts

- funkynut - 14-04-2007

I'm sure this was here, years ago

- Reece - 14-04-2007

Uarepoo2 Wrote:taken from elysium tuts

No it wasn't this tute was here before I joined, that was before Elysium was made. So SHHHHH

- William - 14-04-2007

Uarepoo2 Wrote:taken from elysium tuts
Haha, I believe this is done by GSD, as many tuts here are. And he made it before es started.

- Dragoons Master - 14-04-2007

Actualy that's mine xD
I used to make a lot of tutorials a while ago. Now I just don't have time, since I'm in college now.
I added this to my game and made this tutorial from it.

- Gawian - 14-04-2007

lol any ideas on my error?

- Boo - 16-04-2007

This may not fix bug, but im looking into that. This is just another little thing to keep it from being like a Safe Zone map color.

Client Side:

Find:
Code:
If Map.Moral = MAP_MORAL_NONE Then

Replace that whole 'If' statement with:
Code:
' Draw map name
        If Map.Moral = MAP_MORAL_NONE Then
            Call DrawText(TexthDC, Int((MAX_MAPX + 1) * PIC_X / 2) - (Int(Len(Trim(Map.Name)) / 2) * 8), 1, Trim(Map.Name), QBColor(BrightRed))
        ElseIf Map.Moral = MAP_MORAL_SAFE Then
            Call DrawText(TexthDC, Int((MAX_MAPX + 1) * PIC_X / 2) - (Int(Len(Trim(Map.Name)) / 2) * 8), 1, Trim(Map.Name), QBColor(White))
        Else
            Call DrawText(TexthDC, Int((MAX_MAPX + 1) * PIC_X / 2) - (Int(Len(Trim(Map.Name)) / 2) * 8), 1, Trim(Map.Name), QBColor(Blue))
        End If

Server Side:
-This will keep people from attacking you while in this zone

Find:
Code:
' Check if at same coordinates
        Select Case GetPlayerDir(Attacker)
            Case DIR_UP
Replace the whole case with this:
Code:
' Check if at same coordinates
        Select Case GetPlayerDir(Attacker)
            Case DIR_UP
                If (GetPlayerY(Victim) + 1 = GetPlayerY(Attacker)) And (GetPlayerX(Victim) = GetPlayerX(Attacker)) Then
                    ' Check to make sure that they dont have access
                    If GetPlayerAccess(Attacker) > ADMIN_MONITER Then
                        Call PlayerMsg(Attacker, "You cannot attack any player for thou art an admin!", BrightBlue)
                    Else
                        ' Check to make sure the victim isn't an admin
                        If GetPlayerAccess(Victim) > ADMIN_MONITER Then
                            Call PlayerMsg(Attacker, "You cannot attack " & GetPlayerName(Victim) & "!", BrightRed)
                        Else
                            ' Check if map is attackable
                            If Map(GetPlayerMap(Attacker)).Moral = MAP_MORAL_NONE Or GetPlayerPK(Victim) = YES Then
                                ' Make sure they are high enough level
                                If GetPlayerLevel(Attacker) < 10 Then
                                    Call PlayerMsg(Attacker, "You are below level 10, you cannot attack another player yet!", BrightRed)
                                Else
                                    If GetPlayerLevel(Victim) < 10 Then
                                        Call PlayerMsg(Attacker, GetPlayerName(Victim) & " is below level 10, you cannot attack this player yet!", BrightRed)
                            ElseIf Map(GetPlayerMap(Attacker)).Moral = MAP_MORAL_INN Or GetPlayerPK(Victim) = YES Then
                                If GetPlayerLevel(Attacker) < 10 Then
                                    Call PlayerMsg(Attacker, "You are below level 10, you cannot attack another player yet!", BrightRed)
                                Else
                                    If GetPlayerLevel(Victim) < 10 Then
                                        Call PlayerMsg(Attacker, GetPlayerName(Victim) & " is below level 10, you cannot attack this player yet!", BrightRed)
                                    Else
                                        CanAttackPlayer = True
                                    End If
                                End If
                            Else
                                Call PlayerMsg(Attacker, "This is a safe zone!", BrightRed)
                            End If
                        End If
                    End If
                End If

And continue doing that with rest of Directions like DIR_DOWN, DIR_LEFT, and DIR_RIGHT.

- Boo - 17-04-2007

Gawian Wrote:Sorry to necro-post but i've tried this time and time again and it always kicks me telling me i have an invalid packet (INNSLEEP)) and highlights nothing :?

You get error server or client side? Try going over tutorial again and make sure you did it right.