UID1084
帖子
精華
主題
積分4374
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限20
註冊時間2007-8-14
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2011-1-18 10:37 PM |
---|
簽到天數: 218 天 連續簽到: 0 天 [LV.7]常住居民III
|

樓主 |
發表於 2008-7-19 14:19:02
|
顯示全部樓層
我改成!
如下:
我不確定問題解決了沒!!
現在變成點他沒有任何反應!
zzzzzzzz10謝謝您的回答!
給我指引吧="=
原先的:
- script OnPCKillEvent -1,{
OnPCKillEvent:
//PVP/GVG排名
set pvp_place,pvp_place+1;
dispbottom "PVP/GVG殺人次數+1 , 目前次數為 : "+pvp_place;
}
我已經把它分開了!
問題在這!
ayothaya.gat,213,190,4 script PVP/GVG排行員 997,{
set @pvp_place_, 30; //名次顯示人數, 建議別設置超過30 ,最大值為127
set @pvp_gm_lv, 99; //設置清除排行表的GM權限
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 "[^0000EEPVP/GVG排行員^000000]";
mes "請選擇欲使用的服務.";
next;
if(getgmlevel()>0)==@pvp_gm_lv)
{
menu "查看排行表..",-,"進行名次排行..",Ing,"清除排行表..",Clean,"離開..",Exit;
}
else
{
menu "查看排行表..",-,"進行名次排行..",Ing,"離開..",Exit;
}
mes "[^0000EEPVP/GVG排行員^000000]";
do
{
set @q,@q+1;
if($pvp_times_[@q]==0)
{
set @pvp_none,@pvp_none+1;
}
else
{
mes "第^FF0000"+@q+"^000000名:^FF6600"+$pvp_na_$[@q]+"^000000,累積殺人次數為:^FF6600"+$pvp_times_[@q]+"^000000";
}
}
while(@q<@pvp_place_);
if(@pvp_none>=@pvp_place_) mes "尚未有任何記錄";
close;
end;
Ing:
mes "[^0000EEPVP/GVG排行員^000000]";
mes "排行進行中...";
next;
for(set @pvp_check_val,1; @pvp_check_val<=@pvp_place_; 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 "[^0000EEPVP/GVG排行員^000000]";
mes "你的殺人次數尚未達到排行標準";
mes "請再努力以進排行榜";
close;
end;
Pvp_check:
mes "[^0000EEPVP/GVG排行員^000000]";
for(set @i,1; @i<@pvp_place_; set @i,@i+1)
{
for(set @j,@i+1;@j<=@pvp_place_;set @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 "本次排名提升至第"+@i+"名";
announce "恭喜 '"+strcharinfo(0)+"' 殺人次數晉升為第 '"+@i+"' 名, 次數為 :"+$pvp_times_[@i],15,0xFF7700;
goto Ok;
}
else if((@al-@i)<0)
{
mes "本次排名降下至第"+@i+"名";
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 "恭喜進入排行榜,名次為:第"+@i+"名";
announce "恭喜 '"+strcharinfo(0)+"' 殺人次數已達排行第 '"+@i+"' 名, 次數為 :"+$pvp_times_[@i],15,0xFF7700;
goto Ok;
}
}
}
Ok:
mes " ";
mes "排行結束..";
mes "感謝使用本服務";
close;
end;
Clean:
mes "[^0000EEPVP/GVG排行員^000000]";
mes "是否清除所有排行表記錄?";
next;
menu "是..",-,"否..",Exit;
mes "[^0000EEPVP/GVG排行員^000000]";
mes "排行表清除中...";
next;
for(set @pvp_check_val,1; @pvp_check_val<=@pvp_place_; set @pvp_check_val,@pvp_check_val+1)
{
set $pvp_na_$[@pvp_check_val],"";
set $pvp_times_[@pvp_check_val],0;
}
mes "[^0000EEPVP/GVG排行員^000000]";
mes "排行表清除完畢";
close;
end;
Exit:
mes "[^0000EEPVP/GVG排行員^000000]";
mes "感謝使用本服務, ";
mes "歡迎下次使用本服務";
close;
OnInit:
waitingroom "PVP/GVG排行員",0;
end;
}
[ 本帖最後由 king_husky_9490 於 2008-7-19 02:20 PM 編輯 ] |
|