Advertisement
mikelily

openBox

Jun 27th, 2019
2,042
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
QBasic 1.10 KB | None | 0 0
  1. FindPic 408,285,1474,828,"C:\Users\User\Desktop\box.bmp",0.6,intX,intY
  2. IF intX > 0 AND intY > 0 THEN
  3.   MoveTo intX, intY
  4.   CALL box()
  5. END IF
  6.  
  7. Delay 2000
  8.  
  9.  
  10. SUB box()
  11.   Delay 500
  12.   LeftClick 1
  13.   Delay 500
  14.   //1-2
  15.   MoveTo 1067, 650
  16.   Delay 500
  17.   LeftClick 1
  18.   Delay 500
  19.   MoveTo 1227, 681
  20.   Delay 500
  21.   LeftClick 1
  22.   Delay 500
  23.   LeftClick 1
  24.   Delay 6000
  25.  
  26.   //員工
  27.   MoveTo 1118, 661
  28.   Delay 500
  29.   LeftClick 1
  30.   Delay 1000
  31.   MoveTo 456, 703
  32.   Delay 500
  33.   LeftClick 1
  34.   Delay 500
  35.   MoveTo 635, 704
  36.   Delay 500
  37.   LeftClick 1
  38.   Delay 500
  39.   MoveTo 823, 714
  40.   Delay 500
  41.   LeftClick 1
  42.   Delay 500
  43.  
  44.   //buy one helper
  45.   MoveTo 1399, 667
  46.   Delay 500
  47.   LeftClick 1
  48.   Delay 1000
  49.   MoveTo 843, 562
  50.   Delay 500
  51.   LeftClick 1
  52.   Delay 1000
  53.   MoveTo 1487, 713
  54.   Delay 500
  55.   LeftClick 1
  56.   Delay 1000
  57.   MoveTo 1522, 271
  58.   Delay 500
  59.   LeftClick 1
  60.   Delay 1000
  61.   MoveTo 945, 711
  62.   Delay 500
  63.   LeftClick 1
  64.   Delay 500
  65.  
  66.   //go
  67.   MoveTo 1279, 769
  68.   Delay 500
  69.   LeftClick 1
  70.   Delay 500
  71.  
  72.   //CLOSE
  73.   MoveTo 1541, 184
  74.   Delay 500
  75.   LeftClick 1
  76.   Delay 1000
  77.  
  78. END SUB
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement