Sistema de CVC.

» 03 Ene 2012 17:36

Lekasak escribió:en el sub revivirusuario mandale

If UserList(UserIndex).Pos = 10 Then 'cambiar por el mapa de cvc
Call SendData(SendTarget.ToIndex, UserIndex, 0, 0, "||No se pueden revivir usuarios en este mapa" & FONTTYPE_INFO)
Exit Sub
End If

que se yo en vez de bloquearlo desde el hechizo

Y lo que dijeron mas arriba de revivir al usuario si estaba muerto, seria mejor ponerlo en el warpuserchar y no por If UserList(UserIndex).Pos =

Mira el sub revivirusuario no lo toma el hechizo el hechizo toma otra cosa pero no se que es , ya que puse lo que dijiste y no funciono ,

» 03 Ene 2012 21:30

Pero cuando mapeas, dice ResuSinEfecto, ahi le clickeas la casilla y listo, fijate bien eso, te puede ayudar mucho, en ves de programarlo lo haces desde el mapa y listo.

Mi Canal YouTube · » 03 Ene 2012 21:58

che explicate mas bien en el 2º, no te entiendo una mierda q qiere decir

Si el lider manda cvc y deslogea el cvc se cancele.

Case "#B"
If UserList(UserIndex).flags.Paralizado Then Exit Sub

If (Not MapInfo(UserList(UserIndex).POS.Map).Pk And TiempoTranscurrido(UserList(UserIndex).Counters.LastRobo) > 10) Or UserList(UserIndex).flags.Privilegios > 1 Then
Call SendData(ToIndex, UserIndex, 0, "FINOK")
Call CloseSocket(UserIndex)
Exit Sub
End If

if estacvc then call fincvc
Call Cerrar_Usuario(UserIndex)

Exit Sub

cambialo por tus variables, como no las posteaste te tube q tirar esas al boleo

» 03 Ene 2012 23:42

- Que el lider si o si entre al cvc si pone /ircvc para que no ir que valla igual.

Eso es facil, al comando le agregas una sentencia que si es lider no le permita usar el comando.

- Que en x mapa no se pueda tirar resucitar.

En el codigo del hechizo le pones una sentencia que si esta en 'x' mapa no le deje usar el hechizo.

- Si el lider manda cvc y deslogea el cvc se cancele.

Aca tambien, el sub close_user (no me acuerdo bien como se llama el sub), le agregas una sentencia que si hay un cvc activo y algun lider abandona, el desafio se cancele y envie a los usuarios a la city.

» 04 Ene 2012 11:38

vamos todo por partes porque me pierdo

para lo del lider en el /ir cvc le pones:
if esguildleader then exit sub ' o tu sub de lider

en lo de resu ya lo hice

en el sub HechizoEstadoUsuario

pones:

If Hechizos(H).Revivir = 1 Then
If UserList(UserIndex).Pos.Map = 72 Then 'cambiar por mapa

Call SendData(SendTarget.toindex, UserIndex, 0, 0, "||No puedes lanzar este hechizo en cvc." & FONTTYPE_INFO)
Exit Sub
End If
End If

Cerrar_usuario creo que era ganjah

Y yo pondría que no se pueda salir en cvc

» 04 Ene 2012 15:32

Ya habia arreglado estos problemas a la noche

, ahora me faltaria el ultimo.

» 04 Ene 2012 15:40

Lekasak escribió:en el sub revivirusuario mandale

If UserList(UserIndex).Pos = 10 Then 'cambiar por el mapa de cvc
Call SendData(SendTarget.ToIndex, UserIndex, 0, 0, "||No se pueden revivir usuarios en este mapa" & FONTTYPE_INFO)
Exit Sub
End If

que se yo en vez de bloquearlo desde el hechizo

Y lo que dijeron mas arriba de revivir al usuario si estaba muerto, seria mejor ponerlo en el warpuserchar y no por If UserList(UserIndex).Pos =

Ise eso y se me cago el Codigo me toco usar la copia de seguridad

» 05 Ene 2012 13:35

-.AnDy.- escribió:
Lekasak escribió:en el sub revivirusuario mandale

If UserList(UserIndex).Pos = 10 Then 'cambiar por el mapa de cvc
Call SendData(SendTarget.ToIndex, UserIndex, 0, 0, "||No se pueden revivir usuarios en este mapa" & FONTTYPE_INFO)
Exit Sub
End If

que se yo en vez de bloquearlo desde el hechizo

Y lo que dijeron mas arriba de revivir al usuario si estaba muerto, seria mejor ponerlo en el warpuserchar y no por If UserList(UserIndex).Pos =
Ise eso y se me cago el Codigo me toco usar la copia de seguridad

No entendi.

» 05 Ene 2012 16:09

If HayCvc = True Then
If m_EsGuildLeader <= 1 Then
warpuserchar(1, 50, 50, clan1)
Warpuserchar(1, 40, 40, clan2)
HayCvc = False
end if

O algo asi

» 05 Ene 2012 16:39

Si el lider manda cvc y deslogea el cvc se cancele.

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

Sub MandarUllaClan(byval ClanIndex as integer)
 
dim LoopC    AS LONG
 
For loopc = 1 to lastuser
 
 if userlist(loopc).guildindex = clanindex then
   warpuserchar loopc, 1, 50, 50 + loopc, true
 end if
 
next loopc
 
end sub

desp en el closesocket, haces una condicion , si el userindex que deslogea es el lider del clan en cvc, llamas al sub que te postié ahi arriba y listo

» 05 Ene 2012 16:50

Mostrar Todo el Código | Numero de Linea | Ocultar/Mostrar | Seleccionar todo

If HayCvc= True Then
If m_EsGuildLeader(UserList(UserIndex).name, UserList(UserIndex).GuildIndex) <= 0 Then
Call MandarUllaClan
SendData toall, 0, 0 "||El cvc se canceló por la desconecion de uno de los lideres" & FONTTYPE_CVC
HayCvc = False
End If
End If

Masomenos eso seria

» 05 Ene 2012 17:22

No me entendieron

pero igual voy a ver capaz q eso me sirve lo voy a tener que modificar todo.

Yo decia esto:
Logeo , mando cvc al clan pepito, deslogeo.
El lider del clan pepito acepta cvc (pero el lider del otro clan deslogeado).

Entienden?, osea si deslogea el lider de un clan el cvc que mando se cancele.

» 05 Ene 2012 17:52

Como lo tenes vos al comando.

Que mandas /cvc clan a desafiar y el otro pone /cvc tu clan o /cvc clan y el otro /sicvc o algo asi?

» 05 Ene 2012 18:02

/cvc , /sicvc.
Osea yo te desafio cvc y yo relogeo vos al poner /sicvc diga : el lider del otro clan deslogeo.

» 05 Ene 2012 18:05

podes postear el comando sicvc ? por qe no se como te guiaste para tener el indice del clan

Sistema de CVC.

¿Quién está conectado?