Boas pessoal, vim aqui à cyber para tirar uma dúvida, que é óbvia para voces, mas moi-me um pouco a cabeça, porque é a primeira quest que faço desde o zero. Tentei procurar por paieis de controlo, onde pudesse fazer várias coisas, mas parece que não existem, então criei eu próprio, mas acho que tem alguns erros, por isso peço que me ajudem a resolve-los pff.
quest random beginstate start begin when login begin set state(painel) endstate painel begin when letter begin send_letter ( "Painel de Controlo" ) end when button or info begin say_title ( "Painel de Controlo" ) say ( "" ) say ( "Bem-vindo ao painel de controlo do tgmt2," ) say ( "podes usa-lo para executar multi-funcoes" ) say ( "como: teleportes, abrir armazem, abrir" ) say ( "loja de itens, jogar na lotaria tuga e" ) say ( "muitas mais funcoes que podes encontrar" ) say ( "neste painel exclusivo do servidor!" ) say ( "" ) say_reward ( "Escolhe o tipo de funcao que queres executar. " ) say_reward ( "Script by full" ) local a = select ( "Teleportes", "Armazem", "Reportar Jogador", "Kills", "Fechar" ) if a == 1 then say_title ( "Painel de Controlo - Teleportes" ) say ( "" ) say_reward ( "Escolhe o tipo de teleporte a realizar." ) local b = select ( "Reinos", "Mapas", "Cancelar" ) if b == 1 then say_title ( "Painel de Controlo - Teleportes Reinos" ) say ( "" ) say_reward ( "Escolhe o reino para onde queres ir." ) local c = select ( "Azul", "Vermelho", "Amarelo", "Cancelar" ) if c == 1 then say_title ( "Reino Azul" ) say_reward ( "Estas a ser teleportado, boa viagem!" ) say_reward ( "Script by full" ) pc.warp ( 969600 , 278400 ) elseif c == 2 then pc.warp ( 469300 , 964200 ) elseif c == 3 then pc.warp ( 55700 , 157900 ) elseif c == 4 then return end end end end end end if b == 2 then say_title ( "Painel de Controlo - Teleportes Mapas" ) say ( "" ) say_reward ( "Escolhe o mapa para onde queres ir." ) local d = select ( "Vale Seungryong", "Atlantida (Piso 1)", "Atlantida (Piso 2)", "V3", "Cancelar" ) if d == 1 then say_title ( "Vale Seungryong" ) say_reward ( "Estas a ser teleportado, boa viagem!" ) say_reward ( "Script by full" ) pc . warp ( 346400 , 733200 ) if d == 2 then say_title ( "Atlantida (Piso 1)" ) say_reward ( "Estas a ser teleportado, boa viagem!" ) say_reward ( "Script by full" ) pc . warp ( 10000 , 1207800 ) if d == 3 then say_title ( "Atlantida (Piso 2)" ) say_reward ( "Estas a ser teleportado, boa viagem!" ) say_reward ( "Script by full" ) pc . warp ( 241300 , 1275500 ) if d == 4 then say_title ( "V3" ) say_reward ( "Estas a ser teleportado, boa viagem!" ) say_reward ( "Script by full" ) pc.warp ( 51200 , 563200 ) if d == 5 then return end end end end end end if a == 2 then say_title ( "Armazem" ) say ( "" ) say_reward ( "Escolhe oque fazer no teu armazem." ) local e = select ( "Abrir o Armazem", "Abrir Loja de Itens", "Cancelar" ) if e == 1 then game.open_safebox() setskin(NOWINDOW) end if e == 2 then game.open_mall() setskin(NOWINDOW) end if e == 3 then return end end end end end if a == 3 then say_title("Reportar jogador") say("IMPORTANTE: Abusar deste sistema vai conduzir a um [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("Aqui tu podes reportar quem achas que está") say("a jogar incorretamente e que tem de ser punido.") say("Podes reportar o player por:") say("Uso de hacks.") say("Uso de linguagem não adquada.") say("Fazer-se passar por gm.") say("Roubo de algum item.") say("Aproveitar-se de um bug do servidor.") say("") say_reward("Tens a certeza que queres reportar alguém?") local a = select("Sim","Não") if a == 2 then return end say_title("Reportar jogador") say("IMPORTANTE: Abusar deste sistema vai conduzir a um [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("Qual é o nome do jogador que queres reportar?") say("") say_reward("Escreve o nome do jogador corretamente.") local name = input() if name == "" then return end local u_vid = find_pc_by_name(name) if u_vid == 0 then say_title("Reportar jogador") say("IMPORTANTE: Abusar deste sistema vai conduzir a um [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("Esse jogador não está online.") return end say("Reportas o jogador devido a quê?") local reporter = pc.get_name() local b = select("Uso de hacks", "Linguagem não adquada", "Passar-se por gm", "Roubo de itens", "Aproveitar-se de um bug", "Outro") if b == 1 then char_log(1, reporter, name) elseif b == 2 then char_log(2, reporter, name) elseif b == 3 then char_log(3, reporter, name) elseif b == 4 then char_log(4, reporter, name) elseif b == 5 then char_log(5, reporter, name) else return end say_title("Reportar jogador") say("IMPORTANTE: Abusar deste sistema vai conduzir a um [img]http://cyber-gamers.org/public/style_emoticons/<#EMO_DIR#>/ban.gif[/img]!") say("IMPORTANTE: O teu nome também foi registado em caso de mentira!") say("Obrigado por reportares.") say("A equipa do servidor vai investigar brevemente.") if a == 4 then when kill with npc.is_pc() begin pc.setqf("conta_kills", pc.getqf("conta_kills")) say_title("Contador de Kills") say("") say("Boas "..pc.get_name().."") say("") say("Aqui podes ver quantos jogadores") say("matas-te durante a tua jornada no") say("TGMT2!") wait() say_title("Ja matas-te:") say("") say_reward("".. pc.getqf("conta_kills") .." jogadores.") say("") say("A equipa TGMT2 deseja-te um bom jogo!") say("") if a == 5 then return end endend
Boas pessoal, vim aqui à cyber para tirar uma dúvida, que é óbvia para voces, mas moi-me um pouco a cabeça, porque é a primeira quest que faço desde o zero. Tentei procurar por paieis de controlo, onde pudesse fazer várias coisas, mas parece que não existem, então criei eu próprio, mas acho que tem alguns erros, por isso peço que me ajudem a resolve-los pff.
Cumprimentos, fullgamerptShare this post
Link to post
Share on other sites