📄 e_casino.cgi
字号:
var ing;
function shuffle(line,med){
lins=line;
if(ing){
return false;
}else if (eval(mymedal.innerText) < med) {
alert('筹码点数不足。');return false;
}else{
mymedal.innerText-=med;
betbutton.style.visibility='hidden';
ing='true';
winmedal.innerText='0';
l0.style.visibility=l1.style.visibility=l2.style.visibility=l3.style.visibility=l4.style.visibility=l5.style.visibility=l6.style.visibility=l7.style.visibility='hidden';
d1.innerText=d2.innerText=d3.innerText=d4.innerText=d5.innerText=d6.innerText=d7.innerText=d8.innerText=d9.innerText='';
mrc1.src=mrc2.src=mrc3.src=mrc4.src=mrc5.src=mrc6.src=mrc7.src=mrc8.src=mrc9.src='$IMG_URL/dummy2.gif';
c1.src=c2.src=c3.src=c4.src=c5.src=c6.src=c7.src=c8.src=c9.src='$IMG_URL/dummy.gif';
g1.innerText=g2.innerText=g3.innerText=g4.innerText=g5.innerText=g6.innerText='0';
switch(line){
case 1:l0.style.visibility='visible';break;
case 2:l0.style.visibility=l3.style.visibility='visible';break;
case 3:l0.style.visibility=l1.style.visibility=l2.style.visibility='visible';break;
case 4:l0.style.visibility=l1.style.visibility=l2.style.visibility=l3.style.visibility='visible';break;
case 5:l0.style.visibility=l1.style.visibility=l2.style.visibility=l6.style.visibility=l7.style.visibility='visible';break;
case 6:l0.style.visibility=l1.style.visibility=l2.style.visibility=l3.style.visibility=l4.style.visibility=l5.style.visibility='visible';break;
case 7:l0.style.visibility=l1.style.visibility=l2.style.visibility=l3.style.visibility=l4.style.visibility=l5.style.visibility=l6.style.visibility=l7.style.visibility='visible';break;
}
for (i=1; i <= 9; i++){
setTimeout("c" + i + ".src='$IMG_URL/card1.gif';",i*100+400)
}
for (j=1; j <= 9; j++){
setTimeout('open(d'+j+',c'+j+',mrc'+j+')',j*500+2600)
}
setTimeout('hantei(lins)',8500)
ing=false;
}
}
function hantei (ls){
for (di=0; di <= 7; di++){
switch (di){
case 0:Da='d8';Db='d9';Dc='d4';Ma='mrc8';Mb='mrc9';Mc='mrc4';ceck='ls>0';break;
case 1:Da='d1';Db='d2';Dc='d3';Ma='mrc1';Mb='mrc2';Mc='mrc3';ceck='ls>=3';break;
case 2:Da='d7';Db='d6';Dc='d5';Ma='mrc7';Mb='mrc6';Mc='mrc5';ceck='ls>=3';break;
case 3:Da='d2';Db='d9';Dc='d6';Ma='mrc2';Mb='mrc9';Mc='mrc6';ceck='ls==2 || ls==4 || ls>=6';break;
case 4:Da='d1';Db='d8';Dc='d7';Ma='mrc1';Mb='mrc8';Mc='mrc7';ceck='ls>=6';break;
case 5:Da='d3';Db='d4';Dc='d5';Ma='mrc3';Mb='mrc4';Mc='mrc5';ceck='ls>=6';break;
case 6:Da='d1';Db='d9';Dc='d5';Ma='mrc1';Mb='mrc9';Mc='mrc5';ceck='ls==5 || ls==7';break;
case 7:Da='d7';Db='d9';Dc='d3';Ma='mrc7';Mb='mrc9';Mc='mrc3';csck='ls==5 || ls==7';break;
}
if(eval(ceck)){
if (eval(Da).innerText == eval(Db).innerText && eval(Db).innerText == eval(Dc).innerText && eval(Dc).innerText == 7 && eval(Ma).src == eval(Mb).src && eval(Mb).src == eval(Mc).src){
g1.innerText++;
rankin(4);
}else if (eval(Da).innerText == eval(Db).innerText && eval(Db).innerText == eval(Dc).innerText && eval(Ma).src == eval(Mb).src && eval(Mb).src == eval(Mc).src){
g2.innerText++;
rankin(3);
}else if (eval(Da).innerText == eval(Db).innerText && eval(Db).innerText == eval(Dc).innerText && eval(Dc).innerText == 7){
g3.innerText++;
rankin(2);
}else if (eval(Da).innerText == eval(Db).innerText && eval(Db).innerText == eval(Dc).innerText){
g4.innerText++;
rankin(1);
}
else if (eval(Ma).src == eval(Mb).src && eval(Mb).src == eval(Mc).src){g5.innerText++;}
if (eval(Ma).src == '$IMG_URL/2.gif'){g6.innerText++;}
if (eval(Mb).src == '$IMG_URL/2.gif'){g6.innerText++;}
if (eval(Mc).src == '$IMG_URL/2.gif'){g6.innerText++;}
}
}
kakutokum=(g1.innerText*$GAME2_GETMEDAL_1)+(g2.innerText*$GAME2_GETMEDAL_2)+(g3.innerText*$GAME2_GETMEDAL_3)+(g4.innerText*$GAME2_GETMEDAL_4)+(g5.innerText*$GAME2_GETMEDAL_5)+(g6.innerText*$GAME2_GETMEDAL_6);
winmedal.innerText=kakutokum;
mymedal.innerText=eval(mymedal.innerText)+kakutokum;
betbutton.style.visibility='visible';
}
function rankin(rnkclass){
nm=prompt('你的成绩进入排名了，请输入你的名字\\n（输入文字不能超过八个字）','');
if(nm){
if (nm.length > 16){alert('超过八个字了。（'+nm.length+'文字）');return false;}
if(nm.match('[<>]') != null) {window.alert('文字包含禁止使用的半角字符。');return false }
rank.name.value=nm;
com=prompt('请输入你的发言（输入文字不能超过30个字）','');
if(com != null){
if (com.length > 60){alert('超过30个字了。（'+com.length+'文字）');return false;}
if(com.match('[<>]') != null) {window.alert('文字包含禁止使用的半角字符。');return false }
rank.clss.value=rnkclass;
rank.Comment.value=com;
rank.sbm.click();
}
}
}
function open(ddd,ccc,mmm){
ccc.src='$IMG_URL/card3.gif';
kazu1 =Math.floor( Math.random()*52);
kazu2 = kazu1 % 13;
var kazu3 = Math.floor(kazu1 / 13 + 1);
if (kazu2 == 1) {ddd.innerText='A';}
else if (kazu2 == 0){ddd.innerText='K';}
else if (kazu2 == 11){ddd.innerText='J';}
else if (kazu2 == 12){ddd.innerText='Q';}
else {ddd.innerText=kazu2;}
mmm.src='$IMG_URL/' + kazu3 + '.gif';
}
</script>
<table border=3 cellspacing=0 cellpadding=10 bordercolordark="#CCFFFF" bordercolorlight="#CCFFCC">
<tr><td style="font-size:25pt"><b>九 张 牌</b><div align=right>$LOGO</div></td></tr>
</table><br>
<table border=0 cellspacing=0 cellpadding=5 id=betbutton id=l3 style="visibility:visible;">
<form method="post" action="$SCRIPT" id=exit>
<input type="hidden" name="cmd" value=MAIN>
<input type="hidden" name="medal">
<input id=sbm type=submit style="display:none;">
</form><tr>
<td><img src="$IMG_URL/l1.gif">
<input id=tenbet type=button value="押[$GAME2_1LINE]点" onClick="shuffle(1,$GAME2_1LINE);"></td>
<td><img src="$IMG_URL/l2.gif">
<input id=tenbet type=button value="押[$GAME2_2LINE]点" onClick="shuffle(2,$GAME2_2LINE);"></td>
<td><img src="$IMG_URL/l3.gif">
<input id=tenbet type=button value="押[$GAME2_3LINE]点" onClick="shuffle(3,$GAME2_3LINE);"><td>
<tr>
</tr>
<td><img src="$IMG_URL/l4.gif">
<input id=tenbet type=button value="押[$GAME2_4LINE]点" onClick="shuffle(4,$GAME2_4LINE);"></td>
<td><img src="$IMG_URL/l5.gif">
<input id=tenbet type=button value="押[$GAME2_5LINE]点" onClick="shuffle(5,$GAME2_5LINE);"></td>
<td><img src="$IMG_URL/l6.gif">
<input id=tenbet type=button value="押[$GAME2_6LINE]点" onClick="shuffle(6,$GAME2_6LINE);"></td>
</tr>
<tr>
<td><img src="$IMG_URL/l7.gif">
<input id=tenbet type=button value="押[$GAME2_7LINE]点" onClick="shuffle(7,$GAME2_7LINE);"></td>
<td colspan=2 align="center" align="middle"><input type=button class=button1 value=" 退出 " onClick="exit.medal.value=mymedal.innerText;exit.sbm.click();"></td>
</tr>
</table>
<table cellpadding=0 cellspacing=0 style="color:000000;font-size:12pt;font-weight:bold;;">
<tr align=center>
<td>
<img src="$IMG_URL/betline3.gif" id=l6 style="visibility:hidden;">
</td>
<td>
<img src="$IMG_URL/betline2.gif" id=l4 style="visibility:hidden;">
</td>
<td>
<img src="$IMG_URL/betline2.gif" id=l3 style="visibility:hidden;">
</td>
<td>
<img src="$IMG_URL/betline2.gif" id=l5 style="visibility:hidden;">
</td>
<td> </td>
<td> </td>
</tr>
<tr>
<td>
<img src="$IMG_URL/betline.gif" id=l1 style="visibility:hidden;">
</td>
<td><img src="$IMG_URL/dummy.gif" id=c1 class="card2"></td>
<td><img src="$IMG_URL/dummy.gif" id=c2 class="card2"></td>
<td><img src="$IMG_URL/dummy.gif" id=c3 class="card2"></td>
<td rowspan=7> </td>
<td rowspan=7 valign=top>
<table border=1 cellpadding=5 cellspacing=0 bordercolordark="#666666" bordercolorlight="#ffffff" style="color:#ffffff;font-weight:bold;;">
<tr align=center><td>牌花</td><td>线数</td><td width=60>可获金额</td></tr>
<tr align=right><td align=left nowrap>同花叁７</td><td id=g1>0</td><td nowrap>×$GAME2_GETMEDAL_1</td></tr>
<tr align=right><td align=left>叁张同牌</td> <td id=g2>0</td><td>×$GAME2_GETMEDAL_2</td></tr>
<tr align=right><td align=left>叁张７</td><td id=g3>0</td><td>×$GAME2_GETMEDAL_3</td></tr>
<tr align=right><td align=left>叁张同数</td><td id=g4>0</td><td>×$GAME2_GETMEDAL_4</td></tr>
<tr align=right><td align=left>叁同花</td><td id=g5>0</td><td>×$GAME2_GETMEDAL_5</td></tr>
<tr align=right><td align=left>心牌</td><td id=g6>0</td><td>×$GAME2_GETMEDAL_6</td></tr>
<tr align=right><td colspan=2>获得筹码：</td><td align=right id=winmedal>0</td></tr>
<tr align=right><td colspan=2>持用筹码：</td><td align=right id=mymedal></td></tr>
</table>
</td>
</tr>
<tr><td> </td>
<td class=no><div id=d1 align=right></div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc1></td>
<td class=no><div id=d2 align=right></div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc2></td>
<td class=no><div id=d3 align=right> </div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc3></td>
</tr>
<tr style="position:relative;top:-30px;">
<td>
<img src="$IMG_URL/betline.gif" id=l0 style="visibility:hidden;">
</td>
<td><img src="$IMG_URL/dummy.gif" id=c8 class="card2"></td>
<td><img src="$IMG_URL/dummy.gif" id=c9 class="card2"></td>
<td><img src="$IMG_URL/dummy.gif" id=c4 class="card2"></td>
</tr>
<tr style="position:relative;top:-30px;">
<td> </td>
<td class=no><div id=d8 align=right></div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc8></td>
<td class=no><div id=d9 align=right></div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc9></td>
<td class=no><div id=d4 align=right> </div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc4></td>
</tr>
<tr style="position:relative;top:-60px;">
<td>
<img src="$IMG_URL/betline.gif" id=l2 style="visibility:hidden;">
</td>
<td><img src="$IMG_URL/dummy.gif" id=c7 class="card2"></td>
<td><img src="$IMG_URL/dummy.gif" id=c6 class="card2"></td>
<td><img src="$IMG_URL/dummy.gif" id=c5 class="card2"></td>
</tr>
<tr style="position:relative;top:-60px;">
<td> </td>
<td class=no><div id=d7 align=right></div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc7></td>
<td class=no><div id=d6 align=right></div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc6></td>
<td class=no><div id=d5 align=right> </div><img class="mark" src="$IMG_URL/dummy2.gif" id=mrc5></td>
</tr>
<tr style="position:relative;top:-90px;">
<td>
<img src="$IMG_URL/betline4.gif" id=l7 style="visibility:hidden;">
</td><td> </td><td> </td><td> </td><tr>
</table>
<form method="post" action="$SCRIPT" id=rank target=Sub>
<input type="hidden" name="cmd" value="DENDOU">
<input type="hidden" name="name">
<input type="hidden" name="clss">
<input type="hidden" name="Comment">
<input id=sbm type=submit style="display:none;">
</form>
$End</body></html>
<script language="JavaScript">
mymedal.innerText='$QUERY{'medal'}';
</script>
-----END-----
}
sub RANKIN {
if ($ENV{'HTTP_REFERER'} =~ m/^$HTTP_REF/){
$date=time;
flock(LOCK,2);
tie %DATA,AnyDBM_File,"$LOG_FOLDER/$DBM_NAME_1",O_CREAT | O_WRONLY,0666;
$DATA{"$date"}="$QUERY{'up'}<*>$QUERY{'medal'}<*>$QUERY{'name'}<*>$QUERY{'Comment'}";
untie %DATA;
flock(LOCK,8);
}else{exit;}
&HEADER(1);
}
sub DENDOU {
if ($ENV{'HTTP_REFERER'} =~ m/^$HTTP_REF/){
$date=time;
flock(LOCK,2);
tie %DATA,AnyDBM_File,"$LOG_FOLDER/$DBM_NAME_2",O_CREAT | O_WRONLY,0666;
$DATA{"$date"}="$QUERY{'clss'}<*>$QUERY{'name'}<*>$QUERY{'Comment'}";
untie %DATA;
flock(LOCK,8);
}else{exit;}
&HEADER(1);
}
sub RANKING {
flock(LOCK,2);
tie %DATA,AnyDBM_File,"$LOG_FOLDER/$DBM_NAME_1",O_RDWR,0666;
foreach $key (sort {$DATA{$b} <=> $DATA{$a}} keys %DATA){
if($count < $RANK_IN){
$count++;
$font=30-$count;
$font=15 if $font<15;
@data=split(/<\*>/,$DATA{"$key"});
&DateDecord($key);
$rnkdata1.= << " -----END-----";
<tr style="font-size:$font px;">
<td nowrap style="background-color:gold;color:#000000;" align=center>$count</td>
<td nowrap>$data[2]</td><td nowrap>$data[0]</td>
<td nowrap>$data[1]</td>
<td style="font-size:10.5pt;">$data[3]<b style="font-size:10.5pt;">[$DecordDate]</b></td>
</tr>
-----END-----
}else{delete $DATA{"$key"};}
}
untie %DATA;
tie %DATA,AnyDBM_File,"$LOG_FOLDER/$DBM_NAME_2",O_RDWR,0666;
foreach $key (sort {$DATA{$b} <=> $DATA{$a}} keys %DATA){
if($count2 < $RANK_IN){
$count2++;
$font=30-$count2;
$font=15 if $font<15;
@data=split(/<\*>/,$DATA{"$key"});
&DateDecord($key);
$data[0]=('','叁同数','叁张７','叁同牌','同牌叁７')[$data[0]];
$rnkdata2.= << " -----END-----";
<tr style="font-size:$font px;">
<td nowrap style="background-color:gold;color:#000000;" align=center>$count2</td>
<td nowrap>$data[1]</td><td nowrap>$data[0]</td>
<td style="font-size:10.5pt;">$data[2]<b style="font-size:10.5pt;">[$DecordDate]</b></td>
</tr>
-----END-----
}else{delete $DATA{"$key"};}
}
untie %DATA;
flock(LOCK,8);
$rnkdata1="<tr><td colspan=5 align=center>没有大赢家排名</td></tr>"if !$count;
$rnkdata2="<tr><td colspan=4 align=center>没有大赢家排名</td></tr>"if !$count2;
&HEADER(1);
print << " -----END-----";
$Start
<span style="color:#ffffff;font-size:50pt">机器人牌戏</span><br>$LOGO
<form method="post" action="$SCRIPT" id=exit>
<input type="hidden" name="cmd" value=MAIN>
<input type="hidden" name="medal" value="$QUERY{'medal'}">
<input type=submit class=button1 value=" 退出 ">
</form>
比大小 历代大赢家排名（翻倍回数）
<table border=1 bordercolordark="#ccffcc" bordercolorlight="#000000" style="color:#ffffff;font-weight:bold;" cellpadding=5 cellspacing=0>
<tr style="background-color:gold;color:#000000;" align=center>
<td>排名</td>
<td>名字</td>
<td>回数</td>
<td>获得</td>
<td>发言</td></tr>$rnkdata1</table><br><br>
-----END-----
print "";
print << " -----END-----";
九张牌 历代大赢家排名
<table border=1 bordercolordark="#ccffcc" bordercolorlight="#000000" style="color:#ffffff;font-weight:bold;" cellpadding=5 cellspacing=0>
<tr style="background-color:gold;color:#000000;" align=center>
<td>排名</td>
<td>名字</td>
<td>牌花</td>
<td>发言</td></tr>$rnkdata2</table>
$End<br><br><br></body></html>
-----END-----
}
sub DateDecord {
local($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime($_[0]);
$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
$DecordDate = "$mon月$day日($hour:$min)";
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -