Advertisement
United_States

ToDoList

Apr 22nd, 2021
331
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Gui, Add, Button, x442 y300 w20 h20 Default gAdd, +
  2. Gui, Add, Button, x402 y300 w40 h20 gClear, Clear
  3. Gui, Add, Button, x332 y300 w70 h20 gRandomize , Randomize
  4. Gui, Show, h323 w465, ToDoList
  5. var := 1
  6. return
  7.  
  8. Add:
  9. if (var = 1)
  10.     {
  11.         InputBox, applep1,
  12.         Gui, Add, CheckBox, x2 y0 w320 h20 Check3 vapple1, %applep1%
  13.         var := 2
  14.         return
  15.     }
  16. if (var = 2)
  17.     {
  18.         InputBox, applep2,
  19.         Gui, Add, CheckBox, x2 y20 w320 h20 Check3 vapple2, %applep2%
  20.         var := 3
  21.         return
  22.     }
  23. if (var = 3)
  24.     {
  25.         InputBox, applep3,
  26.         Gui, Add, CheckBox, x2 y40 w320 h20 Check3 vapple3, %applep3%
  27.         var := 4
  28.         return
  29.     }
  30. if (var = 4)
  31.     {
  32.         InputBox, applep4,
  33.         Gui, Add, CheckBox, x2 y60 w320 h20 Check3 vapple4, %applep4%
  34.         var := 5
  35.         return
  36.     }
  37. if (var = 5)
  38.     {
  39.         InputBox, applep5,
  40.         Gui, Add, CheckBox, x2 y80 w320 h20 Check3 vapple5, %applep5%
  41.         var := 6
  42.         return
  43.     }
  44. if (var = 6)
  45.     {
  46.         InputBox, applep6,
  47.         Gui, Add, CheckBox, x2 y100 w320 h20 Check3 vapple6, %applep6%
  48.         var := 7
  49.         return
  50.     }
  51. if (var = 7)
  52.     {
  53.         InputBox, applep7,
  54.         Gui, Add, CheckBox, x2 y120 w320 h20 Check3 vapple7, %applep7%
  55.         var := 8
  56.         return
  57.     }
  58. if (var = 8)
  59.     {
  60.         InputBox, applep8,
  61.         Gui, Add, CheckBox, x2 y140 w320 h20 Check3 vapple8, %applep8%
  62.         var := 9
  63.         return
  64.     }
  65. if (var = 9)
  66.     {
  67.         InputBox, applep9,
  68.         Gui, Add, CheckBox, x2 y160 w320 h20 Check3 vapple9, %applep9%
  69.         var := 10
  70.         return
  71.     }
  72. if (var = 10)
  73.     {
  74.         InputBox, applep10,
  75.         Gui, Add, CheckBox, x2 y180 w320 h20 Check3 vapple10, %applep10%
  76.         var := 11
  77.         return
  78.     }
  79. if (var = 11)
  80.     {
  81.         InputBox, applep11,
  82.         Gui, Add, CheckBox, x2 y200 w320 h20 Check3 vapple11, %applep11%
  83.         var := 12
  84.         return
  85.     }
  86. if (var = 12)
  87.     {
  88.         InputBox, applep12,
  89.         Gui, Add, CheckBox, x2 y220 w320 h20 Check3 vapple12, %applep12%
  90.         var := 13
  91.         return
  92.     }
  93. if (var = 13)
  94.     {
  95.         InputBox, applep13,
  96.         Gui, Add, CheckBox, x2 y240 w320 h20 Check3 vapple13, %applep13%
  97.         var := 14
  98.         return
  99.     }
  100. if (var = 14)
  101.     {
  102.         InputBox, applep14,
  103.         Gui, Add, CheckBox, x2 y260 w320 h20 Check3 vapple14, %applep14%
  104.         var := 15
  105.         return
  106.     }
  107. if (var = 15)
  108.     {
  109.         InputBox, applep15,
  110.         Gui, Add, CheckBox, x2 y280 w320 h20 Check3 vapple15, %applep15%
  111.         var := 16
  112.         return
  113.     }
  114. if (var = 16)
  115.     {
  116.         MsgBox, , Clear first! Limit 15., You can't add any more! Clear to add more., 10
  117.     }
  118. return
  119.  
  120. Clear:
  121. Reload
  122. return
  123.  
  124. Randomize:
  125. Gui, Submit, NoHide
  126. Loop, 15
  127. {
  128. if apple%A_Index% = -1
  129.     {
  130.         pineapple%A_Index% := applep%A_Index%
  131.         pizza += 1
  132.     }
  133. }
  134. if pizza =
  135. MsgBox, There is nothing to randomize!
  136. else
  137. {
  138. Random, migrane, 1, %pizza%
  139. Loop, %pizza%
  140. {
  141. if migrane = %A_Index%
  142. {
  143. MsgBox, %pineapple%A_Index%%
  144. }
  145. }
  146. pizza := 0
  147. return
  148. }
  149.  
  150. F6::
  151. Gui, Show
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement