Kindly help me with this script. :D :D :D and change poring coin to berry ticket.

Kirito-kun · September 8, 2015

prontera,151,187,4 script Berry Ticket NPC 822,{

mes "[Berry Ticket NPC]";

mes "What would you like to do?";

switch(select("Ygg Berry to Poring Coin","Poring Coin to Ygg Berry","Information")) {

case 1:

if (countitem(607) < 200) goto L_NE;

delitem 607,200;

getitem 7539,1;

close;

L_NE:

mes "I'm Sorry but you don't have enough Ygg Berry.";

close;

case 2:

if (checkweight(607,200) == 0 ) goto L_OW;

if (countitem(7539) < 1) goto L_NEEDITEM;

delitem 7539,1;

getitem 607,200;

close;

case 3:

next;

mes "[Berry Ticket NPC]";

mes "I can convert your 'Poring Coin' into 200pcs Ygg Berry and vice versa.";

close;

L_NEEDITEM:

mes "[Berry Ticket NPC]";

mes "Sorry you don't have Poring Coin";

close;

L_OW:

mes "[Berry Ticket NPC]";

mes "Sorry your overweight";

close;

}

//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

//===== eAthena Script ======================================= //= Stats Seller

//===== By: ==================================================

//= DeadChild

//===== Current Version: =====================================

//= 1.0

//===== Compatible With: =====================================

//= Any eAthena Version

//===== Description: =========================================

//= Stats Seller

//===== Additional Comments: =================================

//= Have fun with it ^^

//============================================================

prontera.gat,168,178,4 script STP/SKP Seller 86,{

set @price, 1000;

mes "[STP/SKP Seller]";

mes "Hi, I'm the STP/SKP Seller";

mes "It cost 1,000z each point";

mes "which one you wanna buy?";

next;

menu "Status Point",ST,"Skill Point",SK,"No thanks I'm fine",EXIT;

ST:

mes "[STP/SKP Seller]";

mes "What do you want to buy?";

next;

menu "Str",STR,"Agi",AGI,"Vit",VIT,"Int",INT,"Dex",DEX,"Luk",LUK;

SK:

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (zeny < (@quantity * @price)) goto NZ;

mes "[STP/SKP Seller]";

mes "Done";

set zeny, zeny - (@quantity * @price);

set SkillPoint, SkillPoint + @quantity;

close;

STR:

mes "[STP/SKP Seller]";

mes "Hold on...";

next;

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bStr,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[STP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

AGI:

mes "[STP/SKP Seller]";

mes "Hold on...";

next;

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bAgi,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[STP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

VIT:

mes "[STP/SKP Seller]";

mes "Hold on...";

next;

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bVit,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[STP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

INT:

mes "[STP/SKP Seller]";

mes "Hold on...";

next;

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bInt,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[STP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

DEX:

mes "[STP/SKP Seller]";

mes "Hold on...";

next;

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bDex,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[STP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

LUK:

mes "[STP/SKP Seller]";

mes "Hold on...";

next;

mes "[STP/SKP Seller]";

mes "So how many?";

input @quantity;

next;

if (@quantity == 0) goto WT;

if (@quantity > 999) goto TM;

if (zeny < (@quantity * @price)) goto NZ;

set zeny, zeny - (@quantity * @price);

statusup2 bLuk,@quantity;

getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");

mes "[STP/SKP Seller]";

mes "Done";

next;

warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";

close;

WT:

mes "[STP/SKP Seller]";

mes "Please don't waste my time";

close;

TM:

mes "[STP/SKP Seller]";

mes "Sorry but you can only get 999 Status Point";

close;

NZ:

mes "[STP/SKP Seller]";

mes "Sorry but you do not have enough zeny.";

close;

EXIT:

mes "[STP/SKP Seller]";

mes "Okay then...";

close;

}

[attachment=12350:154.jpg]

Edited September 8, 2015 by Radian
Please use code box.

PandaLovesHamster · September 8, 2015

You are missing tabs.

prontera,123,123,5<tab>script<tab>NPC NAME<tab>123,{

Here, please try.

prontera,151,187,4	script	Berry Ticket NPC	822,{
        mes "[Berry Ticket NPC]";
        mes "What would you like to do?";
        switch(select("Ygg Berry to Poring Coin","Poring Coin to Ygg Berry","Information")) {
       
        case 1:
                if (countitem(607) < 200) goto L_NE;
                delitem 607,200;
                getitem 7539,1;
                close;
        L_NE:
                mes "I'm Sorry but you don't have enough Ygg Berry.";
                close;


        case 2:
                if (checkweight(607,200) == 0 ) goto L_OW;
                if (countitem(7539) < 1) goto L_NEEDITEM;
                delitem 7539,1;
                getitem 607,200;
                close;
        case 3:
                next;
                mes "[Berry Ticket NPC]";
                mes "I can convert your 'Poring Coin' into 200pcs Ygg Berry and vice versa.";
                close;
        L_NEEDITEM:
                mes "[Berry Ticket NPC]";
                mes "Sorry you don't have Poring Coin";
                close;
    L_OW:
                mes "[Berry Ticket NPC]";
                        mes "Sorry your overweight";
                        close;


        }


}












//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////










//===== eAthena Script ======================================= //= Stats Seller
//===== By: ================================================== 
//= DeadChild
//===== Current Version: ===================================== 
//= 1.0
//===== Compatible With: ===================================== 
//= Any eAthena Version 
//===== Description: ========================================= 
//= Stats Seller
//===== Additional Comments: =================================
//= Have fun with it ^^
//============================================================
prontera.gat,168,178,4	script	STP/SKP Seller	86,{
set @price, 1000;
mes "[STP/SKP Seller]";
mes "Hi, I'm the STP/SKP Seller";
mes "It cost 1,000z each point";
mes "which one you wanna buy?";
next;
menu "Status Point",ST,"Skill Point",SK,"No thanks I'm fine",EXIT;
ST:
mes "[STP/SKP Seller]";
mes "What do you want to buy?";
next;
menu "Str",STR,"Agi",AGI,"Vit",VIT,"Int",INT,"Dex",DEX,"Luk",LUK;
SK:
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (zeny < (@quantity * @price)) goto NZ;
mes "[STP/SKP Seller]";
mes "Done";
set zeny, zeny - (@quantity * @price);
set SkillPoint, SkillPoint + @quantity;
close;
STR:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bStr,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
AGI:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bAgi,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
VIT:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bVit,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
INT:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bInt,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
DEX:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bDex,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
LUK:
mes "[STP/SKP Seller]";
mes "Hold on...";
next;
mes "[STP/SKP Seller]";
mes "So how many?";
input @quantity;
next;
if (@quantity == 0) goto WT;
if (@quantity > 999) goto TM;
if (zeny < (@quantity * @price)) goto NZ;
set zeny, zeny - (@quantity * @price);
statusup2 bLuk,@quantity;
getmapxy(@mapname$,@mapx,@mapy,0,""+strcharinfo(0)+"");
mes "[STP/SKP Seller]";
mes "Done";
next;
warp ""+@mapname$+"",""+@mapx+"",""+@mapy+"";
close;
WT:
mes "[STP/SKP Seller]";
mes "Please don't waste my time";
close;
TM:
mes "[STP/SKP Seller]";
mes "Sorry but you can only get 999 Status Point";
close;
NZ:
mes "[STP/SKP Seller]";
mes "Sorry but you do not have enough zeny.";
close;
EXIT:
mes "[STP/SKP Seller]";
mes "Okay then...";
close;
}

Edited September 8, 2015 by PandaRapesHamster

Kirito-kun · September 8, 2015

Berry Changer is now WORKING !! Thanks a lot sir

And Also Stats Seller, but when I buy stats

My Character refresh. Looks like @refresh

PandaLovesHamster · September 8, 2015

Sorry, I'm not sure on what's wrong. But I think it's something to do with variables. I'm not that good yet in scripting, so I'm not sure if I can help you. All we can do is wait for some one who's ,more experienced to see his take on it.

Kirito-kun · September 8, 2015

Ok sir, Thanks a lot for helping me, hope u help me again if i have a problem

Sir kindly help me with this another script

Its not working in game,

//======Name========================================

// Poring Catcher Event

//======Version=====================================

// 1.0

//======Author(s)===================================

// Sandbox, Clydelion

//======Comments====================================

// In loving memory of AstralRO

//==================================================

//Edit to where would you place the warper

prontera,151,174,3 script Poring Catcher Warper 723,{

mes "Do you want to join the Poring Catcher Event?";

menu "Yes",-;

set @rex,rand(102,104);

warp "poring_c01",@rex,101;

close;

}

- script pcetrigger -1,{

OnInit:

enablenpc "Poring Catcher Warper";

end;

OnCatcherTrigger:

if(agitcheck() == 1) end;

enablenpc "Poring Catcher Warper";

announce "Poring Catcher Event: We are going to have a Poring Catcher Event",bc_all,0xFF7F50;

sleep2 1000;

announce "Poring Catcher Event: For those who want to join, please warp @ mellina 115 150!",bc_all,0xFF7F50; //Edit to where would you place the warper

sleep2 1000;

announce "Poring Catcher Event: The Warper would be open for 1 minute",bc_all,0xFF7F50;

sleep2 30000;

announce "Poring Catcher Event: Last 30 Seconds.",bc_all,0xFF7F50;

sleep2 30000;

announce "Poring Catcher Event: Warper Closed.",bc_all,0xFF7F50;

disablenpc "Poring Catcher Warper";

donpcevent "Poring Catcher Event::OnPoringCatcherStart";

end;

}

poring_c01,106,110,3 script Got Stuck?#pce 948,{

mes "[ Got Stuck? ]";

mes "Do you wish to go back?";

menu "Yes",-;

warp "mellina",115,150;

close;

}

- script Poring Catcher Event -1,{

OnPoringCatcherStart:

mapannounce "poring_c01","We are about to start the Poring Catcher Event.",bc_blue;

sleep2 1000;

mapannounce "poring_c01","Rules are simple:",bc_blue;

sleep2 1000;

mapannounce "poring_c01","In a few seconds I'm going to spawn tons of porings..",bc_blue;

sleep2 1000;

mapannounce "poring_c01","..All you need to do is kill the Poring with the right name..",bc_blue;

sleep2 1000;

mapannounce "poring_c01","..Which would be Poring.",bc_blue;

sleep2 1000;

mapannounce "poring_c01","If you kill the wrong one, you're out!",bc_blue;

sleep2 3000;

mapannounce "poring_c01","That's it.. Now let's get this on!",bc_blue;

sleep2 3000;

goto Lstart;

end;

Lstart:

if(getmapusers("poring_c01") == 0) goto Lnoone;

if(getmapusers("poring_c01") > 0) {

mapannounce "poring_c01","Ready...",bc_blue;

sleep2 1000;

mapannounce "poring_c01","Get Set..",bc_blue;

sleep2 1500;

mapannounce "poring_c01","Go!",bc_blue;

sleep2 1000;

areamonster "poring_c01",95,108,113,87,"Poring",1002,1,"poringwin::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Poking",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Poiring",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Poling",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Porng",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"pH0ur1n6",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"P0ring",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Porong",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Powing",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Poriing",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Boring",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Lolwut!?",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

areamonster "poring_c01",95,108,113,87,"Kill me to win!",1002,3*getmapusers("poring_c01"),"poringlose::OnMobKilled";

sleep2 1800000;

if(getmapusers("poring_c01") > 0) { goto Lnoone;

disablenpc "Poring Catcher Warper";

}

end;

Lnoone:

announce "No one won the Poring Catcher Event!",bc_all,0xFF7F50;

mapwarp "poring_c01","mellina",115,150;

killmonsterall "poring_c01";

disablenpc "Poring Catcher Warper";

end;

}

- script poringwin -1,{

OnMobKilled:

getitem 7227,1; //Edit on what prize would you give to the winner

announce strcharinfo(0)+" won the Poring Catcher Event!",bc_all,0xFF7F50;

disablenpc "Poring Catcher Warper";

killmonsterall "poring_c01";

mapwarp "poring_c01","mellina",115,150;

end;

}

- script poringlose -1,{

OnMobKilled:

dispbottom "You killed the wrong Poring! Yerrrrrrrrrrrr out!";

warp "mellina",115,150; //Edit to where will you warp players that lost

sleep2 500;

if(getmapusers("poring_c01") == 0) goto Lnoone;

end;

Lnoone:

announce "No one won the Poring Catcher Event!",bc_all,0xFF7F50;

mapwarp "poring_c01","mellina",115,150;

killmonsterall "poring_c01";

disablenpc "Poring Catcher Warper";

end;

}

poring_c01 mapflag nopenalty

poring_c01 mapflag noloot

poring_c01 mapflag noskill

poring_c01 mapflag nowarpto

poring_c01 mapflag nowarp

poring_c01 mapflag noteleport

poring_c01 mapflag nomemo

poring_c01 mapflag nosave SavePoint

poring_c01 mapflag nobranch

poring_c01 mapflag nodrop

Sign In

Kindly help me with this script. :D :D :D and change poring coin to berry ticket.

Question

Kirito-kun

Link to comment

Share on other sites

4 answers to this question

Recommended Posts

PandaLovesHamster

Link to comment

Share on other sites

Kirito-kun

Link to comment

Share on other sites

PandaLovesHamster

Link to comment

Share on other sites

Kirito-kun

Link to comment

Share on other sites

Join the conversation

Recently Browsing 0 members

Docs

Get Started

Github

Community

My Account