API tools faq
paste
Advertisement
FichteFoll

AutoIt - Some awesome script that emulates steinsgate divmet

FichteFoll
Feb 14th, 2012
252
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
AutoIt 7.34 KB | None | 0 0
raw download clone embed print report
  1. ; Yep, this script is truly awesome. Note: Someone sent it to me.
  2. #include <ButtonConstants.au3>
  3. #include <GUIConstantsEx.au3>
  4. #include <StaticConstants.au3>
  5. #include <WindowsConstants.au3>
  6. #Region ### START Koda GUI section ### Form=C:\Users\Semi\Desktop\DropBox2\Development\EPG Launcher\DevMeter.kxf
  7. $Form1 = GUICreate("El Psy Congroo! --- ---  Mad Scientist   DevMeter V.0.1", 937, 446, 192, 124)
  8. GUISetBkColor(0x000000)
  9. $Pic1 = GUICtrlCreatePic("img\0.jpg", 100, 88, 70, 184)
  10. $Pic0 = GUICtrlCreatePic("img\Point.jpg", 170, 88, 70, 184)
  11. $Pic2 = GUICtrlCreatePic("img\1.jpg", 240, 88, 70, 184)
  12. $Pic3 = GUICtrlCreatePic("img\2.jpg", 310, 88, 70, 184)
  13. $Pic4 = GUICtrlCreatePic("img\3.jpg", 380, 88, 70, 184)
  14. $Pic5 = GUICtrlCreatePic("img\4.jpg", 450, 88, 70, 184)
  15. $Pic6 = GUICtrlCreatePic("img\5.jpg", 520, 88, 70, 184)
  16. $Pic7 = GUICtrlCreatePic("img\6.jpg", 590, 88, 70, 184)
  17. $Pic8 = GUICtrlCreatePic("img\7.jpg", 660, 88, 70, 184)
  18. $Pic9 = GUICtrlCreatePic("", 730, 88, 70, 184)
  19. $Button1 = GUICtrlCreateButton("TimeTravel", 336, 352, 153, 33)
  20. $Button2 = GUICtrlCreateButton("About", 368, 408, 75, 25)
  21. GUISetState(@SW_SHOW)
  22. AdlibRegister("TimeCount1", 50)
  23. AdlibRegister("TimeCount2", 50)
  24. AdlibRegister("TimeCount3", 50)
  25. AdlibRegister("TimeCount4", 50)
  26. AdlibRegister("TimeCount5", 50)
  27. AdlibRegister("TimeCount6", 50)
  28. AdlibRegister("TimeCount7", 50)
  29. AdlibRegister("TimeCount8", 50)
  30. AdlibRegister("TimeCount9", 50)
  31. #EndRegion ### END Koda GUI section ###
  32.  
  33. While 1
  34.     $nMsg = GUIGetMsg()
  35.     Switch $nMsg
  36.         Case $GUI_EVENT_CLOSE
  37.             Exit
  38.         Case $Button1
  39.             timeTravel()
  40.  
  41.     EndSwitch
  42. WEnd
  43.  
  44.  
  45. Func TimeTravel()
  46.  
  47. AdlibUnRegister("TimeCount1")
  48. AdlibUnRegister("TimeCount2")
  49. AdlibUnRegister("TimeCount3")
  50. AdlibUnRegister("TimeCount4")
  51. AdlibUnRegister("TimeCount5")
  52. AdlibUnRegister("TimeCount6")
  53. AdlibUnRegister("TimeCount7")
  54. AdlibUnRegister("TimeCount8")
  55. AdlibUnRegister("TimeCount9")
  56.  
  57.     EndFunc
  58.  
  59. Func TimeCount1()
  60.         Static Local $i = 1
  61.         Static Local $TimeCount=$Pic1
  62.  
  63.     Switch $i
  64.         Case 1
  65.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  66.         Case 2
  67.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  68.         Case 3
  69.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  70.         Case 4
  71.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  72.         Case 5
  73.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  74.         Case 6
  75.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  76.         Case 7
  77.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  78.         Case 8
  79.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  80.         Case 9
  81.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  82.             $i = 0
  83.     EndSwitch
  84.  
  85.     $i += 1
  86. EndFunc
  87.  
  88. Func TimeCount2()
  89.         Static Local $i = 2
  90.         Static Local $TimeCount=$Pic2
  91.  
  92.     Switch $i
  93.         Case 1
  94.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  95.         Case 2
  96.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  97.         Case 3
  98.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  99.         Case 4
  100.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  101.         Case 5
  102.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  103.         Case 6
  104.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  105.         Case 7
  106.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  107.         Case 8
  108.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  109.         Case 9
  110.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  111.             $i = 0
  112.     EndSwitch
  113.  
  114.     $i += 1
  115. EndFunc
  116. Func TimeCount3()
  117.         Static Local $i = 3
  118.         Static Local $TimeCount=$Pic3
  119.  
  120.     Switch $i
  121.         Case 1
  122.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  123.         Case 2
  124.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  125.         Case 3
  126.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  127.         Case 4
  128.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  129.         Case 5
  130.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  131.         Case 6
  132.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  133.         Case 7
  134.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  135.         Case 8
  136.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  137.         Case 9
  138.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  139.             $i = 0
  140.     EndSwitch
  141.  
  142.     $i += 1
  143. EndFunc
  144. Func TimeCount4()
  145.         Static Local $i = 4
  146.         Static Local $TimeCount=$Pic4
  147.  
  148.     Switch $i
  149.         Case 1
  150.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  151.         Case 2
  152.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  153.         Case 3
  154.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  155.         Case 4
  156.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  157.         Case 5
  158.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  159.         Case 6
  160.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  161.         Case 7
  162.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  163.         Case 8
  164.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  165.         Case 9
  166.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  167.             $i = 0
  168.     EndSwitch
  169.  
  170.     $i += 1
  171. EndFunc
  172. Func TimeCount5()
  173.         Static Local $i = 5
  174.         Static Local $TimeCount=$Pic5
  175.  
  176.     Switch $i
  177.         Case 1
  178.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  179.         Case 2
  180.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  181.         Case 3
  182.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  183.         Case 4
  184.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  185.         Case 5
  186.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  187.         Case 6
  188.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  189.         Case 7
  190.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  191.         Case 8
  192.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  193.         Case 9
  194.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  195.             $i = 0
  196.     EndSwitch
  197.  
  198.     $i += 1
  199. EndFunc
  200. Func TimeCount6()
  201.         Static Local $i = 6
  202.         Static Local $TimeCount=$Pic6
  203.  
  204.     Switch $i
  205.         Case 1
  206.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  207.         Case 2
  208.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  209.         Case 3
  210.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  211.         Case 4
  212.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  213.         Case 5
  214.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  215.         Case 6
  216.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  217.         Case 7
  218.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  219.         Case 8
  220.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  221.         Case 9
  222.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  223.             $i = 0
  224.     EndSwitch
  225.  
  226.     $i += 1
  227. EndFunc
  228. Func TimeCount7()
  229.         Static Local $i = 7
  230.         Static Local $TimeCount=$Pic7
  231.  
  232.     Switch $i
  233.         Case 1
  234.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  235.         Case 2
  236.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  237.         Case 3
  238.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  239.         Case 4
  240.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  241.         Case 5
  242.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  243.         Case 6
  244.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  245.         Case 7
  246.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  247.         Case 8
  248.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  249.         Case 9
  250.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  251.             $i = 0
  252.     EndSwitch
  253.  
  254.     $i += 1
  255. EndFunc
  256. Func TimeCount8()
  257.         Static Local $i = 8
  258.         Static Local $TimeCount=$Pic8
  259.  
  260.     Switch $i
  261.         Case 1
  262.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  263.         Case 2
  264.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  265.         Case 3
  266.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  267.         Case 4
  268.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  269.         Case 5
  270.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  271.         Case 6
  272.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  273.         Case 7
  274.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  275.         Case 8
  276.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  277.         Case 9
  278.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  279.             $i = 0
  280.     EndSwitch
  281.  
  282.     $i += 1
  283. EndFunc
  284.  
  285. Func TimeCount9()
  286.         Static Local $i = 9
  287.         Static Local $TimeCount=$Pic9
  288.  
  289.     Switch $i
  290.         Case 1
  291.             GUICtrlSetImage($TimeCount,"img/4.jpg")
  292.         Case 2
  293.             GUICtrlSetImage($TimeCount,"img/9.jpg")
  294.         Case 3
  295.             GUICtrlSetImage($TimeCount,"img/5.jpg")
  296.         Case 4
  297.             GUICtrlSetImage($TimeCount,"img/1.jpg")
  298.         Case 5
  299.             GUICtrlSetImage($TimeCount,"img/6.jpg")
  300.         Case 6
  301.             GUICtrlSetImage($TimeCount,"img/2.jpg")
  302.         Case 7
  303.             GUICtrlSetImage($TimeCount,"img/7.jpg")
  304.         Case 8
  305.             GUICtrlSetImage($TimeCount,"img/3.jpg")
  306.         Case 9
  307.             GUICtrlSetImage($TimeCount,"img/8.jpg")
  308.             $i = 0
  309.     EndSwitch
  310.  
  311.     $i += 1
  312. EndFunc
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!