UID139661
帖子
精華
主題
積分33591
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限30
註冊時間2009-3-22
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 慵懶 2020-7-2 07:05 PM |
---|
簽到天數: 71 天 連續簽到: 1 天 [LV.6]常住居民II
|
發表於 2010-8-14 13:00:06
|
顯示全部樓層
本帖最後由 sb66665112 於 2010-8-14 01:12 PM 編輯
- jawaii,196,227,6 script 傳送人員 86,{
- Set .@i,0;
- While(.@i<=GetArrAySize($@Mapuse$)-1){
- Set .@i,.@i+1;
- Set .@ii$,":";
- If(.@menu$!="")Set .@menu$,""+.@menu$+""+.@ii$+""+$@Mapuse$[.@i]+"";
- If(.@menu$=="")Set .@menu$,$@Mapuse$[.@i];
- }
- Set .@i,0;
- Set .@promptmenu,prompt(""+.@menu$+":"+(getgmlevel()>=40 ? "授權":"離開")+"");
- If(.@promptmenu-2==GetArrAySize($@Mapuse$)-1){
- Mes "[Cannel]";
- for( set .@i, 1; .@i <= GetArrAySize($@Mapuse$)-1; set .@i, .@i +1 )Mes ""+$@Mapuse$[.@i]+"["+GetD("$"+$@Mapuse$[.@i]+"s$")+"]";
- Input .@add$;
- set .@promptmenu,0;
- Set .@promptmenu,prompt(.@menu$);
- If(.@promptmenu==255)close;
- SetD "$"+$@Mapuse$[.@promptmenu]+""+.@add$+"",1;
- SetD "$"+$@Mapuse$[.@promptmenu]+"s$",.@add$;
- Close;
- }
- If(GetD("$"+$@Mapuse$[.@promptmenu]+""+GetGuildname(Getcharid(2))+"")==0)close;
- Else{
- Warp $@Mapuse$[.@promptmenu],0,0;
- }
- close;
- OnInit:
- setarray $@Mapuse$[1],"MapName","prontera"; //限制地圖名稱
- end;
- }
複製代碼 |
|