API tools faq
paste
Advertisement
FlyFar

Simple Dilenger Loto Game HTML-VBScript

FlyFar
Oct 25th, 2021
236
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VBScript 5.93 KB | None | 0 0
raw download clone embed print report
  1. <!--
  2. <html>
  3. <head>
  4. <title>DILENGER LOTO GAME</title>
  5. </head>
  6. <body bgcolor="#1D4B7B">
  7. <p align="center"><small><font color="#FFFF00" face="BankGothic Md BT"><strong>Please
  8. waite While the program generates your numbers </strong></font></small></p>
  9. <form name="ObjLoto" id="ObjLoto">
  10.   <p><input type="text" name="T1" size="2"
  11.   style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input type="text"
  12.   name="T2" size="2" style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input
  13.   type="text" name="T3" size="2"
  14.   style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input type="text"
  15.   name="T4" size="2" style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input
  16.   type="text" name="T5" size="2"
  17.   style="color: #1D4B7B; background-color: #1D4B7B; border: medium none"><input type="text"
  18.   name="T6" size="2" style="color: #1D4B7B; background-color: #1D4B7B; border: medium none">
  19.   </p>
  20.   <div align="center"><center><p><input type="text" name="T8" size="18"
  21.   value="Generated Numbers:"
  22.   style="background-color: rgb(29,75,123); color: rgb(255,255,0); font-family: BankGothic Md BT; border: medium none"><input
  23.   type="text" name="T7" size="20"
  24.   style="background-color: rgb(29,75,123); color: rgb(255,255,0); font-family: BankGothic Md BT; border: medium none"
  25.   value="."></p>
  26.   </center></div><div align="center"><center><p>ÿ</p>
  27.   </center></div><div align="center"><center><p>
  28.   <object id="pBar" classid="clsid:35053A22-8589-11D1-B16A-00C0F0283628" width="395"
  29.   height="14">
  30.   </object>
  31.   </p>
  32.   </center></div>
  33. </form>
  34. <script language="vbscript">
  35. me.resizeto 500,600
  36. me.moveto screen.width - 800
  37.     setInterval "fDura()", 100
  38.     Sub fDura()
  39.     ObjLoto.pBar.max = 100
  40.     ObjLoto.pBar.min = 1
  41.         ObjLoto.pBar = ObjLoto.pBar + 1
  42.      if ObjLoto.pBar.value = "2" Then
  43.     T9.value =" "
  44.     End If
  45.     if ObjLoto.pBar.value = "15" Then
  46.     T9.value ="D"
  47.     call gener()
  48.     ObjLoto.T1.value = ObjLoto.T7.value
  49.     End if
  50.     if ObjLoto.pBar.value = "34" Then
  51.     T9.value = T9.value + "I"
  52.     call gener()
  53.     ObjLoto.T2.value = ObjLoto.T7.value
  54.     End if
  55.     if ObjLoto.pBar.value = "46" Then
  56.      T9.value = T9.value + "L"
  57.     call gener()
  58.     ObjLoto.T3.value = ObjLoto.T7.value
  59.     End if
  60.     if ObjLoto.pBar.value = "55" Then
  61.      T9.value = T9.value + "E"
  62.     call gener()
  63.     ObjLoto.T4.value = ObjLoto.T7.value
  64.     End if
  65.     if ObjLoto.pBar.value = "69" Then
  66.      T9.value =T9.value + "N"
  67.     call gener()
  68.     ObjLoto.T5.value = ObjLoto.T7.value
  69.     End if
  70.     if ObjLoto.pBar.value = "82" Then
  71.      T9.value = T9.value + "G"
  72.     End if
  73.     if ObjLoto.pBar.value = "87" Then
  74.      T9.value = T9.value + "E"
  75.     End if
  76.     if ObjLoto.pBar.value = "95" Then
  77.      T9.value = T9.value + "R"
  78.     call gener()
  79.     ObjLoto.T6.value = ObjLoto.T7.value
  80.     End if
  81.     if ObjLoto.pBar.value = "99" Then
  82.       ObjLoto.T7.value = ""
  83.     document.write "<B><body bgcolor=#1D4B7B><font color=""#FFFF00"" face=""BankGothic Md BT""><P align=center>some numbers may duplicate if so Then use the button below<BR><BR><INPUT type=""button"" value=""Do Over Again"" name=""goBack"" onclick=""vbscript:window.history.back()""></P></B>" & "<BR><BR>" &_
  84.     ObjLoto.T1.value & "<BR>" &_
  85.     ObjLoto.T2.value & "<BR>" &_
  86.     ObjLoto.T3.value & "<BR>" &_
  87.     ObjLoto.T4.value & "<BR>" &_
  88.     ObjLoto.T5.value & "<BR><BR><U>""Your Lucky Bonus Ball is""</U><BR><B>" &_
  89.     ObjLoto.T6.value & "<BR><BR><BR><BR><BR><BR><P align=center></B>Created by DILENGER"
  90.     End if
  91.     End Sub
  92.     Sub gener()
  93.     Dim P
  94.     Randomize
  95.     r = Int( (46 * Rnd) +1 )
  96.     if r=1 Then
  97.         P = "ONE"
  98.     ElseIf r=2 Then
  99.         P = "TWO"
  100.     ElseIf r=3 Then
  101.         P = "THREE"
  102.     ElseIf r=4 Then
  103.         P = "FOUR"
  104.     ElseIf r=5 Then
  105.         P = "FIVE"
  106.     ElseIf r=6 Then
  107.         P = "SIX"
  108.     ElseIf r=7 Then
  109.         P = "SEVEN"
  110.     ElseIf r=8 Then
  111.         P = "EIGHT"
  112.     ElseIf r=9 Then
  113.         P = "NINE"
  114.     ElseIf r=10 Then
  115.         P = "TEN"
  116.     ElseIf r=11 Then
  117.         P = "ELEVEN"
  118.     ElseIf r=12 Then
  119.         P = "TWELVE"
  120.     ElseIf r=13 Then
  121.         P = "THIRTEEN"
  122.     ElseIf r=14 Then
  123.         P = "FOURTEEN"
  124.     ElseIf r=15 Then
  125.         P = "FIFTEEN"
  126.     ElseIf r=16 Then
  127.         P = "SIXTEEN"
  128.     ElseIf r=17 Then
  129.         P = "SEVENTEEN"
  130.     ElseIf r=18 Then
  131.         P = "EIGHTTEEN"
  132.     ElseIf r=19 Then
  133.         P = "NINETEEN"
  134.     ElseIf r=20 Then
  135.         P = "TWENTY"
  136.     ElseIf r=21 Then
  137.         P = "TWENTY ONE"
  138.     ElseIf r=22 Then
  139.         P = "TWENTY TWO"
  140.     ElseIf r=23 Then
  141.         P = "TWENTY THREE"
  142.     ElseIf r=24 Then
  143.         P = "TWENTY FOUR"
  144.     ElseIf r=25 Then
  145.         P = "TWENTY FIVE"
  146.     ElseIf r=26 Then
  147.         P = "TWENTY SIX"
  148.     ElseIf r=27 Then
  149.         P = "TWENTY SEVEN"
  150.     ElseIf r=28 Then
  151.         P = "TWENTY EIGHT"
  152.     ElseIf r=29 Then
  153.         P = "TWENTY NINE"
  154.     ElseIf r=30 Then
  155.         P = "THIRTY"
  156.     ElseIf r=31 Then
  157.         P = "THIRTY ONE"
  158.     ElseIf r=32 Then
  159.         P = "THIRTY TWO"
  160.     ElseIf r=33 Then
  161.         P = "THIRTY THREE"
  162.     ElseIf r=34 Then
  163.         P = "THIRTY FOUR"
  164.     ElseIf r=35 Then
  165.         P = "THIRTY FIVE"
  166.     ElseIf r=36 Then
  167.         P = "THIRTY SIX"
  168.     ElseIf r=37 Then
  169.         P = "THIRTY SEVEN"
  170.     ElseIf r=38 Then
  171.         P = "THIRTY EIGHT"
  172.     ElseIf r=39 Then
  173.         P = "THIRTY NINE"
  174.     ElseIf r=40 Then
  175.         P = "FORTY"
  176.     ElseIf r=41 Then
  177.         P = "FORTY ONE"
  178.     ElseIf r=42 Then
  179.         P = "FORTY TWO"
  180.     ElseIf r=43 Then
  181.         P = "FORTY THREE"
  182.     ElseIf r=44 Then
  183.         P = "FORTY FOUR"
  184.     ElseIf r=45 Then
  185.         P = "FORTY FIVE"
  186.     ElseIf r=46 Then
  187.         P = "FORTY SIX"
  188.     End if
  189.     ObjLoto.T7.value = P
  190.     End Sub
  191.     </script>
  192. <p align="center"><font color="#FFFF00" face="BankGothic Md BT">Created by</font> <input
  193. type="text" name="T9" size="20"
  194. style="background-color: rgb(29,75,123); color: rgb(255,255,0); text-align: left; font-size: 12pt; font-family: BankGothic Md BT; border: medium none"></p>
  195. </body>
  196. </html>
  197. -->
  198.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!