wing evolution

manabeast · December 5, 2011

http://www.eathena.w...howtopic=233107


*/
-	script	Wings_Conf	-1,{
OnInit:

	/* Evolution modes:

	1 = Every X numer of mobs (1%).
	2 = Experience (1%).
	3 = Every X number of mobs (100%).

	*/

	set .modo, 1;	   <----about set modo can direct change 1 or 2 in here right?

	set .rates, 100;	// % (Only for Mode 2).

	/* ID[...], evolution mode[...], mob id[...], neccesary to advance 1%[...].
	(Configured for the 1st mode).
	If  you want any monster, use 111.
	// Use callsub for add more wings. */
	callsub Ids, 20001, 1, 111, 1, 20045, 1, 111, 1, 20019, 1, 111, 0 ;
	callsub Ids, 20002, 1, 111, 1, 20023, 1, 111, 1, 20025, 1, 111, 0 ;
	callsub Ids, 20003, 1, 111, 1, 20061, 1, 111, 1, 20020, 1, 111, 0 ;
	callsub Ids, 20004, 1, 111, 1, 20042, 1, 111, 1, 20033, 1, 111, 0 ;
	callsub Ids, 20005, 1, 111, 1, 20034, 1, 111, 1, 20010, 1, 111, 0 ;
	callsub Ids, 20007, 1, 111, 1, 20040, 1, 111, 1, 20054, 1, 111, 0 ;
	callsub Ids, 20047, 1, 111, 1, 20051, 1, 111, 1, 20024, 1, 111, 0 ;
	callsub Ids, 2280, 1, 111, 1, 20065, 1, 111, 30, 20012, 1, 111, 0 ;

/*
	0 = Won't evolved automatically.
	1 = Will be evolved automatically
*/
	set .auto, 1;

	// Delay of evolution (miliseconds).
	set .time, 3000;

	// Announces color.
	setarray .c$[0],"4db557",	// % of evolution.
			"d43438",	// Wings evolving.
			"4da5b5";	// Wings evolved.[/codeBOX]

this one? how come i set already how come i cannot change? i kill more then 100 mob. =.=" i use meteor assault.

Edited December 7, 2011 by calciumkid
Codebox

Omnipotent · December 5, 2011

/*
  ||======================================================||
  ||======================================================||
  ||					   NPC:						   ||
  ||======================================================||
  ||				  Evolution Wings					 ||
  ||======================================================||
  ||					Version 1.3					   ||
  ||======================================================||
  ||				   Made by Streiker				   ||
  ||======================================================||
  ||					  Updates:						||
  ||					(5 latests)					   ||
  || Version 1.1:										 ||
  ||			 Fixed: The npc didn't work.			  ||
  ||			 Added new configs.					   ||
  ||			 Changed the exp rates system.			||
  ||													  ||
  || Version 1.1.1:									   ||
  ||			  Fixed: Mistakes.						||
  ||													  ||
  || Version 1.2:										 ||
  ||			 Added rahuldev345 suggestion (spec. mobs)||
  ||			 Added AnnieRuru suggestion (refine)	  ||
  ||													  ||
  || Version 1.3:										 ||
  ||			Added new mode, new confs, new vars.	  ||
  ||======================================================||
  ||					 Description:					 ||
  ||													  ||
  || Make easily "evolution wings" with this.			 ||
  ||======================================================||
  ||			   Additional Comments:				   ||
  ||													  ||
  || At the moment none.								  ||
  ||======================================================||
  ||======================================================||
*/
-	script	Wings_Conf	-1,{

OnInit:

/* Evolution modes:

1 = Every X numer of mobs (1%).
2 = Experience (1%).
3 = Every X number of mobs (100%).

*/

set .rates, 100;	// % (Only for Mode 2).

/* ID[...], evolution mode[...], mob id[...], neccesary to advance 1%[...].
(Configured for the 1st mode).
If  you want any monster, use 111.
// Use callsub for add more wings. */
callsub Ids, 5132, 1, 111, 1, 5123, 1, 111, 0 ;

/*
0 = Won't evolved automatically.
1 = Will be evolved automatically
*/
set .auto, 1;

// Delay of evolution (miliseconds).
set .time, 3000;

// Announces color.
setarray .c$[0],"4db557",	// % of evolution.
				"d43438",	// Wings evolving.
				"4da5b5";	// Wings evolved.

set .w1, 0;

end ;

Ids:

set .w1, .w1 + 1;
for ( set .@a, 0; getarg ( .@a, 0 ) != 0 ; set .@a, .@a + 4 ) {
	set .w2[.w1 - 1], .w2[.w1 - 1] + 1;
	setd ".a1"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a );	  // id.
	setd ".a2"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 1 );	// mode.
	setd ".a3"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 2 );	// mob id.
	setd ".a4"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 3 );	// amount.
}
return ;

OnNPCKillEvent:

setarray .@slots[0], 1, 9, 10;	// put here your slots.
for ( set .@a, 0; .@a < 3 && ! .@c ; set .@a, .@a + 1 ) {
	if ( set ( .@e, getequipid ( .@slots[.@a] ) ) < 0 )
		continue ;
	set .@id, 0;
	set .@w, 1;
	while ( set ( .@id, .@id + 1 ) <= .w2[.@w - 1] && ! .@c ) {
		if ( .@id > .w2[.@w - 1] ) {
			set .@id, 1;
			set .@w, .@w + 1;
		}
		if ( .@e == getd ( ".a1"+ .@w +"_"+ .@id ) ) {
			set .@c, ( getd ( ".a4"+ .@w +"_"+ .@id ) > 0 ) * ( killedrid == getd ( ".a3"+ .@w +"_"+ .@id ) || getd ( ".a3"+ .@w +"_"+ .@id ) < 1001 );
			if ( .@c )
				break ;
		}
	}
}
if ( ! ( .@c ) ) end ;
set .@e2, getd ( "evo"+ .@e );
if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 1 ) {
	setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, getd("$Mobs_"+ getcharid( 0 ) +"_"+ .@e ) + 1;
	if ( ( getd ( "$Mobs_"+getcharid ( 0 ) ) % getd ( ".a4"+ .@w +"_"+ .@id ) ) ) end ;
	setd "evo"+ .@e, getd ( "evo"+ .@e ) + 1;
	setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, 0;
}
else if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 2 ) {
	setd "$Exp_"+ getcharid ( 0 ) +"_"+ .@e, getd ("$Exp_"+ getcharid ( 0 ) +"_"+ .@e ) + ( strmobinfo ( 6, killedrid ) * .rates / 100 );
	if ( getd ( "$Exp_"+getcharid ( 0 ) +"_"+ .@e ) < getd ( ".a4"+ .@w +"_"+ .@id ) ) end ;
	setd "evo"+ .@e, getd ( "evo"+ .@e ) + 1;
	setd "$Exp_"+ getcharid ( 0 ), 0;
}
else if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 3 ) {
	setd "$Mobs_"+ getcharid ( 0 ), getd ("$Mobs_"+ getcharid( 0 ) +"_"+ .@e ) + 1;
	if ( ( getd ( "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e ) % getd ( ".a4"+ .@w +"_"+ .@id ) ) ) end ;
	setd "evo"+ .@e, getd ( "evo"+ .@e ) + 100;
	setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, 0;
}
else debugmes "Script Wings_Evo, error: wrong mode configuration.";
if ( .@e2 != getd ( "evo"+ .@e ) ) {
	announce getd ( "evo"+ .@e ) +"% "+ getitemname ( .@e ) , bc_self, "0x"+ .c$[0] ;
	specialeffect2 58 ;
	sleep2 200 ;
	specialeffect2 383 ;
}
if ( getd ( "evo"+ .@e ) == 100 && .auto ) {
	specialeffect2 263 ;
	sleep2 500 ;
	specialeffect2 377 ;
	sleep2 300 ;
	specialeffect2 542 ;
	sleep2 300 ;
	announce getitemname ( .@e ) +" evolving..." , bc_self, "0x"+ .c$[1] ;
	if ( .time ) sleep2 .time ;
	specialeffect2 463 ;
	sleep2 200;
	specialeffect2 665 ;
	sleep2 500 ;
	//specialeffect2 437 ;
	setarray .@card[1], getequipcardid ( .slot, 0 ), getequipcardid ( .slot, 1 ), getequipcardid ( .slot, 2 ), getequipcardid ( .slot, 3 );
	set .@refine, getequiprefinerycnt ( .slot );
	delitem .@e, 1 ;
	getitem2 getd ( ".a1"+ .@w +"_"+ ( .@id + 1 ) ) , 1, 1, .@refine, 0, .@card[1], .@card[2], .@card[3], .@card[4] ;
	equip getd ( ".a1"+  .@w +"_"+ ( .@id + 1 ) ) ;
	setd "evo"+ .@e, 0;
	announce "Congratulations, your wings have evolved to "+ getitemname ( getd ( ".a1"+ .@w +"_"+ ( .@id + 1 ) ) ) +"." , bc_self , "0x"+ .c$[2] ;
}
end;
}

Fixed.

I'm lazy now to make a topic.

Edited December 5, 2011 by FrozIgnition

manabeast · December 6, 2011

this one is fix version mean old one little bug? ok. thank you very much =)

manabeast · December 6, 2011


/*
   ||======================================================||
   ||======================================================||
   ||		NPC:		 ||
   ||======================================================||
   ||	  Evolution Wings	  ||
   ||======================================================||
   ||	 Version 1.3		||
   ||======================================================||
   ||	   Made by Streiker	   ||
   ||======================================================||
   ||	   Updates:	  ||
   ||	 (5 latests)		||
   || Version 1.1:		   ||
   ||	Fixed: The npc didn't work.	 ||
   ||	Added new configs.		||
   ||	Changed the exp rates system.   ||
   ||			   ||
   || Version 1.1.1:			||
   ||	 Fixed: Mistakes.	  ||
   ||			   ||
   || Version 1.2:		   ||
   ||	Added rahuldev345 suggestion (spec. mobs)||
   ||	Added AnnieRuru suggestion (refine)   ||
   ||			   ||
   || Version 1.3:		   ||
   ||   Added new mode, new confs, new vars.   ||
   ||======================================================||
   ||	  Description:	  ||
   ||			   ||
   || Make easily "evolution wings" with this.	||
   ||======================================================||
   ||	  Additional Comments:	   ||
   ||			   ||
   || At the moment none.		  ||
   ||======================================================||
   ||======================================================||
*/
- script Wings_Conf -1,{
OnInit:
/* Evolution modes:
1 = Every X numer of mobs (1%).
2 = Experience (1%).
3 = Every X number of mobs (100%).
*/
set .rates, 100; // % (Only for Mode 2).
/* ID[...], evolution mode[...], mob id[...], neccesary to advance 1%[...].
(Configured for the 1st mode).
If  you want any monster, use 111.
// Use callsub for add more wings. */
callsub Ids, 20001, 1, 111, 1, 20045, 1, 111, 1, 20019, 1, 111, 0 ;
callsub Ids, 20002, 1, 111, 1, 20023, 1, 111, 1, 20025, 1, 111, 0 ;
callsub Ids, 20003, 1, 111, 1, 20061, 1, 111, 1, 20020, 1, 111, 0 ;
callsub Ids, 20004, 1, 111, 1, 20042, 1, 111, 1, 20033, 1, 111, 0 ;
callsub Ids, 20005, 1, 111, 1, 20034, 1, 111, 1, 20010, 1, 111, 0 ;
callsub Ids, 20007, 1, 111, 1, 20040, 1, 111, 1, 20054, 1, 111, 0 ;
callsub Ids, 20047, 1, 111, 1, 20051, 1, 111, 1, 20024, 1, 111, 0 ;
callsub Ids, 2280, 1, 111, 1, 20065, 1, 111, 30, 20012, 1, 111, 0 ;
/*
0 = Won't evolved automatically.
1 = Will be evolved automatically
*/
set .auto, 1;
// Delay of evolution (miliseconds).
set .time, 3000;
// Announces color.
setarray .c$[0],"4db557", // % of evolution.
	 "d43438", // Wings evolving.
	 "4da5b5"; // Wings evolved.

set .w1, 0;
end ;
Ids:
set .w1, .w1 + 1;
for ( set .@a, 0; getarg ( .@a, 0 ) != 0 ; set .@a, .@a + 4 ) {
  set .w2[.w1 - 1], .w2[.w1 - 1] + 1;
  setd ".a1"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a );   // id.
  setd ".a2"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 1 ); // mode.
  setd ".a3"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 2 ); // mob id.
  setd ".a4"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 3 ); // amount.
}
return ;
OnNPCKillEvent:
setarray .@slots[0], 1, 9, 10; // put here your slots.
for ( set .@a, 0; .@a < 3 && ! .@c ; set .@a, .@a + 1 ) {
  if ( set ( .@e, getequipid ( .@slots[.@a] ) ) < 0 )
   continue ;
  set .@id, 0;
  set .@w, 1;
  while ( set ( .@id, .@id + 1 ) <= .w2[.@w - 1] && ! .@c ) {
   if ( .@id > .w2[.@w - 1] ) {
	set .@id, 1;
	set .@w, .@w + 1;
   }
   if ( .@e == getd ( ".a1"+ .@w +"_"+ .@id ) ) {
	set .@c, ( getd ( ".a4"+ .@w +"_"+ .@id ) > 0 ) * ( killedrid == getd ( ".a3"+ .@w +"_"+ .@id ) || getd ( ".a3"+ .@w +"_"+ .@id ) < 1001 );
	if ( .@c )
	 break ;
   }
  }
}
if ( ! ( .@c ) ) end ;
set .@e2, getd ( "evo"+ .@e );
if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 1 ) {
  setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, getd("$Mobs_"+ getcharid( 0 ) +"_"+ .@e ) + 1;
  if ( ( getd ( "$Mobs_"+getcharid ( 0 ) ) % getd ( ".a4"+ .@w +"_"+ .@id ) ) ) end ;
  setd "evo"+ .@e, getd ( "evo"+ .@e ) + 1;
  setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, 0;
}
else if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 2 ) {
  setd "$Exp_"+ getcharid ( 0 ) +"_"+ .@e, getd ("$Exp_"+ getcharid ( 0 ) +"_"+ .@e ) + ( strmobinfo ( 6, killedrid ) * .rates / 100 );
  if ( getd ( "$Exp_"+getcharid ( 0 ) +"_"+ .@e ) < getd ( ".a4"+ .@w +"_"+ .@id ) ) end ;
  setd "evo"+ .@e, getd ( "evo"+ .@e ) + 1;
  setd "$Exp_"+ getcharid ( 0 ), 0;
}
else if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 3 ) {
  setd "$Mobs_"+ getcharid ( 0 ), getd ("$Mobs_"+ getcharid( 0 ) +"_"+ .@e ) + 1;
  if ( ( getd ( "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e ) % getd ( ".a4"+ .@w +"_"+ .@id ) ) ) end ;
  setd "evo"+ .@e, getd ( "evo"+ .@e ) + 100;
  setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, 0;
}
else debugmes "Script Wings_Evo, error: wrong mode configuration.";
if ( .@e2 != getd ( "evo"+ .@e ) ) {
  announce getd ( "evo"+ .@e ) +"% "+ getitemname ( .@e ) , bc_self, "0x"+ .c$[0] ;
  specialeffect2 58 ;
  sleep2 200 ;
  specialeffect2 383 ;
}
if ( getd ( "evo"+ .@e ) == 100 && .auto ) {
  specialeffect2 263 ;
  sleep2 500 ;
  specialeffect2 377 ;
  sleep2 300 ;
  specialeffect2 542 ;
  sleep2 300 ;
  announce getitemname ( .@e ) +" evolving..." , bc_self, "0x"+ .c$[1] ;
  if ( .time ) sleep2 .time ;
  specialeffect2 463 ;
  sleep2 200;
  specialeffect2 665 ;
  sleep2 500 ;
  //specialeffect2 437 ;
  setarray .@card[1], getequipcardid ( .slot, 0 ), getequipcardid ( .slot, 1 ), getequipcardid ( .slot, 2 ), getequipcardid ( .slot, 3 );
  set .@refine, getequiprefinerycnt ( .slot );
  delitem .@e, 1 ;
  getitem2 getd ( ".a1"+ .@w +"_"+ ( .@id + 1 ) ) , 1, 1, .@refine, 0, .@card[1], .@card[2], .@card[3], .@card[4] ;
  equip getd ( ".a1"+  .@w +"_"+ ( .@id + 1 ) ) ;
  setd "evo"+ .@e, 0;
  announce "Congratulations, your wings have evolved to "+ getitemname ( getd ( ".a1"+ .@w +"_"+ ( .@id + 1 ) ) ) +"." , bc_self , "0x"+ .c$[2] ;
}
end;
}
[/codeBOX]

test it. i atk more then 1000% still can't evole. or after 100 need wait? after 1000+ i stop awhile then gravity error.

by the way. you click what to make the long code become shortl?

Edited December 7, 2011 by calciumkid
Codebox

Omnipotent · December 6, 2011

Try to change:

if ( getd ( "evo"+ .@e ) == 100 && .auto ) {

To:

if ( getd ( "evo"+ .@e ) >= 100 && .auto ) {

Abut the other, you have to use

manabeast · December 7, 2011

ok,i try it tonight.

one more thing i forgot ask. about callsub

// Use callsub for add more wings. */
callsub Ids, 20001, 1, 111, 1, 20045, 1, 111, 1, 20019, 1, 111, 0 ;
callsub Ids, 20002, 1, 111, 1, 20023, 1, 111, 1, 20025, 1, 111, 0 ;
callsub Ids, 20003, 1, 111, 1, 20061, 1, 111, 1, 20020, 1, 111, 0 ;
callsub Ids, 20004, 1, 111, 1, 20042, 1, 111, 1, 20033, 1, 111, 0 ;
callsub Ids, 20005, 1, 111, 1, 20034, 1, 111, 1, 20010, 1, 111, 0 ;
callsub Ids, 20007, 1, 111, 1, 20040, 1, 111, 1, 20054, 1, 111, 0 ;
callsub Ids, 20047, 1, 111, 1, 20051, 1, 111, 1, 20024, 1, 111, 0 ;
callsub Ids, 2280, 1, 111, 1, 20065, 1, 111, 30, 20012, 1, 111, 0 ;

why just the first one can absorb exp %? start from second not working. or this script can just for 1 wings?

Edited December 7, 2011 by manabeast

Mirage · December 7, 2011

In the post on eAthena, someone asked if this can be done via pvp kills. Is it possible?

Emistry · December 10, 2011

In the post on eAthena, someone asked if this can be done via pvp kills. Is it possible?

try change

OnNPCKillEvent:

to

OnPCKillEvent:

manabeast · December 10, 2011

*/
-	script	Wings_Conf	-1,{
OnInit:

/* Evolution modes:

1 = Every X numer of mobs (1%).
2 = Experience (1%).
3 = Every X number of mobs (100%).

*/

set .modo, 1;	   <----about set modo can direct change 1 or 2 in here right?

set .rates, 100;	// % (Only for Mode 2).

/* ID[...], evolution mode[...], mob id[...], neccesary to advance 1%[...].
(Configured for the 1st mode).
If  you want any monster, use 111.
// Use callsub for add more wings. */
callsub Ids, 20001, 1, 111, 1, 20045, 1, 111, 1, 20019, 1, 111, 0 ;
callsub Ids, 20002, 1, 111, 1, 20023, 1, 111, 1, 20025, 1, 111, 0 ;
callsub Ids, 20003, 1, 111, 1, 20061, 1, 111, 1, 20020, 1, 111, 0 ;
callsub Ids, 20004, 1, 111, 1, 20042, 1, 111, 1, 20033, 1, 111, 0 ;
callsub Ids, 20005, 1, 111, 1, 20034, 1, 111, 1, 20010, 1, 111, 0 ;
callsub Ids, 20007, 1, 111, 1, 20040, 1, 111, 1, 20054, 1, 111, 0 ;
callsub Ids, 20047, 1, 111, 1, 20051, 1, 111, 1, 20024, 1, 111, 0 ;
callsub Ids, 2280, 1, 111, 1, 20065, 1, 111, 30, 20012, 1, 111, 0 ;

/*
0 = Won't evolved automatically.
1 = Will be evolved automatically
*/
set .auto, 1;

// Delay of evolution (miliseconds).
set .time, 3000;

// Announces color.
setarray .c$[0],"4db557",	// % of evolution.
				"d43438",	// Wings evolving.
				"4da5b5";	// Wings evolved.

set .w1, 0;

end ;

Ids:

set .w1, .w1 + 1;
for ( set .@a, 0; getarg ( .@a, 0 ) != 0 ; set .@a, .@a + 4 ) {
	set .w2[.w1 - 1], .w2[.w1 - 1] + 1;
	setd ".a1"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a );	  // id.
	setd ".a2"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 1 );	// mode.
	setd ".a3"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 2 );	// mob id.
	setd ".a4"+ .w1 +"_"+ .w2[.w1 - 1], getarg ( .@a + 3 );	// amount.
}
return ;

OnNPCKillEvent:

setarray .@slots[0], 1, 9, 10;	// put here your slots.
for ( set .@a, 0; .@a < 3 && ! .@c ; set .@a, .@a + 1 ) {
	if ( set ( .@e, getequipid ( .@slots[.@a] ) ) < 0 )
		continue ;
	set .@id, 0;
	set .@w, 1;
	while ( set ( .@id, .@id + 1 ) <= .w2[.@w - 1] && ! .@c ) {
		if ( .@id > .w2[.@w - 1] ) {
			set .@id, 1;
			set .@w, .@w + 1;
		}
		if ( .@e == getd ( ".a1"+ .@w +"_"+ .@id ) ) {
			set .@c, ( getd ( ".a4"+ .@w +"_"+ .@id ) > 0 ) * ( killedrid == getd ( ".a3"+ .@w +"_"+ .@id ) || getd ( ".a3"+ .@w +"_"+ .@id ) < 1001 );
			if ( .@c )
				break ;
		}
	}
}
if ( ! ( .@c ) ) end ;
set .@e2, getd ( "evo"+ .@e );
if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 1 ) {
	setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, getd("$Mobs_"+ getcharid( 0 ) +"_"+ .@e ) + 1;
	if ( ( getd ( "$Mobs_"+getcharid ( 0 ) ) % getd ( ".a4"+ .@w +"_"+ .@id ) ) ) end ;
	setd "evo"+ .@e, getd ( "evo"+ .@e ) + 1;
	setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, 0;
}
else if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 2 ) {
	setd "$Exp_"+ getcharid ( 0 ) +"_"+ .@e, getd ("$Exp_"+ getcharid ( 0 ) +"_"+ .@e ) + ( strmobinfo ( 6, killedrid ) * .rates / 100 );
	if ( getd ( "$Exp_"+getcharid ( 0 ) +"_"+ .@e ) < getd ( ".a4"+ .@w +"_"+ .@id ) ) end ;
	setd "evo"+ .@e, getd ( "evo"+ .@e ) + 1;
	setd "$Exp_"+ getcharid ( 0 ), 0;
}
else if ( getd ( ".a2"+ .@w +"_"+ .@id ) == 3 ) {
	setd "$Mobs_"+ getcharid ( 0 ), getd ("$Mobs_"+ getcharid( 0 ) +"_"+ .@e ) + 1;
	if ( ( getd ( "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e ) % getd ( ".a4"+ .@w +"_"+ .@id ) ) ) end ;
	setd "evo"+ .@e, getd ( "evo"+ .@e ) + 100;
	setd "$Mobs_"+ getcharid ( 0 ) +"_"+ .@e, 0;
}
else debugmes "Script Wings_Evo, error: wrong mode configuration.";
if ( .@e2 != getd ( "evo"+ .@e ) ) {
	announce getd ( "evo"+ .@e ) +"% "+ getitemname ( .@e ) , bc_self, "0x"+ .c$[0] ;
	specialeffect2 58 ;
	sleep2 200 ;
	specialeffect2 383 ;
}
if ( getd ( "evo"+ .@e ) >= 100 && .auto ) {

	specialeffect2 263 ;
	sleep2 500 ;
	specialeffect2 377 ;
	sleep2 300 ;
	specialeffect2 542 ;
	sleep2 300 ;
	announce getitemname ( .@e ) +" evolving..." , bc_self, "0x"+ .c$[1] ;
	if ( .time ) sleep2 .time ;
	specialeffect2 463 ;
	sleep2 200;
	specialeffect2 665 ;
	sleep2 500 ;
	//specialeffect2 437 ;
	setarray .@card[1], getequipcardid ( .slot, 0 ), getequipcardid ( .slot, 1 ), getequipcardid ( .slot, 2 ), getequipcardid ( .slot, 3 );
	set .@refine, getequiprefinerycnt ( .slot );
	delitem .@e, 1 ;
	getitem2 getd ( ".a1"+ .@w +"_"+ ( .@id + 1 ) ) , 1, 1, .@refine, 0, .@card[1], .@card[2], .@card[3], .@card[4] ;
	equip getd ( ".a1"+  .@w +"_"+ ( .@id + 1 ) ) ;
	setd "evo"+ .@e, 0;
	announce "Congratulations, your wings have evolved to "+ getitemname ( getd ( ".a1"+ .@w +"_"+ ( .@id + 1 ) ) ) +"." , bc_self , "0x"+ .c$[2] ;
}
end;
}

Bump !! start from second Custom wings cannot gain exp when killing mob. do i set wrong?

Edited December 10, 2011 by manabeast

Omnipotent · December 10, 2011


setarray .@slots[0], 1, 9, 10; // put here your slots.
for ( set .@a, 0; .@a < 3 && ! .@c ; set .@a, .@a + 1 ) {
if ( set ( .@e, getequipid ( .@slots[.@a] ) ) < 0 )
continue ;
set .@id, 0;
set .@w, 1;
while ( set ( .@id, .@id + 1 ) <= .w2[.@w - 1] && ! .@c ) {
if ( .@id > .w2[.@w - 1] ) {
set .@id, 1;
set .@w, .@w + 1;
}
if ( .@e == getd ( ".a1"+ .@w +"_"+ .@id ) ) {
set .@c, ( getd ( ".a4"+ .@w +"_"+ .@id ) > 0 ) * ( killedrid == getd ( ".a3"+ .@w +"_"+ .@id ) || getd ( ".a3"+ .@w +"_"+ .@id ) < 1001 );
if ( .@c )
break ;
}
}
}

->


setarray .@slots[0], 1, 9, 10; // put here your slots.
for ( set .@a, 0; .@a < 3 && ! .@c ; set .@a, .@a + 1 ) {
if ( set ( .@e, getequipid ( .@slots[.@a] ) ) < 0 )
continue ;
set .@id, 0;
set .@w, 1;
while ( set ( .@id, .@id + 1 ) <= .w2[.@w - 1] && ! .@c ) {
if ( .@e == getd ( ".a1"+ .@w +"_"+ .@id ) ) {
set .@c, ( getd ( ".a4"+ .@w +"_"+ .@id ) > 0 ) * ( killedrid == getd ( ".a3"+ .@w +"_"+ .@id ) || getd ( ".a3"+ .@w +"_"+ .@id ) < 1001 );
if ( .@c )
break ;
}
if ( .@id >= .w2[.@w - 1] ) {
set .@id, 0;
set .@w, .@w + 1;
}
}
}

I answered it other day, but the forum became off.

Edited December 10, 2011 by FrozIgnition

manabeast · December 11, 2011

like this?

and about this? my slot first wing and second no slot, 3rd only have slot so is 0,0,1? like this?

setarray .@slots[0], 1, 9, 10; // put here your slots.

evolution working but the second wing and third still not working. or this is just for one wing? i cannot add more wing? about call sub must merge or splite?

splite version.( me using this)

callsub ids,20001,1,111,1,20045,1,111,1,20019,1,111,0 ;

callsub ids,20001,1,111,1,20023,1,111,1,20025,1,111,0 ;

Merge version?

callsub ids,20001,1,111,1,20045,1,111,1,20019,1,111,0 ; callsub ids,20001,1,111,1,20045,1,111,1,20019,1,111,0 ;

Edited December 11, 2011 by manabeast

manabeast · December 12, 2011

attach one more support image

Magic-Maker · December 12, 2011

From the picture you have to change

getitename to getitemname

in line 10;

manabeast · December 13, 2011

@maker@ i cannot found getitename in there x.x"

@Frozlgnition@ ur latest one bug. when i use your latest one kill mob no absort exp. but if i use back the one you tell me edit to below link work but only for first wing only. can you remake new one put in txt send to me? why only first wings work? this script just for 1 wings only? all the tab space gone you put here.

if ( getd ( "evo"+ .@e ) >= 100 && .auto ) {

Edited December 13, 2011 by manabeast

manabeast · December 13, 2011

here are screen shot after use new code you post. the second one is for coin exchange npc problem i post in other post.

http://rathena.org/board/topic/53944-coin-exchange-coin-npc/

Emistry · December 13, 2011

just like what they told you ==''

the getitemname command wrong spelled ==''

it should be getitemname NOT getitename

for the above error...i guess there might be somekind of script has end while you have still added another "Unfinished" script into the text files...

manabeast · December 14, 2011

i use back old one that work for me. but only work for first callsub start from second no working.. the new code frozlgnition post make that make me atk monster no exp. @@" i try it tonight will post the ss here.

manabeast · December 14, 2011

i try it work but. still no solve the problem that's just for first wing invole only. start from second custom wing cannot gain exp.

Wing_Evolution.txt

Omnipotent · December 14, 2011

http://pastebin.com/raw.php?i=EG1KPcq2

manabeast · December 15, 2011

thank you very much. you help me alot. i try it when there is free pc for me to use. currenly friend outstation can't borrow pc use.about setarray .@slots[0], 1, 9, 10; // put here your slots.my custom wing are 0 slot so all put 0 like this?about setarray .@slots[0], 0, 0, 0; // put here your slots.?

Edited December 15, 2011 by manabeast

Sign In

wing evolution

Question

manabeast

19 answers to this question

Recommended Posts

Omnipotent

manabeast

manabeast

Omnipotent

manabeast

Mirage

Emistry

manabeast

Omnipotent

manabeast

manabeast

Magic-Maker

manabeast

manabeast

Emistry

manabeast

manabeast

Omnipotent

manabeast

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account