Here's a random Nuker NPC I made.
prontera,154,198,4 script Gregor 999,{
mes "[Gregor]";
mes "Hihi, I bring you news of...";
next;
mes "......"
next;
mes "...PAI! 8D";
next;
menu "..Okay?",L_Okay,"PAI!!",L_Pai,"Eff Yew~!",L_Leave;
L_Okay:
mes "[Gregor]";
mes "It is epic!";
next;
mes "That is all 8D";
close;
L_Pai:
mes "[Gregor]";
mes "Let's get down to business, what do you want.";
next;
menu "Nuke a n00b!",L_Nuke,"Nuttin Bye",L_Leave;
L_Nuke:
mes "[Gregor]";
mes "2,000,000,000 Zeny and 100 Mithril Coins Please.";
next;
menu "Let's Nuke 'Em!",L_Nuke2,"Nevermind!",L_Leave;
L_Nuke2:
mes "[Gregor]";
if (Zeny < 2000000000) goto NeedZenys;
if(countitem(674)<100) goto NeedZenys;
set Zeny,zeny-2000000000;
delitem 674,100;
input @player$;
atcommand "@nuke "+@player$;
mes "There you go";
close;
NeedZenys:
mes "Sorry, You don't got enough Zeny or Coins!";
close;
L_Leave:
close;
}
prontera,154,198,4 script Gregor 999,{
mes "[Gregor]";
mes "Hihi, I bring you news of...";
next;
mes "......"
next;
mes "...PAI! 8D";
next;
menu "..Okay?",L_Okay,"PAI!!",L_Pai,"Eff Yew~!",L_Leave;
L_Okay:
mes "[Gregor]";
mes "It is epic!";
next;
mes "That is all 8D";
close;
L_Pai:
mes "[Gregor]";
mes "Let's get down to business, what do you want.";
next;
menu "Nuke a n00b!",L_Nuke,"Nuttin Bye",L_Leave;
L_Nuke:
mes "[Gregor]";
mes "2,000,000,000 Zeny and 100 Mithril Coins Please.";
next;
menu "Let's Nuke 'Em!",L_Nuke2,"Nevermind!",L_Leave;
L_Nuke2:
mes "[Gregor]";
if (Zeny < 2000000000) goto NeedZenys;
if(countitem(674)<100) goto NeedZenys;
set Zeny,zeny-2000000000;
delitem 674,100;
input @player$;
atcommand "@nuke "+@player$;
mes "There you go";
close;
NeedZenys:
mes "Sorry, You don't got enough Zeny or Coins!";
close;
L_Leave:
close;
}