Erro no meu principal.txt

por CAIO Qui 16 Dez 2010, 08:41

Seguinte galera , eu coloquei o comando de /ssj , mas nao funciona
aparece comando invalido , e eu coloquei o comando de /cidade ele sim
funciona , só que quando usa aparece:

Você está na cidade
Este não é um comando Válido

Bom , ta acontecendo isso mas lembrando o comando /cidade funciona , mas aparece comando invalido

AQUI MEU PRINCIPAL PRA VCS VEREM

Código:: ':: Acesso :: 'ADMIN MONITOR = 1 'ADMIN MAPPER = 2 'ADMIN DESENVOLVEDOR = 3 'ADMIN CRIADOR = 4 ':: Cores no texto :: 'Preto = 0 'Azul = 1 'Verde = 2 'Ciano = 3 'Vermelho = 4 'Magenta = 5 'Marrom = 6 'Cinza = 7 'Cinza Escuro = 8 'Azul Claro = 9 'Verde Claro = 10 'Ciano Claro = 11 'Vermelho Claro = 12 'Rosa = 13 'Amarelo = 14 'Branco = 15 Sub JoinGame(index) Dim GameName Dim MOTD If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & "(Free) Está Online! ", 14) Else If GetPlayerAccess(index) = 1 Then Call GlobalMsg(GetPlayerName(index) & "(VIP) Está Online! ", 9) Else If GetPlayerAccess(index) = 2 Then Call GlobalMsg(GetPlayerName(index) & " (PREMIUM) Está Online! ", 1) Else If GetPlayerAccess(index) = 3 Then Call GlobalMsg(GetPlayerName(index) & " (MONITOR) Está Online! ", 3) Else If GetPlayerAccess(index) = 4 Then Call GlobalMsg(GetPlayerName(index) & " (MAPPER) Está Online! ", 9) Else If GetPlayerAccess(index) = 5 Then Call GlobalMsg(GetPlayerName(index) & " (GAME MASTER) Está Online! ", 9) Else If GetPlayerAccess(index) = 6 Then Call GlobalMsg(GetPlayerName(index) & " (SUB-ADMINISTRADOR) Está Online! ", 9) Else If GetPlayerAccess(index) = 15 Then Call GlobalMsg(GetPlayerName(index) & " (ADMINISTRADOR) Está Online! ", 9) End If End If End If End If End If End If End If End If GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) MOTD = GetVar("motd.ini", "MOTD", "Msg") ' Dar boas-vindas Call PlayerMsg(index, "Bem-vindo(a) ao " & GameName & "!", 15) ' Send motd If Trim(MOTD) <> "" Then Call PlayerMsg(index, "MOTD: " & MOTD, 11) End If End Sub Sub LeftGame(index) Dim GameName Dim n GameName = Trim(GetVar("Dados.ini", "CONFIG", "GameName")) ' Check for boot map If GetBootMap(index) > 0 Then Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) End If End Sub Sub PlayerLevelUp(index) Dim I Dim D Dim C C = 0 Do While GetPlayerExp(index) => GetPlayerNextLevel(index) D = GetPlayerExp(index) - GetPlayerNextLevel(index) Call SetPlayerLevel(index, GetPlayerLevel(index) + 1) I = Int(GetPlayerSPEED(index) / 10) If I < 1 Then I = 1 If I > 3 Then I = 3 Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 3) Call SetPlayerExp(index, D) C = C + 1 Loop If C > 1 Then 'Call GlobalMsg(GetPlayerName(index) & " ganhou " & C & " níveis!", 6) Else 'Call GlobalMsg(GetPlayerName(index) & " ganhou um nível!", 6) End If Call BattleMsg(index, "Você tem " & GetPlayerPOINTS(index) & " pontos para gastar.", 9, 0) If GetPlayerLevel(index) => 999 Then Call PlayerMsg(index, "Você resetou!", 14) Call SetPlayerExp(index, 1) Call SetPlayerLevel(index, 1) Call SetPlayerResets(index, GetPlayerResets(index) + 1) Call SavePlayer(index) Call SendPOINTS(Index) Call SendStats(Index) End If End Sub Sub UsingStatPoints(index, PointType, PointQuant) Select Case PointType Case 0 'Gives you a set max If GetPlayerSTR(index) + PointQuant > 1000000 Then Call BattleMsg(index, "Você chegou ao máximo de Força!", 12, 0) Exit Sub End If Call SetPlayerSTR(index, GetPlayerSTR(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Força!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "ForSubiu" & END_CHAR) Case 1 'Gives you a set max If GetPlayerDEF(index) + PointQuant > 1000000 Then Call BattleMsg(index, "Você chegou ao máximo de Defesa!", 12, 0) Exit Sub End If Call SetPlayerDEF(index, GetPlayerDEF(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Defesa!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "DefSubiu" & END_CHAR) Case 2 'Gives you a set max If GetPlayerMAGI(index) + PointQuant > 1000000 Then Call BattleMsg(index, "Você chegou ao máximo de Inteligência!", 12, 0) Exit Sub End If Call SetPlayerMAGI(index, GetPlayerMAGI(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Inteligência!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "IntSubiu" & END_CHAR) Case 3 'Gives you a set max If GetPlayerSPEED(index) + PointQuant > 1000000 Then Call BattleMsg(index, "Você chegou ao máximo de sua Agilidade!", 12, 0) Exit Sub End If Call SetPlayerSPEED(index, GetPlayerSPEED(index) + PointQuant) Call BattleMsg(index, "Você adicionou " & PointQuant & " ponto(s) em Agilidade!", 15, 0) Call BattleMsg(Index, "Você ainda possui " & GetPlayerPOINTS(Index) - PointQuant & " pontos para serem gastos.", 15, 0) Call SendDataTo(Index, "sound" & SEP_CHAR & "AgiSubiu" & END_CHAR) End Select Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - PointQuant) End Sub Sub ScriptedTile(index, Script) Select Case Script Case 0 If GetPlayerAccess(index) = 0 Then Call SetPlayerAccess(index, 4) Call SendPlayerData(index) End If Case 1 Call Prompt(index, "Sim ou Não??", 1) End Select End Sub Sub PlayerPrompt(index, Prompt, Value) If Prompt = 6 Then Select Case Value Case 0 Call GlobalMsg("Olá! Essa é uma resposta positiva!", 3) Case 1 Call GlobalMsg("Este é o caso 1?", 3) End Select Else Select Case Value Case 0 Call GlobalMsg("Olá! Essa é uma resposta negativa!", 4) Case 1 Call GlobalMsg("Este é o caso 1?", 4) End Select End If End Sub Sub Commands(index) On Error Resume Next Dim Portal Dim mapnum Dim x Dim y Dim i Dim TextSay Dim n Dim m Dim C m = GetVar("Dados.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Comandos.ini", "TEMP", "Text" & index) If Lcase(Trim(TextSay)) = "/ss" Then If GetPlayerClass (index) = 1 Then If GetPlayerLevel(index) => 50 Then If GetPlayerSprite(index) = 1 Then If GetPlayerAccess(index) => 0 Then Call SetPlayerSprite(index, 2) Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 50) Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 50) Call PlaySound(Index, "ssjtransform.wav") Call PlayerMsg(index, "Você é um Super Saiyajin!", 7) Exit Sub End If End If End If End If End If If Lcase(Trim(TextSay)) = "/cidade" Then If GetPlayerLevel(index) => 1 Then Call PlayerWarp(Index, 9, 9, 6) Call PlayerMsg(Index, "Voce Está na Cidade", Yellow) Else Call PlayerMsg(Index, "Não Tem lvl nescessario para se Mover,.", WHITE) Exit Sub End If End If Portal = GetPlayerHelmetSlot(index) i = 1 C = 0 If LCase(Mid(TextSay, 1, 7)) = "/desejo" Then If Len(TextSay) > 8 Then TextSay = Mid(TextSay, 6, Len(TextSay) - 5) Do While C = 0 If GetVar("Desejos.ini", "WISH", "Wish" & i) <> "" then i = i + 1 Else Call PutVar("Desejos.ini", "WISH", "Wish" & i, Trim(TextSay)) Call PlayerMsg(index, "Obrigado por dar sugestão!", 6) C = 1 End if Loop End If Exit Sub End If If LCase(Mid(TextSay, 1, 11)) = "/teleportar" Then If Len(TextSay) > 12 Then TextSay = Mid(TextSay, 10, Len(TextSay) - 9) ' Prevent hacking If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "Você precisa ter mais acesso para usar esse comando!", 4) Exit Sub End If ' The player n = FindPlayer(TextSay) If n <> index Then If n > 0 Then Call PlayerWarp(index, GetPlayerMap(n), GetPlayerX(n), GetPlayerY(n)) Call PlayerMsg(n, GetPlayerName(index) & " se teleportou para você.", 6) Call PlayerMsg(index, "Você foi teleportado para " & GetPlayerName(n) & ".", 6) Call AddLog(GetPlayerName(index) & " se teleportou " & GetPlayerName(n) & ", map #" & GetPlayerMap(n) & ".", ADMIN_LOG) Else Call PlayerMsg(index, "O jogador está offline.", 15) End If Else Call PlayerMsg(index, "Você não pode se teleportar!", 15) End If End If Exit Sub End If If LCase(Mid(TextSay, 1, 8)) = "/invocar" Then If Len(TextSay) > 9 Then If GetPlayerAccess(index) < 2 Then Call PlayerMsg(index, "Você precisa ter mais acesso para usar esse comando!", 4) Exit Sub End If n = Mid(TextSay, 10, Len(TextSay) - 9) n = FindPlayer(n) If n <> index Then If n > 0 Then Call PlayerWarp(n, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)) Call PlayerMsg(n, "Você foi invocado por " & GetPlayerName(index) & ".", 9) Call PlayerMsg(index, GetPlayerName(n) & " foi invocado.", 9) Call AddLog(GetPlayerName(index) & " invocou " & GetPlayerName(n) & " para o Mapa #" & GetPlayerMap(index) & ".", ADMIN_LOG) Else Call PlayerMsg(index, GetPlayerName(n) & " está offline.", 15) End If Else Call PlayerMsg(index, "Você pode se invocar!", 15) End If End If Exit Sub End If If LCase(Trim(TextSay)) = "/ajuda" Then Call PlayerMsg(index, "Comandos Sociais:", 15) Call PlayerMsg(index, ",mensagem = Mensagem Global", 15) Call PlayerMsg(index, "-mensagem = Mensagem Emotiva", 15) Call PlayerMsg(index, "+mensagem = Mensagem para o Grupo", 15) Call PlayerMsg(index, "=mensagem = Mensagem para a Guild", 15) Call PlayerMsg(index, "!nome mensagem = Mensagem Privada", 15) Call PlayerMsg(index, "Para mais comandos digite: /comandos", 15) Exit Sub End If If LCase(Trim(TextSay)) = "/socorro" Then If GetPlayerAccess(index) = 0 Then Call GlobalMsg(GetPlayerName(index) & " precisa de um administrador!", 10) Else Call PlayerMsg(index, "Você é um administrador!", 10) End If Exit Sub End If If LCase(Trim(TextSay)) = "/admin" Then If GetPlayerAccess(index) > 0 Then Call PlayerMsg(index, "Comandos Sociais:", 15) Call PlayerMsg(index, ";mensagem = Mensagem Global", 15) Call PlayerMsg(index, "@mensagem = Mensagem Administrativa", 15) Call PlayerMsg(index, "Para mais comandos digite: /admincmd", 15) End If Exit Sub End If Select Case LCase(Trim(TextSay)) Case "/ausente" 'If GetPlayerAccess(index) >= 1 Then If GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then Call GlobalMsg(GetPlayerName(index) & " está ausente.", 14) Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1) Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index)) Call SetPlayerName(index, GetPlayerName(index) & " (Ausente)") Call SendPlayerData(index) Exit Sub ElseIf GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then Call SetPlayerName(index, GetVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName")) Call GlobalMsg(GetPlayerName(index) & " retornou.", 14) Call PutVar("Contas" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0) Call SendPlayerData(index) Exit Sub End If 'End If Case "/setarportal" If Portal > 0 Then If GetPlayerInvItemNum(index, Portal) = 18 Then Call PlayerMsg(index, "Você abriu um portal nesse ponto! Você pode voltar para esse ponto em qualquer momento digitando /portal", 1) Call PutVar("Stats.ini", GetPlayerName(index), "map", GetPlayerMap(index)) Call PutVar("Stats.ini", GetPlayerName(index), "x", GetPlayerX(index)) Call PutVar("Stats.ini", GetPlayerName(index), "y", GetPlayerY(index)) Else Call PlayerMsg(index, "Você não possui esta habilidade.", 4) End If Exit Sub End If Case "/portal" If Portal > 0 Then mapnum = GetVar("Stats.ini", GetPlayerName(index), "map") y = GetVar("Stats.ini", GetPlayerName(index), "y") x = GetVar("Stats.ini", GetPlayerName(index), "x") If GetPlayerInvItemNum(index, Portal) = 18 Then Call PlayerWarp(index, mapnum, x, y) Else Call PlayerMsg(index, "Você não possui esta habilidade.", 4) End If Exit Sub End If Case "/bell" Call GlobalMsg("*ding* *ding* *ding*", 7) Exit Sub End Select Call PlayerMsg(index, "Esse não é um comando válido!", 12) End Sub Sub DropItems(index) If GetPlayerWeaponSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerWeaponSlot(index), 0) End If If GetPlayerArmorSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerArmorSlot(index), 0) End If If GetPlayerHelmetSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerHelmetSlot(index), 0) End If If GetPlayerShieldSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerShieldSlot(index), 0) End If End Sub Sub OnDeath(index) Dim mapnum Dim x Dim y Dim i i = GetPlayerClass(index) mapnum = GetVar("Classes\Classe" & i & ".ini", "CLASS", "Map") y = GetVar("Classes\Classe" & i & ".ini", "CLASS", "y") x = GetVar("Classes\Classe" & i & ".ini", "CLASS", "x") Call PlayerWarp(index, 1, 9, 6) End Sub

por flavio033 Dom 02 Jan 2011, 09:54

Caio, eu achei o problema do /ssj. É que em vez de "/ssj", está "/ss" confused

vc só cometeu um erro bobo Very Happy

Erro no meu principal.txt

Erro no meu principal.txt

Re: Erro no meu principal.txt