고리 형 점 개 몬스터 예시 찾기

심심 해,다 들 놀 자고 써!!게임 방법,그림 프로그램 을 열 고 분무기 를 선택 한 다음 에 이 스 크 립 트 를 실행 하면 점점 원 을 그리 기 시작 합 니 다.고치 면 이상 한 스 크 립 트 가 됩 니 다.하하!!

dim Ttx,Tty 
function main 
Ttx=512 
Tty=(768-42)/2 
do 
for r=1 to 10 
rr=20*r 
if ismonster(rr,x,y) then 
//          
end if 
next 
loop 
end function 

function ismonster(pixelR,byref monsterX,byref monsterY) 
ismonster=false 
//CopyScreen() 
for k=1 to 2 
for j=-pixelR to pixelR step 2 
if k=1 then 
x=Ttx+j 
y=Tty+Sqr(pixelR*pixelR-j*j) 
else 
x=Ttx-j 
y=Tty-Sqr(pixelR*pixelR-j*j) 
end if 
//              ，      ，   
MouseMove(x,y) 
MouseLeftClick() 
Wait(100) 
next 
next 
end function