* Sistema de proteção e diversão para Chats. * Autor: Lucas Alexandre * Em Março/2013 * Última atualização em 05/12/2013 * Brechas de segurança corrigidas em 25/01/2014 seja $entrou 0 seja $recado 0 internet INICIA @conecta escreve "Qual o endereço?" lê $endereco escreve "Qual apelido? lê $apelido escreve "Qual a senha do apelido? (Se não tiver, dê enter.)" lê senha $senha escreve "Informe à lista de administradores adicionais (Usuários):" lê $admin concatena $admin " " concatena $lista $admin concatena $lista " " abre #2 "log.log" & seja $oadmin $admin seja $estado "off" conecta #1 $endereco 1963 escreve #1 "" espera 1 escreve #1 ""$apelido" "$senha"" espera 1 escreve #1 "/modo+3" @script espera 3 desvia @loadreg @script2 observa #1 $chegou se $chegou <> 0 desvia @pega desvia @script2 @pega observa #1 m se m <> 0 desvia @pega2 desvia @pega @pega2 observa teclado t se t <> 0 desvia @umamsg escreve #2 m chama @darecado lê #1 m se m *=* "encode: " desvia @encode senão se m *=* "recado " desvia @recado senão se m *=* "conjug " desvia @conjug senão se m *=* "bozoentrou" desvia @entrou senão se m *=* "entrouatu" desvia @entrouatu senão se m *=* "localize " desvia @localize senão se m *=* "decode: " desvia @decode senão se m *=* "dehexadecimar: " desvia @dehex senão se m *=* "hexadecimar: " desvia @hex senão se m *=* "tranca por " desvia @tranca senão se m *=* ".francieli Entra na conversação" escreve #1 "Cacei a Meduza!" desvia @pega senão se m *=* ".francieli Sai da conversação" escreve #1 "Mas um dia eu ei de caçá-la!" desvia @pega senão se m *=* "conhecido como Admin" escreve #1 "Puts, até vou sair de perto com o Admin aqui!" espera 3 escreve #1 "Não me machuca Admin!#choro" desvia @pega senão se m *=* "Admin Entra" escreve #1 "Puts, até vou sair de perto com o Admin aqui!" espera 3 escreve #1 "Não me machuca Admin!#choro" desvia @pega senão se m *=* "cai fora" desvia @desativado senão se m *=* "comprimente " desvia @comprimentar senão se m *=* "go to " desvia @mudarsala senão se m *=* "pmn1333mhz" desvia @jcaifora senão se m *=* "pmn1066mhz" desvia @desafio senão se m *=* "pmn800mhz" desvia @destino senão se m *=* "pmn533mhz" desvia @black senão se m *=* "fala " desvia @mensagem senão se m *=* "speak " desvia @mensagem2 senão se m *=* "habla " desvia @mensagem3 senão se m *=* "shutdown" desvia @sair senão se m *=* "restart" desvia @restart senão se m *=* "tempoativo" desvia @tempo senão se m *=* "off" desvia @off senão se m *=* " on." desvia @on senão se m *=* "Anti-flooder: aguarde" desvia @flood senão se m *=* "addadmin " desvia @addadmin senão se m *=* "listaadms" desvia @listaadms senão se m *=* "removeadm " desvia @removeadm senão * Detecta Palavrões: substitui m "." "" substitui m "," "" substitui m "@" "" substitui m "-" "" substitui m "~" "" substitui m "_" "" substitui m "4" "a" substitui m "5" "s" substitui m "1" "i" substitui m "3" "e" substitui m "2" "u" substitui m "7" "t" substitui m "6" "r" se m *=* " puta" desvia @palavrao senão se m *=* "buceta" desvia @palavrao senão se m *=* "filho da puta" desvia @palavrao senão se m *=* "cacete" desvia @palavrao senão se m *=* " viado" desvia @palavrao senão se m *=* " puto" desvia @palavrao senão se m *=* " porra" desvia @palavrao senão se m *=* "foder" desvia @palavrao senão se m *=* "fuder" desvia @palavrao senão se m *=* "foda" desvia @palavrao senão se m *=* "fóda" desvia @palavrao senão se m *=* "fudeu" desvia @palavrao senão se m *=* "foda-se" desvia @palavrao senão se m *=* "fodasse" desvia @palavrao senão se m *=* "fodase" desvia @palavrao senão se m *=* "tomar no cu" desvia @palavrao senão se m *=* "chupar um pau" desvia @palavrao senão se m *=* "buceti" desvia @palavrao senão se m *=* "put*" desvia @palavrao senão se m *=* " caralh" desvia @palavrao senão se m *=* " carai" desvia @palavrao senão se m *=* "vai se fud" desvia @palavrao senão se m *=* "vai se fod" desvia @palavrao senão se m *=* "ja deu hoje" desvia @palavrao senão se m *=* "já deu hoje" desvia @palavrao senão se m *=* "chupem" desvia @palavrao senão se m *=* "sdfsdasfdfs" desvia @palavrao senão se m *=* "asdf" desvia @palavrao senão se m *=* ".aaaaaa Entra na conversação" desvia @nick senão se m *=* "vaisefud" desvia @palavrao senão se m *=* "p*ta" desvia @palavrao senão se m *=* ".idiótas Entra" desvia @palavrao senão se m *=* " putin" desvia @palavrao senão se $entrou = 1 desvia @zoador senão desvia @pega fim se @encode chama @checaestado substitui m "encode: " "" seja u pos ". " m copia $cortar m 2 u substitui m $cortar "" seja t pos ": " m soma t 2 copia $msg m t 100 substitui $msg "/sair" "" substitui $msg "/quit" "" substitui $msg "+sair" "" substitui $msg "+quit" "" substitui $msg "o" "0" substitui $msg "e" "3" substitui $msg "a" "4" substitui $msg "s" "5" substitui $msg "i" "1" substitui $msg "u" "2" substitui $msg "t" "7" escreve #1 $msg seja $msg "" desvia @pega @comprimentar chama @checaestado seja t pos "primente " m soma t 9 copia $nome m t 100 escreve #1 "Olá "$nome"!" desvia @pega fsenão desvia @pega @mudarsala chama @checaadm chama @checaestado seja t pos "go" m soma t 6 seja u t soma u 2 copia $sala m t u espera 2 escreve $sala escreve #1 $sala desvia @pega @decode substitui m "decode: " "" seja u pos ". " m copia $cortar m 2 u substitui m $cortar "" seja t pos ": " m soma t 2 copia $msg m t 100 substitui $msg "0" "o" substitui $msg "3" "e" substitui $msg "4" "a" substitui $msg "5" "s" substitui $msg "1" "i" substitui $msg "2" "u" substitui $msg "7" "t" se $msg *=* "+chutar" chama @checaadm escreve #1 $mensagem desvia @pega senão se $msg *=* "+banir" chama @checaadm escreve #1 $mensagem desvia @pega senão se $msg *=* "/sair" desvia @pega senão se $msg *=* "/quit" desvia @pega senão se $msg *=* "+sair" desvia @pega senão se $msg *=* "+quit" desvia @pega senão se $msg *=* "/" desvia @pega senão se $msg *=* "+" desvia @pega senão seja m "" escreve #1 $msg seja $msg "" desvia @pega @dehex substitui m "dehexadecimar: " "" seja u pos ". " m copia $cortar m 2 u substitui m $cortar "" seja t pos ": " m soma t 2 copia $msg m t 100 substitui $msg "-6f-" "o" substitui $msg "-65-" "e" substitui $msg "-61-" "a" substitui $msg "-62-" "b" substitui $msg "-63-" "c" substitui $msg "-72-" "r" substitui $msg "-64-" "d" substitui $msg "-68-" "h" substitui $msg "-6c-" "l" substitui $msg "-6e-" "n" substitui $msg "-6d-" "m" substitui $msg "-70-" "p" substitui $msg "-73-" "s" substitui $msg "-69-" "i" substitui $msg "-75-" "u" substitui $msg "-74-" "t" substitui $msg "-20-" " " se $msg *=* "+chutar" chama @checaadm escreve #1 $mensagem desvia @pega senão se $msg *=* "+banir" chama @checaadm escreve #1 $mensagem desvia @pega senão se $msg *=* "/sair" desvia @pega senão se $msg *=* "/quit" desvia @pega senão se $msg *=* "+sair" desvia @pega senão se $msg *=* "+quit" desvia @pega senão se $msg *=* "/" desvia @pega senão se $msg *=* "+" desvia @pega senão seja m "" escreve #1 $msg seja $msg "" desvia @pega @hex substitui m "hexadecimar: " "" seja u pos ". " m copia $cortar m 2 u substitui m $cortar "" seja t pos ": " m soma t 2 copia $msg m t 100 substitui $msg "o" "-6f-" substitui $msg "e" "-65-" substitui $msg "a" "-61-" substitui $msg "b" "-62-" substitui $msg "c" "-63-" substitui $msg "r" "-72-" substitui $msg "d" "-64-" substitui $msg "h" "-68-" substitui $msg "l" "-6c-" substitui $msg "n" "-6e-" substitui $msg "m" "-6d-" substitui $msg "p" "-70-" substitui $msg "s" "-73-" substitui $msg "i" "-69-" substitui $msg "u" "-75-" substitui $msg "t" "-74-" se $msg *=* "+chutar" chama @checaadm escreve #1 $mensagem desvia @pega senão se $msg *=* "+banir" chama @checaadm escreve #1 $mensagem desvia @pega senão se $msg *=* "/sair" desvia @pega senão se $msg *=* "/quit" desvia @pega senão se $msg *=* "+sair" desvia @pega senão se $msg *=* "+quit" desvia @pega senão se $msg *=* "/" desvia @pega senão se $msg *=* "+" desvia @pega senão seja m "" escreve #1 $msg seja $msg "" desvia @pega @mensagem chama @checaestado espera 1 seja t pos "fala " m soma t 5 copia $mensagem m t 500 se $mensagem = "/sair" desvia @pega senão se $mensagem = "/quit" desvia @pega senão se $mensagem *=* "/" chama @checaadm escreve #1 $mensagem desvia @pega senão se $mensagem *=* "+" chama @checaadm escreve #1 $mensagem desvia @pega senão espera 1 escreve #1 $mensagem desvia @pega senão desvia @pega @mensagem2 chama @checaestado espera 1 seja t pos "speak " m soma t 5 copia $mensagem m t 500 se $mensagem = "/sair" desvia @pega senão se $mensagem = "/quit" desvia @pega senão se $mensagem *=* "/" chama @checaadm escreve #1 $mensagem desvia @pega senão se $mensagem *=* "+" chama @checaadm escreve #1 $mensagem desvia @pega senão espera 1 escreve #1 $mensagem desvia @pega senão desvia @pega @mensagem3 chama @checaestado espera 1 seja t pos "habla " m soma t 5 copia $mensagem m t 500 se $mensagem = "/sair" desvia @pega senão se $mensagem = "/quit" desvia @pega senão se $mensagem *=* "/" chama @checaadm escreve #1 $mensagem desvia @pega senão se $mensagem *=* "+" chama @checaadm escreve #1 $mensagem desvia @pega senão espera 1 escreve #1 $mensagem desvia @pega senão desvia @pega @data seja d data copia $dia2 d 1 2 copia $mes d 4 5 copia $ano d 7 10 seja h hora copia $hora h 1 2 copia $minuto h 4 5 copia $segundo h 7 8 seja $dia dia concatena $data3 $dia2 concatena $data3 " de " se $mes = "01 " concatena $data3 "Janeiro de " senão se $mes = "02" concatena $data3 "Fevereiro de " senão se $mes = "03" concatena $data3 "Março de " senão se $mes = "04" concatena $data3 "Abril de " senão se $mes = "05" concatena $data3 "Maio de " fim se concatena $data3 $ano escreve #1 "Hoje é "$dia", "$data3" - "$hora" horas, "$minuto" minutos e "$segundo" Segundos." seja $data3 = "" desvia @pega @palavrao seja $plvmsg m seja t pos ". " m subtrai t 1 copia n m 1 t escreve #1 "?op" espera 2 enquanto não m *=* "*.Lista de" lê #1 m fim enquanto lê #1 m se m = "Nenhum" desvia @pega senão seja t pos ": " m subtrai t 1 copia $op m 1 t escreve #1 "/"$op" "n" Falou um Palavrão na sala 0! Mensagem: "$plvmsg"" espera 3 @loopop lê #1 m se m *=* "Ao todo" desvia @pega senão seja t pos ": " m subtrai t 1 copia $op m 1 t escreve #1 "/"$op" "n" falou um Palavrão na sala 0! Mensagem: "$plvmsg"" espera 3 desvia @loopop @tempo seja t tempo divide t 100 escreve #1 "Eu estou ativo a "t" segundos." desvia @pega @on chama @checaadm se $estado = "on" escreve #1 "Já está ligado." desvia @pega senão seja $estado "on" escreve #1 "Ligado." desvia @pega @off chama @checaadm se $estado = "off" escreve #1 "Já está Desligado." desvia @pega senão seja $estado "off" escreve #1 "Desligado." desvia @pega @checaadm seja t pos ": " m subtrai t 1 copia $adml m 2 t se $lista *=* $adml retorna senão seja u pos ". " m subtrai u 1 copia $adml2 m 2 u se $lista *=* $adml2 retorna senão seja u pos "(pvt " m subtrai u 1 copia $adml2 m 2 u se $lista *=* $adml2 retorna senão desvia @pega retorna senão desvia @pega @addadmin chama @checaadm chama @checaestado seja t pos "addadmin " m soma t 9 copia $novadmin m t 100 concatena $lista $novadmin concatena $lista " " escreve #1 "Administrador adicionado a lista de Administradores: "$novadmin"." desvia @pega senão desvia @pega @admatual escreve #1 "Administrador atual: "$admin"" desvia @pega @checaestado se $estado = "on" retorna senão desvia @pega @flood escreve "Deu flood. Vou esperar 15 segundos inativo." espera 15 desvia @pega @listaadms escreve #1 "Lista de Administradores: "$lista"" desvia @pega @removeadm chama @checaadm chama @checaestado seja t pos "removeadm " m soma t 10 copia $novadmin m t 100 substitui $lista $novadmin "" escreve #1 "Administrador removido da lista de Administradores: "$novadmin"." desvia @pega senão desvia @pega @desativado escreve #1 "Comando desativado temporariamente devido a abuso dos usuários.#risada" desvia @pega @programe chama @checaestado chama @checaadm seja u pos "daquia" m soma u 7 seja v u soma v 2 copia $tempo m u v substitui $tempo " " "" seja t pos "ação" m soma t 6 copia $acao m t 500 substitui $acao " " "" escreve #1 "Ok, programei a ação "$acao" para ser feita em "$tempo"." @contador1 se $tempo > 0 subtrai $tempo 1 desvia @contador senão se $contador = 0 escreve #1 $acao desvia @pega @contador3 escreve #1 $acao desvia @pega @tranca chama @checaadm chama @checaestado seja z pos "por " m soma z 4 copia $temp m z 100 escreve #1 "Este script está sendo trancado por "$temp" segundos, e não receberá nenhuma órdem até que o tempo esgote." enquanto não $temp = 0 espera 1 subtrai $temp 1 fim enquanto escreve #1 "Tempo esgotado; Retornando a operação normal." desvia @pega @sair chama @checaadm chama @checaestado escreve #1 "/quit" fecha #2 fecha #1 termina mudo * Carrega nomes do registro: @loadreg espera 1 escreve #1 "?registro" enquanto não m *=* "Operadores 0:" lê #1 m bipa 1 fim enquanto enquanto não m *=* "Ao todo:" lê #1 m substitui m "," "" substitui m "Admin" "Admin " substitui m "Operadores 0:" " " substitui m "Operadores 1:" " " substitui m "Operadores 2:" " " substitui m "Operadores 3:" " " substitui m "Operadores 4:" " " substitui m "Operadores 5:" " " substitui m "Operadores 6:" " " concatena $lista m fim enquanto seja n pos "Ao todo" $lista subtrai n 1 copia $listin $lista 1 n seja $lista $listin espera 5 espera 2 escreve #1 "?registro" enquanto não m = "Operadores 1:" lê #1 m fim enquanto @bemvindoop1 lê #1 m seja b tamanho m enquanto não $caracter = "," * Fica subtraindo um caracter e copiando até ser vírgula. subtrai b 1 copia $caracter m b b fim enquanto soma b 2 copia $op1 m b 500 substitui $op1 " " "" lê #1 n concatena $op1 n desvia @mais @bemvindoop2 lê #1 m seja b tamanho m enquanto não $caracter = "," * Fica subtraindo um caracter e copiando até ser vírgula. subtrai b 1 copia $caracter m b b fim enquanto soma b 2 copia $op2 m b 500 substitui $op2 " " "" desvia @mais @bemvindoop3 lê #1 m seja b tamanho m enquanto não $caracter = "," * Fica subtraindo um caracter e copiando até ser vírgula. subtrai b 1 copia $caracter m b b fim enquanto soma b 2 copia $op3 m b 500 escreve "Este é o Op3: "$op3"" substitui $op3 " " "" desvia @mais @bemvindoop4 lê #1 m seja b tamanho m enquanto não $caracter = "," * Fica subtraindo um caracter e copiando até ser vírgula. subtrai b 1 copia $caracter m b b fim enquanto soma b 2 copia $op4 m b 12 substitui $op4 " " "" desvia @mais @bemvindoop5 lê #1 m seja b tamanho m enquanto não $caracter = "," * Fica subtraindo um caracter e copiando até ser vírgula. subtrai b 1 copia $caracter m b b fim enquanto soma b 2 copia $op5 m b 500 substitui $op5 " " "" desvia @mais @bemvindoop6 lê #1 m seja b tamanho m enquanto não $caracter = "," * Fica subtraindo um caracter e copiando até ser vírgula. subtrai b 1 copia $caracter m b b fim enquanto soma b 2 copia $op6 m b 500 substitui $op6 " " "" desvia @mais @mais lê #1 m se m = "Operadores 2" lê #1 m desvia @bemvindoop2 senão se m = "Operadores 3" lê #1 m desvia @bemvindoop3 senão se m = "Operadores 4" lê #1 m desvia @bemvindoop4 senão se m = "Operadores 5" lê #1 m desvia @bemvindoop5 senão se m = "Operadores 6" lê #1 m desvia @bemvindoop6 senão se m = "Ao todo:" desvia @bemvindo2 @bemvindo2 seja $bv "Boas-vindas aos novos moderadores(as): " concatena $bv $op1 concatena $bv ", " concatena $bv $op2 concatena $bv ", " concatena $bv $op3 concatena $bv ", " concatena $bv $op4 concatena $bv ", " concatena $bv $op5 concatena $bv ", " concatena $bv $op6 concatena $bv ", " substitui $bv ", ," "" escreve #1 $bv desvia @script2 @jcaifora escreve #1 "Bem-vindo ao Jogo do CAI FORA!" espera 2 escreve #1 "Você escolhe um número de 0 a 5 e eu saio do CHAT." seja $numero rand 5 enquanto não m *=* "(pvt" lê #1 m fim enquanto seja n pos ")" m soma n 3 copia $number m n n escreve $numero se $number = $numero fecha #1 termina mudo senão escreve #1 "Errou! Era "$numero"!#BOZO3" desvia @pega @desafio escreve #1 "Bem-vindo ao DESAFIO DO MOMENTO!" espera 4 escreve #1 "É com orgulho que o Bozó oferece este desafio a Você." espera 4 escreve #1 "Por favor, responda por PVT o resultado desta operação:" espera 4 randomiza seja $mais rand 20 se $mais = 0 seja $mais rand 20 seja $vezes rand 20 se $vezes = 0 seja $vezes rand 20 seja $sub rand 20 se $sub = 0 seja $sub rand 20 seja $div rand 20 se $div = 0 seja $div rand 20 escreve #1 "Multiplique "$mais" por "$vezes". Subtraia o valor do resultado por "$sub", e finalmente divida por "$div". multiplica $mais $vezes subtrai $mais $sub divide $mais $div seja $resultado $mais espera 4 escreve #1 "O primeiro que conseguir, me envie por PVT. Boa sorte!" enquanto não m *=* "(pvt" lê #1 m fim enquanto seja n pos ")" m soma n 3 seja q n soma q 6 copia $number m n q substitui $number " " "" substitui $number " " "" seja o pos "(p" m subtrai o 1 copia $nnick m 2 o se $number = $resultado escreve #1 ""$nnick", parabéns! Seu cérebro é de ótimo potencial!" desvia @pega senão escreve #1 "Sinto muito, "$nnick". Você errou. O resultado era "$resultado". Tente novamente!" desvia @pega @destino espera 1 escreve #1 "Bem-vindo ao Jogo do Destino!" espera 3 escreve #1 "Jogue o dado e saiba seu destino." espera 3 escreve #1 "Me envie um PVT dizendo qualquer coisa." enquanto não m *=* "(pvt" lê #1 m fim enquanto seja o pos "(p" m subtrai o 1 copia $nnick m 2 o seja $dadin rand 10 se $dadin = 0 seja $destino "Felicidade" se $dadin = 1 seja $destino "Paz" se $dadin = 2 seja $destino "Tristeza" se $dadin = 3 seja $destino "Desgraça" se $dadin = 4 seja $destino "Sofrimento" se $dadin = 5 seja $destino "Euforia" se $dadin = 6 seja $destino "Alegria" se $dadin = 7 seja $destino "Risos" se $dadin = 8 seja $destino "Amor" se $dadin = 9 seja $destino "Cordial" se $dadin = 10 seja $destino "Infeliz" desvia @destino2 @destino2 escreve #1 ""$nnick", seu dado caiu na posição "$dadin": "$destino"." desvia @pega @black espera 2 escreve #1 "Bem-vindo ao jogo BLACK JACK!" espera 3 escreve #1 "Pegue cartas até completar o número 21!" espera 3 escreve #1 "Para pegar uma carta, me envie um PVT dizendo qualquer coisa." espera 3 escreve #1 "Cada carta vem com um valor dinâmico, caso passe de 21 você perde!" espera 3 escreve #1 "Eu serei seu oponente. Quem chegar até 21 primeiro ganha!" espera 3 @voce escreve #1 "Você joga." enquanto não c = 1 observa #1 c fim enquanto enquanto não m *=* "(pvt" lê #1 m fim enquanto @pegacarta1 randomiza seja $carta rand 7 se $carta = 0 desvia @pegacarta1 senão soma $pontos $carta escreve #1 "Você tirou uma carta com valor "$carta", e tem "$pontos" pontos." seja m "" se $pontos > 21 escreve #1 "Você perdeu!" seja $pontos 0 seja $pontos2 0 desvia @pega senão se $pontos = 21 escreve #1 "Parabéns! Você completou o jogo!" seja $pontos 0 desvia @pega senão se $pontos < 21 desvia @eu @eu espera 2 escreve #1 "Eu jogo." espera 2 @pegarcarta2 randomiza seja $carta rand 7 se $carta = 0 desvia @pegarcarta2 senão soma $pontos2 $carta escreve #1 "Minha carta é "$carta", e eu tenho "$pontos2" pontos." se $pontos2 > 21 escreve #1 "Eu perdi! Não acredito!" seja $pontos2 0 seja $pontos 0 desvia @pega senão se $pontos2 = 21 escreve #1 "Ganhei! Mais sorte da próxima vez, meu amigo!" seja $pontos2 0 seja $pontos 0 desvia @pega senão se $pontos2 < 21 desvia @voce @localize chama @checaadm chama @checaestado seja t pos "localize " m soma t 9 copia i m t 500 substitui i " " "" escreve #1 "/"i"?ip" enquanto não m *=* "*.Usuário" lê #1 m bipa 1 fim enquanto seja t pos "é " m soma t 2 seja u pos "(" m subtrai u 1 copia $ip m t u escreve $ip substitui $ip " " "" internet inicia conecta #3 "whatismyipaddress.com" 80 espera 1 escreve #3 "GET http://whatismyipaddress.com/ip/"$ip" HTTP/1.0" Escreve #3 "Host: whatismyipaddress.com" escreve #3 "Accept-Language: pt-br" escreve #3 "UA-CPU: x86" escreve #3 "User-Agent: Bozó Script http://www.portalmundonet.com" escreve #3 "" @ob observa #3 m se m <> 0 desvia @pegaip desvia @ob @pegaip abre #7 "country" & enquanto não p *=* "Country:" lê #3 p fim enquanto substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "Brazil" "Brasil" substitui p "United States" "Estados Unidos" seja c pos " " p seja b pos "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" seja $estado p lê #3 p substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" seja $cidade p lê #3 p substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p " " "" substitui p ";" "" substitui p "deg" "" substitui p "" "" lê #3 p substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" substitui p "" "" copia l p 1 8 escreve #1 "Localização do usuário "i": "$cidade", "$estado", "$pais"." desvia @pega @entrou chama @checaadm chama @checaestado se $entrou = 0 seja $entrou 1 escreve #1 "Entrou ativo." desvia @pega senão se $entrou = 1 seja $entrou 0 escreve #1 "Entrou desativado." desvia @pega @entrouatu chama @checaadm chama @checaestado escreve #1 "?entrou" espera 2 escreve #1 "Entrou atualizado com sucesso." desvia @pega @zoador se m *=* "Entra na conversação" escreve #1 "/0+chutar" desvia @pega senão desvia @pega @conjug seja t pos ". " m soma t 2 copia $palavra m t 500 substitui $palavra " " "" seja m $palavra substitui m "conjug" "" se m *= "ar" desvia @ar se m *= "er" desvia @er se m *= "ir" desvia @ir @ar substitui m "ar" "o" escreve #1 "Eu "m"." espera 3 seja t tamanho m subtrai t 1 copia $tu m 1 t concatena $tu "as" espera 3 escreve #1 "Tu "$tu"." seja t tamanho m subtrai t 1 copia $ele m 1 t espera 3 concatena $ele "a" escreve #1 "Ele/Ela "$ele"." seja t tamanho m subtrai t 1 copia $nos m 1 t concatena $nos "amos" espera 3 escreve #1 "Nós "$nos"." seja t tamanho m subtrai t 1 copia $vos m 1 t concatena $vos "ais" espera 3 escreve #1 "Vós "$vos"." seja t tamanho m subtrai t 1 copia $eles m 1 t concatena $eles "am" espera 3 escreve #1 "Eles/Elas "$eles"." desvia @pega @er substitui m "er" "o" substitui m "z" "ç" Escreve #1 "Eu "m"." substitui m "ç" "z" seja t tamanho m subtrai t 1 copia $tu m 1 t concatena $tu "es" espera 3 escreve #1 "Tu "$tu"." seja t tamanho m subtrai t 1 copia $ele m 1 t concatena $ele "e" espera 3 escreve #1 "Ele "$ele"." seja t tamanho m subtrai t 1 copia $nos m 1 t concatena $nos "emos" espera 3 escreve #1 "Nós "$nos"." seja t tamanho m subtrai t 1 copia $vos m 1 t concatena $vos "eis" espera 3 escreve #1 "Vos "$vos"." seja t tamanho m subtrai t 1 copia $eles m 1 t concatena $eles "em" espera 3 escreve #1 "Eles "$eles"." desvia @pega @ir substitui m "ir" "o" escreve #1 "Eu "m"." seja t tamanho m subtrai t 1 copia $tu m 1 t concatena $tu "es" espera 3 escreve #1 "Tu "$tu"." seja t tamanho m subtrai t 1 copia $ele m 1 t concatena $ele "e" espera 3 escreve #1 "Ele "$ele"." seja t tamanho m subtrai t 1 copia $nos m 1 t concatena $nos "imos" espera 3 escreve #1 "Nós "$nos"." seja t tamanho m subtrai t 1 copia $vos m 1 t concatena $vos "is" espera 3 escreve #1 "Vos "$vos"." seja t tamanho m subtrai t 1 copia $eles m 1 t concatena $eles "em" espera 3 escreve #1 "Eles "$eles"." desvia @pega @restart chama @checaestado chama @checaadm escreve #1 "O Bozó está sendo reiniciado." espera 1 escreve #1 "/quit" fecha #1 fecha #2 desvia @conecta @recado chama @checaestado chama @checaadm seja t pos "recado " m soma t 7 copia $recnick m t 500 substitui $recnick " " "" escreve #1 "Informe por PVT o recado que você deixará ao(a) "$recnick"." enquanto não m *=* "(pvt" lê #1 m bipa 1 fim enquanto seja z pos "(pvt" m soma z 7 copia $recadin m z 500 escreve #1 "Ok." seja $recado 1 desvia @pega @darecado se $recado = 1 chama @darecado2 retorna senão retorna @darecado2 seja $rm "." concatena $rm $recnick concatena $rm " Entra na conversação" se m *=* $rm escreve #1 ""$recnick", uma mensagem foi deixada para você: "$recadin"" seja $recado 0 retorna senão seja $rm2 "conhecido como " concatena $rm2 $recnick se m *=* $rm2 escreve #1 ""$recnick", uma mensagem foi deixava para você: "$recadin"" seja $recado 0 retorna senão retorna @umamsg lê $mess escreve #1 $mess desvia @pega2