UID55804
帖子
精華
主題
積分2646
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2008-1-27
在線時間 小時
最後登錄1970-1-1
該用戶從未簽到
|
EA
私服版號: |
EA10874_WinTxtVc_Tw |
問題內容: |
腳本問題 |
如下:
prontera.gat,159,107,5 script PvP大師級人物 868,{
mes "[PvP大師級人物]";
mes "斐揚,目前有【" + getmapusers("pvp_y_1-1.gat") +"】個人";
mes "劍士村,目前有【" + getmapusers("pvp_y_8-2.gat") +"】個人";
mes "四通道房,目前有【" + getmapusers("pvp_n_1-3.gat") +"】個人";
mes "^FF0000聊天房間^000000,目前有【" + getmapusers("pvp_n_2-3.gat") +"】個人";
next;
menu
"往打鬥場",room2,
"查排行榜",room1,
"取消",Lcancel;
room2:
menu
"切換到選單",room3,
"^FF0000請勿按太快^000000",room3;
room3:
menu
"斐揚",Lizu,
"劍士村",Lizu1,
"四通道房",Lizu2,
"^FF0000聊天房間^000000",Lizu3,
"取消",Lcancel;
Lizu:
warp "pvp_y_1-3.gat",0,0;
end;
Lizu1:
warp "pvp_y_8-2.gat",0,0;
end;
Lizu2:
warp "pvp_n_1-3.gat",0,0;
end;
Lizu3:
warp "pvp_y_1-1.gat",0,0;
end;
Lcancel:
close;
room1:
set @pvp_place_, 10;
set @pvp_gm_lv, 99;
set @q,0;
set @al,0;
set @pvp_none,0;
set @pvp_times_temp,0;
set @pvp_na_temp$,"";
set @str_name$,strcharinfo(0);
set @user_place,pvp_place;
mes "[PvP大師級人物]";
mes "請選擇欲使用的服務.";
next;
到這邊都還正確!!
if(getgmlevel(3)==@pvp_gm_lv)<===就是錯在這 不知怎改
{
menu "查看排行表",-,"進行名次排行",Ing,"清除排行表",Clean,"離開",Exit;
}
else
{
menu "查看排行表",-,"進行名次排行",Ing,"離開",Exit;
}
mes "[PvP大師級人物]";
do
{
set @q,@q+1;
if($pvp_times_[@q]==0)
{
set @pvp_none,@pvp_none+1;
}
else
{
mes "第^FF0000"[email=+@q+]+@q+"^000000[/email]名:^FF6600"+$pvp_na_$[@q]+"^000000,累積殺人次數為:^FF6600"+$pvp_times_[@q]+"^000000";
}
}
while(@q<@pvp_place_);
if(@pvp_none>=@pvp_place_) mes "尚未有任何記錄";
close;
end;
Ing:
mes "[PvP大師級人物]";
mes "排行進行中...";
next;
for(set @pvp_check_val,1; @pvp_check_val<[email==@pvp_place]=@pvp_place[/email]_; set @pvp_check_val,@pvp_check_val+1)
{
if(@str_name$==$pvp_na_$[@pvp_check_val])
{
set $pvp_times_[@pvp_check_val],@user_place;
set @al,@pvp_check_val;
goto Pvp_check;
}
}
if(@user_place>$pvp_times_[@pvp_place_])
{
set $pvp_times_[@pvp_place_],@user_place;
set $pvp_na_$[@pvp_place_],@str_name$;
goto Pvp_check;
}
mes "[PvP大師級人物]";
mes "你的殺人次數尚未達到排行標準";
mes "請再努力以進排行榜";
close;
end;
Pvp_check:
mes "[PvP大師級人物]";
for(set @i,1; @i<@pvp_place_; set @i,@i+1)
{
for(set @j,@i+1;@j<[email==@pvp_place_;set]=@pvp_place_;set[/email] @j,@j+1)
{
if($pvp_times_[@i] < $pvp_times_[@j])
{
set @pvp_times_temp,$pvp_times_[@i];
set $pvp_times_[@i],$pvp_times_[@j];
set $pvp_times_[@j],@pvp_times_temp;
set @pvp_na_temp$,$pvp_na_$[@i];
set $pvp_na_$[@i],$pvp_na_$[@j];
set $pvp_na_$[@j],@pvp_na_temp$;
}
}
}
if(@al>0)
{
for(set @i,1; @i<@pvp_place_; set @i,@i+1)
{
if($pvp_na_$[@i]==@str_name$)
{
if((@al-@i)>0)
{
mes "本次排名提升至第"[email=+@i]+@i[/email]+"名";
announce "恭喜 '"+strcharinfo(0)+"' 殺人次數晉升為第 '"[email=+@i+"]+@i+"'[/email] 名, 次數為 :"+$pvp_times_[@i],15,0xFF7700;
goto Ok;
}
else if((@al-@i)<0)
{
mes "本次排名降下至第"[email=+@i]+@i[/email]+"名";
goto Ok;
}
else
{
mes "本次排名和上次排名相同";
goto Ok;
}
}
}
}
else
{
for(set @i,1; @i<@pvp_place_; set @i,@i+1)
{
if($pvp_na_$[@i]==@str_name$)
{
mes "恭喜進入排行榜,名次為:第"[email=+@i]+@i[/email]+"名";
announce "恭喜 '"+strcharinfo(0)+"' 殺人次數已達排行第 '"[email=+@i+"]+@i+"'[/email] 名, 次數為 :"+$pvp_times_[@i],15,0xFF7700;
goto Ok;
}
}
}
Ok:
mes " ";
mes "排行結束..";
mes "感謝使用本服務";
close;
end;
Clean:
mes "[PvP大師級人物]";
mes "是否清除所有排行表記錄?";
next;
menu "是",-,"否",Exit;
mes "[PvP大師級人物]";
mes "排行表清除中...";
next;
for(set @pvp_check_val,1; @pvp_check_val<[email==@pvp_place]=@pvp_place[/email]_; set @pvp_check_val,@pvp_check_val+1)
{
set $pvp_na_$[@pvp_check_val],"";
set $pvp_times_[@pvp_check_val],0;
}
mes "[PvP大師級人物]";
mes "排行表清除完畢";
close;
end;
Exit:
mes "[PvP大師級人物]";
mes "感謝使用本服務, ";
mes "歡迎下次使用本服務";
close;
end;
OnInit:
waitingroom "往打鬥場�查排行榜",0;
end;
}
腳本已上傳~請大大幫忙解答唷^^
|
本帖子中包含更多資源
您需要 登錄 才可以下載或查看,沒有帳號?註冊
x
|