Jump to content
  • 0

wing evolution


manabeast

Question


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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 by calciumkid
Codebox
Link to comment
Share on other sites

19 answers to this question

Recommended Posts


  • Group:  Members
  • Topic Count:  1
  • Topics Per Day:  0.00
  • Content Count:  71
  • Reputation:   25
  • Joined:  11/23/11
  • Last Seen:  

/*
  ||======================================================||
  ||======================================================||
  ||					   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 by FrozIgnition
  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  


/*
||======================================================||
||======================================================||
|| 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 by calciumkid
Codebox
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  1
  • Topics Per Day:  0.00
  • Content Count:  71
  • Reputation:   25
  • Joined:  11/23/11
  • Last Seen:  

Try to change:

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

To:

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

Abut the other, you have to use

.
  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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 by manabeast
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  217
  • Reputation:   18
  • Joined:  11/20/11
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  

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

try change

OnNPCKillEvent:

to

OnPCKillEvent:

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

*/
-	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 by manabeast
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  1
  • Topics Per Day:  0.00
  • Content Count:  71
  • Reputation:   25
  • Joined:  11/23/11
  • Last Seen:  


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 by FrozIgnition
  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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 by manabeast
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

attach one more support image

post-472-0-35164100-1323660222_thumb.png

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  0
  • Topics Per Day:  0
  • Content Count:  23
  • Reputation:   3
  • Joined:  12/10/11
  • Last Seen:  

From the picture you have to change

getitename to getitemname

in line 10;

  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

@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 by manabeast
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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/

post-472-0-88735200-1323790366_thumb.png

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  93
  • Topics Per Day:  0.02
  • Content Count:  10015
  • Reputation:   2348
  • Joined:  10/28/11
  • Last Seen:  

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...

  • Upvote 1
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  138
  • Topics Per Day:  0.03
  • Content Count:  835
  • Reputation:   25
  • Joined:  11/22/11
  • Last Seen:  

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 by manabeast
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...