Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Party Only Maps


crzyone9584
 Share

Recommended Posts

my and deathkeeper mod to make such a dungeon party map with key

replace

```

' Check to see if its a Party Dungeon
If Map(mapnum).Moral = MAP_MORAL_PARTY_MAP Then

' Check to make sure the player is in a party. If not exit the sub so they dont change maps
If TempPlayer(index).inParty < 1 Then
Call PlayerMsg(index, "This is a party map. You have to be in a party to enter it.", Red)
Exit Sub
End If

End If

```
with

```

' Check to see if its a Party Dungeon
If Map(mapnum).Moral = MAP_MORAL_PARTY_MAP And GetPlayerAccess(index) = 0 Then
If HasItem(index, 100) And TempPlayer(index).inParty > 0 Then
TakeInvItem index, 100, 1
Else
Call PlayerMsg(index, "You don't have dungeon key", Red)
With Map(GetPlayerMap(index))
' to the bootmap if it is set
If .BootMap > 0 Then
PlayerWarp index, .BootMap, .BootX, .BootY
Else
PlayerWarp index, START_MAP, START_X, START_Y
End If
End With
Exit Sub
End If
' Check to make sure the player is in a party. If not exit the sub so they dont change maps
If TempPlayer(index).inParty < 1 Then
Call PlayerMsg(index, "This is a party map. You have to be in a party to enter it.", Red)
With Map(GetPlayerMap(index))
' to the bootmap if it is set
If .BootMap > 0 Then
PlayerWarp index, .BootMap, .BootX, .BootY
Else
PlayerWarp index, START_MAP, START_X, START_Y
End If
End With
Exit Sub
End If
If TempPlayer(index).inParty > 1 And HasItem(index, 100) = 0 Then
Call PlayerMsg(index, "You have party but you don't have dungeon key!", Red)
With Map(GetPlayerMap(index))
' to the bootmap if it is set
If .BootMap > 0 Then
PlayerWarp index, .BootMap, .BootX, .BootY
Else
PlayerWarp index, START_MAP, START_X, START_Y
End If
End With
Exit Sub
End If
If TempPlayer(index).inParty < 1 And HasItem(index, 100) = 1 Then
Call PlayerMsg(index, "You have dungeon key but you dont' have party!", Red)
With Map(GetPlayerMap(index))
' to the bootmap if it is set
If .BootMap > 0 Then
PlayerWarp index, .BootMap, .BootX, .BootY
Else
PlayerWarp index, START_MAP, START_X, START_Y
End If
End With
Exit Sub
End If
End If

```
look at

```

TakeInvItem index, 100, 1

```
it mean when they want to enter dungeon, server will take item number #100 once

you can change item number as you wish

and you can combine this with this tutorial to make free daily key -> [http://www.eclipseorigins.com/community/index.php?/topic/130200-eo-daily-reward-system/](http://www.eclipseorigins.com/community/index.php?/topic/130200-eo-daily-reward-system/) :P
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...