دانلود سورس بازی بارش توپ در دایرکتور Director

on exitFrame me
  repeat with i=2 to 6
    sprite(i).loch=random(298)+11
    sprite(i).locv=random(120)+11
    end repeat
end

global score
on exitFrame me
  score=0
 member ("l1").text=string (0)
  
end

global score
on exitFrame me
  go the frame 
  repeat with i=2 to 6
    if sprite(i).locv<230 then
      sprite(i).locv=sprite(i).locv+3
    else
      sprite(i).locv=random(10)
      sprite(i).loch=random(298)+11
      sprite(i).visible=true
    end if
    if (sprite(i).locv>sprite(1).locv-10)and (sprite(i).locv<sprite(1).locv+10) and(sprite(i).loch>sprite(1).loch-80)and (sprite(i).loch<sprite(1).loch+80)and(sprite(i).visible=true) then
      score=score+1
      sprite(i).visible=false
      put score
      member("l1").text=string (score)
    end if
    
  end repeat
  
end
on keydown me 
  if (the keycode=124)and(sprite(1).loch<270) then
    sprite(1).loch=sprite(1).loch+9
  end if
  
  if (the keycode=123)and(sprite(1).loch>50) then
    sprite(1).loch=sprite(1).loch-9
  end if
end

هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید

حجم فایل :26 KB