Request:Refine ticket trader

frenzmu06 · September 2, 2016

Requesting a script that trades refine tickets for weapon or armor with upgrade
the npc will trade Weapon (listed in weaponarray) with the specified refine for

+12 Weapon =Guarantee_Weapon_11Up
+10 Weapon =Guarantee_Weapon_9Up
+9 Weapon =Guarantee_Weapon_8Up
+8 Weapon =Guarantee_Weapon_7Up
+7 Weapon =Guarantee_Weapon_6Up

and Armor (listed in armorarray) with the specified refine for
+12 Armor =Guarantee_Armor_11Up
+10 Armor =Guarantee_Armor_9Up
+9 Armor =Guarantee_Armor_8Up
+8 Armor =Guarantee_Armor_7Up
+7 Armor =Guarantee_Armor_6Up

- script Ticket Trader FAKE_NPC{
mes "I trade weapons and armors with specific refines for Refine Tickets";
menu (Trade Weapon, Trade Armor)
show available items from inventory including eqquiped item
trade the item

//configs

weaponticketarray,6238,6228,6229,6230,6231;
//6238 Guarantee_Weapon_11Up
//6228 Guarantee_Weapon_9Up
//6229 Guarantee_Weapon_8Up
//6230 Guarantee_Weapon_7Up
//6231 Guarantee_Weapon_6Up

weaponarray,1101,1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112; //you can add more or modify
//1101 Sword
//1102 Sword_
//1103 Sword__
//1104 Falchion
//1105 Falchion_
//1106 Falchion__
//1107 Blade
//1108 Blade_
//1109 Blade__
//1110 Lapier
//1111 Lapier_
//1112 Lapier__

armorticketarray,6239,6232,6233,6234,6235
//6239 Guarantee_Armor_11Up
//6232 Guarantee_Armor_9Up
//6233 Guarantee_Armor_8Up
//6234 Guarantee_Armor_7Up
//6235 Guarantee_Armor_6Up

armorarray,2302,2304,2306,2308,2310,2311,2313,2315,2317,2318,2319; //you can add more
//2302 Cotton_Shirt_
//2304 Leather_Jacket_
//2306 Adventurere's_Suit_
//2308 Mantle_
//2310 Coat_
//2311 Mink_Coat
//2313 Padded_Armor_
//2315 Chain_Mail_
//2317 Plate_Armor_
//2318 Clothes_Of_The_Lord
//2319 Glittering_Clothes

tnx if anyone helps

Edited December 10, 2016 by Skorm
Made the request a little easier to read.

Skorm · December 10, 2016

On 9/2/2016 at 1:23 PM, frenzmu06 said:

i am requesting a script that exchanges a Refined Armor/Weapon to a Ticket (deletes the armor/weapon and gets a ticket) not a refine npc

Cool idea... Untested but it should work. Let me know if you have any problems.

http://upaste.me/391d36830c5d5ecf5

Edited December 10, 2016 by Skorm

Start_ · September 2, 2016

https://goo.gl/EDq1ir

Sorry for Thai languages.

frenzmu06 · September 2, 2016

https://goo.gl/EDq1ir

Sorry for Thai languages.

can you put it in pastebin/upaste or just post it as a plain code here? i don't want to download zip files from unknown sources

NANORAY · September 2, 2016

prontera,156,184,6	script	ใช้ใบตีบวก	10010,{
	disable_items;
	mes "[มดแดง]";
	mes "ไม่ต้องพูดมาก";
	mes "มีอะไรให้ข้าเสริมแกร่งแบบพิเศษ";
	setarray .@indices[1], EQI_HEAD_TOP, EQI_ARMOR, EQI_HAND_L, EQI_HAND_R, EQI_GARMENT, EQI_SHOES, EQI_ACC_L, EQI_ACC_R, EQI_HEAD_MID, EQI_HEAD_LOW;
	next;
	
	for(set .@i,1; .@i<=10; set .@i,.@i+1) {
		if (getequipisequiped(.@indices[.@i])) {
			set .@menu$, .@menu$ + F_getpositionname(.@indices[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]";
			set .@equipped,1;
		}
		set .@menu$, .@menu$ + ":";
	}
	
	if ( !.@equipped ) {
		mes "[มดแดง]";
		mes "เจ้าไม่มีอะไรต้องเสริมแกร่งอีกแล้ว";
		close;
	}
	
	set .@part, .@indices[ select(.@menu$) ];
	
	if ( !getequipisequiped(.@part) )
		close;
		
	if ( !getequipisenableref(.@part) ) {
		mes "[มดแดง]";
		mes "เจ้าไม่มีอะไรต้องเสริมแกร่งอีกแล้ว";
		close;
	}
	
	if (getequiprefinerycnt(.@part) >= 20) {
		mes "[มดแดง]";
		mes "เจ้าไม่มีอะไรต้องเสริมแกร่งอีกแล้ว";
		close;
	}
	
	switch(getequipweaponlv(.@part)) {
		case 1: callsub S_RefineValidate,1,501,0,.@part; break;
		case 2: callsub S_RefineValidate,2,501,0,.@part; break;
		case 3: callsub S_RefineValidate,3,501,0,.@part; break;
		case 4: callsub S_RefineValidate,4,501,0,.@part; break;
		default: callsub S_RefineValidate,0,501,0,.@part; break;
	}
	
	downrefitem .@part,20;
	successrefitem .@part,@item_tarts;
	emotion e_no1;
	mes "[มดแดง]";
	mes "ได้แล้ว";
	close;
	
S_RefineValidate:
	.@weapon_lvl = getarg(0);
	menu " +6", L_1, " +7", L_2, " +8", L_3, " +9", L_4, " +11", L_5, " +13", L_6, " +14", L_7, " +15", L_8, " +16", L_9, " +17", L_10, " +18", L_11, " +19", L_12;
	
	L_1:
		if(.@weapon_lvl == 0) {
			if (countitem(6235) > 0) {
				delitem 6235,1;
				@item_tarts = 6;
				return;
			} else {
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		} else {
			if (countitem(6231) > 0) {
				delitem 6231,1;
				@item_tarts = 6;
				return;
			} else {
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
		
	L_2:
		if(.@weapon_lvl == 0) {
			if (countitem(6234) > 0) {
				delitem 6234,1;
				@item_tarts = 7;
				return;
			} else {
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		} else {
			if (countitem(6230) > 0) {
				delitem 6230,1;
				@item_tarts = 7;
				return;
			} else {
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
		
	L_3:
		if(.@weapon_lvl == 0) {
			if (countitem(6233) > 0) {
				delitem 6233,1;
				@item_tarts = 8;
				return;
			} else {
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		} else {
			if (countitem(6229) > 0) {
				delitem 6229,1;
				@item_tarts = 8;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_4:
		if(.@weapon_lvl == 0){
			if (countitem(6232) > 0) {
				delitem 6232,1;
				@item_tarts = 9;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6228) > 0) {
				delitem 6228,1;
				@item_tarts = 9;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_5:
		if(.@weapon_lvl == 0){
			if (countitem(6239) > 0) {
				delitem 6239,1;
				@item_tarts = 11;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6238) > 0) {
				delitem 6238,1;
				@item_tarts = 11;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_6:
		if(.@weapon_lvl == 0){
			if (countitem(6876) > 0) {
				delitem 6876,1;
				@item_tarts = 13;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6870) > 0) {
				delitem 6870,1;
				@item_tarts = 13;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_7:
		if(.@weapon_lvl == 0){
			if (countitem(6877) > 0) {
				delitem 6877,1;
				@item_tarts = 14;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6871) > 0) {
				delitem 6871,1;
				@item_tarts = 14;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_8:
		if(.@weapon_lvl == 0){
			if (countitem(6878) > 0) {
				delitem 6878,1;
				@item_tarts = 15;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6872) > 0) {
				delitem 6872,1;
				@item_tarts = 15;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_9:
		if(.@weapon_lvl == 0){
			if (countitem(6879) > 0) {
				delitem 6879,1;
				@item_tarts = 16;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6873) > 0) {
				delitem 6873,1;
				@item_tarts = 16;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_10:
		if(.@weapon_lvl == 0){
			if (countitem(6880) > 0) {
				delitem 6880,1;
				@item_tarts = 17;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6874) > 0) {
				delitem 6874,1;
				@item_tarts = 17;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_11:
		if(.@weapon_lvl == 0){
			if (countitem(6881) > 0) {
				delitem 6881,1;
				@item_tarts = 18;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6875) > 0) {
				delitem 6875,1;
				@item_tarts = 18;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
	
	L_12:
		if(.@weapon_lvl == 0){
			if (countitem(6865) > 0) {
				delitem 6865,1;
				@item_tarts = 19;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}else{
			if (countitem(6864) > 0) {
				delitem 6864,1;
				@item_tarts = 19;
				return;
			}else{
				mes "[มดแดง]";
				mes "เจ้าไม่มีใบตีบวกตามที่เจ้าเลือก";
				close;
			}
		}
}

Edited December 9, 2016 by Skorm
He missed the codebox also reformatted script.

frenzmu06 · September 2, 2016

prontera,156,184,6    script    ใช้ใบตีบวก    10010,{
    disable_items;
    mes "[มดแดง]";
    mes "ไม่ต้องพูดมาก";
    mes "มีอะไรให้ข้าเสริมแกร่งแบบพิเศษ";
    next;
    setarray .@indices[1], EQI_HEAD_TOP, EQI_ARMOR, EQI_HAND_L, EQI_HAND_R, EQI_GARMENT, EQI_SHOES, EQI_ACC_L, EQI_ACC_R, EQI_HEAD_MID, EQI_HEAD_LOW;
    for(set .@i,1; .@i<=10; set .@i,.@i+1) {
        if (getequipisequiped(.@indices[.@i])) {
            set .@menu$, .@menu$ + F_getpositionname(.@indices[.@i]) + "-[" + getequipname(.@indices[.@i]) + "]";
            set .@equipped,1;
        }
        set .@menu$, .@menu$ + ":";
    }
    if (.@equipped == 0) {
        mes "[มดแดง]";
        mes "เจ้าไม่มีอะไรต้องเสริมแกร่งอีกแล้ว";
        close;
    }
    set .@part, .@indices[ select(.@menu$) ];
    if (!getequipisequiped(.@part))
    close;
    if (!getequipisenableref(.@part)) {
        mes "[มดแดง]";
        mes "เจ้าไม่มีอะไรต้องเสริมแกร่งอีกแล้ว";
        close;
    }
    if (getequiprefinerycnt(.@part) >= 20) {
        mes "[มดแดง]";
        mes "เจ้าไม่มีอะไรต้องเสริมแกร่งอีกแล้ว";
        close;
    }
    switch(getequipweaponlv(.@part)) {
    case 1: callsub S_RefineValidate,1,501,0,.@part; break;
    case 2: callsub S_RefineValidate,2,501,0,.@part; break;
    case 3: callsub S_RefineValidate,3,501,0,.@part; break;
    case 4: callsub S_RefineValidate,4,501,0,.@part; break;
    default: callsub S_RefineValidate,0,501,0,.@part; break;
    }
    downrefitem .@part,20;
    successrefitem .@part,@item_tarts;
    //successrefitem <equipment slot>{,<count>{,<char_id>}};
    emotion e_no1;
    mes "[มดแดง]";
    mes "ได้แล้ว";
    close;

    S_RefineValidate:
    .@weapon_lvl = getarg(0);
    menu "+6",L_1,"+7",L_2,"+8",L_3,"+9",L_4,"+11",L_5,"+13",L_6,"+14",L_7,"+15",L_8,"+16",L_9,"+17",L_10,"+18",L_11,"+19",L_12;
    L_1:
    if(.@weapon_lvl == 0){
        if (countitem(6235) > 0) {
            delitem 6235,1;

i am requesting a script that exchanges a Refined Armor/Weapon to a Ticket (deletes the armor/weapon and gets a ticket) not a refine npc

Edited September 2, 2016 by frenzmu06

frenzmu06 · December 10, 2016

17 hours ago, Skorm said:

Cool idea... Untested but it should work. Let me know if you have any problems.

http://upaste.me/391d36830c5d5ecf5

this is great, tested it and found some wrong interaction,

1.if you fulfill the armor slot check (Body) (for ex: +11 Cotton Shirt ID 2302) and you have other items on any slot (except weapon slot) that has an acceptable upgrade value then you can exchange it to an armor refine ticket (this also work on left hand if you have a shield and works fine if left hand weapon since it checks the upgrade first) it shows "Slot - Not Applicable" but you can choose it

2.if you fulfill the armor slot check (Body) (for ex: +11 Cotton Shirt ID 2302) and you have other other items on any slot that has an upgrade value that is more or less than acceptable then it says "Sorry but I only convert items refined between +"+.uprange+" and +"+.uprange[1]+"."; when it should say that the items cannot be converted as they aren't listed of the on the acceptable trade list

3. i think its right to remove the accessory, mid and lower head slots as they aren't upgradable on servers (by default unless some genius upgrademasterrace turns it on lol)

i think its also better to just check the inventory and let the npc list all the allowed items (like enumerate them) and choose one to convert. that is if that is even possible.

thank you very much for this. i don't own a server and never had (i mean i had once but just live test), i just want to test somethings and if i cant make them i try to request them, had a bunch of ideas but never really you know

Edited December 10, 2016 by Skorm
removed and made it as qoute

Skorm · December 10, 2016

On 12/10/2016 at 10:47 AM, frenzmu06 said:

i think its also better to just check the inventory and let the npc list all the allowed items (like enumerate them) and choose one to convert. that is if that is even possible.

It is but it's a little weird because to my knowledge items in Ragnarok don't have unique ids that are easily accessed through scripts. So for example if you have two items that are exactly the same and one is equipped and the other isn't the script may delete the equipped one and not the one in your inventory.

In any case here is version two. It's been slightly tested just let me know if you have any problems.

//Skorm 12-10-2016 v2.1
//Uses items from the inventory/equip instead of just equip.
prontera,184,177,5	script	Ticket Trader	851,{
	mes "[^FF0000Ticket Trader^000000]";
	mes "I trade weapons and armours with specific refines for ^0000FFRefine Tickets^000000.";
	next;
	mes "[^FF0000Ticket Trader^000000]";
	mes "Which equipment would you like me to convert into a ^0000FFRefine Ticket^000000?";
	
	getinventorylist;
	
	.@inv_len = @inventorylist_count;
	copyarray .@inv_list_id[0], @inventorylist_id[0], .@inv_len;
	copyarray .@inv_list_amt[0], @inventorylist_amount[0], .@inv_len;
	copyarray .@inv_list_equ[0], @inventorylist_equip[0], .@inv_len;
	copyarray .@inv_list_ref[0], @inventorylist_refine[0], .@inv_len;
	copyarray .@inv_list_atr[0], @inventorylist_attribute[0], .@inv_len;
	copyarray .@inv_list_cd1[0], @inventorylist_card1[0], .@inv_len;
	copyarray .@inv_list_cd2[0], @inventorylist_card2[0], .@inv_len;
	copyarray .@inv_list_cd3[0], @inventorylist_card3[0], .@inv_len;
	copyarray .@inv_list_cd4[0], @inventorylist_card4[0], .@inv_len;
	
	for( .@a = 0; .@a < .@inv_len; .@a++ ) {
		if( .@inv_list_id[.@a] && compare(.allow_list$,","+.@inv_list_id[.@a]+",") )
			set .@menu$, .@menu$+"^0000FF"+getitemname(.@inv_list_id[.@a])+(.@inv_list_ref[.@a]?" +"+.@inv_list_ref[.@a]:"")+"^000000:";
		else {
			set .@menu$, .@menu$+":";
			.@len++;
		}
	}
	
	next;
	
	if( countstr(.@menu$, ":") >= getstrlen(.@menu$) ) {
		mes "[^FF0000Ticket Trader^000000]";
		mes "It doesn't look like anything you have equipped can be converted sorry.";
		close;
	}
	
	select(.@menu$);
	set .@eq_loc, @menu-1;
	set .@eq_itm, .@inv_list_id[.@eq_loc];
	set .@eg_rfn, .@inv_list_ref[.@eq_loc];
	if( .@eq_itm < 0 ) {
		mes "[^FF0000Ticket Trader^000000]";
		mes "Hmm, I don't think you have anything equipped there.";
		close;
	}
	
	.@ticket = getiteminfo(.@eq_itm,2) == 5 ? .weap_t_list[.@eg_rfn] : .armo_t_list[.@eg_rfn];
	
	if( .@eg_rfn < .uprange || .@eg_rfn > .uprange[1] ) {
		mes "[^FF0000Ticket Trader^000000]";
		mes "Sorry but I only convert items refined between +"+.uprange+" and +"+.uprange[1]+".";
		close;
	} else if( !.@ticket ) {
		mes "[^FF0000Ticket Trader^000000]";
		mes "I don't seem to have a ticket for +"+.@eg_rfn+" refine.";
		close;
	}
	
	mes "[^FF0000Ticket Trader^000000]";
	mes "^800000"+getitemname(.@eq_itm)+" will be changed into ^0000FF"+getitemname(.@ticket)+"^000000.";
	mes "Are you sure?";
	next;
	if( select("No:Yes") == 1 ) {
		mes "[^FF0000Ticket Trader^000000]";
		mes "Oh!- Well that was a close one then.";
		close;
	}
	
	delitem2 .@eq_itm, .@inv_list_amt[.@eq_loc], 1, .@eg_rfn, .@inv_list_atr[.@eq_loc], .@inv_list_cd1[.@eq_loc], .@inv_list_cd2[.@eq_loc], .@inv_list_cd3[.@eq_loc], .@inv_list_cd4[.@eq_loc];
	getitem(.@ticket,1);
	
	mes "[^FF0000Ticket Trader^000000]";
	mes "Have a nice day!";
	close;
	
	OnInit:
		setarray .uprange, 7, 12;
		setarray .armo_t_list[.uprange],6235,6234,6233,6232,   0,6239;
		setarray .weap_t_list[.uprange],6231,6230,6229,6228,   0,6238;
		.allow_list$ = ",1101,1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112,2302,2304,2306,2308,2310,2311,2313,2315,2317,2318,2319,";
}

http://upaste.me/dce036854abee169c

Edited December 11, 2016 by Skorm

frenzmu06 · December 11, 2016

i think you interchanged the weapon weapon/armor_t_list -".@ticket = getiteminfo(.@eq_itm,2) == 5 ? .weap_t_list[.@eg_rfn] : .armo_t_list[.@eg_rfn]; " as it gives weapon tickets for armor and vise versa

also there is no +10 ticket so you should skip the + 11 on both weapon and armor

the v1.1 went +6~11 and makes npc give tickets of the same upgrade number

Skorm · December 11, 2016

5 hours ago, frenzmu06 said:

i think you interchanged the weapon weapon/armor_t_list -".@ticket = getiteminfo(.@eq_itm,2) == 5 ? .weap_t_list[.@eg_rfn] : .armo_t_list[.@eg_rfn]; " as it gives weapon tickets for armor and vise versa

Go into your database and find out what type weapons are. Replace 5 with your weapon type. My weapons are type 5 so it's 5 for me...

5 hours ago, frenzmu06 said:

also there is no +10 ticket so you should skip the + 11 on both weapon and armor

[ Edit: The example here actually makes +11 refine give +9 ticket but it's different in the script above. ]

I was actually unaware of that and updated the previous script. I hope you can understand how it works so you can modify it further if need be.

5 hours ago, frenzmu06 said:

the v1.1 went +6~11 and makes npc give tickets of the same upgrade number

That was intentional.

Edited December 11, 2016 by Skorm

frenzmu06 · December 12, 2016

already working fine except for the armor/weapon which i can easily solve by checking my weapon type which i think aren't same as yours since i use herc. tnx

Sign In

Request:Refine ticket trader

Question

Link to comment

Share on other sites

10 answers to this question

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members