Poring Coin to Cashpoint NPC

[Psyche]

Hi,

would you guys help me please @_@...

i'm requesting a npc that exchange 1 Poring Coin to 5 Cash Points...

 

Thank you ^^

[Missingno]

I saw this on another board, and it's in English:

/*=========================================================
Points to Item Exchanger
by Mumbles
===========================================================
Request: http://goo.gl/MplDtF
===========================================================
Preview: 

=========================================================== Description: Exchanges items for points and vice-versa at a fixed rate. =========================================================== Compatibility: Optimised for Hercules emulators. =========================================================*/ prontera,164,169,3 script Donation Manager::points2item 4_M_OPERATION,{ /*----------------------------------------------------- Script -----------------------------------------------------*/ mes .npc_name$; mes "Hello there, ^FF8800"+ strcharinfo(0) +"^000000! "+ "Would you exchange your "+ .pod_name$ +" "+ "for "+ .points_name$ +"?"; mes " "; mes "Exchange Rate: "+ .rate +":1"; mes .points_name$ +": [^FF0000"+ getd(.points_var$) +"^000000]"; next; switch (select(implode(.menu_options$, ":"))) { case 1: mes .npc_name$; mes "Okay, come back if you change your mind!"; break; case 2: mes .npc_name$; mes "Please enter the amount of "+ .pod_name$ +" you want to exchange."; do { mes " "; mes "Input ^0000FF0^000000 to cancel."; next; input .@amount; .@total = .@amount / .rate; .@remainder = .@amount % .rate; // Check break input if (!.@amount) { message strcharinfo(0), strnpcinfo(1) +" : Exchange terminated."; close; } // Check total against inventory if (countitem(.pod_id) < .@amount) { mes .npc_name$; mes "^FF0000Please enter a valid amount.^000000"; } // Check remainder [loss prevention] else if (.@remainder) { mes .npc_name$; mes "Sorry, but you must exchange multiples of "+ .rate +"."; } } while (countitem(.pod_id) < .@amount || .@remainder); delitem .pod_id, .@amount; setd .points_var$, getd(.points_var$) + .@total; mes .npc_name$; mes "You've exchanged "+ .@amount +" "+ .pod_name$ +" for "+ .@total +" "+ .points_name$ +". "+ "You now have "+ getd(.points_var$) +" "+ .points_name$ +" and "+ countitem(.pod_id) +" "+ .pod_name$ +"."; break; case 3: mes .npc_name$; mes "Please enter the amount of "+ .points_name$ +" that you want to exchange."; do { mes " "; mes "Input ^0000FF0^000000 to cancel."; next; input .@amount; .@total = .@amount * .rate; // Check break input if (!.@amount) { message strcharinfo(0), strnpcinfo(1) +" : Exchange terminated."; close; } // Check amount against points if (getd(.points_var$) < .@amount) { mes .npc_name$; mes "^FF0000Please enter a valid amount.^000000"; } } while (getd(.points_var$) < .@amount); // Check weight if (!checkweight(.pod_id, .@total)) { mes .npc_name$; mes "^FF0000You're overweight; please store some items.^000000"; break; } setd .points_var$, getd(.points_var$) - .@amount; getitem .pod_id, .@total; mes .npc_name$; mes "You've exchanged "+ .@amount +" "+ .points_name$ +" for "+ .@total +" "+ .pod_name$ +". "+ "You now have "+ getd(.points_var$) +" "+ .points_name$ +" and "+ countitem(.pod_id) +" "+ .pod_name$ +"."; break; } close; /*----------------------------------------------------- Configuration -----------------------------------------------------*/ OnInit: .npc_name$ = "[^0000FFDonation Manager^000000]"; .rate = 20; // Exchange rate (1 point * rate = total PoDs) .pod_id = Donation_Card; // Proof of Donation item ID or constant .pod_name$ = getitemname(.pod_id) +"(s)"; // Proof of Donation item name .points_name$ = "Cash Point(s)"; // Points name .points_var$ = "#CASHPOINTS"; // Points variable // Modifying these options requires updates to the corresponding case setarray .menu_options$[0], "^FF0000>^000000 Cancel", "^0000FF>^000000 Exchange "+ .pod_name$ +" for "+ .points_name$, "^0000FF>^000000 Exchange "+ .points_name$ +" for "+ .pod_name$; end; }

---

Change lines 16 and 126 to make it compatible for rAthena:

prontera,164,169,3	script	Donation Manager::points2item	4_M_OPERATION,{

prontera,164,169,3	script	Donation Manager::points2item	864,{

.pod_id = Donation_Card;

.pod_id = 7539;

---

Source: Points to Item Exchanger

[Zikoziz]

Hello

I hope that this helps you this one in Spanish but it is easy to translate it

PD:   1 poring Coin = 1 Cash   /  1 Cash = 1 Poring Coin

//////////////////////////////////
//===== Script =======================================
//= Atlas Script
//===== By: ==================================================
//= Atlas
//===== Version: =====================================
//= 1.0
//===== Compatible =====================================
//= Hercules - rAthena
//===== Additional Comments: =================================
//============================================================
//// Asistente del Mercado ////
que_moon,101,22,5	script	Harold	872,{

	set @npcname$,"[^8000FFHarold^000000]";
	set @cantidad,0;

	cutin "lhz_karl",2;
	mes @npcname$;
	mes (Sex?"Bienvenido":"Bienvenida")+" al mercado "+(Sex?"chico":"chica")+",";
	mes "soy ^8000FFHarold^000000 y soy el encargado oficial de las divisas.";
	mes "Puedo cambiar tus ^F79F81Poring Coin^000000 (^F79F81PC^000000) por ^04B404Cash Points^000000 (^04B404CP^000000) y viceversa!";
	mes "Y ademas puedo decirte cuantos ^04B404CP^000000 te quedan en tu cuenta!";
	next;
	switch(select("Informacion:^F79F81PC^000000 por ^04B404CP^000000:^04B404CP^000000 por ^F79F81PC^000000")) {
		case 1:
			switch(select("Ver mis ^04B404Cash Points^000000:Intercambio de divisas")) {
				case 1:
					mes @npcname$;
					mes "Actualmente tienes [^04B404"+#CASHPOINTS+"^000000] ^04B404CP^000000.";
					close2;
					cutin "",255;
					end;
				case 2:
					mes @npcname$;
					mes "Actualmente, el precio de mercado de ^F79F81PC^000000 y ^04B404CP^000000 es el mismo, por ejemplo podria hacer que [^F79F8120^000000] ^F79F81PC^000000 pasen a ser [^04B40420^000000] ^04B404CP^000000!";
					close2;
					cutin "",255;
					end;
			}
			
		case 2:
			mes @npcname$;
			mes "Que cantidad de ^F79F81PC^000000 deseas pasar a ^04B404CP^000000?";
			next;
			input @cantidad;
			mes @npcname$;
			mes "Estas "+(Sex?"seguro":"segura")+" de querer cambiar el total de [^F79F81"+@cantidad+"^000000] ^F79F81PC^000000?";
			next;
			menu "Si",-,"No",L_Cancel;
			if ( countitem(7539) < @cantidad) goto L_NoPC;
			delitem 7539,@cantidad;
			set #CASHPOINTS, #CASHPOINTS + @cantidad;
			mes @npcname$;
			mes "Tus [^F79F81"+@cantidad+"^F79F81] ^F79F81PC^000000 ahora son [^04B404"+@cantidad+"^000000] ^04B404CP^000000!";
			close2;
			cutin "",255;
			end;
			
		case 3:
			mes @npcname$;
			mes "Que cantidad de ^04B404CP^000000 deseas pasar a ^F79F81PC^000000?";
			next;
			input @cantidad;
			mes @npcname$;
			mes "Estas "+(Sex?"seguro":"segura")+" de querer cambiar el total de [^04B404"+@cantidad+"^000000] ^04B404CP^000000?";
			next;
			menu "Si",-,"No",L_Cancel;
			if ( #CASHPOINTS < @cantidad) goto L_NoCP;
			set #CASHPOINTS, #CASHPOINTS - @cantidad;
			getitem 7539,@cantidad;
			mes @npcname$;
			mes "Tus [^04B404"+@cantidad+"^000000] ^04B404CP^000000 ahora son [^F79F81"+@cantidad+"^000000] ^F79F81PC^000000!";
			close2;
			cutin "",255;
			end;
	}

L_NoPC:
	mes @npcname$;
	mes "Lo siento ^0080FF"+strcharinfo(0)+"^000000, pero te faltan ^F79F81Poring Coins^000000 para realizar la transaccion.";
	close2;
	cutin "",255;
	end;
	
L_NoCP:
	mes @npcname$;
	mes "Lo siento ^0080FF"+strcharinfo(0)+"^000000, pero te faltan ^04B404Cash Points^000000 para realizar la transaccion.";
	close2;
	cutin "",255;
	end;
	
L_Cancel:
	mes @npcname$;
	mes "Como usted desee, que pase un buen dia!";
	close2;
	cutin "",255;
	end;
		
OnInit:
	waitingroom "Asistente del Mercado",0;
	end;
}

Edited March 1, 2014 by Zikoziz