고리형 점차적 몬스터 찾기 예

879 단어
심심해, 다들 놀자고 써!!!
게임 방법, 그림 그리기 프로그램을 열고 분무기를 선택한 다음에 이 스크립트를 실행하면 점점 동그랗게 그려지기 시작합니다. 바꾸면 이상한 스크립트가 됩니다. 허허!!!
 
  
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

좋은 웹페이지 즐겨찾기