NPC scripts

[Spectator]

Hi to all can i request some of the scripts?

 

1. Pods to Cash Point (ex. 1 pods = 2000 cash point)

    Pods to Tcg (ex. 1 pods = 10 tcg)

 

 

2. Pods Reward Giver

 

    ex. Gm will input the name of the player and the amount of pods even if the player is online or offline

    then the player will get the item to npc.

 

 

 

 

 

thanks in advance

 

[Patskie]

Pods -> Cashpoints = 

prontera,150,150,0    script    Test    100,{
OnInit:
    // NPC Name
    .NPC$ = strnpcinfo(1);
    // Cashpoints amount to be received
    .Amount = 5;
    // Tickt for transaction (PODS TCG etc)
    .Ticket = 7227;
    end;

mes .NPC$;
mes "Hello " +strcharinfo(0)+ ". What can i do for you?";
next;
if (select("Exchange my " +getitemname(.Ticket)+ " to cashpoints:Nothing" - 1) close;
mes .NPC$:
mes "How many " +getitemname(.Ticket)+ " would you like to exchange? 1 " +getitemname(.Ticket)+ " = " +.Amount+ " cash points";
next;
input @amount;
if (@amount == 0 ){
    mes .NPC$;
    mes "Invalid amount";
    close;
}
mes .NPC$;
mes "So you want to exchange " +@amount+ " " +getitemname(.Ticket)+ "?";
next;
if (select("Yes:No") - 1)close;
mes .NPC$;
mes "Let me check if you have the following requirements.";
next;
if (countitem(.Ticket) < @amount) {
    mes .NPC$;
    mes "Hello " +strcharinfo(0)+ " you do not have enough " +getitemname(.Ticket);
    close;
}
mes .NPC$;
mes "Orayt here you go!";
delitem .Ticket,@amount;
set #CASHPOINTS, #CASHPOINTS + (@amount * .Amount);
dispbottom "Currently you have " +#CASHPOINTS+ " cash points. Thank you for the transaction";
end;
}

[Spectator]

Pods -> Cashpoints = 

 

prontera,150,150,0    script    Test    100,{
OnInit:
    // NPC Name
    .NPC$ = strnpcinfo(1);
    // Cashpoints amount to be received
    .Amount = 5;
    // Tickt for transaction (PODS TCG etc)
    .Ticket = 7227;
    end;

mes .NPC$;
mes "Hello " +strcharinfo(0)+ ". What can i do for you?";
next;
if (select("Exchange my " +getitemname(.Ticket)+ " to cashpoints:Nothing" - 1) close;
mes .NPC$:
mes "How many " +getitemname(.Ticket)+ " would you like to exchange? 1 " +getitemname(.Ticket)+ " = " +.Amount+ " cash points";
next;
input @amount;
if (@amount == 0 ){
    mes .NPC$;
    mes "Invalid amount";
    close;
}
mes .NPC$;
mes "So you want to exchange " +@amount+ " " +getitemname(.Ticket)+ "?";
next;
if (select("Yes:No") - 1)close;
mes .NPC$;
mes "Let me check if you have the following requirements.";
next;
if (countitem(.Ticket) < @amount) {
    mes .NPC$;
    mes "Hello " +strcharinfo(0)+ " you do not have enough " +getitemname(.Ticket);
    close;
}
mes .NPC$;
mes "Orayt here you go!";
delitem .Ticket,@amount;
set #CASHPOINTS, #CASHPOINTS + (@amount * .Amount);
dispbottom "Currently you have " +#CASHPOINTS+ " cash points. Thank you for the transaction";
end;
}

thanks for the script sir .