Jump to content

Oxxy

Members
  • Content Count

    142
  • Joined

  • Last visited

  • Days Won

    5

Posts posted by Oxxy


  1.  

     

     

     

     

    Is possible only name color?

    Name coloring requires doing some reverse engineering with exe. Its not about the sources only. So, its not possible with this modification.
     

    correrct only possibel with Client Reverse Enging

     

    xiwd46A.png

    Share it

     

    Can you tell us how to do that?

    As I said, its paid modification that requires reverse engineering skills. I could give you a contact of a man, that sells it for 35$

     

    tbh, lets keep the topic clean, guyz.


  2. map/npc.c

     

     

    // MvP tomb [GreenBox]void run_tomb(struct map_session_data* sd, struct npc_data* nd) {    char buffer[200];    char time[10];    strftime(time, sizeof(time), "%H:%M", localtime(&nd->u.tomb.kill_time));    // TODO: Find exact color?    snprintf(buffer, sizeof(buffer), msg_sd(sd,857), nd->u.tomb.md->db->name); // "[ ^EE0000%s^000000 ]"    clif->scriptmes(sd, nd->bl.id, buffer);    clif->scriptmes(sd, nd->bl.id, msg_sd(sd,858)); // "Has met its demise"    snprintf(buffer, sizeof(buffer), msg_sd(sd,859), time); // "Time of death : ^EE0000%s^000000"    clif->scriptmes(sd, nd->bl.id, buffer);    clif->scriptmes(sd, nd->bl.id, msg_sd(sd,860)); // "Defeated by"    snprintf(buffer, sizeof(buffer), msg_sd(sd,861), nd->u.tomb.killer_name[0] ? nd->u.tomb.killer_name : msg_sd(sd,15)); // "[^EE0000%s^000000]" / "Unknown"    clif->scriptmes(sd, nd->bl.id, buffer);    clif->scriptclose(sd, nd->bl.id);}

  3. unsigned int ratio = skillratio + 100*(8 + st->sp/10);

     

    can i change this on into

     

    unsigned int ratio = skillratio + 70*(8 + st->sp/10); ?

    You can. Don't forget to recompile the server after.


  4. the damage... i wanna reduce the damage of asura.. sorry didnt mention it earlier

     

    btw running in pre-renewal

    I've answered you above, you gotta rewise the formula in battle.c, aswell I gave you link on another thread.


  5. Try this, change your settings in import/drops.conf to

    // The rate the common items are dropped (Items that are in the ETC tab, besides card)item_rate_common: 10000item_rate_common_boss: 10000item_drop_common_min: 1item_drop_common_max: 10000// The rate healing items are dropped (items that restore HP or SP)item_rate_heal: 10000item_rate_heal_boss: 10000item_drop_heal_min: 1item_drop_heal_max: 10000// The rate at which usable items (in the item tab) other then healing items are dropped.item_rate_use: 10000item_rate_use_boss: 10000item_drop_use_min: 1item_drop_use_max: 10000// The rate at which equipment is dropped.item_rate_equip: 10000item_rate_equip_boss: 10000item_drop_equip_min: 1item_drop_equip_max: 10000// The rate at which cards are droppeditem_rate_card: 10000item_rate_card_boss: 10000item_drop_card_min: 1item_drop_card_max: 10000// The rate adjustment for the MVP items that the MVP gets directly in their inventory// Mode: 0 - official order, 1 - random order, 2 - all itemsitem_rate_mvp: 10000item_drop_mvp_min: 1item_drop_mvp_max: 10000//item_drop_mvp_mode: 0// The rate adjustment for card-granted item drops.item_rate_adddrop: 10000item_drop_add_min: 1item_drop_add_max: 10000// Rate adjustment for Treasure Box drops (these override all other modifiers)item_rate_treasure: 100item_drop_treasure_min: 1item_drop_treasure_max: 10000

  6.  

     

    Try this:

     

    //===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================invek,113,215,5	script	Poring Summoner	99,{mes "[Poring Summoner]";if(getgroupid() < 10) {	if(.Event) mes "There is no Poring Summon Event on now.";	else {		mes "There is a Poring Summon Event on now!";		mes "Location: " + .Map$;		mes "Special Porings: " + .SpecialPorings[1];		mes "Normal Porings: " + .NormalPorings[0];	}	close;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]";	switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {		case 1:			mes "Which item would you like Special Porings to drop?";			mes "Please input the item ID:";			input .ItemID;			goto Main;		case 2:			mes "How many Special Porings would you like me to summon?";			input .SpecialPorings;			goto Main;		case 3:			mes "How many Normal Porings would you like me to summon?";			input .NormalPorings;			goto Main;		case 4:			mes "Starting the event now...";OnHour02: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!OnHour05:OnHour09:OnHour14:OnHour17:OnHour20:OnHour23:	set $@ran, rand(1,7);	if ($@ran == 7) set .Map$,"aldebaran";	if ($@ran == 6) set .Map$,"alberta";	if ($@ran == 5) set .Map$,"izlude";	if ($@ran == 4) set .Map$,"payon";	if ($@ran == 3) set .Map$,"geffen";	if ($@ran == 2) set .Map$,"morocc";	if ($@ran == 1) set .Map$,"prontera";			set .Event,1;			monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";			monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill";			set .SpecialPorings[1],.SpecialPorings;			set .NormalPorings[1],.NormalPorings;			announce "The Poring Event has begun!",bc_all;			announce "Location: " + .Map$,bc_all;			announce "Special Porings: " + .SpecialPorings,bc_all;			announce "Normal Porings: " + .NormalPorings,bc_all;			close;		case 5:			mes "Ending the event now...";			goto EndEvent;	}OnTimer216000000:	announce "Poring Summoner has ended. No one killed the Porings.",bc_all;	killmonster .Map$,"All";	set .Event,0;	stopnpctimer;	end;OnSpecialKill:	set .SpecialPorings[1],.SpecialPorings[1]-1;	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;	getitem .ItemID,1;	goto PoringCount;OnNormalKill:	set .NormalPorings[1],.NormalPorings[1]-1;	goto PoringCount;PoringCount:	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;	if(!.SpecialPorings[1]) goto EndEvent;	end;EndEvent:	if(.Event) announce "The Poring Summon Event is now over!",bc_all;	killmonster .Map$,"All";	set .Event,0;    .SpecialPorings[1] = 0;    .NormalPorings[1] = 0;    close;}OnInit:.ItemID = 7227;.SpecialPorings = 10;.NormalPorings = 150;end;

    not work. still need set in game.. @@Oxxy

    Did you check console?

     

    //===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================invek,113,215,5	script	Poring Summoner	99,{mes "[Poring Summoner]";if(getgroupid() < 10) {	if(.Event) mes "There is no Poring Summon Event on now.";	else {		mes "There is a Poring Summon Event on now!";		mes "Location: " + .Map$;		mes "Special Porings: " + .SpecialPorings[1];		mes "Normal Porings: " + .NormalPorings[0];	}	close;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]";	switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {		case 1:			mes "Which item would you like Special Porings to drop?";			mes "Please input the item ID:";			input .ItemID;			goto Main;		case 2:			mes "How many Special Porings would you like me to summon?";			input .SpecialPorings;			goto Main;		case 3:			mes "How many Normal Porings would you like me to summon?";			input .NormalPorings;			goto Main;		case 4:			mes "Starting the event now...";OnHour02: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!OnHour05:OnHour09:OnHour14:OnHour17:OnHour20:OnHour23:	set $@ran, rand(1,7);	if ($@ran == 7) set .Map$,"aldebaran";	if ($@ran == 6) set .Map$,"alberta";	if ($@ran == 5) set .Map$,"izlude";	if ($@ran == 4) set .Map$,"payon";	if ($@ran == 3) set .Map$,"geffen";	if ($@ran == 2) set .Map$,"morocc";	if ($@ran == 1) set .Map$,"prontera";			set .Event,1;			monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";			monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill";			set .SpecialPorings[1],.SpecialPorings;			set .NormalPorings[1],.NormalPorings;			announce "The Poring Event has begun!",bc_all;			announce "Location: " + .Map$,bc_all;			announce "Special Porings: " + .SpecialPorings,bc_all;			announce "Normal Porings: " + .NormalPorings,bc_all;			close;		case 5:			mes "Ending the event now...";			goto EndEvent;	}OnTimer216000000:	announce "Poring Summoner has ended. No one killed the Porings.",bc_all;	killmonster .Map$,"All";	set .Event,0;	stopnpctimer;	end;OnSpecialKill:	set .SpecialPorings[1],.SpecialPorings[1]-1;	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;	getitem .ItemID,1;	goto PoringCount;OnNormalKill:	set .NormalPorings[1],.NormalPorings[1]-1;	goto PoringCount;PoringCount:	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;	if(!.SpecialPorings[1]) goto EndEvent;	end;EndEvent:	if(.Event) announce "The Poring Summon Event is now over!",bc_all;	killmonster .Map$,"All";	set .Event,0;.SpecialPorings[1] = 0;.NormalPorings[1] = 0;    close; OnInit:.ItemID = 7227;.SpecialPorings = 10;.NormalPorings = 150;end;}

     

    Try this, should be working okay.


  7. Try this:

     

    //===== Hercules Script =======================================//= Poring Summoner//===== Created By: ===========================================//= Mysterious//===== Current Version: ======================================//= 1.2//===== Link: =================================================//= Old - http://www.eathena.ws/board/index.php?showtopic=236779//===== Description: ==========================================//= Basically what this event does is summon a set of Normal//= and Special Porings. Normal Porings don't drop anything,//= Special Porings do.//=============================================================invek,113,215,5	script	Poring Summoner	99,{mes "[Poring Summoner]";if(getgroupid() < 10) {	if(.Event) mes "There is no Poring Summon Event on now.";	else {		mes "There is a Poring Summon Event on now!";		mes "Location: " + .Map$;		mes "Special Porings: " + .SpecialPorings[1];		mes "Normal Porings: " + .NormalPorings[0];	}	close;}mes "Please customize the Poring Summon Event:";Main:next;mes "[Poring Summoner]";	switch(select("Item [" + getitemname(.ItemID) + "]:Special Porings [" + .SpecialPorings + "]:Normal Porings [" + .NormalPorings + "]:Start Event:End Event")) {		case 1:			mes "Which item would you like Special Porings to drop?";			mes "Please input the item ID:";			input .ItemID;			goto Main;		case 2:			mes "How many Special Porings would you like me to summon?";			input .SpecialPorings;			goto Main;		case 3:			mes "How many Normal Porings would you like me to summon?";			input .NormalPorings;			goto Main;		case 4:			mes "Starting the event now...";OnHour02: //CHANGE THIS TO THE HOUR YOU WOULD LIKE THIS EVENT TO LOAD!OnHour05:OnHour09:OnHour14:OnHour17:OnHour20:OnHour23:	set $@ran, rand(1,7);	if ($@ran == 7) set .Map$,"aldebaran";	if ($@ran == 6) set .Map$,"alberta";	if ($@ran == 5) set .Map$,"izlude";	if ($@ran == 4) set .Map$,"payon";	if ($@ran == 3) set .Map$,"geffen";	if ($@ran == 2) set .Map$,"morocc";	if ($@ran == 1) set .Map$,"prontera";			set .Event,1;			monster .Map$,0,0,"Poring",1002,.SpecialPorings,"Poring Summoner::OnSpecialKill";			monster .Map$,0,0,"Poring",1002,.NormalPorings,"Poring Summoner::OnNormalKill";			set .SpecialPorings[1],.SpecialPorings;			set .NormalPorings[1],.NormalPorings;			announce "The Poring Event has begun!",bc_all;			announce "Location: " + .Map$,bc_all;			announce "Special Porings: " + .SpecialPorings,bc_all;			announce "Normal Porings: " + .NormalPorings,bc_all;			close;		case 5:			mes "Ending the event now...";			goto EndEvent;	}OnTimer216000000:	announce "Poring Summoner has ended. No one killed the Porings.",bc_all;	killmonster .Map$,"All";	set .Event,0;	stopnpctimer;	end;OnSpecialKill:	set .SpecialPorings[1],.SpecialPorings[1]-1;	announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;	getitem .ItemID,1;	goto PoringCount;OnNormalKill:	set .NormalPorings[1],.NormalPorings[1]-1;	goto PoringCount;PoringCount:	announce "Special Porings: " + .SpecialPorings[1] + " || Normal Porings: " + .NormalPorings[1],bc_map;	if(!.SpecialPorings[1]) goto EndEvent;	end;EndEvent:	if(.Event) announce "The Poring Summon Event is now over!",bc_all;	killmonster .Map$,"All";	set .Event,0;    .SpecialPorings[1] = 0;    .NormalPorings[1] = 0;    close;}OnInit:.ItemID = 7227;.SpecialPorings = 10;.NormalPorings = 150;end;
×
×
  • Create New...

Important Information

By using this site, you agree to our Terms of Use.