Aca dejo :
- If C2 > 0 Then
- C2 = C2 - 1
- End If
- If C2 = 0 Then
- For Cvc = 1 To LastUser
- If Guilds(UserList(Cvc).GuildIndex).GuildName = NameClan2 Or Guilds(UserList(Cvc).GuildIndex).GuildName = NameClan1 And UserList(Cvc).flags.EnCvc = True Then
- WarpUserChar Cvc, 1, RandomNumber(58, 69), RandomNumber(56, 61), True
- UserList(Cvc).flags.EnCvc = False
- HayCvc = False
- End If
- Next Cvc
- SendData SendTarget.ToAll, 0, 0, "||El clan " & NameClan1 & " derrotó al clan " & NameClan2 & " en una guerra de clanes." & "~255~255~255~1~0"
- Guilds(IndexClan1).NameDesafio = ""
- Guilds(IndexClan1).EnDesafioCvc = False
- Guilds(IndexClan1).LoDesafiaron = False
- Guilds(IndexClan2).NameDesafio = ""
- Guilds(IndexClan2).EnDesafioCvc = False
- Guilds(IndexClan2).LoDesafiaron = False
- Guilds(IndexClan1).CvcGanados = Guilds(IndexClan1).CvcGanados + 1
- Call GuardarRanking("CvC", 0, IndexClan1)
- Call WriteVar(App.Path & "\guilds\guildsinfo" & ".inf", "GUILD" & IndexClan1, "CvcGanados", Guilds(IndexClan1).CvcGanados)
- NameClan1 = ""
- NameClan2 = ""
- 'ganó el clan 1
- End If
- End If
- End If




135![Aprendiz [4] Aprendiz [4]](./images/ranks/Rango9.gif)
