环形渐开找怪示例

wx_DdQG9

无聊，写个大家玩玩！！！
玩法，打开画图程序，选喷枪，然后运行此脚本就开始渐开画圆了，如果改改就成找怪的脚本了，呵呵！！！

1. 
   
2. dim Ttx,Tty
   
3. function main
   
4. Ttx=512
   
5. Tty=(768-42)/2
   
6. do
   
7. for r=1 to 10
   
8. rr=20*r
   
9. if ismonster(rr,x,y) then
   
10. //这写找到怪后的动作
    
11. end if
    
12. next
    
13. loop
    
14. end function
    
15. 
    
16. function ismonster(pixelR,byref monsterX,byref monsterY)
    
17. ismonster=false
    
18. //CopyScreen()
    
19. for k=1 to 2
    
20. for j=-pixelR to pixelR step 2
    
21. if k=1 then
    
22. x=Ttx+j
    
23. y=Tty+Sqr(pixelR*pixelR-j*j)
    
24. else
    
25. x=Ttx-j
    
26. y=Tty-Sqr(pixelR*pixelR-j*j)
    
27. end if
    
28. //以下三行本来是写怪物颜色判断，这改成画图了，呵呵
    
29. MouseMove(x,y)
    
30. MouseLeftClick()
    
31. Wait(100)
    
32. next
    
33. next
    
34. end function

复制代码