UID103963
帖子
精華
主題
積分2839
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2008-9-12
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 怒 2019-2-21 09:51 AM |
---|
簽到天數: 135 天 連續簽到: 1 天 [LV.7]常住居民III
|
發表於 2011-8-21 03:11:59
|
顯示全部樓層
寫了一個範例給你看,你自己慢慢研究- prontera,148,98,4 script 隨機選卡片 454,{
- mes "請選擇你要的卡片";
- set @searchq,0;
- Search:
- mes "請選擇^FF0000"+ (3 - @searchq) +"^000000張所需道具";
- set @S_ItemData$,"";
- next;
- if(@searchq==3)goto Ovsearch;
- if(@searchq<3){
- for(set @i,1; @i<getarraysize($@searchitem); set @i,@i+1){
- set @S_ItemData$,@S_ItemData$+":"+(@si[@i]?"":""+getitemname($@searchitem[@i])+"");
- }
- }
- set @su,select(@S_ItemData$);
- set @si[@su-1],1;
- set @searchitem2[@searchq],$@searchitem[@su-1];
- set @searchq,@searchq+1;
- goto Search;
-
- Ovsearch:
- mes "你所選的卡片為";
- for(set @i,0; @i<getarraysize(@searchitem2); set @i,@i+1){
- mes "^FF0000"+getitemname(@searchitem2[@i])+"^000000";
- }
- next;
- menu "是的",-,"不我要重新選",Research;
- getitem @searchitem2[rand(getarraysize(@searchitem2))],1;
- deletearray @searchitem2[0],getarraysize(@searchitem2);
- deletearray @si[0],getarraysize(@si);
- close;
- end;
- Research:
- set @searchq,0;
- mes "請選擇你要的卡片";
- deletearray @searchitem2[0],getarraysize(@searchitem2);
- deletearray @si[0],getarraysize(@si);
- goto Search;
- close;
- end;
- OnInit:
- setarray $@searchitem[1],501,502,503,504,505;
- }
複製代碼 |
|