Skull Trader

[Rage Guy]

i want a skull trader

only skulls of players .

each 500 skull

gove him 1 Poring Coin from the npc [ Item ID  : 7539 ]

 

[Emistry]

• Exchanger [ Item to Item ]

• Exchanger [ Item to Item ]

Exchanger [ Multi Item to 1 Item ]

[Rage Guy]

prontera,155,181,5	script	Sample	757,{
set .@ItemID,607;
set .@BoxID,13517;

mes "Exhchange 100 "+getitemname( .@ItemID )+" into "+getitemname( .@BoxID );
if( countitem( .@ItemID ) >= 100 ){
	mes "How many will be traded into "+getitemname( .@BoxID )+"?";
	input .@Count,0,countitem( .@ItemID );
	if( .@Count < 100 ) close;
	set .@Amount,( .@Count / 100 );
	delitem .@ItemID,( .@Amount * 100 );
	getitem .@BoxID,.@Amount;
	mes "Done.";
}
close;
}

I want it exchange 500 Player Skulls with 1 -->>> 7539

[michaelsoftman]

prontera,155,181,5 script Sample 757,{

set .@ItemID,7420;

set .@BoxID,7539;

mes "Exhchange 500 "+getitemname( .@ItemID )+" into "+getitemname( .@BoxID );

if( countitem( .@ItemID ) >= 500 ){

mes "How many will be traded into "+getitemname( .@BoxID )+"?";

input .@Count,0,countitem( .@ItemID );

if( .@Count < 500 ) close;

set .@Amount,( .@Count / 500 );

delitem .@ItemID,( .@Amount * 500 );

getitem .@BoxID,.@Amount;

mes "Done.";

}

close;

}

[stydianx]

• Exchanger [ Item to Item ]
• Exchanger [ Item to Item ]
• Exchanger [ Multi Item to 1 Item ]

 

what if i want it to give Base & Job Exp every time they exchange a skull?

[Emistry]

• Exchanger [ Item to Item ]
• Exchanger [ Item to Item ]
• Exchanger [ Multi Item to 1 Item ]

what if i want it to give Base & Job Exp every time they exchange a skull?

*getexp <base xp>,<job xp>;

This command will give the invoking character a specified number of base and job 
experience points. Can be used as a quest reward. Negative values won't work.

    getexp 10000,5000;

You can also use the "set" command with the constants defined in 'db/const.txt':

    // These 2 combined has the same effect as the above command
    set BaseExp,BaseExp+10000;
    set JobExp,JobExp+5000;

You can also reduce the amount of experience points:

    set BaseExp,BaseExp-10000;

Note that 'getexp' is now subject to the 'quest_exp_rate' config option, which
adjusts the gained value. If you want to bypass this, use the 'set' method.

[stydianx]

 

• Exchanger [ Item to Item ]
• Exchanger [ Item to Item ]
• Exchanger [ Multi Item to 1 Item ]

what if i want it to give Base & Job Exp every time they exchange a skull?

*getexp <base xp>,<job xp>;

This command will give the invoking character a specified number of base and job 
experience points. Can be used as a quest reward. Negative values won't work.

    getexp 10000,5000;

You can also use the "set" command with the constants defined in 'db/const.txt':

    // These 2 combined has the same effect as the above command
    set BaseExp,BaseExp+10000;
    set JobExp,JobExp+5000;

You can also reduce the amount of experience points:

    set BaseExp,BaseExp-10000;

Note that 'getexp' is now subject to the 'quest_exp_rate' config option, which
adjusts the gained value. If you want to bypass this, use the 'set' method.

Thank you very much i like this, very detailed.

Do you have a dictionary for all the commands with complete description like this?

[Emistry]

trunk/doc/script_commands.txt

[stydianx]

trunk/doc/script_commands.txt

 

heres my try.

 

 

crystilia,84,56,4    script    Item Exchanger    719,{
    set @name$,"[^FF0000Berry Exchanger^000000]";
    mes @name$;
    mes "What do you want to do?";
    next;
    switch(select("Information","Convert")) {
    case 1:
        mes @name$;
        mes "I can convert certain items that can be looted at maps into Emperium Crystals.";
        mes "Emperium Crystals can be exchanged for Items, Emeprium Coin/Ticket.";
        close;
    case 2:
        switch(select("1300 Jellopy")) {
        case 1://Jellopy
            if (checkweight(25000,1) == 0 ) goto overWeight;
            if (countitem(909) < 1300) goto noBerry;
            delitem 909,1300;
            getitem 25000,1;
            set BaseExp,BaseExp-351656;
            mes @name$;
            mes "There you go. Hope to see you again!";
            close;
    }
        }
        end;
noBerry:
    mes @name$;
    mes "I'm Sorry but you don't have enough items.";
    close;


overWeight:
    mes @name$;
    mes "Sorry you're overweight.";
    close;
}
 

will this work?

[michaelsoftman]

Why do you have it subtracting BaseEXP?  It should be adding it instead.