Making simple game lets begin :d COPY ALL CODE IN NOTEPAD AND SAVE AS GAME.HTA **************************************** GuessNumber body {color: #808080;} .txt {color: #808080; background-color: #000000; text-align: center;} .sml {font-size: 19pt;} hr {color: #808080;} Sub Window_OnLoad Randomize Dim width,height width=350 height=300 self.ResizeTo width,height BTNR.style.background = "#000000" BTNR.style.color = "#808080" BTNG.style.background = "#000000" BTNG.style.color = "#808080" cunt.value = 20 chk.value = 0 count.value = 20 cnum.value = Int((Rnd*9999)+0) box.focus End Sub Sub BTNG_OnMouseOver BTNG.style.background = "#808080" BTNG.style.color = "#000000" End Sub Sub BTNR_OnMouseOver BTNR.style.background = "#808080" BTNR.style.color = "#000000" End Sub Sub BTNG_OnMouseOut BTNG.style.background = "#000000" BTNG.style.color = "#808080" End Sub Sub BTNR_OnMouseOut BTNR.style.background = "#000000" BTNR.style.color = "#808080" End Sub Function Reset Randomize cnum.value = Int((Rnd*9999)+0) cunt.value = 20 count.value = 20 info.value = "" box.value = "" chk.value = 0 box.focus End Function Function Validate chck = chk.value num = box.value cont = cunt.value If (chck = 1) Then MsgBox("Reset the game to play again!") Else If (cont # | Guess Number - By H3X | Copyright © 2013 | eNjoy game
Posted on: Sat, 17 Aug 2013 02:35:08 +0000
Trending Topics
Recently Viewed Topics
© 2015