UID6976
帖子
精華
主題
積分462
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限5
註冊時間2007-8-26
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2015-11-21 01:11 AM |
---|
簽到天數: 7 天 連續簽到: 4 天 [LV.3]偶爾看看II
|
本帖最後由 leewei321 於 2009-7-1 01:24 PM 編輯
// By. 信仔 ( 2008/07/26 )
// 原始腳本為陳小修&官方腳本
// 心得:無聊做做也 咦哈∼
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
p_track01,0,0,5 script PoringRunStart -1,{
OnInit:
set [email=$@PRestTimer,1]$@PRestTimer,1[/email];
if ( gettime(2) >= 45 && gettime(2) <= 59 ) set [email=$@PRestTimer,0]$@PRestTimer,0[/email];
disablenpc "賽波利裁判";
end;
OnMinute45:
set [email=$@PRestTimer,0]$@PRestTimer,0[/email];
disablenpc "賽波利裁判";
announce "賽波利裁判:賽波利活動開始倒數15分鐘,請於這段時間去商店街右下報名!",15;
end;
OnMinute50:
announce "賽波利裁判:賽波利活動開始倒數10分鐘,請於這段時間去報名!",15;
end;
OnMinute55:
announce "賽波利裁判:賽波利活動開始倒數5分鐘,請於這段時間去商店街右下報名!",15;
end;
OnMinute59:
announce "賽波利裁判:賽波利活動開始倒數1分鐘,請於這段時間去報名!",15;
end;
OnMinute00:
set [email=$@PRestTimer,1]$@PRestTimer,1[/email];
if ( getmapusers("p_track01.gat") == 0 ) {
announce "賽波利裁判:無人參加賽波利,活動取消!",15;
end;
}
set [email=$@PStart,1]$@PStart,1[/email];
announce "【賽波利快報】賽波利活動參加人數 [ "+getmapusers("p_track01.gat")+" ] 人,現在開始!",15;
donpcevent "賽波利裁判::OnCommandon";
end;
}
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
guild_vs2.gat,59,41,4 script 賽波跑場管理員 903,{
mes "[^C49802賽跑場管理員^000000]";
mes "您好,我是賽波利傳送員。";
mes "請問您需要什麼服務呢?";
next;
switch(select("購買彩票:觀看規則:查看資訊:^808080取消^000000")) {
case 1:
if ( PZeny2 > 1 ) {
mes "[^C49802賽跑場管理員^000000]";
mes "你已經下過注了。";
close; }
set PZeny2,0;
set PTicket,0;
mes "[^C49802賽跑場管理員^000000]";
if ( $PWins != 0 ) mes "上個場次的冠軍為 [^FF0000波利"+$PWins+"號^000000],";
mes "請問您要下注幾號波利呢?";
next;
switch(select("波利1號:波利2號:波利3號:波利4號:波利5號:波利6號")) {
case 1: set PTicket,1; break;
case 2: set PTicket,2; break;
case 3: set PTicket,3; break;
case 4: set PTicket,4; break;
case 5: set PTicket,5; break;
case 6: set PTicket,6; break; }
if ( [email=$@PRestTimer]$@PRestTimer[/email] == 1 ) {
mes "[^C49802賽跑場管理員^000000]";
mes "現在是休息時間,您錯過囉!";
mes "此活動是每個小時的整點進行!";
close; }
mes "[^C49802賽跑場管理員^000000]";
mes "您已選擇下注 [ ^FF0000波利"+PTicket+"號^000000 ],";
mes "請輸入您想下注的金額。";
next;
set @Zeny,0;
input @Zeny;
if ( @zeny < 1 || @zeny > 30000000 ) {
mes "[^C49802賽跑場管理員^000000]";
mes "您下注的金額不正確!";
close;
}
if ( zeny < @zeny ) {
mes "[^C49802賽跑場管理員^000000]";
mes "對不起,您沒有足夠的金錢!";
close;
}
mes "[^C49802賽跑場管理員^000000]";
mes "您購買的^FF0000賽波利彩票^000000資訊:";
mes "下注魔物 [ ^FF0000波利"+PTicket+"號^000000 ]";
mes "下注金額 [ ^FF0000"[email=+@zeny+]+@zeny+"^000000[/email] ]";
mes " ";
mes "正確請按^FF0000是^000000,錯誤請按^FF0000否^000000!";
next;
if (select("是:否")==1) {
set Zeny,Zeny-@zeny;
set PZeny2,@zeny;
mes "[^C49802賽跑場管理員^000000]";
mes "恭喜您下注作業成功了。";
warp "p_track01.gat",51,41; close;
}
close;
case 2:
mes "[^C49802賽跑場管理員^000000]";
mes "每場比賽的時間為 ^FF000030^000000 秒鐘,";
mes "每次比賽可以下注任何波利的金額,";
mes "每注最多只受 ^FF00003000萬^000000 Zeny";
mes "獲勝可以獲得彩票金額的 ^FF00003^000000 倍唷!";
close;
case 3:
mes "[^C49802賽跑場管理員^000000]";
mes "[ ^FF0000波利1號^000000 ] 冠軍 [ ^0000FF"+$P1Wins+"^000000 ] 個場次";
mes "[ ^FF0000波利2號^000000 ] 冠軍 [ ^0000FF"+$P2Wins+"^000000 ] 個場次";
mes "[ ^FF0000波利3號^000000 ] 冠軍 [ ^0000FF"+$P3Wins+"^000000 ] 個場次";
mes "[ ^FF0000波利4號^000000 ] 冠軍 [ ^0000FF"+$P4Wins+"^000000 ] 個場次";
mes "[ ^FF0000波利5號^000000 ] 冠軍 [ ^0000FF"+$P5Wins+"^000000 ] 個場次";
mes "[ ^FF0000波利6號^000000 ] 冠軍 [ ^0000FF"+$P6Wins+"^000000 ] 個場次";
close;
case 4:
close;
}
}
(因為字數超過1萬只能貼上半部,抱歉ˊˋ)
請問要怎麼讓她每一場比賽結束
所有人的下注金都歸0呢
因為有些人下注了,然後進了比賽場地
沒點比賽領獎NPC出來
之後點npc要參加賽波都會顯示 你已經下注過,都進不去了。
請問要新增什麼字才能讓比賽完歸0下注金呢
|
本帖子中包含更多資源
您需要 登錄 才可以下載或查看,沒有帳號?註冊
x
|