EA 威力彩的問題 Part2

魂哥

繼上一次問題解決後

好像又發現問題了..

他說如果沒人中獎會將上一期獎金的10%增加到這一期的初始獎金中...

例如上一期總獎金是100萬 本期初始獎金是10萬 那就會把上一期的100萬抽取10萬出來加到本期的10萬上

所以說本期的初始獎金就會變成20萬

可是這個腳本並不會增加 就算本期結束沒人領獎金100萬 下一期也的初始獎金也只有10萬 沒有增加上一期的10%獎金

(Ps.會不會說的太複雜= =?)

----------------------------------------------------------------------------------------------
問題解決...部分內容爆炸銷毀....
aldeba_in.gat,21,239,4 script 彩票開獎 -1,{
end;
OnClock1900:
  set $TT2mon,200000; //二獎獎金
  set $TTnum,rand(100,999);
  set $TTnum1,$TTnum2;    //保留上一期號碼
  set $TTnum2,$TTnum;    //設置本期號碼
  set $TT3th,$TTth+$TT2th;   //設置本期號碼
  announce "《 拉斐爾威力彩 第"+$TTaa+"期開獎，本期中獎號碼是〝 "+$TTnum1+" 〞，共有"+$TT3th+"名玩家中獎。 》",15;
  set $TTmon4,$TTmon1;    //再上一期每人可得獎金
  set $TTmon2,$TTmon3;    //上一期總獎金
  if ( $TTmon2 > 20000000 ) set $TTmon2,20000000; //設置獎金上限為2000萬
  set $TTmon1,$TTmon2;    //上一期每人可以領取的獎金
//  if ( $TTth > 1 ) set $TTmon1,$TTmon2/$TTth; //按中獎人數平分獎金
  set $TTLuk,($TTLuk+$TTth);   //更新累計中獎人數。
  set $TT2Luk,($TT2Luk+$TT2th);   //更新累計中二獎人數。
  set $TTa2,$TTa;     //保留上一期的期數
  set $TTa,$TTa+100000;    //本期期數+1
  set $TTaa,$TTaa+1;    //本期期數（用於顯示）
  set $TTth3,$TTth2;    //保留再上一期中獎人數
  set $TTth2,$TTth;    //保留上一期中獎人數
  set $TTth,0;     //清空本期中獎人數
  set $TT2th3,$TT2th2;    //保留再上一期中二獎人數
  set $TT2th2,$TT2th;    //保留上一期中二獎人數
  set $TT2th,0;     //清空本期中二獎人數
  set $TTcnum,$TTbnum;    //保留上一期購買人數
  set $TTbnum,0;     //清空本期購買人數
  set $TTgetp2,$TTgetp;    //保留上一期領獎人數
  set $TTgetp,0;     //清空本期領獎人數
  if ( $TTget1 < $TTa2 ) set $TTget1,0;  //清空中獎名單
  if ( $TTget2 < $TTa2 ) set $TTget2,0;  //清空中獎名單
  if ( $TTget3 < $TTa2 ) set $TTget3,0;  //清空中獎名單
  if ( $TTget4 < $TTa2 ) set $TTget4,0;  //清空中獎名單
  if ( $TTget5 < $TTa2 ) set $TTget5,0;  //清空中獎名單
  if ( $TTget6 < $TTa2 ) set $TTget6,0;  //清空中獎名單
  if ( $TTget7 < $TTa2 ) set $TTget7,0;  //清空中獎名單
  if ( $TTget8 < $TTa2 ) set $TTget8,0;  //清空中獎名單
  if ( $TTget9 < $TTa2 ) set $TTget9,0;  //清空中獎名單
  if ( $TTget21 < $TTa2 ) set $TTget21,0;  //清空中獎名單
  if ( $TTget22 < $TTa2 ) set $TTget22,0;  //清空中獎名單
  if ( $TTget23 < $TTa2 ) set $TTget23,0;  //清空中獎名單
  if ( $TTget24 < $TTa2 ) set $TTget24,0;  //清空中獎名單
  if ( $TTget25 < $TTa2 ) set $TTget25,0;  //清空中獎名單
  if ( $TTget26 < $TTa2 ) set $TTget26,0;  //清空中獎名單
  if ( $TTget27 < $TTa2 ) set $TTget27,0;  //清空中獎名單
  if ( $TTget28 < $TTa2 ) set $TTget28,0;  //清空中獎名單
  if ( $TTget29 < $TTa2 ) set $TTget29,0;  //清空中獎名單
  if ( $TTth2 == 0 ) goto Lgetall;
  set $TTmon3,$TTmon;
  if ( $TTgetp2 < $TTth3 ) goto Lnoall;
End;
Lgetall:
  set $TTmon3,$TTmon2/10+$TTmon2;
  if ( $TTmon3 > 3000000 ) set $TTmon3,3000000;
  if ( $TTgetp2 < $TTth3 ) goto Ladnoget;
End;
Ladnoget:
  set $Tmon,($TTth3-$TTgetp);
  set $TTmon3,($TTmon4*$Tmon)+$TTmon;
  if ( $TTmon3 > 3000000 ) set $TTmon3,3000000;
End;
OnInit:
  waitingroom "DeepRO彩票購買處",0;
  if ($TTinit==1) End;
  set $TTa,100000; //設定期數為第一期
  set $TTaa,1;  //期數為第一期（用於顯示）
  set $TTa2,0;  //上一期的期數
  set $TTmon,3000000; //設定初始獎金
  set $TTmon1,0;  //每人可得的獎金
  set $TTmon2,0;  //上一期總獎金
  set $TTmon3,$TTmon; //本期獎金
  set $TTmon4,0;  //再上一期每人領取獎金
  set $Tmon,0;  //沒有被領取的獎金份數
  set $TT2mon,200000; //二獎獎金
// Lrenum1:
  set $TTnum,rand(100,999); //設定本期號碼
//  if ($TTnum <100 || $TTnum >999 ) goto Lrenum1;
  set $TTnum2,$TTnum; //設定第一期中獎號碼
  set $TTnum1,0;  //設定第一期中獎號碼
  set $TTcnum,0;  //上一期購買人數
  set $TTbnum,0;  //本期購買人數
  set $TTanum,0;  //總累計購買人數
  set $TTth,0;  //本期中獎人數
  set $TTth2,0;  //上一期中獎人數
  set $TTth3,0;  //再上一期中獎人數
  set $TT2th,0;  //本期中二獎人數
  set $TT2th2,0;  //上一期中二獎人數
  set $TT2th3,0;  //再上一期中二獎人數
  set $TTLuk,0;  //總累計中獎人數
  set $TT2Luk,0;  //總累計中二獎人數
  set $TTgetp2,0;  //上一期領獎人數
  set $TTgetp,0;  //本期領獎人數
  set $TTget1,0;  //清空中獎名單
  set $TTget2,0;
  set $TTget3,0;
  set $TTget4,0;
  set $TTget5,0;
  set $TTget6,0;
  set $TTget7,0;
  set $TTget8,0;
  set $TTget9,0;
  set $TTget21,0;  //清空中獎名單
  set $TTget22,0;
  set $TTget23,0;
  set $TTget24,0;
  set $TTget25,0;
  set $TTget26,0;
  set $TTget27,0;
  set $TTget28,0;
  set $TTget29,0;
  set $TTinit,1;  //初始化完成
End;
}

[ 本帖最後由 魂哥 於 2009-1-22 12:10 PM 編輯 ]

goddameit

給 你 一 個 小 概 念

$x,$x+$x/10;

這 樣 $x 就 會 +10%

所 以 要 達 到 你 那 個 的 方 法

假 設 $x=100萬 //累積金額
$y=10萬 //初始金額

set $x,$x/10; //得出10萬

set $y,$y+$x; //得出10萬+10萬=20萬

這 樣 不 就 20萬 了 嘛

最 後 清 除 $x

set $x,0;

goddameit

#2
補 完 了
，，，，，，，，

魂哥

我照了你說的自己想了一下

紅字的地方是我增加的地方

不過好像還是有錯誤

他的累計獎金還是一樣會回到初始金額...

我把$TTmon10設定成上一期的獎金10%

可以幫我看一下錯誤嗎0.0

aldeba_in.gat,21,239,4 script 彩票開獎 -1,{
end;
OnClock2243:
  set $TT2mon,800000; //二獎獎金
  set $TTnum,rand(100,999);
  set $TTnum1,$TTnum2;    //保留上一期號碼
  set $TTnum2,$TTnum;    //設置本期號碼
  set $TT3th,$TTth+$TT2th;   //設置本期號碼
  announce "《 拉斐爾威力彩 第"+$TTaa+"期開獎，本期中獎號碼是〝 "+$TTnum1+" 〞，共有"+$TT3th+"名玩家中獎。 》",15;
  set $TTmon4,$TTmon1;    //再上一期每人可得獎金
  set $TTmon2,$TTmon3;    //上一期總獎金
  if ( $TTmon2 > 20000000 ) set $TTmon2,20000000; //設置獎金上限為2000萬
  set $TTmon1,$TTmon2;    //上一期每人可以領取的獎金
  if ( $TTth > 1 ) set $TTmon1,$TTmon2/$TTth; //按中獎人數平分獎金
  if ( $TTth > 1 ) set $TTmon10,0;  //有人中獎就刪除10%
  set $TTmon10,$TTmon2/10;   //沒人中獎累計獎金增加10%
  set $TTmon3,3000000+$TTmon10;   //本期的累計獎金
  set $TTLuk,($TTLuk+$TTth);   //更新累計中獎人數。
  set $TT2Luk,($TT2Luk+$TT2th);   //更新累計中二獎人數。
  set $TTa2,$TTa;     //保留上一期的期數
  set $TTa,$TTa+100000;    //本期期數+1
  set $TTaa,$TTaa+1;    //本期期數（用於顯示）
  set $TTth3,$TTth2;    //保留再上一期中獎人數
  set $TTth2,$TTth;    //保留上一期中獎人數
  set $TTth,0;     //清空本期中獎人數
  set $TT2th3,$TT2th2;    //保留再上一期中二獎人數
  set $TT2th2,$TT2th;    //保留上一期中二獎人數
  set $TT2th,0;     //清空本期中二獎人數
  set $TTcnum,$TTbnum;    //保留上一期購買人數
  set $TTbnum,0;     //清空本期購買人數
  set $TTgetp2,$TTgetp;    //保留上一期領獎人數
  set $TTgetp,0;     //清空本期領獎人數
  if ( $TTget1 < $TTa2 ) set $TTget1,0;  //清空中獎名單
  if ( $TTget2 < $TTa2 ) set $TTget2,0;  //清空中獎名單
  if ( $TTget3 < $TTa2 ) set $TTget3,0;  //清空中獎名單
  if ( $TTget4 < $TTa2 ) set $TTget4,0;  //清空中獎名單
  if ( $TTget5 < $TTa2 ) set $TTget5,0;  //清空中獎名單
  if ( $TTget6 < $TTa2 ) set $TTget6,0;  //清空中獎名單
  if ( $TTget7 < $TTa2 ) set $TTget7,0;  //清空中獎名單
  if ( $TTget8 < $TTa2 ) set $TTget8,0;  //清空中獎名單
  if ( $TTget9 < $TTa2 ) set $TTget9,0;  //清空中獎名單
  if ( $TTget21 < $TTa2 ) set $TTget21,0;  //清空中獎名單
  if ( $TTget22 < $TTa2 ) set $TTget22,0;  //清空中獎名單
  if ( $TTget23 < $TTa2 ) set $TTget23,0;  //清空中獎名單
  if ( $TTget24 < $TTa2 ) set $TTget24,0;  //清空中獎名單
  if ( $TTget25 < $TTa2 ) set $TTget25,0;  //清空中獎名單
  if ( $TTget26 < $TTa2 ) set $TTget26,0;  //清空中獎名單
  if ( $TTget27 < $TTa2 ) set $TTget27,0;  //清空中獎名單
  if ( $TTget28 < $TTa2 ) set $TTget28,0;  //清空中獎名單
  if ( $TTget29 < $TTa2 ) set $TTget29,0;  //清空中獎名單
  if ( $TTth2 == 0 ) goto Lgetall;
  set $TTmon3,$TTmon;
  if ( $TTgetp2 < $TTth3 ) goto Lnoall;
End;
Lgetall:
  set $TTmon3,$TTmon2/10+$TTmon2;
  if ( $TTmon3 > 3000000 ) set $TTmon3,3000000;
  if ( $TTgetp2 < $TTth3 ) goto Ladnoget;
End;
Ladnoget:
  set $Tmon,($TTth3-$TTgetp);
  set $TTmon3,($TTmon4*$Tmon)+$TTmon;
  if ( $TTmon3 > 3000000 ) set $TTmon3,3000000;
End;
OnInit:
  waitingroom "DeepRO彩票購買處",0;
  if ($TTinit==1) End;
  set $TTa,100000; //設定期數為第一期
  set $TTaa,1;  //期數為第一期（用於顯示）
  set $TTa2,0;  //上一期的期數
  set $TTmon,3000000; //設定初始獎金
  set $TTmon1,0;  //每人可得的獎金
  set $TTmon2,0;  //上一期總獎金
  set $TTmon3,$TTmon; //本期獎金
  set $TTmon4,0;  //再上一期每人領取獎金
  set $Tmon,0;  //沒有被領取的獎金份數
  set $TT2mon,800000; //二獎獎金  
// Lrenum1:
  set $TTnum,rand(100,999); //設定本期號碼
//  if ($TTnum <100 || $TTnum >999 ) goto Lrenum1;
  set $TTnum2,$TTnum; //設定第一期中獎號碼
  set $TTnum1,0;  //設定第一期中獎號碼
  set $TTcnum,0;  //上一期購買人數
  set $TTbnum,0;  //本期購買人數
  set $TTanum,0;  //總累計購買人數
  set $TTth,0;  //本期中獎人數
  set $TTth2,0;  //上一期中獎人數
  set $TTth3,0;  //再上一期中獎人數
  set $TT2th,0;  //本期中二獎人數
  set $TT2th2,0;  //上一期中二獎人數
  set $TT2th3,0;  //再上一期中二獎人數
  set $TTLuk,0;  //總累計中獎人數
  set $TT2Luk,0;  //總累計中二獎人數
  set $TTgetp2,0;  //上一期領獎人數
  set $TTgetp,0;  //本期領獎人數
  set $TTget1,0;  //清空中獎名單
  set $TTget2,0;
  set $TTget3,0;
  set $TTget4,0;
  set $TTget5,0;
  set $TTget6,0;
  set $TTget7,0;
  set $TTget8,0;
  set $TTget9,0;
  set $TTget21,0;  //清空中獎名單
  set $TTget22,0;
  set $TTget23,0;
  set $TTget24,0;
  set $TTget25,0;
  set $TTget26,0;
  set $TTget27,0;
  set $TTget28,0;
  set $TTget29,0;
  set $TTinit,1;  //初始化完成
End;
}

pan00017

用OnInit會回到初始狀態

£×ＳＫＹ﹋°

去把array學一學吧= ="

這麼一長串 ， 看了真礙眼= ="

魂哥

我已經用好了0.0

謝謝大家再次幫忙Q__Q

goddameit

我 還 是 建 議
if( X ){ M } 這 樣 子 比 較 好