Guest User

sss

a guest
Oct 11th, 2020
146
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. WHILE GETKEYSTATE(VK_F1) // キー押下で開始
  2.  
  3. now = GETTIME()
  4.  
  5. lflag2FLG = 0
  6. lflag3FLG = 0
  7. lhpFLG = 0
  8.  
  9. //↓ここがおそい でも全体的にもっさり
  10. For i = 10 to 43
  11. //1
  12. IF PEEKCOLOR(681,i) = 5028863 THEN
  13. lflag2FLG = 1
  14. Break
  15. ENDIF
  16. //2
  17. IF PEEKCOLOR(726,i) = 5028863 THEN
  18. lflag3FLG = 1
  19. Break
  20. ENDIF
  21. Next
  22.  
  23. //↓ここがおそい でも全体的にもっさり
  24. For i = 10 to 43
  25. IF PEEKCOLOR(1176,i) = 5028863 _
  26. OR PEEKCOLOR(1176,i) = 7336959 _
  27. OR PEEKCOLOR(1176,i) = 7312840 _
  28. OR PEEKCOLOR(1176,i) = 6062519 THEN
  29. lhpFLG = 1
  30. l処理FLG = 1
  31. Break
  32. ENDIF
  33. Next
  34.  
  35. //av
  36. IF (PEEKCOLOR(1044,1005) = 3506557 OR PEEKCOLOR(1044,1005) = 7905183) Then
  37.  
  38. ELSEIF lCount <> 0 THEN
  39. lCount = 0
  40. ELSEIF l次av停止 = 1
  41. l次av停止 = 0
  42. ELSEIF (lA + lB + lC + lD + lE + lF + lG + lH + lI + lJ + lL + lM + lS + lO) > 0
  43. lA = 0
  44. lB = 0
  45. lC = 0
  46. lD = 0
  47. lE = 0
  48. lF = 0
  49. lG = 0
  50. lH = 0
  51. lI = 0
  52. lJ = 0
  53. lL = 0
  54. lM = 0
  55. lS = 0
  56. lO = 0
  57.  
  58. //
  59. ELSEIF (PEEKCOLOR(689,535) = 8355300 _
  60. OR l次hv = 1) _
  61. AND !(PEEKCOLOR(710,537) = 16777215 _
  62. AND PEEKCOLOR(724,537) = 16777215 _
  63. AND PEEKCOLOR(724,534) = 16777215)
  64. IF l次hv = 1 AND lhpFLG = 1
  65. Sleep(0.0)
  66. KBD(VK_7,CLICK,0)
  67. Sleep(0.04)
  68. ENDIF
  69. KBD(VK_6,CLICK,0)
  70. //danが出来る 秒が表示されていない dan1秒前 dan
  71. ELSEIF (PEEKCOLOR(842,12,COL_B) > 240 _
  72. OR PEEKCOLOR(846,26) = 6813951 _
  73. OR CHKIMG(PATH13,,820,40,832,53) _
  74. OR lJkkouFLG = 1) _
  75. AND lvc >= 58
  76. KBD(VK_CTRL,DOWN,0)
  77. KBD(VK_9,CLICK,0)
  78. Sleep(0.04)
  79. KBD(VK_CTRL,UP,0)
  80. KBD(VK_8,CLICK,0)
  81. Sleep(0.04)
  82.  
  83. lJkkouFLG = 1
  84. ldan1秒前 = 0
  85.  
  86. //danが使えない vc57以下 
  87. ELSEIF PEEKCOLOR(887,12,COL_B) > 240 _
  88. AND lvc < 58
  89.  
  90. KBD(VK_9,CLICK,0)
  91. Sleep(0.04)
  92. //eanがある 秒が表示されていない ean1秒前 ean
  93. ELSEIF ((PEEKCOLOR(887,12,COL_B) > 240 _
  94. OR PEEKCOLOR(887,12) = 11775651 _
  95. OR CHKIMG(PATH14,,866,41,885,49)) _
  96. AND PEEKCOLOR(855,19,COL_R) > 200) _
  97. OR ((PEEKCOLOR(887,12,COL_B) > 240 _
  98. OR PEEKCOLOR(887,12) = 11775651) _
  99. AND lSyokaiFLG = 1) OR lean = 1
  100.  
  101. KBD(VK_9,CLICK,0)
  102. Sleep(0.04)
  103. laSyokaiFLG = 1
  104. lean = 1
  105. lean1秒前 = 0
  106. //flag3がプロック flag3
  107. ELSEIF lflag3FLG = 1 THEN
  108. IF l次w = 1 AND PEEKCOLOR(795,18) = 16316664
  109. Sleep(0.2)
  110. KBD(VK_CTRL,DOWN,0)
  111. KBD(VK_6,CLICK,0)
  112. Sleep(0.04)
  113. KBD(VK_CTRL,UP,0)
  114. ENDIF
  115.  
  116. KBD(VK_5,CLICK,0)
  117. Sleep(0.04)
  118. //flag2がプロック flag2
  119. ELSEIF lflag2FLG = 1 THEN
  120. IF l次w = 1 AND PEEKCOLOR(795,18) = 16316664
  121. Sleep(0.2)
  122. KBD(VK_CTRL,DOWN,0)
  123. KBD(VK_6,CLICK,0)
  124. Sleep(0.04)
  125. KBD(VK_CTRL,UP,0)
  126. ENDIF
  127. KBD(VK_4,CLICK,0)
  128. Sleep(0.04)
  129. //
  130. ELSE
  131. IF l次w = 1 AND PEEKCOLOR(795,18) = 16316664
  132. Sleep(0.2)
  133. KBD(VK_CTRL,DOWN,0)
  134. KBD(VK_6,CLICK,0)
  135. Sleep(0.04)
  136. KBD(VK_CTRL,UP,0)
  137. ENDIF
  138. KBD(VK_3,CLICK,0)
  139. Sleep(0.04)
  140. ENDIF
  141.  
  142. WEND
RAW Paste Data