Agus Admin
Mensajes : 69 Fecha de inscripción : 01/07/2008
| Tema: Código /DUELO Jue Jul 03, 2008 12:28 am | |
| Buscamos en el servidor: - Citación :
Case "/AYUDA" Call SendHelp(UserIndex) Exit Sub
Abajo agregamos: - Citación :
Case "/DUELO" If UserList(UserIndex).flags.Muerto = 1 Then Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Debes estar vivo para ingresar al duelo." & FONTTYPE_WARNING) Else If EsNewbie(UserIndex) Then Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Eres Newbie no puedes hacer duelos." & FONTTYPE_WARNING) Else If MapInfo(X).NumUsers >= 2 Then' Poner el mapa de duelos Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ya hay 2 usuarios en duelo, espera a que uno se valla para ingresar." & FONTTYPE_WARNING) Else If MapInfo(UserList(UserIndex).Pos.Map).Pk = True Then Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Estas en zona insegura, desde aquí no puedes ingresar al duelo." & FONTTYPE_WARNING) Else Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Ah sido teletransportado a la pantalla de duelos." & FONTTYPE_INFO)
Call WarpUserChar(UserIndex, 1, 50, 50, True) ' Poner el mapa y las coordenadas x, y de la zona del duelo Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " ha ingresado a la sala de duelos." & FONTTYPE_CONSEJO) End If End If End If End If End If Exit Sub
y abajo: - Citación :
Case "/SALIRDUELO" If UserList(UserIndex).Pos.Map = 1 Then Call SendData(SendTarget.ToIndex, UserIndex, 0, "||Has salido del duelo." & FONTTYPE_WARNING) Call SendData(SendTarget.ToAll, 0, 0, "||" & UserList(UserIndex).name & " ha a salido de la sala de duelos." & FONTTYPE_CONSEJO) Call WarpUserChar(UserIndex, 2, 50, 50, True) 'Poner el mapa y las coordenadas x, y de donde va a aparecer caundo pone salirduelo Else Call SendData(SendTarget.ToIndex, UserIndex, 0, "||No estas en el mapa de duelos." & FONTTYPE_INFO) End If
Luego en el Modulo usuarios y en el sub user die buscar: - Citación :
UserList(UserIndex).flags.Muerto = 1
Abajo agregan: - Citación :
If UserList(UserIndex).Pos.Map = X Then 'mapa de duelo para que sea sacado Call WarpUserChar(UserIndex, 1, 50, 50, True) Call SendData(ToIndex, UserIndex, 0, "||Has sido vencido debes abandonar la zona de duelos." & FONTTYPE_WARNING) End If
Se puede adaptar para todas las verciones | |
|