Pedido Sistema De Cvc

» 22 Dic 2011 10:52

Quisiera un sistema de cvc No El De Regnum ao como el de Semper Widia Ao Muchas Gracias

» 22 Dic 2011 11:00

Bueno entonces extraerlo de esa liberación

» 22 Dic 2011 13:05

miqueas150 escribió:Bueno entonces extraerlo de esa liberación

idem.
esta muy servido el sistema de cvc. Fijate que hay lineas que no las vas a necesitar porque son para el sistema de ranking que tiene swao

p.d: vas a tener qe pasar el private sub esGuildLeader por public. Cuando lo empieces a extraer me vas a entender

» 22 Dic 2011 13:52

extraelo de semper widia o usa el de ronin...

» 23 Dic 2011 00:26

Lekasak escribió:extraelo de semper widia o usa el de ronin...

Liberaron semper widia? de ronin?..

» 23 Dic 2011 00:27

Pentra~ escribió:
Lekasak escribió:extraelo de semper widia o usa el de ronin...

Liberaron semper widia? de ronin?..

Se ta por hay en servidores y cliente liberados

» 23 Dic 2011 03:09

Yo extraje el codigo y aca hay problema.

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

        For i = 1 To LastUser
         If UserList(i).GuildIndex > 0 Then
             If Guilds(UserList(i).GuildIndex).GuildName = Guilds(UserList(UserIndex).GuildIndex).GuildName Then
                 If UserList(i).flags.SeguroCvc = True And Not UserList(i).Pos.Map = 10 And Not UserList(i).flags.EnDuelo And Not UserList(i).flags.EnPareja Then
                     C1 = C1 + 1
                     WarpUserChar i, 14, RandomNumber(73, 83), RandomNumber(35, 44), True 'users del clan uno
                     UserList(i).flags.EnCvc = True
                 End If
             End If
         End If
        Next i
        For i = 1 To LastUser
         If UserList(i).GuildIndex > 0 Then
             If Guilds(UserList(i).GuildIndex).GuildName = Guilds(UserList(UserIndex).GuildIndex).NameDesafio Then
                 If UserList(i).flags.SeguroCvc = True And Not UserList(i).Pos.Map = 10 And Not UserList(i).flags.EnDuelo And Not UserList(i).flags.EnPareja Then
                     C2 = C2 + 1
                     If C2 > C1 Then Exit For
                        WarpUserChar i, 14, RandomNumber(45, 54), RandomNumber(29, 18), True 'users del clan dos
                        UserList(i).flags.EnCvc = True
                 End If
             End If
         End If
        Next i

al mandar cvc y el otro lider acepta no los sumonea .

» 23 Dic 2011 16:27

hace una interrupcion paso por paso y fijate que pasa, si llega hasta ahi o no, y si llega porque no sumonea..

Pedido Sistema De Cvc

¿Quién está conectado?