Игры (Games)

Змейка (Snake)

Описание:

Скрипт предстовляет собой игру Змейка. В скрипте есть одна маленькая, но очень существенная не дороботка - игра начинается сразу после загрузке.

Игрануть в Змейку

(игра начнется сразу)

Текст JavaScript-сценария: Games: Snake
Просто выделите текст внутри формы, расположенной внизу, и скопируйте его (нажмите Ctrl-C или Apple-C) в новый текстовый файл программы-редактора (например, NotePad или Simple Text). После этого сохраните его (Ctrl-S или Command-S). Теперь вы можете использовать исходный текст сценария для решения своих задач!!!

 <HEAD> <SCRIPT language=JavaScript> var MX=new Array(500); var MY=new Array(500); var L,KX,KY,Ok,s="",ss="",pp="",tt=""; var js_mult1=3141; var js_mult2=5821; var js_m1=100000000; var js_m2=10000; var js_iseed=0; var js_iseed1=0; var js_iseed2=0; function random(n){ if (js_iseed == 0){ now = new Date(); js_iseed = now.getHours() + now.getMinutes() * 60 + now.getSeconds() * 3600; } js_iseed1 = js_iseed / js_m2; js_iseed2 = js_iseed % js_m2; var tmp = (((js_iseed2 * js_mult1 + js_iseed1 * js_mult2) % js_m2) * js_m2 + (js_iseed2 * js_mult2)) % js_m1; js_iseed = (tmp + 1) % js_m1; return (Math.floor((js_iseed/js_m1) * n)); } function SetBugPos(){ var i; var Ok; do{ Ok = 1; KX = random(10)+1; KY = random(10)+1; for(i=1;i<=L;i++) if((KX==MX[i])&&(KY==MY[i])) Ok=0; }while(!Ok); } // Начальные данные SetBugPos(); var MaxDL=1; var i,j,k; MX[1]=5; MY[1]=1; L=1; var ML=0; for(i=0;i<10*10;i++) ss=ss+"."; function handle(){ for(i=L;i>=1;i--){ MX[i+1] = MX[i];MY[i+1] = MY[i];} if(ML){ ML--; L++; document.forms[0].txt2.value=L; } dir=document.forms[0].txt.value; if(dir=="up") MY[1]--; if(dir=="down") MY[1]++; if(dir=="left") MX[1]--; if(dir=="right") MX[1]++; if((KX==MX[1])&&(KY==MY[1])){ SetBugPos(); ML = random(1)+1; } Ok = 1; for(i=2;i<=L;i++) if((MX[1]==MX[i])&&(MY[1]==MY[i])) Ok=0; if((MX[1]<1)||(MX[1]>10)||(MY[1]<1)||(MY[1]>10)) Ok=0; if(!Ok){ alert("КОНЕЦ ИГРЫ"); SetBugPos(); frm.txt.value="down"; var MaxDL=5; var i,j; MX[1]=5; MY[1]=1; L=1; ML=0; frm.txt2.value="1"; } s=ss+'.'; k=(KY-1)*10+KX-1; s=s.substring(0,k+1)+"X"+s.substring(k+2,s.length); for(i=1;i<=L;i++){ k=(MY[i]-1)*10+MX[i]-1; s=s.substring(0,k+1)+"O"+s.substring(k+2,s.length); } pp="<table border=0 width=380 height=380><tr>"; for(i=0;i<s.length;i++){ if((i%10==0)&&(i)) pp=pp+'</tr>'; tt=s.substring(i+1,i+2); if(tt=='.') pp=pp+'<td bgcolor="FFFFFF"> </td>'; if(tt=='X') pp=pp+'<td bgcolor="FF0000"> </td>'; if(tt=='O') pp=pp+'<td bgcolor="0000FF"> </td>'; } pp=pp+"</tr></table>"; document.all["scr"].innerHTML=pp; JSCTimeOutID = window.setTimeout('handle()',200); } </SCRIPT> <SCRIPT language=VBSCRIPT> Sub document_onkeypress() x=window.event.keycode if x=111 then dir="left" if x=112 then dir="right" if x=113 then dir="up" if x=97 then dir="down" frm.txt.value=dir End Sub </SCRIPT> </HEAD>  <BODY onload="JSCTimeOutID = window.setTimeout('handle()',200);"> <CENTER> <FORM name=frm> <TABLE width=600> <TBODY> <TR> <TD> <CENTER><FONT color=#ff0000 size=5><B><U>JavaScript Snake</U></B></FONT><BR><FONT color=#204000 size=1>best with Internet Explorer 4.0<BR><BR></FONT></CENTER><PRE><FONT color=#802000> Управление: Q - вверх A - вниз O - влево P - вправо</FONT> </PRE> <CENTER><INPUT name=txt type=hidden value=down> Длина: <INPUT name=txt2 readOnly size=3 value=1><BR><BR><BR><FONT size=2><B><A href="http://docentr.krs.ru/">Детский Образовательный Центр</A></B></FONT><BR><BR><FONT size=1><A href="http://docentr.krs.ru/home/bsn/index.html">Composed by BSN</A></FONT><BR></CENTER></TD> <TD width=380> <P id=scr></P></TD></TR></TBODY></TABLE></FORM> </CENTER> </BODY>

Источник: http://www.woweb.ru