Try this just made it for you not tested but it should be work.
- script example -1,{
OnInit:
bindatcmd "BTS",strnpcinfo(3) + "::OnBTS";
bindatcmd "Train",strnpcinfo(3) + "::OnTrain";
bindatcmd "Quest",strnpcinfo(3) + "::OnQuest";
end;
//-------------------------------------------------------
OnBTS:
mes "This is me if you add mes on script";
dispbottom "This is me if you successfully initiate bind command";
end;
//-------------------------------------------------------
OnTrain:
mes "This is me if you add mes on script";
dispbottom "This is me if you successfully initiate bind command";
warp "prontera",155,180;
end;
//-------------------------------------------------------
OnQuest:
mes "Add your quest here";
mes "Test";
next;
switch(Select("Gentleman's Pipe Quest","Exit)){
case 1:
mes "^00B200I need the following item:^000000";
mes "1500 Piece of Bamboo";
mes "300 Sharp Leaf";
mes "1000 Thin Trunk";
mes "50 Matchstick";
mes "5 TCG";
next;
mes "[Mogan]";
mes "Do you desire ^FFCC00Gentleman's Pipe^000000?";
next;
menu "Yes",-,"No",L_OUT;
if(countitem(7150) < 1500 || countitem(7100) < 300 || countitem(7186) < 1000 || countitem(7035) < 50 || countitem(7227) < 5 ) goto L_NOTENOUGH;
delitem 7150,1500;
delitem 7100,300;
delitem 7186,1000;
delitem 7035,50;
delitem 7227,5;
getitem 5377,1;
mes "Here is your ^FFCC00Gentleman's Pipe^000000, may it serve you well.";
close;
}
//-------------------------NPC DIALOG ------------------------------
L_NOTENOUGH:
mes "^FF0000Please Check your item!!^000000";
close;
L_OUT:
mes "Dont go back again here !!";
close;
}