Jump to content
  • 0

Hammer Time for Middle Headgear 2: The Enchantment


johnbond

Question


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Some of my players were requesting this new NPC. They linked me to the site of an official ragnarok server here: http://ragnarok.levelupgames.ph/main/enchantment-npc-guide-midheadgears/ . Its another NPC made specifically for mid gears enchantments which requires a "midgard coin" (#6242). This was out on the official server since last Sept 2012 so I was wondering if we already have the NPC for this by now?

 

Does anyone have the script/s for this? Or may I request to make one for me? I can pay for the service.

 

Let me know guys.

 

Thank you in advance! /no1

Link to comment
Share on other sites

Recommended Posts


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

If getequipid was returning 0 then yeah it would.

 

prontera,201,188,4	script	Neo Enchanter	851,{
	mes .npc$;
	mes "Hello there!";
	mes "I can make Neo items even better!";
	mes "If you have a ^0000FF"+getitemname(atoi(.e_itl$[1]))+"^000000,";
	mes "a ^0000FF"+getitemname(atoi(.e_itl$[0]))+"^000000,";
	mes "or a ^0000FF"+getitemname(atoi(.e_itl$[2]))+"^000000.";
	mes "I'll enchant it for 1,000,000z"; next;
	if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(Zeny<.pric) { mes .npc$; mes "I'm sorry you don't have enough Zeny, please come back later."; close; }
	if(.note){
		mes "^a92435----------NOTICE----------";
		mes "The enchanted Neo armor will only";
		mes "be available during the event";
		mes "period. (October 17 - November 21)"; next;
	}
	
	mes .npc$;
	mes "Which Neo item would you like to enchant?"; next;
	while(set(.@a,.@a+1)<=.e_len) {
		if(compare("|"+.e_itl$[.@a-1]+"|","|"+getequipid(.e_loc[.@a-1])+"|"))
			set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.e_loc[.@a-1]))+"^000000]:";
		else set .@menu$, .@menu$+"^adb4be"+.eqp$[.@a-1]+"- [Empty]^000000:";
	}
	
	select(.@menu$);
	set .@eq_loc, .e_loc[(@menu-1)];
	set .@eq_id, getequipid(.@eq_loc);
	set .@eq_rf, getequiprefinerycnt(.@eq_loc);
	if(compare("|"+.e_itm$+"|","|"+.@eq_id+"|")) {
		set .@crd0, getequipcardid(.@eq_loc,0);
		while(getd(".menu"+.@b+"$")!="") {
			mes .npc$;
			mes "Choose ^0000FF"+(.@b+1)+.itm_c$[.@b]+"^000000 enchantment for your item."; next;
			select(getd(".menu"+.@b+"$"));
			setd(".@crd"+(.@b+1),getequipcardid(.@eq_loc,(.@b+1)));
			setd(".@n_crd"+(.@b+1),((.@b>1)?.itm2[@menu-1]:.itm1[0]+((@menu-1)*10)));
			set(.@b,.@b+1);
		}
	} else {
		mes .npc$;
		mes "Sorry I don't recoginze that equipment.";
		close;
	}
	
	set Zeny, Zeny-.pric;
	delitem2 .@eq_id, 1, 1, .@eq_rf, 0, .@crd0, .@crd1, .@crd2, .@crd3;
	getitem2 .@eq_id, 1, 1, .@eq_rf, 0, .@crd0, .@n_crd1, .@n_crd2, .@n_crd3;
	misceffect .efet;
	mes .npc$;
	mes "All done!";
	equip .@eq_id;
	close;

//NPC Constants
	OnInit:
		//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
		set      .npc$  ,    "[Neo Enchanter]";                              // NPC Name
		set      .note  ,    1;                                              // Shows notice 1=on/0=off
		set      .pric  ,    1000000;                                        // Price
		set      .efet  ,    154;                                            // Effect Number
		setarray .itm1  ,    4704, 4764;                                     // Item Menu1 Range
		setarray .itm2  ,    4802, 4788, 4765, 4763, 4799;                   // Item Menu2
		setarray .itm_c$,    "st", "nd", "rd";                               // Numbers
		setarray .eqp$  ,    "Shield", "Garment", "Accessory1", "Accessory2";// Menu3
		setarray .e_itl$,    "2137", "2548", "2763", "2763";                 // Equip Items
		setarray .e_loc ,    3, 5, 7, 8;                                     // Equip Locations
		set      .e_itm$,    implode(.e_itl$,"|");
		set      .e_len ,    getarraysize(.eqp$);
		set      .i_len ,    getarraysize(.itm2);
		//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
		for(set(.@a,.itm1[0]);.@a<=.itm1[1];set(.@a,.@a+10))
			set .menu0$, .menu0$+ getitemname(.@a)+":";
		set .menu1$, .menu0$;
		for(set(.@a,0);.@a<.i_len;set(.@a,.@a+1))
			set .menu2$, .menu2$+ getitemname(.itm2[.@a])+":";
}
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Posted · Hidden by Capuche, September 20, 2013 - Hide the bump to make the topic more readable
Hidden by Capuche, September 20, 2013 - Hide the bump to make the topic more readable

Anyone?

 

I can pay for the service.

 

Thanks!

Link to comment

  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Posted · Hidden by Capuche, September 20, 2013 - Hide the bump to make the topic more readable
Hidden by Capuche, September 20, 2013 - Hide the bump to make the topic more readable

Hello anyone? Thanks in advance!

Link to comment

  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Posted · Hidden by Capuche, September 20, 2013 - Hide the bump to make the topic more readable
Hidden by Capuche, September 20, 2013 - Hide the bump to make the topic more readable

Anyone has this?

 

Thanks.

Link to comment

  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

Actually I have an npc kinda like this already... Give me a sec I string together an array of the stat increasing cards.

You're going to have to give me rates and stuff if you want it more specific. I'm also not sure if there are specific midgear requirements or if they all work... Thanks.

 

 

new_1-2,95,71,4	script	Bling	100,{
//Checks & Dialogue
	mes .npc$;
	mes "I can endow your glasses with mystical powers, but It'll cost yah "+.price+" "+((.price-1)?getitemname(.item)+"s":getitemname(.item))+"."; next;
	if(!countitem(.item)){ mes .npc$; mes "Sorry come back when you have "+getitemname(.item)+"(s)."; close; }
	if(select("Yes:No")&2){ mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(countitem(.item)<.price) { mes .npc$; mes "I'm sorry you don't have enough "+getitemname(.item)+"(s) to for me to endow your specticals, please come back later."; close; }
	mes .npc$;

//Workhorse
	if(getequipid(9)+1) {
		delitem .item,.price;
		set .@id, getequipid(9);
		set .@ref, getequiprefinerycnt(9);
		set .@card1, getequipcardid(9,0);
		set .@card2, getequipcardid(9,1);
		set .@card3, getequipcardid(9,2);
		set .@card4, getequipcardid(9,3);
		delitem2 .@id, 1, 1, .@ref, 0, .@card1, .@card2, .@card3, .@card4;
		getitem2 .@id, 1, 1, .@ref, 0, .@card1, .@card2, .@card3,
			callfunc("F_RandMes", 50,
				4700, 4701, 4702, 4703, 4704, 4705,
				4706, 4707, 4708, 4709, 4710, 4711,
				4712, 4713, 4714, 4715, 4716, 4717,
				4718, 4719, 4720, 4721, 4722, 4723,
				4724, 4725, 4726, 4727, 4728, 4729,
				4730, 4731, 4732, 4733, 4734, 4735,
				4736, 4737, 4738, 4739, 4740, 4741,
				4742, 4743, 4744, 4745, 4746, 4747,
				4748, 4749, 4750, 4751, 4752, 4753,
				4754, 4755, 4756, 4757, 4758, 4759);
		equip .@id;
		misceffect 154;
		mes "All done!";
		close;
	}
	mes "I'm sorry but you need to equipped a mid-range headgear before we can continue.";
	close;

//NPC Constants
	//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
    OnInit:
        set .npc$, "[^0000FFBlinger^000000]";
        set .price, 1;
        set .item, 6242;
	//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}
Edited by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

 

Actually I have an npc kinda like this already... Give me a sec I string together an array of the stat increasing cards.

You're going to have to give me rates and stuff if you want it more specific. I'm also not sure if there are specific midgear requirements or if they all work... Thanks.

 

 

 

 

Is this based on the official scripts?  http://ragnarok.levelupgames.ph/main/enchantment-npc-guide-midheadgears/

 

Are the items also from the official scripts?

 

Thank you for your reply my friend!

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

Hmm... so it only works with the slotted version of those headgears??? Alright give me a sec to add that restriction, and as for the rates, I'm not sure. It says nothing about them, and I don't play Philippines ro.

Edit:

Some of the items --actually-- most of the "slotted" items didn't exist in my DB, but many of them had duplicates *_C that you could easily use as slotted versions of these items... I've noted the items I couldn't find and the items that were slotted. Thanks!

Untitled-4_zps2d7f48c2.png

new_1-2,95,71,4	script	Bling	100,{
//Character Variables
	set .@geid,	getequipid(9);
	set .@cout,	countitem(.item);
	set .@gin$,	getitemname(.item);
	set .@gerf,	getequiprefinerycnt(9);
	set .@crd1,	getequipcardid(9,0);
	set .@crd2,	getequipcardid(9,1);
	set .@crd3,	getequipcardid(9,2);
	set .@crd4,	getequipcardid(9,3);

//Checks & Dialogue
	mes .npc$;
	mes "I can endow your glasses with mystical powers, but It'll cost yah "+.pric+" "+((.pric-1)?.@gin$+"s":.@gin$)+"."; next;
	if(!.@cout) { mes .npc$; mes "Sorry come back when you have "+.@gin$+"(s)."; close; }
	if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(.@cout<.pric) { mes .npc$; mes "I'm sorry you don't have enough "+.@gin$+"(s) to for me to endow your specticals, please come back later."; close; }
	mes .npc$;

//Workhorse
	query_sql("SELECT FIND_IN_SET('"+.@geid+"', '"+.uit$+"');",.@a);
	if(.@a) {
		delitem .item,.pric;
		delitem2 .@geid, 1, 1, .@gerf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
		getitem2 .@geid, 1, 1, .@gerf, 0, .@crd1, .@crd2, .@crd3,
			callfunc("F_RandMes", 50,
				4700, 4701, 4702, 4703, 4704, 4705,
				4706, 4707, 4708, 4709, 4710, 4711,
				4712, 4713, 4714, 4715, 4716, 4717,
				4718, 4719, 4720, 4721, 4722, 4723,
				4724, 4725, 4726, 4727, 4728, 4729,
				4730, 4731, 4732, 4733, 4734, 4735,
				4736, 4737, 4738, 4739, 4740, 4741,
				4742, 4743, 4744, 4745, 4746, 4747,
				4748, 4749, 4750, 4751, 4752, 4753,
				4754, 4755, 4756, 4757, 4758, 4759);
		misceffect .efet;
		mes "All done!";
		equip .@geid;
		close;
	}
	mes "I'm sorry but you need to equipped a slotted mid-range headgear before we can continue.";
	close;

//NPC Constants
	OnInit:
		//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
		set .npc$,	"[^0000FFBlinger^000000]";			// NPC Name
		set .pric,	1;						// Price
		set .efet,	154;						// Effect Number
		set .item,	6242;						// Item Number
		set .uit$,	"5074,5401,5104,18507,5068,2204,2260,5085,2202";// Item List
		/*18603(Black Devil Mask), Not included because it wasn't in my DB*/ 
		/*2286 Unslotted version of 18507*/
		/*2203 Unslotted version of 2204*/
		/*2201 Unslotted version of 2202*/
		//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}
Edited by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Okay I will give it a test soon my friend. I will let you know.

 

Thank you!

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  6
  • Topics Per Day:  0.00
  • Content Count:  24
  • Reputation:   0
  • Joined:  03/15/12
  • Last Seen:  

Hello Skorm!

 

I tested the script above but the problem is in the official servers I think the max it could only give is +3 stat. In the script above it gives +10 instead of the max of only +3. Where can I edit on how much  + stats it could give maximum?

 

Another question, what will happen to the item if it fails? I tried it and it never seems to fail. If possible it would be best if it could have a chance to fail (item still remains) wherein chances can be set. A default chance of 25% is good.

 

 

Keep me posted my friend.

 

Thank you!

Edited by johnbond2
Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

Hello Skorm!

 

I tested the script above but the problem is in the official servers I think the max it could only give is +3 stat. In the script above it gives +10 instead of the max of only +3. Where can I edit on how much  + stats it could give maximum?

 

Another question, what will happen to the item if it fails? I tried it and it never seems to fail. If possible it would be best if it could have a chance to fail (item still remains) wherein chances can be set. A default chance of 25% is good.

 

 

Keep me posted my friend.

 

Thank you!

 

 

//v1.3
new_1-2,95,71,4	script	Bling	100,{
//Character Variables
	set .@geid,	getequipid(9);
	set .@cout,	countitem(.item);
	set .@gin$,	getitemname(.item);
	set .@gerf,	getequiprefinerycnt(9);
	set .@crd1,	getequipcardid(9,0);
	set .@crd2,	getequipcardid(9,1);
	set .@crd3,	getequipcardid(9,2);
	set .@crd4,	getequipcardid(9,3);
	set .@itm,	4700+((rand(5)*10)+rand(2));

//Checks & Dialogue
	mes .npc$;
	mes "I can endow your glasses with mystical powers, but It'll cost yah "+.pric+" "+((.pric-1)?.@gin$+"s":.@gin$)+"."; next;
	if(!.@cout) { mes .npc$; mes "Sorry come back when you have "+.@gin$+"(s)."; close; }
	if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(.@cout<.pric) { mes .npc$; mes "I'm sorry you don't have enough "+.@gin$+"(s) to for me to endow your specticals, please come back later."; close; }
	if(rand(3)) { mes .npc$; mes "I'm sorry but I've failed you!"; misceffect 155; emotion e_sob,0; delitem .item,.pric; close; }
	mes .npc$;

//Workhorse
	query_sql("SELECT FIND_IN_SET('"+.@geid+"', '"+.uit$+"');",.@a);
	if(.@a) {
		delitem .item,.pric;
		delitem2 .@geid, 1, 1, .@gerf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
		getitem2 .@geid, 1, 1, .@gerf, 0, .@crd1, .@crd2, .@crd3,
			callfunc("F_RandMes", 50, .@itm);
		misceffect .efet;
		mes "All done!";
		equip .@geid;
		close;
	}
	mes "I'm sorry but you need to equipped a slotted mid-range headgear before we can continue.";
	close;

//NPC Constants
	OnInit:
		//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
		set .npc$,	"[^0000FFBlinger^000000]";			// NPC Name
		set .pric,	1;						// Price
		set .efet,	154;						// Effect Number
		set .item,	6242;						// Item Number
		set .uit$,	"5074,5401,5104,18507,5068,2204,2260,5085,2202";// Item List
		/*18603(Black Devil Mask), Not included because it wasn't in my DB*/ 
		/*2286 Unslotted version of 18507*/
		/*2203 Unslotted version of 2204*/
		/*2201 Unslotted version of 2202*/
		//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}
 

You didn't say anything about it failing if you have any more information regarding the offical npc please provide it.

Edited by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  6
  • Topics Per Day:  0.00
  • Content Count:  24
  • Reputation:   0
  • Joined:  03/15/12
  • Last Seen:  

 

Hello Skorm!

 

I tested the script above but the problem is in the official servers I think the max it could only give is +3 stat. In the script above it gives +10 instead of the max of only +3. Where can I edit on how much  + stats it could give maximum?

 

Another question, what will happen to the item if it fails? I tried it and it never seems to fail. If possible it would be best if it could have a chance to fail (item still remains) wherein chances can be set. A default chance of 25% is good.

 

 

Keep me posted my friend.

 

Thank you!

 

 

You didn't say anything about it failing if you have any more information regarding the offical npc please provide it.

 

 

Oh nice I will test this. How many chance does this have? And where do I set it?

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

Oh nice I will test this. How many chance does this have? And where do I set it?

if(rand(3))
It has a 25% chance of working and a 75% chance to fail.
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

By the way my friend regarding this:

 

I tested the script above but the problem is in the official servers I
think the max it could only give is +3 stat. In the script above it
gives +10 instead of the max of only +3. Where can I edit on how much  +
stats it could give maximum?

 

How much maximum stats does this script currently give? Coz in the officials I think it could only give +1 up to a max of +3 stat. Can we make this script to only give +1 up to a max of +3 stat? Or where can I set it?

 

Also I had an error after trying to use the NPC and enchant failed for like 3 times. I still have not successfully enchanted an item that is why I still do not know how much stats maximum it currently gives after the last modification.

 

[05:02:42][Error]: script:getarg: index (idx=39) out of range (nargs=2) and no d
efault value found
[05:02:42][Debug]: Source (NPC): Enchant Expert at new_1-2 (95,71)

 

I think the error kicks in when the enchantment was a success though I am not sure.

 

Thank you my friend.

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

By the way my friend regarding this:

 

I tested the script above but the problem is in the official servers I

think the max it could only give is +3 stat. In the script above it

gives +10 instead of the max of only +3. Where can I edit on how much  +

stats it could give maximum?

 

How much maximum stats does this script currently give? Coz in the officials I think it could only give +1 up to a max of +3 stat. Can we make this script to only give +1 up to a max of +3 stat? Or where can I set it?

 

Also I had an error after trying to use the NPC and enchant failed for like 3 times. I still have not successfully enchanted an item that is why I still do not know how much stats maximum it currently gives after the last modification.

 

>>>

[05:02:42][Error]: script:getarg: index (idx=39) out of range (nargs=2) and no d

efault value found

[05:02:42][Debug]: Source (NPC): Enchant Expert at new_1-2 (95,71)

 

I think the error kicks in when the enchantment was a success though I am not sure.

 

Thank you my friend.

 

//v1.3
new_1-2,95,71,4	script	Bling	100,{
//Character Variables
	set .@geid,	getequipid(9);
	set .@cout,	countitem(.item);
	set .@gin$,	getitemname(.item);
	set .@gerf,	getequiprefinerycnt(9);
	set .@crd1,	getequipcardid(9,0);
	set .@crd2,	getequipcardid(9,1);
	set .@crd3,	getequipcardid(9,2);
	set .@crd4,	getequipcardid(9,3);
	set .@itm,	4700+((rand(5)*10)+rand(3));

//Checks & Dialogue
	mes .npc$;
	mes "I can endow your glasses with mystical powers, but It'll cost yah "+.pric+" "+((.pric-1)?.@gin$+"s":.@gin$)+"."; next;
	if(!.@cout) { mes .npc$; mes "Sorry come back when you have "+.@gin$+"(s)."; close; }
	if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(.@cout<.pric) { mes .npc$; mes "I'm sorry you don't have enough "+.@gin$+"(s) to for me to endow your specticals, please come back later."; close; }
	if(rand(0,3)) { mes .npc$; mes "I'm sorry but I've failed you!"; misceffect 155; emotion e_sob,0; delitem .item,.pric; close; }
	mes .npc$;

//Workhorse
	query_sql("SELECT FIND_IN_SET('"+.@geid+"', '"+.uit$+"');",.@a);
	if(.@a) {
		delitem .item,.pric;
		delitem2 .@geid, 1, 1, .@gerf, 0, .@crd1, .@crd2, .@crd3, .@crd4;
		getitem2 .@geid, 1, 1, .@gerf, 0, .@crd1, .@crd2, .@crd3, .@itm;
		misceffect .efet;
		mes "All done!";
		equip .@geid;
		close;
	}
	mes "I'm sorry but you need to equipped a slotted mid-range headgear before we can continue.";
	close;

//NPC Constants
	OnInit:
		//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
		set .npc$,	"[^0000FFBlinger^000000]";			// NPC Name
		set .pric,	1;						// Price
		set .efet,	154;						// Effect Number
		set .item,	6242;						// Item Number
		set .uit$,	"5074,5401,5104,18507,5068,2204,2260,5085,2202";// Item List
		/*18603(Black Devil Mask), Not included because it wasn't in my DB*/ 
		/*2286 Unslotted version of 18507*/
		/*2203 Unslotted version of 2204*/
		/*2201 Unslotted version of 2202*/
		//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
}

 

Sorry about that I completely forgot to remove a part from the previous npc.

Edited by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Nice its working!

 

Question. What values should I put in if(rand(0,3)) if lets say I want the chances to be 50/50?

 

Also, what is the current maximum stat this gives? I tried several times and I could not get anything above +2 hehe.

 

Thank you my friend!

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

Nice its working!

 

Question. What values should I put in if(rand(0,3)) if lets say I want the chances to be 50/50?

 

Also, what is the current maximum stat this gives? I tried several times and I could not get anything above +2 hehe.

 

Thank you my friend!

 

 

if(rand(0,1))

 

Should be +3 but "ll have to check....

 

Find:

set .@itm,	4700+((rand(5)*10)+rand(2));

 

Replace With:

set .@itm,	4700+((rand(5)*10)+rand(3));
Edited by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Nice its working!

 

Question. What values should I put in if(rand(0,3)) if lets say I want the chances to be 50/50?

 

Also, what is the current maximum stat this gives? I tried several times and I could not get anything above +2 hehe.

 

Thank you my friend!

 

 

if(rand(0,1))

 

Should be +3 but "ll have to check....

 

Find:

set .@itm,	4700+((rand(5)*10)+rand(2));

 

Replace With:

set .@itm,	4700+((rand(5)*10)+rand(3));

 

 

THANK YOU!

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

 

THANK YOU!

 

You're welcome.

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  8
  • Reputation:   0
  • Joined:  03/29/13
  • Last Seen:  

 

THANK YOU!

 

You're welcome.

Skorm

Good day sir,mam i would like to ask if you have a Neo Enchant NPC

http://ragnarok.levelupgames.ph/main/neo-echantment-special-event/

 

Thank you so much !

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

 

 

THANK YOU!

 

You're welcome.

Skorm

Good day sir,mam i would like to ask if you have a Neo Enchant NPC

http://ragnarok.levelupgames.ph/main/neo-echantment-special-event/

 

Thank you so much !

 

 

Hmm I like this too!

 

Do we have this?

 

Thank you!

Link to comment
Share on other sites


  • Group:  Forum Moderator
  • Topic Count:  33
  • Topics Per Day:  0.01
  • Content Count:  1268
  • Reputation:   381
  • Joined:  02/03/12
  • Last Seen:  

Hmm I like this too!

 

Do we have this?

 

Thank you!

 

I don't think they have it already but I can make it :)

 

 

Good day sir,mam i would like to ask if you have a Neo Enchant NPC

http://ragnarok.levelupgames.ph/main/neo-echantment-special-event/

 

 

Thank you so much !

 

Hmm shouldn't be a problem.

 


1741705-AVE6DSL.png

Tell me how this works for you I tried to keep it pretty close to the original but I also made some small improvements with language and some style.

prontera,201,188,4	script	Neo Enchanter	851,{
	mes .npc$;
	mes "Hello there!";
	mes "I can make Neo items even better!";
	mes "If you have a ^0000FF"+getitemname(atoi(.e_itl$[1]))+"^000000,";
	mes "a ^0000FF"+getitemname(atoi(.e_itl$[0]))+"^000000,";
	mes "or a ^0000FF"+getitemname(atoi(.e_itl$[2]))+"^000000.";
	mes "I'll enchant it for 1,000,000z"; next;
	if(select("Yes:No")&2) { mes .npc$; mes "Alright, thanks anyways!"; close; }
	if(Zeny<.pric) { mes .npc$; mes "I'm sorry you don't have enough Zeny, please come back later."; close; }
	if(.note){
		mes "^a92435----------NOTICE----------";
		mes "The enchanted Neo armor will only";
		mes "be available during the event";
		mes "period. (October 17 - November 21)"; next;
	}
	
	mes .npc$;
	mes "Which Neo item would you like to enchant?"; next;
	while(set(.@a,.@a+1)<=.e_len) {
		if(compare(.e_itl$[.@a-1],""+getequipid(.e_loc[.@a-1])))
			set .@menu$, .@menu$+.eqp$[.@a-1]+"- [^0000FF"+getitemname(getequipid(.e_loc[.@a-1]))+"^000000]:";
		else set .@menu$, .@menu$+"^adb4be"+.eqp$[.@a-1]+"- [Empty]^000000:";
	}
	
	select(.@menu$);
	set .@eq_loc, .e_loc[(@menu-1)];
	set .@eq_id, getequipid(.@eq_loc);
	set .@eq_rf, getequiprefinerycnt(.@eq_loc);
	if(compare(.e_itm$,""+.@eq_id )) {
		set .@crd0, getequipcardid(.@eq_loc,0);
		while(getd(".menu"+.@b+"$")!="") {
			mes .npc$;
			mes "Choose ^0000FF"+(.@b+1)+.itm_c$[.@b]+"^000000 enchantment for your item."; next;
			select(getd(".menu"+.@b+"$"));
			setd(".@crd"+(.@b+1),getequipcardid(.@eq_loc,(.@b+1)));
			setd(".@n_crd"+(.@b+1),((.@b>1)?.itm2[@menu-1]:.itm1[0]+((@menu-1)*10)));
			set(.@b,.@b+1);
		}
	} else {
		mes .npc$;
		mes "Sorry I don't recoginze that equipment.";
		close;
	}
	
	set Zeny, Zeny-.pric;
	delitem2 .@eq_id, 1, 1, .@eq_rf, 0, .@crd0, .@crd1, .@crd2, .@crd3;
	getitem2 .@eq_id, 1, 1, .@eq_rf, 0, .@crd0, .@n_crd1, .@n_crd2, .@n_crd3;
	misceffect .efet;
	mes .npc$;
	mes "All done!";
	equip .@eq_id;
	close;

//NPC Constants
	OnInit:
		//=-=-=-=-=-=-=Configuration=-=-=-=-=-=-=
		set      .npc$  ,    "[Neo Enchanter]";                              // NPC Name
		set      .note  ,    1;                                              // Shows notice 1=on/0=off
		set      .pric  ,    1000000;                                        // Price
		set      .efet  ,    154;                                            // Effect Number
		setarray .itm1  ,    4704, 4764;                                     // Item Menu1 Range
		setarray .itm2  ,    4802, 4788, 4765, 4763, 4799;                   // Item Menu2
		setarray .itm_c$,    "st", "nd", "rd";                               // Numbers
		setarray .eqp$  ,    "Shield", "Garment", "Accessory1", "Accessory2";// Menu3
		setarray .e_itl$,    "2137", "2548", "2763", "2763";                 // Equip Items
		setarray .e_loc ,    3, 5, 7, 8;                                     // Equip Locations
		set      .e_itm$,    implode(.e_itl$,",");
		set      .e_len ,    getarraysize(.eqp$);
		set      .i_len ,    getarraysize(.itm2);
		//=-=-=-=-=-=-=-=-Skorm-=-=-=-=-=-=-=-=-=
		for(set(.@a,.itm1[0]);.@a<=.itm1[1];set(.@a,.@a+10))
			set .menu0$, .menu0$+ getitemname(.@a)+":";
		set .menu1$, .menu0$;
		for(set(.@a,0);.@a<.i_len;set(.@a,.@a+1))
			set .menu2$, .menu2$+ getitemname(.itm2[.@a])+":";
}
Edited by Skorm
Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  15
  • Topics Per Day:  0.00
  • Content Count:  75
  • Reputation:   3
  • Joined:  04/12/13
  • Last Seen:  

nice

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  113
  • Topics Per Day:  0.03
  • Content Count:  457
  • Reputation:   11
  • Joined:  02/17/13
  • Last Seen:  

Thank you!

 

Will test this soon and let you know. /no1

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  8
  • Reputation:   0
  • Joined:  03/29/13
  • Last Seen:  

Thank you much for that Skorm !

how about Redeem NPC do you have it?

Link to comment
Share on other sites


  • Group:  Members
  • Topic Count:  4
  • Topics Per Day:  0.00
  • Content Count:  47
  • Reputation:   0
  • Joined:  01/16/12
  • Last Seen:  

...

ive tested this one sir.. and i notice this one.. the npc is still working without any midgear uquipped :D 

29ej5v4.jpg

Edited by Capuche
Remove the long quote to make the post more readable
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...