Jump to content

juniorbocask8

Members
  • Posts

    3
  • Joined

  • Last visited

Profile Information

  • Gender
    Male
  • Location
    Brazil

Recent Profile Visitors

1278 profile views

juniorbocask8's Achievements

Poring

Poring (1/15)

  • Week One Done
  • One Month Later
  • One Year In

Recent Badges

0

Reputation

  1. prontera,147,197,5 script Jogo da Forca 767,{ //=== Configuração ======================================================================== set .@npc$, "^0000FF[Jogo da Forca]^000000"; // Nome do NPC. set .@minlength, 4 ; // char no mínimo no mapa set .@maxlength, 12; // não podemos ver mais de 12 personagens em um chatroom... set .@color$, "^792d5b"; // A cor de colorise o texto °° set .@rungame, 99; // M nível mínimo para configurar o NPC (padrão 0) set .@logword, 0; // Log a palavra entra pelas pessoas? 0 = não 1 = sim (logmes + debugmes) set .check_gotocount, 2048; // Limite de loop infinito. set .autoevent, 1; // Por padrão todos os 30 minutos. set .cutinposition, 2; // 0, 1, 2, 3, 4 (Ver o doc) //========================================================================================= //=== Funções ============================================================================= function change_case ; // Função para alterar o caso de uma letra. function array_search; // Retorna um valor que é armazenar em um array. function str_to_array; // Alterar uma string para uma variável. function emplode; // Alterar uma variável para uma string. function load_cutin; //========================================================================================= switch( ( ! .block && .@rungame > getgmlevel() ) ? 2 : .block ){ case 0: do{ if ( ! .Init ) donpcevent strnpcinfo(0) + "::OnInit"; set .block, 1; // Não bloquear o NPC. set .@string$, ""; // init the var. initnpctimer; // Timer para depurar. mes .@npc$; mes "Eu cobro uma taxa de 5000000z."; mes "Deseja continuar mesmo assim????"; menu "Sim",Lsim,"Não",Lnao2; Lnao2: next; mes "Ah então não me aborrece"; close; Lnao: next; mes "Você não possui Zenys o suficiente"; mes "volte quando tiver zenys."; close; Lsim: if (Zeny < 5000000) goto Lnao; Zeny-= 5000000; next; mes "Insira uma palavra com " + .@color$ + .@minlength + "^000000 ate " + .@color$ + .@maxlength + "^000000 caracteres."; mes "( " +.@color$ + "\"0\"^000000 para sair )"; next; while( input( .@string$, .@minlength, .@maxlength ) || ! str_to_array( .@string$, ".letter$" ) ){ // "0" --> "exit". if ( .@string$ == "0" ) { close2; set .block, 0; cleararray .letter$[0], "", 128; end; } mes .@npc$; mes "O tamanho da palavra estar incorreto ou existe um caractere inválido."; next; mes .@npc$; mes "Insira uma palavra de " + .@color$ + .@minlength + "^000000 para " + .@color$ + .@maxlength + "^000000 caracteres"; next; } mes .@npc$; mes "Use \"" + .@color$ + .@string$ + "^000000\" ?"; next; set .Init, 0; } while ( select( " - Sim: - Não" ) == 2 ); AutoSelect: set .lettercount, getarraysize( .letter$ ) - 1; // Char número. set .wordsearch$, .@string$; // Salvar em um "." var. if ( .@logword && playerattached() ){ logmes "|Jogo da Forca| " + strcharinfo(0)+ " digite uma palavra : " + .@string$; debugmes "|Jogo da Forca| " + strcharinfo(0) + " digite um mote : " + .@string$; } for ( set .@i, 0; .@i < .lettercount; set .@i, .@i + 1 ) { set .letterhide$[ .@i ], " _"; } set .letterhide$[ 0 ], .letter$[ 0 ]; // Mostramos a primeira letra. set .letterhide$[ .lettercount ], .letter$[ .lettercount ]; // Mostramos a última letra. for ( set .@i, 0; .@i < .lettercount; set .@i, .@i + 1 ){ set .@j, ( array_search ( .letter$[ 0 ], ".letter$", .@i, .lettercount ) ); if ( .@j + 1 ){ set .letterhide$[ .@j ], .letter$[ .@j ]; set .@i, .@j; } } for ( set .@i, 0; .@i < .lettercount; set .@i, .@i + 1 ){ set .@j, ( array_search( .letter$[ .lettercount ], ".letter$", .@i, .lettercount ) ); if ( .@j + 1 ){ set .letterhide$[ .@j ], .letter$[ .@j ]; set .@i, .@j; } } set .wordfind$, emplode( "", ".letterhide$" ); initnpctimer; delwaitingroom; waitingroom .wordfind$, 0; // Criar o Chat-Room set .block, 3; // desbloquear o jogo. if ( playerattached() ) close; else end; case 1: // Alguém está a criação do NPC. mes .@npc$; mes "Alguém está a iniciar o jogo..."; mes "Aguarde."; close; case 2: // Ele não pode config o NPC. mes .@npc$; mes "Você não pode iniciar o jogo!"; close; case 3: do{ if ( .wordfind$ == "" ) { close2; cutin "", 255; end; } mes .@npc$; mes .wordfind$; // Mostramos a palavra. load_cutin(); //Mostramos a lista. mes "Letras já utilizadas: " + .@color$ + ( emplode( " ", ".blacklist$" ) ) + "^000000."; next; if ( select( " - Digitar uma letra.: - Digitar a Palavra" ) - 1 ) { // digite uma palavra. mes .@npc$; mes "Se você já sabe a palavra? então digite ela toda!"; next; input @string$; if ( compare( "_|~key~|_" + @string$ + "_|~key~|_", "_|~key~|_" + .wordsearch$ + "_|~key~|_" ) ){ announce strcharinfo( 0 ) + " Encontrou a palavra: " + .wordsearch$ + " e ganhou 5kk em Zenys!", bc_blue | bc_map; Zeny+= 5000000; donpcevent strnpcinfo( 0 ) + "::OnInit"; //On Reset. mes .@npc$; mes "Parabéns !"; close2; cutin "", 255; end; } else{ mes .@npc$; mes "A palavra esta errada."; load_cutin( 1 ); next; continue; } } // Input letter : mes .@npc$; mes "Escolha uma letra"; mes "(" +.@color$ + " 0^000000 para sair. )"; next; if ( input( @string$, 1, 1 ) ){ mes .@npc$; mes "Ops! digite só uma letra."; mes "Obrigado!"; next; continue; } if ( @string$ == "0" ){ close2; cutin "", 255; end; } set @string$, change_case( @string$ ); if ( @string$ == "0" ){ mes .@npc$; mes "Caracteres Proibido."; next; continue; }else if ( array_search ( @string$, ".blacklist$") + 1 ){ mes .@npc$; mes "Esta letra é já foi dita (veja a lista)"; mes "Eescolha uma outra."; next; continue; } set .blacklist$[ getarraysize( .blacklist$ ) ], @string$; // Colocamos a letra na lista. set @i, array_search( @string$, ".letter$"); if ( @i == -1 ){ heal - MaxHp / 5, 0; mes .@npc$; mes "Não é possível encontrar a letra na palavra..."; load_cutin( 1 ); next; continue; } else{ mes .@npc$; mes "Letra está na palavra !"; for ( set @i, 0; @i < .lettercount; set @i, @i + 1 ){ set @j, ( array_search( @string$, ".letter$", @i, .lettercount ) ); if ( @j + 1 ){ set .letterhide$[ @j ], .letter$[ @j ]; set @i, @j; } } set .wordfind$, emplode( " ", ".letterhide$" ); delwaitingroom; // devemos atualizar o chat-room nome waitingroom .wordfind$, 0; if ( array_search( " _", ".letterhide$" ) == -1 ) { announce strcharinfo( 0 ) + " descobriu a palavra: " + .wordsearch$ + " e ganhou 5kk em zenys !", bc_blue | bc_map; Zeny+= 5000000; donpcevent strnpcinfo( 0 ) + "::OnInit"; close2; cutin "", 255; end; } next; if ( select( " - Continuar: - Sair" ) - 1 ){ close2; cutin "", 255; end; } } } while( Hp ); mes .@npc$; mes "Ahhhh, Você Perdeu..."; announce "|Jogo da Forca| " + strcharinfo( 0 ) + " Perdeu! e acabou morrendo", bc_blue | bc_area; close2; cutin "", 255; end; } OnInit: delwaitingroom; set .block, 0; set .Init, 1; set .stat, 0; cleararray .letter$[ 0 ], "", 128; cleararray .blacklist$[ 0 ], "", 128; cleararray .letterhide$[ 0 ], "", 128; set .lettercount, 0 ; set .wordfind$, ""; set .wordsearch$, ""; setarray .wordlist$[0], "aprendiz", "historia", "esmeralda", "sacerdotiza", "cavaleiro", "ragmaniacos", "poporing", "andarilho", "maniacos", "assessoria", "fabre", "noidea"; end; OnMinute00: OnMinute30: if ( .autoevent ) { set .@i, rand ( 0, getarraysize( .wordlist$ ) - 1 ); str_to_array( .wordlist$[.@i], ".letter$" ); set .@string$, .wordlist$[.@i]; callsub AutoSelect; } OnTimer120000: if ( .block - 1 ) end; else{ set .block, 0; stopnpctimer; } OnTimer600000: donpcevent strnpcinfo(0) + "::OnInit"; stopnpctimer; end; //=== FUNÇÃO =========================================================================== function load_cutin { if ( getarg( 0, 0 ) ) set .stat, .stat + 1; cutin "hangman_" + .stat, .cutinposition; if ( .stat >= 10 ) { announce "|Jogo da Forca| Ninguém encontrará a palavra! hahaha! ", bc_blue | bc_area; donpcevent strnpcinfo(0) + "::OnInit"; } return; } function change_case { setarray .@char$[ 0 ], "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"; for( set .@i, 0; .@i < 26; set .@i, .@i + 1 ) { if ( compare( getarg( 0 ), .@char$[ .@i ] ) ) { return .@char$[ .@i ]; } } return "0"; } function array_search { for ( set .@i, getarg(2,0); .@i < getarg( 3, getarraysize( getd( getarg(1) ) ) ); set .@i, .@i + 1 ) { if ( getd( getarg( 1 ) + "[" + .@i + "]" ) == getarg( 0 ) ) { return .@i; } } return -1; } function str_to_array { if ( getstrlen( getarg(0) ) >= 110 ) { return 0; } if ( atoi( getd( getarg(1) ) ) ){ cleararray getd( getarg(1) + "[ 0 ]" ), 0, 128; } else{ cleararray getd( getarg(1) + "[ 0 ]" ), "", 128; } setarray .@char$[ 0 ], "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"; set .@j, 0; set .@str_temp$, "_|~key~|_" + getarg(0) + "_|~key~|_"; while( ! compare ( "_|~key~|_" + .@str$ + "_|~key~|_", .@str_temp$ ) ) { set .@j, .@j + 1; for ( set .@i, 0; .@i <= getarraysize(.@char$); set .@i, .@i + 1 ) { if ( compare( .@str_temp$, "_|~key~|_" + .@str$ + .@char$[ .@i ] ) ) { set .@str$, .@str$ + .@char$[ .@i ]; setd getarg(1) + "[" + getarraysize( getd( getarg(1) ) ) + "]", .@char$[ .@i ]; break; } } if ( .@i == getarraysize( .@char$ ) ) return 0; if ( .@j >= .check_gotocount / getarraysize(.@char$) - 1 ){ sleep2( 1 ); set .@j, 0; } } return 1; } function emplode { set .@str_temp$, ""; for ( set .@i, 0; .@i < getarraysize( getd( getarg(1) ) ); set .@i, .@i + 1 ){ set .@str_temp$, .@str_temp$ + getarg( 0, "" ) + getd( getarg( 1 ) + "[" + .@i + "]" ); } return .@str_temp$; } } Usa essa talvez te ajude!
  2. Hello I would like a little help to configure this script: this happens every time I use the command: @go 0 / @go 1
  3. Hello I need a little help because I don't know how to do that .... I'm using Rsslib together with EadevConfig.php and it is necessary to display images for each news item, which must be uploaded by image-1.png image-2.png image-3.png image-4.png image-5.png and I use categories in xml 'news' => 'http://www.xul.fr/rss.xml', 'news2' => 'http://www.xul.fr/rss.xml', 'news3' => 'http://www.xul.fr/rss.xml', ------ NEWS/INDEX.PHP -------- <?php if (!defined('FLUX_ROOT')) exit; if ( $EADev['enablerss'] require_once ("rsslib.php"); endif; ?> <!-- News1 --> <div class="tab-pane fade active show" id="news"> <div class="news-item"> <?php if ( $EADev['enablerss'] echo RSS_Display($EADev['news1'], 5); endif; ?> </div> </div> <!-- News2 --> <div class="tab-pane fade" id="news2"> <div class="news-events-slider"> <?php if ( $EADev['news2'] echo RSS_Display($EADev['events'], 5); endif; ?> </div> </div> <!-- News3 --> <div class="tab-pane fade" id="news3"> <div class="news-events-slider"> <?php if ( $EADev['enablerss'] echo RSS_Display($EADev['news3'], 5); endif; ?> </div> </div> ------- RSSLIB.PHP -------------- <?php /* RSS Extractor and Displayer (c) 2007-2010 Scriptol.com - Licence Mozilla 1.1. rsslib.php Requirements: - PHP 5. - A RSS feed. Using the library: Insert this code into the page that displays the RSS feed: <?php require_once("rsslib.php"); echo RSS_Display("http://www.xul.fr/rss.xml", 15); ?> */ $RSS_Content = array(); function RSS_Tags($item, $type, $image="") { $y = array(); $tnl = $item->getElementsByTagName("title"); $tnl = $tnl->item(0); $title = $tnl->firstChild->textContent; $tnl = $item->getElementsByTagName("link"); $tnl = $tnl->item(0); $link = $tnl->firstChild->textContent; $tnl = $item->getElementsByTagName("pubDate"); $tnl = $tnl->item(0); $date = $tnl->firstChild->textContent; $tnl = $item->getElementsByTagName("description"); $tnl = $tnl->item(0); $description = $tnl->firstChild->textContent; $y["title"] = $title; $y["link"] = $link; $y["date"] = $date; $y["description"] = $description; $y["type"] = $type; $y["image"] = $image; return $y; } function RSS_Channel($channel) { global $RSS_Content; $items = $channel->getElementsByTagName("item"); // Processing channel $y = RSS_Tags($channel, 0); // get description of channel, type 0 array_push($RSS_Content, $y); // Processing articles foreach($items as $item) { $y = RSS_Tags($item, 1); // get description of article, type 1 array_push($RSS_Content, $y); } } function RSS_Retrieve($url) { global $RSS_Content; $doc = new DOMDocument(); $doc->load($url); $channels = $doc->getElementsByTagName("channel"); $RSS_Content = array(); foreach($channels as $channel) { RSS_Channel($channel); } } function RSS_RetrieveLinks($url) { global $RSS_Content; $doc = new DOMDocument(); $doc->load($url); $channels = $doc->getElementsByTagName("channel"); $RSS_Content = array(); foreach($channels as $channel) { $items = $channel->getElementsByTagName("item"); foreach($items as $item) { $y = RSS_Tags($item, 1); // get description of article, type 1 array_push($RSS_Content, $y); } } } function RSS_Links($url, $size = 15) { global $RSS_Content; $page = "<ul>"; RSS_RetrieveLinks($url); if($size > 0) $recents = array_slice($RSS_Content, 0, $size + 1); foreach($recents as $article) { $type = $article["type"]; if($type == 0) continue; $title = $article["title"]; $link = $article["link"]; $page .= "<li><a href=\"$link\">$title</a></li>\n"; } $page .="</ul>\n"; return $page; } function RSS_Display($url, $size = 15, $site = 0, $withdate = 0) { global $RSS_Content; $opened = false; $page = ""; $site = (intval($site) == 0) ? 1 : 0; RSS_Retrieve($url); if($size > 0) $recents = array_slice($RSS_Content, $site, $size + 1 - $site); $i = 0; foreach($recents as $article) { $type = $article["type"]; if($type == 0) { if($opened == true) { $page .="\n"; $opened = false; } $page .="<b>"; } else { if($opened == false) { $page .= "\n"; $opened = true; } } $title = $article["title"]; $link = $article["link"]; $date = $article["date"]; $image = $article["image"]; $page .= " <div class=\"news-item\"> <img src=\"themes/default/img/. $image .\" alt=\"\" class=\"img-responsive\"> <div class=\"news-desc\"> <div class=\"news-labels\"> <div class=\"posted-on\"> Post em: ".strftime("%d %b,%Y",strtotime($date))." </div> <div class=\"news-cat news\"> News </div> </div> <a target=\"_blank\" href=\"$link\">". substr($title,0, 48) . " ...</a> <div class=\"readmore text-right\"> <a target=\"_blank\" href=\"$link\">READ MORE</a> </div> </div> </div>"; } if($opened == true) { $page .="\n"; $page .="\n"; } return $page."\n"; } ?> I already managed to display the news result but I cannot assign sequential images for each category. Thanks in advance for your help. Sorry my bad English.
×
×
  • Create New...