這是我商城點數販賣商人的腳本
mes "[商城點數系統]";
mes "目前點數價格『1P:10萬』";
mes "請輸入要購買的點數數量";
input [url=mailto@gash]$@gash[/url];
if([url=mailto@gash<0]$@gash<0[/url]) goto G_end;
if (Zeny < [url=mailto@gash*100000]$@gash*100000[/url]) goto NoZeny;
next;
mes "您購買的點數數量『^FF0000"+$@gash+"^000000』";
mes "所需要Zeny『^FF0000"+$@gash*100000+"Z^000000』";
mes "您確定您要購買嗎?";
switch(select("確定購買","不要購買"))
{ case 1:
set Zeny,zeny-$@gash*100000;
set #SHOP_POINTS,#SHOP_POINTS+$@gash;
mes "您購買完畢,點數已經進入您的帳號!";
mes "購買點數:^FF0000"+$@gash+"^000000";
mes "紅利點數:^FF0000"+([url=mailto@gash/10)+]$@gash/10)+"B^000000[/url]";
mes "點數總結:^FF0000" + #SHOP_POINTS + "^000000";
mes "紅利總結:^FF0000" + #BONUSPOINTS + "B^000000";
case 2: close; }
NoZeny:
next;
mes "抱歉,你沒有足夠的金錢";
close;
G_end:
close;