이 게임은 끝나지 않았습니다. 목적은 외부 사진을 사용하지 않고도 그래픽을 할 수 있음을 보여주는 것이 었습니다.
이 게임을 개발하려면 업데이트를 제출하십시오.
파일 이름 : htanoid.hta
요구 사항 : IE 6?
저자 : Jean-Luc Antoine
제출 : 2002 년 5 월 17 일
카테고리 : 기타
效果图 :
实现代码 :
代码如下 :
<html xmlns : v = "urn : schemas-microsoft-com : vml"xmlns : t = "urn : schemas-microsoft-com : time">
<헤드>
<HTA : 응용 프로그램
ApplicationName = "htanoid"
경계 = "두께"| "대화"| "없음"| "얇은"
Borderstyle = "정상"| "복잡한"| "자랐다"| "정적"| "Sunken"
캡션 = "예"ContextMenu = "예"
id = "OHTA"ALERT (OHTA.APPLICATIONNAME);
Innerborder = "Yes"MaximizeButton = "Yes"MinimizeButton = "Yes"
navigable = "no"scroll = "no"scrollflat = "no"
선택 = "예"showintaskbar = "예"Singleinstance = "No"
sysmenu = "예"버전 = "0.5"
Windowstate = "정상"| "최대화"| "최소화">
<script language = vbscript>
옵션 명시 적
const c_screenw = 400
const c_nbx = 12
const c_nby = 10
희미한 지형 (10,12)
Dim Raqx, Raqw, Play, Ballex, Balley
Dim Dirbx, Dirby'direction Balle X, y
희미한 Borddroit
borddroit = c_screenw-32
sub document_onkeypress ()
CASE UCASE를 선택합니다 (chr (window.event.keyCode))
케이스 "P"
Msgbox "Pause"
'Window.clearTimeout
종료 선택
종료 서브
sub document_onclick ()
재생 = 참
'document.title = "클릭"& window.event.button
종료 서브
sub document_onmouseMove ()
raqx = wind
raqx <16이면 raqx = 16'mur gauche
raqx+raqw> borddroit라면 raqx = borddroit-raqw
raquette.style.left = raqx
그때 연주하지 않으면
Ballex = RAQX+RAQW/2
Balle.style.left = Ballex
끝 If
종료 서브
서브 드로 레벨 (N)
Dim K, X, y
set k = document.getElementById ( "Raquette")
y = 0에서 c_nby의 경우
x = 0에서 c_nbx
지형 (y, x) = 0'nb de 쿠데타 복원 à porter
다음
다음
사례 n을 선택하십시오
사례 1
'벽돌
y = 0 ~ 5의 경우
x = 0에서 c_nbx
k.insertadjacenthtml "preverebegin", "<테이블 스타일 = '위치 : 절대; top ="& 102+14*y & "; 왼쪽 ="& 16+27*x _ _
& "; 너비 = 25; 높이 = 10; ' bgcolor = "& array ("silver ","red ","yellow ","blue ","magenta ","lightgreen "(y) &"> <tr> <td> </td> </tr> </table> "
다음
다음
종료 선택
무작위 화
발리 = 400
dirbx = int (rnd ()*3) +1
Dirby = 0- (int (rnd ()*4) +1)
종료 서브
Sub Init
Dim X, y, k