How to add Points Payment for this script?

[Nameleszx 0]

 

prontera,146,188,4 script Level Up Guy 899,{

set .@name$,"[Lvl Up Guy]";

if (Class == 4013) && (al_ch == 1) goto L_Changed;
if (Class == 4016) && (al_ch == 1) goto L_Changed;
if (Class == 4018) && (al_ch == 1) goto L_Changed;
if (Class == 4011) && (al_ch == 1) goto L_Changed;
if (Class == 4015) && (al_ch == 1) goto L_Changed;
if (Class == 4008) && (al_ch == 1) goto L_Changed;
if (Class == 4010) && (al_ch == 1) goto L_Changed;

mes .@name$;
mes "Hi "+strcharinfo(0)+",";
mes "i can Level you Up to Level 150/70 and change your Job if you want to.";
mes "So, which Job would you like to be?";
next;
menu "Assassin Cross",L_Sinx,"Champion",L_Champ,"Stalker",L_Stalk,"Whitesmith",L_White,"Paladin",L_Pala,"Lord Knight",L_LK,"High Wizard",L_HW,"Cancel",L_End;

L_Sinx:

jobchange 4013;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_Champ:

jobchange 4016;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_Stalk:

jobchange 4018;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_White:

jobchange 4011;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_Pala:

jobchange 4015;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_LK:

jobchange 4008;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_HW:

jobchange 4010;
set BaseLevel,150;
set JobLevel,70;
set al_ch,1;
close;

L_Changed:
mes .@name$;
mes "Sorry but you already changed into your desired Job.";
close;

L_End:
mes .@name$;
mes "Ok, bye.";
close;
}

 

 

@points payment not the @cash