Advertisement
CivReborn

Untitled

Jun 25th, 2017
238
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.63 KB | None | 0 0
  1. ;First Script
  2. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  3. #SingleInstance,Force
  4. SendMode,input
  5. 1:=1
  6. Gui,+AlwaysOnTop
  7. Gui,Add,Button,x10 y10 w180 h30 gAdd_1,Add 1 to other script
  8. Gui,Add,Button,x10 y50 w180 h30 gSub_1,Subtract 1 from other script
  9. Gui,Add,Button,x10 y90 w180 h30 gAdd_5,Add 5 to other script
  10. Gui,Add,Button,x10 y130 w180 h30 gSub_5,Subtract 5 from other script
  11. Gui,Show,x200 w200 h170
  12. return
  13. GuiClose:
  14. ExitApp
  15.  
  16. Add_1:
  17. SendLevel,1
  18. Send,2AI{Space}
  19. return
  20.  
  21. Add_5:
  22. SendLevel,1
  23. Send,5AI{Space}
  24. return
  25.  
  26.  
  27. Sub_1:
  28. SendLevel,1
  29. Send,1AI{Space}
  30. return
  31.  
  32. Sub_5:
  33. SendLevel,1
  34. Send,6AI{Space}
  35. return
  36.  
  37. ;~ numpad1::
  38. ;~ i++
  39. ;~ Tooltip,% i
  40. ;~ objShell := ComObjCreate("WScript.Shell")
  41. ;~ objEnv := objShell.Environment("Volatile")
  42. ;~ objEnv.Item("Test") := i ;stores text in "volitile" variable that can be accessed from other scripts
  43. ;~ return
  44.  
  45.  
  46. esc::ExitApp
  47.  
  48. ; Second Script
  49. ;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  50. #SingleInstance,Force
  51. Var:= 0
  52. SendMode,input
  53. Gui,+AlwaysOnTop
  54. Gui,Add,Edit,x10 y10 w180 h20 center vedit1 ,%Var%
  55. Gui,Show,x500 w200 h170
  56. ;SetTimer,Window_Something,3000
  57. return
  58. GuiClose:
  59. ExitApp
  60. ;~ Window_Something:
  61. ;~ objShell := ComObjCreate("WScript.Shell")
  62. ;~ objEnv := objShell.Environment("Volatile")
  63. ;~ GuiControl,,Edit1,% objEnv.Item("Test")
  64. ;~ return
  65. ::2AI::
  66. Var++
  67. GuiControl,,Edit1,%Var%
  68. return
  69. ::5AI::
  70. Var+=5
  71. GuiControl,,Edit1,%Var%
  72. return
  73.  
  74. ::1AI::
  75. Var--
  76. GuiControl,,Edit1,%Var%
  77. return
  78. ::6AI::
  79. Var-=5
  80. GuiControl,,Edit1,%Var%
  81. return
  82.  
  83.  
  84.  
  85.  
  86.  
  87. esc::ExitApp
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement