GS-Zone

Termina Cvc y NO TERMINA Ir al Indice

Moderadores: Moderadores de Argentum, Especialistas de Argentum, Especialistas de Programación

1

Nota » 15 Ene 2012 20:24

Hola termina el cvc los sumonea a ciudad todo pero no aparece que clan gano :S
Aca dejo :


  1.           If C2 > 0 Then
  2.                 C2 = C2 - 1
  3.             End If
  4.             If C2 = 0 Then
  5.                 For Cvc = 1 To LastUser
  6.                  If Guilds(UserList(Cvc).GuildIndex).GuildName = NameClan2 Or Guilds(UserList(Cvc).GuildIndex).GuildName = NameClan1 And UserList(Cvc).flags.EnCvc = True Then
  7.                      WarpUserChar Cvc, 1, RandomNumber(58, 69), RandomNumber(56, 61), True
  8.                      UserList(Cvc).flags.EnCvc = False
  9.                      HayCvc = False
  10.                  End If
  11.                 Next Cvc
  12.                      SendData SendTarget.ToAll, 0, 0, "||El clan " & NameClan1 & " derrotó al clan " & NameClan2 & " en una guerra de clanes." & "~255~255~255~1~0"
  13.                      Guilds(IndexClan1).NameDesafio = ""
  14.                      Guilds(IndexClan1).EnDesafioCvc = False
  15.                      Guilds(IndexClan1).LoDesafiaron = False
  16.                      Guilds(IndexClan2).NameDesafio = ""
  17.                      Guilds(IndexClan2).EnDesafioCvc = False
  18.                      Guilds(IndexClan2).LoDesafiaron = False
  19.                      Guilds(IndexClan1).CvcGanados = Guilds(IndexClan1).CvcGanados + 1
  20.                      Call GuardarRanking("CvC", 0, IndexClan1)
  21.                      Call WriteVar(App.Path & "\guilds\guildsinfo" & ".inf", "GUILD" & IndexClan1, "CvcGanados", Guilds(IndexClan1).CvcGanados)
  22.                      NameClan1 = ""
  23.                      NameClan2 = ""
  24.                 'ganó el clan 1
  25.             End If
  26.        
  27.         End If
  28.        
  29.     End If
Zhepelin Ao
135
Aprendiz [4]
Registrado: Años de membresía
Ubicación: San Martin
Mensajes: 339

Volver a AO 0.11.5

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados