Sistema de casa

OmegaZero escreveu:Existe sim!, é o seguinte, você primeiro fais la no seu jogo umas casa pra vender, ae você fala com o carinha que quer compra( vamos supor que a casa é 5 reais), quando o carinha deposita a grana, você vai no Atributo(TileBlockNome), ae la você digita o nome do player que pode entrar na casa.

Eu vou criar esse sistem e postar um tutorial x]

Código:

Sub WarpLevel(index, Level, Map, X, Y, NomeDoMapa)
If GetPlayerLevel(index) > Level then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce se teleportou para o mapa " & NomeDoMapa, 1)
Else
Call PlayerMsg(index, "Voce precisa ter no minimo o level" & Level & " Para se teleportar para este mapa!", 0)
End if
End Sub

Código:

Sub WarpGuild(index, Guild, Map, X, Y)
If GetPlayerGuild(index) = Guild then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce se teleportou para sua base!", 1)
Else
Call PlayerMsg(index, "Apenas os membros da guild " & Guild & " podem entrar nesta base!", 0)
End if
End Sub

Código:

Sub WarpAccess(index, Access, Map, X, Y)
If GetPlayerAccess(index) > Access then
Call PlayerWarp(index, Map, X, Y)
Else
Call PlayerMsg(index, "Apenas Jogadores com o Acesso maior que " & Access & "Podem passar por este teleporte!", 0)
End if
End Sub

Código:

Sub WarpLevel(index, Nome, Map, X, Y, NomeDoMapa)
If GetPlayerName(index) = Nome then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, GetPlayerName(index) & ", Voce se teleportou para o mapa " & NomeDoMapa, 1)
Else
Call PlayerMsg(index, "Voce não é o " & Nome & " Para entrar neste teleporte!", 0)
End if
End Sub

Código:

Sub WarpItem(index, NumeroDoItem, Map, X, Y, NomeDoItem)
Dim i as long
For i = 1 to MAX_INV
If GetPlayerInvItemNum(index, i) = NumeroDoItem then
Call PlayerWarp(index, Map, X, Y)
Call PlayerMsg(index, "Voce tem o item " & NomeDoItem & " e se teleportou !, 1)
Else
Call PlayerMsg(index, "Voce presisa ter o item" & NomeDoItem & " para se teleportar neste teleporte!", 0)
End if
End Sub

Código:

Sub ScriptedTile

Código:

Case 5
Call WarpLevel(index, Level necessário aqui, Numero do mapa, X, Y, "Nome do mapa entre aspas")
Exit Xub

Código:

Case X
Call WarpGuild(index, "Guild entre aspas", Mapa, X, Y) ' Use para o Warp de Guild
Call WarpAccess(index, Acesso necessário, Mapa, X, Y) ' Use para o Warp de Acesso
Call WarpNome(index, "Nome do player aqui entre aspas", Mapa, X, Y, "Nome do mapa que ele teletransportará entre aspas") 'Use para o Warp de Nome
Call WarpItem(index, Numero do item necessário, Mapa, X, Y, "Nome do Item entre aspas") ' Use para o Warp de Item
Exit Sub 'Use isso quando acabar a Case