UID323953
帖子
精華
主題
積分-54
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限0
註冊時間2014-1-25
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2014-3-20 01:36 PM |
---|
簽到天數: 2 天 連續簽到: 1 天 [LV.1]初來乍到
|

樓主 |
發表於 2015-5-12 09:08:39
|
顯示全部樓層
goddameit 發表於 2015-5-11 08:13 PM 
如果是原創或是獨特, 可以發上來給我看看.
prontera.gat,156,108,6 script **** 791,{
//=======================================================
// 预设物品
if ($@dj1==0) set $@dj1,512;
if ($@dj2==0) set $@dj2,512;
if ($@dj3==0) set $@dj3,512;
if ($@dj4==0) set $@dj4,512;
if ($@dj5==0) set $@dj5,512;
//=======================================================
mes "道具制作";
mes "这里有道具制作哦!";
mes "请选择吧!";
next;
switch(select("查看道具","领取资助道具",(getgmlevel()>1)?"资助道具":""))
{ case 1:
callfunc "查看道具#01"; end;
case 2:
callfunc "领取道具#02"; end;
case 3:
callfunc "资助道具"; end; }
}
//=======================================================
//=======================================================
function script 资助道具 {
mes "GM大哥,你好!";
mes "请选择后台选项:";
next;
switch(select("查看道具","领取资助道具",(getgmlevel()>90)?"后台设置":""))
{ case 1:
callfunc "查看道具#01"; end;
case 2:
callfunc "领取道具#02"; end;
case 3:
callfunc "后台设置#03"; end; }
}
//=======================================================
//=======================================================
function script 查看道具#01 {
chak:
mes "请选择要查看的道具";
next;
menu ""+getitemname($@dj1)+"",d1,
""+getitemname($@dj2)+"",d2,
""+getitemname($@dj3)+"",d3,
""+getitemname($@dj4)+"",d4,
""+getitemname($@dj5)+"",d5,
"算了",sl;
d1:
mes "道具一";
mes "物品:^FF0000"+getitemname($@dj1)+"^000000";
close2;
goto chak;
d2:
mes "道具二";
mes "物品:^FF0000"+getitemname($@dj2)+"^000000";
close2;
goto chak;
d3:
mes "道具三";
mes "物品:^FF0000"+getitemname($@dj3)+"^000000";
close2;
goto chak;
d4:
mes "道具四";
mes "物品:^FF0000"+getitemname($@dj4)+"^000000";
close2;
goto chak;
d5:
mes "道具五";
mes "物品:^FF0000"+getitemname($@dj5)+"^000000";
close2;
goto chak;
sl:
mes "欢迎再来";
close;
}
//=======================================================
//=======================================================
function script 领取道具#02 {
mes "请选择领取的道具";
next;
menu ""+getitemname($@dj1)+"",z1,
""+getitemname($@dj2)+"",z2,
""+getitemname($@dj3)+"",z3,
""+getitemname($@dj4)+"",z4,
""+getitemname($@dj5)+"",z5;
z1:
mes "道具一";
mes "物品:^FF0000"+getitemname($@dj1)+"^000000";
next;
menu "领取!",dh1,"算了",sl;
dh1:
rentitem $@dj1,2592000;
mes "拿好你的东西,欢迎再来!";
close;
z2:
mes "道具二";
mes "物品:^FF0000"+getitemname($@dj2)+"^000000";
next;
menu "领取!",dh2,"算了",sl;
dh2:
rentitem $@dj2,2592000;
mes "拿好你的东西,欢迎再来!";
close;
z3:
mes "道具三";
mes "物品:^FF0000"+getitemname($@dj3)+"^000000";
next;
menu "领取!",dh3,"算了",sl;
dh3:
rentitem $@dj3,2592000;
mes "拿好你的东西,欢迎再来!";
close;
z4:
mes "道具四";
mes "物品:^FF0000"+getitemname($@dj4)+"^000000";
next;
menu "领取!",dh4,"算了",sl;
dh4:
rentitem $@dj4,2592000;
mes "拿好你的东西,欢迎再来!";
close;
z5:
mes "道具五";
mes "物品:^FF0000"+getitemname($@dj5)+"^000000";
next;
menu "领取!",dh5,"算了",sl;
dh5:
rentitem $@dj5,2592000;
mes "拿好你的东西,欢迎再来!";
close;
sl:
mes "欢迎再来";
close;
}
//=======================================================
//=======================================================
function script 后台设置#03 {
xiug:
mes "请选择要修改的道具";
next;
menu ""+getitemname($@dj1)+"",x1,
""+getitemname($@dj2)+"",x2,
""+getitemname($@dj3)+"",x3,
""+getitemname($@dj4)+"",x4,
""+getitemname($@dj5)+"",x5,
"算了",sl;
x1:
mes "道具一";
mes "物品:^FF0000"+getitemname($@dj1)+"^000000";
next;
menu "修改此道具ID",xiugd1,"返回",xiug;
xiugd1:
mes "请输入道具一的物品ID";
input @item0;
mes "此道具是^FF0000 "+getitemname(@item0)+" ^000000";
mes "确定设定此道具吗?";
menu "确定!",queding0,"重新设定道具一",x1;
queding0:
set $@dj1,@item0;
mes "设置成功!";
close2;
goto x1;
x2:
mes "道具二";
mes "物品:^FF0000"+getitemname($@dj2)+"^000000";
next;
menu "修改此道具ID",xiugd2,"返回",xiug;
xiugd2:
mes "请输入道具二的物品ID";
input @item20;
mes "此道具是^FF0000 "+getitemname(@item20)+" ^000000";
mes "确定设定此道具吗?";
menu "确定!",queding20,"重新设定道具二",x2;
queding20:
set $@dj2,@item20;
mes "设置成功!";
close2;
goto x2;
x3:
mes "道具三";
mes "物品:^FF0000"+getitemname($@dj3)+"^000000";
next;
menu "修改此道具ID",xiugd3,"返回",xiug;
xiugd3:
mes "请输入道具三的物品ID";
input @item30;
mes "此道具是^FF0000 "+getitemname(@item30)+" ^000000";
mes "确定设定此道具吗?";
menu "确定!",queding30,"重新设定道具三",x3;
queding30:
set $@dj3,@item30;
mes "设置成功!";
close2;
goto x3;
x4:
mes "道具四";
mes "物品:^FF0000"+getitemname($@dj4)+"^000000";
next;
menu "修改此道具ID",xiugd4,"返回",xiug;
xiugd4:
mes "请输入道具四的物品ID";
input @item40;
mes "此道具是^FF0000 "+getitemname(@item40)+" ^000000";
mes "确定设定此道具吗?";
menu "确定!",queding40,"重新设定道具四",x4;
queding40:
set $@dj4,@item40;
mes "设置成功!";
close2;
goto x4;
x5:
mes "道具五";
mes "物品:^FF0000"+getitemname($@dj5)+"^000000";
next;
menu "修改此道具ID",xiugd5,"返回",xiug;
xiugd5:
mes "请输入道具五的物品ID";
input @item50;
mes "此道具是^FF0000 "+getitemname(@item50)+" ^000000";
mes "确定设定此道具吗?";
menu "确定!",queding50,"重新设定道具五",x5;
queding50:
set $@dj5,@item50;
mes "设置成功!";
close2;
goto x5;
sl:
mes "欢迎再来";
close;
}
|
|