Jump to content

Madeon

Members
  • Posts

    36
  • Joined

  • Last visited

Posts posted by Madeon

  1. Buenas alguien podria aportar o ayudarme a hacer un Healer que te de Buffs dependiendo el que hayas comprado

    Ejemplo, el healer da Agi y Blessing
    Pero que haya otro NPC un (Comprador de buffs extras en la healer), que te de opción ejemplo comprar Assumptio LV5 para la healer por 7 días, es esto posible?

  2. On 1/16/2020 at 7:35 AM, dev LOOLP said:
    
    case 1:
    			set		.@purchase[0],@bought_nameid;
    			copyarray	.@purchase[1],getd(".item_"+@bought_nameid+@opt+"[0]"),getarraysize(getd(".item_"+@bought_nameid+@opt+"[0]"));
    			if ( !.@purchase[1] ) 
    			{
    				mes strcharinfo(0) + " Un error ocurrio.";
    				close;
    			}	
    
    			mes "Deseas comprar el item " + getitemname(.@purchase[1]) + " al precio de ^DF0101" + .@purchase[3] * @bought_quantity + " BG's jugados?^000000";
    			if ( select ( " - Sí : - Mejor no " ) == 2 ) 
    				close;
    			if ( countitem( 32025 ) < .@purchase[3] * @bought_quantity ) {
    				next;
    				mes "No tienes la cantidad de bg's jugados";
    				mes "Actualmente tienes : " + countitem( 32025 ) + " BG's jugados";
    			} else {
    				getitem @bought_nameid , .@purchase[2] * @bought_quantity;
    				delitem 32025, .@purchase[3] * @bought_quantity;
    			}
    			close;
    		//no-break;

     

     

    Gracias

  3. 10 hours ago, Mael said:

    Si estás utilizando PRE-RE, te recomiendo ir a db/pre-re/guild_skill_tree.yml y al final del texto borrar las # de:

    
      - Id: GD_GUILD_STORAGE
        MaxLevel: 5

     

    Todavia me aparece lo mismo, hicé @reloadskilldb... por si acaso

  4. Ya improvisé algo y me va de maravilla

     

    -	script	entermap	-1,{
    
    OnPCLoadMapEvent:
    if (readparam(5) == 0 )
    atcommand "@alive";
    end;
    }
    
    veil	mapflag	loadevent
    prontera	mapflag	loadevent
    morocc	mapflag	loadevent
    geffen	mapflag	loadevent
    payon	mapflag	loadevent
    alberta	mapflag	loadevent
    izlude	mapflag	loadevent
    aldebaran	mapflag	loadevent
    xmas	mapflag	loadevent
    comodo	mapflag	loadevent
    yuno	mapflag	loadevent
    amatsu	mapflag	loadevent
    gonryun	mapflag	loadevent
    louyang	mapflag	loadevent
    ayothaya	mapflag	loadevent
    einbroch	mapflag	loadevent
    lighthalzen	mapflag	loadevent
    einbech	mapflag	loadevent
    hugel	mapflag	loadevent
    rachel	mapflag	loadevent
    veins	mapflag	loadevent
    moscovia	mapflag	loadevent
    manuk	mapflag	loadevent
    splendide	mapflag	loadevent
    mora	mapflag	loadevent
    dewata	mapflag	loadevent
    malangdo	mapflag	loadevent
    malaya	mapflag	loadevent

    Gracías, Mael

    • Upvote 1
  5. Buenas, Alguien podria guiarme/ayudarme con esto
     

    -	shop	bg_shop1	-1,512:-1
    -	shop	bg_shop2	-1,512:-1
    -	shop	bg_shop3	-1,512:-1
    -	shop	bg_shop4	-1,512:-1
    
    bat_room,160,148,3	script	Telma	701,{
    	function  i_Shop;
    	mes "Bienvenid" + (Sex?"o caballero ":"a querida dama ") + ",¿qué desea comprar?";
    	set .@Menu$ , "";
    	for ( set .@i , 1; .@i < getarraysize(.Menu$); set .@i , .@i + 1 ) 
    		set .@Menu$ , .@Menu$ + " ^10B2D2 > ^000000 " + .Menu$[.@i] + ":";
    	set .@Select , select(.@Menu$);
    
    	dispbottom "[Servidor]: Recuerda, sólo se puede comprar 1 item a la vez.";
    	close2;
    		callshop "bg_shop"+.@Select,1;
    		npcshopattach "bg_shop"+.@Select;
    		set @opt , .@Select;
    	end;
    end;
    	
    
    function i_Shop {
    	
    	if ( getitemname( getarg(0) ) == "null" ) 
    	{ 
    		debugmes " Item " + getarg(0) + ", desconocido"; 
    		return; 
    	}
    	
    	for ( set .@i , 0; .@i < 4; set .@i , .@i + 1 )
    		set getd(".item_"+getarg(0)+getarg(3)+"["+.@i+"]"),getarg(.@i);
    		
    	npcshopadditem "bg_shop"+getarg(3),getarg(0),getarg(1);
    	sleep 1;
    	return; 
    }
    
    OnWhisperGlobal:
    	if ( getgmlevel() <= 60 ) end;
     		if (@whispervar0$ != "activar") end;
    OnInit:
    
    		setarray .Menu$[1],"^FF0000Battleground Points^000000","Battleground Exclusivo","Universal Items";
    		//    item,cant,precio,tienda;
    		//.@purchase[1],id_item,[2]cantidad,[3]precio;
    		i_Shop (5000,1,10,1);
    		i_Shop (30212,3,2,1);
    		i_Shop (7291,30,150,1);
    		i_Shop (7295,30,150,1);
    		i_Shop (7292,30,150,1);
    		i_Shop (4354,1,200,1);
    		i_Shop (5453,1,100,1);
    		i_Shop (4429,1,350,1);
    		i_Shop (547,150,1,2);
    		i_Shop (11501,100,1,2);
    		i_Shop (11502,100,1,2);
    		i_Shop (522,70,1,2);
    		i_Shop (526,70,1,2);
    		i_Shop (14536,15,1,2);
    		i_Shop (678,10,1,2);
    		i_Shop (7135,40,1,2);
    		i_Shop (7136,40,1,2);
    		i_Shop (7137,30,1,2);
    		i_Shop (7138,30,1,2);
    		i_Shop (7139,25,1,2);
    		i_Shop (671,25,1,2);
    		i_Shop (715,50,1,2);
    		i_Shop (716,100,1,2);
    		i_Shop (717,200,1,2);
    		i_Shop (12016,20,1,2);
    		i_Shop (1025,40,1,2);
    		i_Shop (7321,25,1,2);
    		i_Shop (662,10,1,2);
    		i_Shop (12031,20,1,2);
    		i_Shop (12030,20,1,2);
    		i_Shop (12029,20,1,2);
    		i_Shop (12072,3,1,2);
    		i_Shop (12077,3,1,2);
    		i_Shop (12082,3,1,2);
    		i_Shop (12087,3,1,2);
    		i_Shop (12092,3,1,2);
    		i_Shop (12097,3,1,2);
    		i_Shop (12114,15,1,2);
    		i_Shop (12115,15,1,2);
    		i_Shop (12116,15,1,2);
    		i_Shop (12117,15,1,2);
    		i_Shop (12319,10,1,2);
    		i_Shop (12320,10,1,2);
    		i_Shop (12321,10,1,2);
    		i_Shop (12299,5,3,2);
    		i_Shop (522,70,3,3);
    		i_Shop (7137,30,3,3);
    		i_Shop (7138,30,3,3);
    		i_Shop (662,10,3,3);
    		i_Shop (14536,15,3,3);
    		i_Shop (12119,10,3,3);
    		i_Shop (12120,10,3,3);
    		i_Shop (12118,10,3,3);
    		i_Shop (12121,10,3,3);
    		i_Shop (12114,15,3,3);
    		i_Shop (12115,15,3,3);
    		i_Shop (12116,15,3,3);
    		i_Shop (12117,15,3,3);
    		i_Shop (12031,20,3,3);
    		i_Shop (12030,20,3,3);
    		i_Shop (12029,20,3,3);
    		i_Shop (14287,5,3,3);
    		i_Shop (14288,5,3,3);
    		i_Shop (12319,10,3,3);
    		i_Shop (12320,10,3,3);
    		i_Shop (12321,10,3,3);
    		i_Shop (606,10,3,3);
    		i_Shop (7524,10,3,3);
    		i_Shop (14510,10,3,3);
    		i_Shop (14509,10,3,3);
    		i_Shop (657,10,3,4);
    
    
    	for( set .@i , 1; .@i <  4; set .@i , .@i + 1 )
    		npcshopdelitem "bg_shop"+.@i,512;
    
    end;
    
    OnBuyItem:
    
    	if ( getarraysize( @bought_nameid ) > 1 ) 
    		mes "Sólo se puede comprar 1 item a la vez.";
    
    	switch ( @opt ) 
    	{
    		case 1:
    			set		.@purchase[0],@bought_nameid;
    			copyarray	.@purchase[1],getd(".item_"+@bought_nameid+@opt+"[0]"),getarraysize(getd(".item_"+@bought_nameid+@opt+"[0]"));
    			if ( !.@purchase[1] ) 
    			{
    				mes strcharinfo(0) + " Un error ocurrio.";
    				close;
    			}	
    
    			mes "Deseas comprar el item " + getitemname(.@purchase[1]) + " al precio de ^DF0101" + .@purchase[3] * @bought_quantity + " BG's jugados?^000000";
    			if ( select ( " - Sí : - Mejor no " ) == 2 ) 
    				close;
    	
    			if ( #BGPOINTS < .@purchase[3] * @bought_quantity ) {
    				next;
    				mes "No tienes la cantidad de bg's jugados";
    				mes "Actualmente tienes : " + #BGPOINTS + " BG's jugados";
    			} else {
    				getitem @bought_nameid , .@purchase[2] * @bought_quantity;
    				set #BGPOINTS , #BGPOINTS - .@purchase[3] * @bought_quantity;
    			}
    			close;
    		//no-break;
    		case 3:
    		case 4:
    		case 2:
    			set		.@purchase[0],@bought_nameid;
    			copyarray	.@purchase[1],getd(".item_"+@bought_nameid+@opt+"[0]"),getarraysize(getd(".item_"+@bought_nameid+@opt+"[0]"));
    			if ( !.@purchase[1] || .@purchase[4] == 1 ) 
    			{
    				mes strcharinfo(0) + " Un error ocurrio.";
    				close;
    			}
    
    			set .@total_medallas , .@purchase[3] * @bought_quantity;
    			set .@total_items    , .@purchase[2] * @bought_quantity;
    
    			if ( @bought_quantity > 200 ) 
    				mes "El límite máximo es 200.";
    		
    			mes " ^10B2D2 > ^000000 Item a comprar : " + substr(getitemname(.@purchase[1]),0,8)+"...";
    			mes " ^10B2D2 > ^000000 Total medallas : " + .@total_medallas;
    			mes " ^10B2D2 > ^000000 Total comprar  : " + .@total_items;	
    			set .@name$, " [ ^10B2D2 Medallas a gastar : " + .@total_medallas + " medalla(s)^000000 ]"; 
    			
    			next;
    
    			if ( countitem( 7773 ) + countitem( 7829 ) + countitem( 7828 ) < .@total_medallas ) 
    				mes "No tienes la cantidad de medallas necesitadas";
    			
    			mes " ^10B2D2 > ^000000 Valor Badges a gastar : ";
    			input .@valor;
    			
    			if ( .@valor >= .@total_medallas ) 
    			{
    				if ( countitem(7829) > .@valor ) 
    				{
    					if ( .@total_medallas < .@valor )
    						set .@valor , .@total_medallas;
    					set .@option , 1;
    					break;
    				} else
    					mes "No tienes suficientes medallas valor";
    			}
    		
    			mes " ^10B2D2 > ^000000 Bravery Badges a gastar : ";
    			input .@bravery;
    			
    			if ( .@bravery >= .@total_medallas || .@bravery + .@valor >= .@total_medallas ) 
    			{
    				if ( countitem(7828) >= .@bravery ) 
    				{
    					if ( ( .@total_medallas - .@valor ) < .@bravery  )
    						set .@bravery , ( .@total_medallas - .@valor );
    					set .@option , 1;
    					break;
    				} else
    					mes "No tienes suficientes medallas bravery";
    			}
    			
    			mes " ^10B2D2 > ^000000 Battle Badges a gastar : ";
    			input .@battle;
    			
    			if ( .@battle >= .@total_medallas ||  .@battle + .@bravery + .@valor >= .@total_medallas  ) 
    			{
    				if ( countitem(7773) >= .@battle ) 
    				{
    					if ( ( .@total_medallas - .@valor - .@bravery ) < .@battle  )
    						set .@battle , ( .@total_medallas - .@valor - .@bravery );
    					set .@option , 1;
    					break;
    				} else
    					mes "No tienes suficientes medallas Battle.";
    			}
    		
    			next;
    			mes "No tienes la cantidad de medallas requeridas.";
    		//no-break;
    	}
    	
    	if ( !.@option ) 
    		close;
    
    	next;
    	
    	mes "¿Dónde quieres los consumibles?";
    	if ( select(" - Inventario") == 1 ) 
    	{
    		if( checkweight(@bought_nameid,.@total_items ) == 0 ) 
    		{
    			mes "Se ve que no puede llevar las cosas que quieres comprar.";
    			mes "Debes almacenar algunos artículos en su almacenamiento Kafra.";
    			close;
    		}
    		
    		delitem 7829    ,   .@valor;
    		delitem 7828    , .@bravery;
    		delitem 7773    ,  .@battle;
    		
    		if ( @opt == 2 ) 
    		{
    			set .@cID, getbattleflag("bg_reserved_char_id");
    			set .@Tarjet$, "Battleground";
    			getitem2 @bought_nameid,.@total_items,1,0,0,254,0,.@cID&0xffff,(.@cID>>16)&0xffff;
    		} else
    			getitem @bought_nameid,.@total_items;
    		mes "Gracias por comprar";
    	}
    	
    	if ( @opt == 2 ) 
    	{
    		set .@cID, getbattleflag("bg_reserved_char_id");
    		set .@Tarjet$, "Battleground";
    		{
    		mes "He visto que su Storage no puede aceptar más artículos.";
    			mes "Vaya a su Storage y comprobar el espacio libre.";
    			close;
    		}
    	} else {
    		{
    			mes "He visto su inventory no puede aceptar más artículos.";
    			mes "Vaya a inventory compruebe el espacio libre.";
    			close;
    		}
    	}
    	
    	close2;
    		delitem 7829    ,   .@valor;
    		delitem 7828    , .@bravery;
    		delitem 7773    ,  .@battle;
    	end;
        }

     

    Quiero cambiar el objeto con el que se compra en esta parte que se muestra abajo.

    de #BGPOINTS

    Item ID: 32025

    		case 1:
    			set		.@purchase[0],@bought_nameid;
    			copyarray	.@purchase[1],getd(".item_"+@bought_nameid+@opt+"[0]"),getarraysize(getd(".item_"+@bought_nameid+@opt+"[0]"));
    			if ( !.@purchase[1] ) 
    			{
    				mes strcharinfo(0) + " Un error ocurrio.";
    				close;
    			}	
    
    			mes "Deseas comprar el item " + getitemname(.@purchase[1]) + " al precio de ^DF0101" + .@purchase[3] * @bought_quantity + " BG's jugados?^000000";
    			if ( select ( " - Sí : - Mejor no " ) == 2 ) 
    				close;
    	
    			if ( #BGPOINTS < .@purchase[3] * @bought_quantity ) {
    				next;
    				mes "No tienes la cantidad de bg's jugados";
    				mes "Actualmente tienes : " + #BGPOINTS + " BG's jugados";
    			} else {
    				getitem @bought_nameid , .@purchase[2] * @bought_quantity;
    				set #BGPOINTS , #BGPOINTS - .@purchase[3] * @bought_quantity;
    			}
    			close;
    		//no-break;

     

    o cambiar la interfaz de compra de este script que pase de comprar en el menu a tipo shop, gracias de antemano.
     

    telma.txt

  6. [server@server ragnarok]$ [Status]: Request for connection of test (ip: 179.53.x.x)
    [Notice]: Authentication accepted (account: madeon, id: 2000000, ip: 179.53.x.x)
    [Status]: Connection refused: there is no char-server online (account:madeon).
    [Info]: Closed connection from '179.53.x.x'.

    Cuando Intento entrar al servidor me dice esto....

    A veces tira Server Closed (1).
    Pero luego de varios intentos me deja entrar normal, alguna solucion?

    Revise varias veces packets.h, mmo, defines_pre y esta todo bien.
     

  7. 10 hours ago, Mael said:

    Qué quieres decir por pre configurado?

    Si sólo buscas vps, podrías ir por Eccohost, la atención es muy buena.

    Por otro lado muchas personas suelen recomendar OVH & Digital Ocean.

    Efectivamente, ya estoy usando eccohost y el soporte es muy bueno, entrega inmediata.... es recomendable

  8. try this one

    prontera,159,151,3	script	Crazy Race	715,{
    
    set @npc$,"[^008000Crazy Race^000000]";
    
    	mes @npc$;
    	mes "Hi "+strcharinfo(0)+"!";
    	mes	"Welcome to the Crazy Race event portal.";
    	mes "What do you want?";
    	switch(select("- Join the event","- Info","Exit"))
    {
    		next;
    
    		case 1:
    			if (!$CMisopen) callsub mesclose, "Sorry, Crazy Race hasn't started yet!";
    			else if (countitem(12016) > 0) callsub mesclose, "You cannot enter Wind Potion!";
    			else if (countitem(662) > 0) callsub mesclose, "You cannot sign in with Official Badge!";
    			else if (countitem(12028) > 0) callsub mesclose, "You cannot enter Thunderbox!";
    			else if (checkriding()) callsub mesclose, "You cannot sign in with PecoPeco!";
    			else if (CheckCart()) callsub mesclose, "You cannot sign in with Cart!";
    			mes @npc$;
    			mes "Good luck!";
    			for(set @i,0; @i<=225; set @i,@i+1){sc_end @i;}
    			set $Campeao,0;
    			warp "turbo_n_1",54,364;
    			close;
    
    			case 2:
    			mes @npc$;
    			mes "The event will require you very quickly and boldly.";
    			next;
    			mes @npc$;
    			mes "The Crazy Race occurs every day every 4 hours.";
    			next;
    			mes @npc$;
    			mes "After the start you will need to go through various obstacles and traps on 9 race tracks.";
    			next;
    			mes @npc$;
    			mes "If you can reach 1st, 2nd or 3rd place, you will receive exclusive prizes according to your position.";
    			close;
    
    			case 3:
    			mes @npc$;
    			mes "Ok, see you next time!";
    			close;
    	}
    	
    	mesclose:
    		mes getarg(0);
    		close;
    
            OnClock1050:
    		set $CMisopen, 1;
    		announce "[Crazy Race]: The race is about to start, you only have 5 minutes!",bc_yellow|bc_all;
            sleep 300000;
    
    		mapannounce "turbo_n_1","3..",bc_yellow|bc_all;
    		sleep 1000;
    	
    		mapannounce "turbo_n_1","2..",bc_yellow|bc_all;
    		sleep 1000;
    	
    		mapannounce "turbo_n_1","1..",bc_yellow|bc_all;
    		sleep 1000;
    	
    		set $CMisopen, 0;
    		announce "[Crazy Race]: The race has started!",bc_yellow|bc_all;
    		end;
    }
    
    turbo_n_1,63,350,5	script	Checagem	-1,1,30,{
    	OnInit: atcommand "@skilloff"; end;
    
    	OnClock1050: set $Check, 0; end;
    	OnClock1055: set $Check, 1; end;
    
    OnTouch:
    if($Check == 0){
    mes "[Crazy race]";
    mes	"===================================";
    mes "burned the start!";
    mes	"===================================";
    sleep2 1200; warp "turbo_n_1", 54, 364; end;
    }
    
    }

     

     

     

    Sin título.png

  9. 6 hours ago, BeWan said:

    try this one

    
    -	script	Reward NPC	-,{
    	.@unique_id$ = get_unique_id();
    	if($reward_status > 0 || $reward_count < 1){
    		mes "[ Reward NPC ]";
    		mes "Sorry, but the First 50 Rewards are out. Better luck next time.";
    		close;
    	}
    	if(getd("$ID_" + .@unique_id$) > 0 || #NPCREWARD > 0){
    		mes "[ Reward NPC ]";
    		mes "You have already claimed your reward.";
    		close;
    	}
    	mes "[ Reward NPC ]";
    	mes "Here's your reward. Have a nice day!";
    	setd "$ID_" + .@unique_id$,1;
    	#NPCREWARD = 1;
    	$reward_count -= 1;
    	for(.@i = 0; .@i < getarraysize(.rewards); .@i += 2)
    		getitem .rewards[.@i],.rewards[.@i+1];
    	if($reward_count == 0)
    		$reward_status = 1;
    	end;
    }

     

    how do i add items?

×
×
  • Create New...