USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Jogo de uma Nave Stelar
Postada em 15/10/2003 por Tekki            
<html>

<BODY BGCOLOR="#444444" TEXT="#004400" VLINK="#FF8844" onload="onloadmes()">
<head>
<TITLE>face GAME</TITLE>
<pre>
<SCRIPT LANGUAGE="JavaScript">
<!--
var timerID = null
var patno=1
var cr="\r\n"                  //for windows
var blankno=0
var totalblank=""
var lr=1                       //if lr=-1 then left , lr=1 then right
var lowerlf=""                 //lower side space
var downlf=""                  //upper side space
var downno=0
var inplay=0
var missilex=99                //missile position
var missiley=99
var mychrx=1                   //my chractor position
var myblank=""
var mymove=0
var spcf1=""
var spcf2=""
var spcf3=""
var hitflag=0
var score=0
var selec=0                    //machine select
var mname=" Windows is"
var rsmiss=""                  //missile no hit R side

function array1(arn) {         //hanyou hairetu sakusei
   this.length = arn;
   for (var ar1 = 0; ar1 <= arn; ar1++) {
     this[ar1] = 1 }
     return this
     }

function onloadmes(){
document.fmark.win.value=" "
cr = unescape("%0A")
ver=navigator.appVersion
len=ver.length
for(iln=0;iln<len;iln++) if(ver.charAt(iln)=="(") break
systm = ver.charAt(iln+1).toUpperCase()
if(systm=="M"){cr = unescape("%0D")}
if(systm=="W"){cr = unescape("%0D")+cr}
if(systm=="C"){
               cr = unescape("%0D")+cr
               tmpsys = ver.charAt(0).toUpperCase()
               if (tmpsys == 4){cr = unescape("%0D")}
}
// document.fmark.win.value=ver
starter()
}

function init(){               //syokika
blankx = new array1(63)        //Dim blankx(63)
for (var makeblank = 0;makeblank < 63;makeblank++){
        blankx[makeblank]=""
        for (var addBlank = 0; addBlank < makeblank; addBlank++) {
        blankx[makeblank] = blankx[makeblank] + " "
        }
}
faker = new array1(24);        //faker(1) to (24) = facemark active flag
face = new array1(2);          //Dim face(2)
face[1]=" (^O^) "
face[2]=" (^-^) "
mestotal =new array1(4)        //Dim mestotal(4)

interval1()
}

function restarter(){
inplay=0
blankno=0
totalblank=""
lr=1
lowerlf=""
downlf=""
downno=0
missilex=99
missiley=99
mychrx=1
myblank=""
mymove=0
selec=1
starter()
}

function starter(){
document.fmark.win.value=cr+cr+cr+cr+cr+cr+cr+"                          Are you ready?"+cr+cr+cr+"                           Click FIRE!"
selec=1
}

function goleft(){
mymove=0
mychrx=mychrx-1
if (mychrx <= 0){mychrx=1}
}
function goright(){
mymove=0
mychrx=mychrx+1
if (mychrx >= 56){mychrx=55}
}

function golmax(){
if (inplay == 1){mymove=-1}
}

function gormax(){
if (inplay == 1){mymove=1}
}

function fire(){
if (inplay == 0){if (selec == 1){selec=9
                                 inplay=1
                                 init()}
}else{
if (missiley == 99){missiley=18
                     missilex=mychrx+3}
}
}

function gameover(){           //GAME OVER syori
score=0
for (var enerme=1;enerme<25;enerme++){
  if (faker[enerme] == 1){score=score+1}
}
if (score == 0){
document.fmark.win.value=cr+cr+cr+cr+cr+cr+cr+cr+"                        Congratulation!"+cr+cr+"                          ALL CREAR!!"
}else{
document.fmark.win.value=cr+cr+cr+cr+cr+cr+cr+cr+"                           GAME OVER"+cr+cr+"                        "+score+" ENEMY REMAINED"


}
inplay=0
}

function interval1(){          //warikomisyori 1
if (missiley != 99) {missiley=missiley-1}
if (missiley < 0){missiley=99}

mychrx=mychrx+mymove
if (mychrx <= 0){mychrx=1}
if (mychrx >= 56){mychrx=55}
blankno=blankno+lr             //offset count up
totalblank = blankx[blankno]   //offset syori
if (blankno >= 20) {lr=-1
                    downno=downno+1
                    blankno=20
                   }
if (blankno <= 0) {lr=1
                    downno=downno+1
                    blankno=0
                   }
if (downno >= 12) {gameover()}

//upper side aria
   downlf=""
   for (var upperspc=0;upperspc<downno;upperspc++){
      if (missiley == upperspc){
      downlf=downlf+blankx[missilex]+"|"+cr
      }else{downlf=downlf+cr}
   }


//facemark change
if (inplay == 1){
   patno=patno+1
   if (patno >= 3) {patno = 1}

//face aria

     for (var addline = 1; addline < 5; addline++){
     mestotal[addline]=totalblank
     rsmiss=""
       if (missiley == (downno+addline*2-2)){
        if (blankno <= missilex){
          hitflag=parseInt((missilex-blankno)/7,10)
          if (hitflag < 6){
            if ((missilex-blankno-(hitflag*7)) >= 1){
             if ((missilex-blankno-(hitflag*7)) <= 5){
               if (faker[(addline*6)+hitflag-5] == 1){
                 faker[(addline*6)+hitflag-5] = 0
                 missiley=99
               }
             }
            }
          }else{if (missilex > (blankno+42)){
                    rsmiss=blankx[missilex-blankno-42]+"|"
                                            }
          }
        }else{
         mestotal[addline]=blankx[missilex]+"|"
         if (missilex < (blankno-1)){
           mestotal[addline]=mestotal[addline]+blankx[blankno-1-missilex]
                                   }
        }
       }

        for (var addfaker = 1; addfaker < 7; addfaker++){
           if (faker[(addline*6)+addfaker-6] == 1){
                 mestotal[addline]=mestotal[addline]+face[patno]
           }else{mestotal[addline]=mestotal[addline]+"       "}
        }
        mestotal[addline]=mestotal[addline]+rsmiss
     }

//space line in face aria
   spcf1=cr
   spcf2=cr
   spcf3=cr
   if (missiley == (downno+1)){spcf1=blankx[missilex]+"|"+cr}
   if (missiley == (downno+3)){spcf2=blankx[missilex]+"|"+cr}
   if (missiley == (downno+5)){spcf3=blankx[missilex]+"|"+cr}

//lower side aria
   lowerlf=""
   for (var lowerspc=0;lowerspc<(11-downno);lowerspc++){
      if (missiley == (downno+7+lowerspc)){
      lowerlf=lowerlf+blankx[missilex]+"|"+cr
      }else{lowerlf=lowerlf+cr}
   }
   myblank=blankx[mychrx]

   document.fmark.win.value = downlf+mestotal[1]+cr+spcf1+mestotal[2]+cr+spcf2+mestotal[3]+cr+spcf3+mestotal[4]+cr+lowerlf+myblank+"  _A_  "+cr+myblank+" [___] "

   timerID = setTimeout("interval1()",250)
}
}

//-->
</SCRIPT>
</pre>
</head>

<FORM NAME="fmark">
<center>
<textarea NAME="win" rows=20 cols=63>
You must get Netscape2.0 or later.
If you use Netscape 4.0b1, CLICK RESET!
</textarea>
</center>
<center>
<pre><INPUT TYPE="button" VALUE="  " ONCLICK="golmax()"><INPUT TYPE="button" VALUE=" LEFT " ONCLICK="goleft()"> <INPUT TYPE="button" VALUE="FIRE" ONCLICK="fire()"> <INPUT TYPE="button" VALUE="RIGHT" ONCLICK="goright()"><INPUT TYPE="button" VALUE="  " ONCLICK="gormax()"></pre>
</center>
<br><p>
<center><pre><INPUT TYPE="button" VALUE="     RESET     " ONCLICK="restarter()"></pre></center>
<hr>

</FORM>

</BODY>
</HTML>
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página