badges for cash

[Scofield]

I would like a configurable npc who swapped badges bg by cash

[GreenMagic793]

You need to include more information with your post... What exactly are you asking for?

[iraciz]

Quick Share! this is my personal one, in spanish!

I won´t translate it.

guide yourself!

//= Cash Points por Badges
//===== By: ==================================================
//= Iracixz

bat_room,168,146,4	script	Cash x Badges	685,{

//=============CONFIGURATION===================
   setarray .Coins,7829,7828,7773;
   setarray .Valor,5,7,10;
   set .@nombr$,"^FF0000Legendario Sakray^000000";
//=============================================

mes .@nombr$;
cutin "sakray",2;
mes "Hola! me alegra verte aqui!";
mes "soy Sakray, la leyenda de este servidor! hoy estoy aqui como puedes ver.";
next;   cutin "sakray",255;
mes .@nombr$;
mes "Otorgo Puntos Cash por Medallas de Battlegrounds";
mes "nadie mejor que yo para distribuir estos valiosos creditos.";
next;
mes .@nombr$;
mes "1 Valor Badge = ^00FF005 cash^000000";
mes "";
mes "1 Bravery Badge = ^0000FF7 cash^000000";
mes "";
mes "1 War Badge = ^FF000010 cash^000000";
set .@menu$,"";
for(set .@i, 0; .@i < getarraysize(.Coins); set .@i, .@i + 1) {
   if( .@i < 1 )
      set .@menu$, getitemname(.Coins[ .@i ]);
   else
      set .@menu$, .@menu$ + ":" + getitemname(.Coins[ .@i ]);
}
set .@j, select (.@menu$) - 1;
next;
mes .@nombr$;
mes "Selecciona cuantas " + getitemname(.Coins[ .@j ]) + " quieres cambiar, [0 para salir].";
input .@cant;
next;
mes .@nombr$;
if ( .@cant == 0 )   
close;
if (  countitem(.Coins[ .@j ]) < .@cant ) {
   mes "No tienes esa cantidad de " + getitemname(.Coins[ .@j ]);
   emotion e_ag;
   close;
}
specialeffect 500;
progressbar "ffff00",1;
specialeffect 492;
sleep2 400;
specialeffect 400,0,"Cofre";
sleep2 450;
specialeffect2 18;
mes "Listo! ya puedes revisar tus CP con el comando ^FF0000@myinfo^000000!";
delitem .Coins[ .@j ], .@cant;
set #CASHPOINTS, #CASHPOINTS + ( .Valor[ .@j ] * .@cant );
close2;
dispbottom "Tienes actualmente [" + #CASHPOINTS + "] Cash Points";
cutin "sakray",255;
end;

OnInit:
waitingroom "Cash x Badge",0;
end;
}

bat_room,170,146,4	script	Cofre	10005,{
specialeffect 778;
mes "^FF0000Legendario Sakray^000000";
mes "No mires mucho ese cofre!";
mes "yo se que no deseas perder una mano por ser tan fisgon!.";
close;
}

Edited November 14, 2015 by iraciz

[Ninja]

 

Quick Share! this is my personal one, in spanish!

I won´t translate it.

guide yourself!

 

the last time I checked you're the one needing help here. Maybe you can be a little bit more polite.

[PandaLovesHamster]

Could rewrite the code above in English, rather just have my own dialogues, just keep the code intact. Anyways, I am going to sleep so I'll be back later to fix it up.

//= Cash Points por Badges
//===== By: ==================================================
//= Iracixz

bat_room,168,146,4	script	Cash x Badges	685,{

//=============CONFIGURATION===================
   setarray .Coins,7829,7828,7773;
   setarray .Valor,5,7,10;
   set .@name$,"[^FF0000Legendary Sakray^000000]"; // NPC Name Here
//=============================================

mes .@name$;
//cutin "sakray",2; removed cutin, since might not have it and just gives you error
mes "Insert Lines Here...";
next;   //cutin "sakray",255;
mes .@name$;
mes "Insert Lines Here...";
next;
mes .@name$;
mes "1 Valor Badge = ^00FF00"+.Valor[0]+" cash^000000";
mes "";
mes "1 Bravery Badge = ^0000FF"+.Valor[1]+" cash^000000";
mes "";
mes "1 War Badge = ^FF000010"+.Valor[2]+" cash^000000";
set .@menu$,"";
for(set .@i, 0; .@i < getarraysize(.Coins); set .@i, .@i + 1) {
   if( .@i < 1 )
      set .@menu$, getitemname(.Coins[ .@i ]);
   else
      set .@menu$, .@menu$ + ":" + getitemname(.Coins[ .@i ]);
}
set .@j, select (.@menu$) - 1;
next;
mes .@name$;
mes "Select Coin " + getitemname(.Coins[ .@j ]);
input .@cant;
next;
mes .@name$;
if ( .@cant == 0 )   
close;
if (  countitem(.Coins[ .@j ]) < .@cant ) {
   mes "Not enough " + getitemname(.Coins[ .@j ]);
   emotion e_ag;
   close;
}
specialeffect 500;
progressbar "ffff00",1;
specialeffect 492;
sleep2 400;
specialeffect 400,0,"Cofre";
sleep2 450;
specialeffect2 18;
mes "Success!";
delitem .Coins[ .@j ], .@cant;
set #CASHPOINTS, #CASHPOINTS + ( .Valor[ .@j ] * .@cant );
close2;
dispbottom "You have [" + #CASHPOINTS + "] Cash Points remaining";
//cutin "sakray",255;
end;

OnInit:
waitingroom "Cash x Badge",0;
end;
}

bat_room,170,146,4	script	Cofre	10005,{
specialeffect 778;
mes "^FF0000Legendary Sakray^000000";
mes "Insert lines here..";
close;
}

Got lazy, so you have to put the lines back to where they should be. Good luck.

Edited November 14, 2015 by PandaRapesHamster

[Emistry]

just setup a cashshop and sell these badges using cashpoint =D