Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- --turkey shoot
- function setup()
- ts=30 -- turkey size
- mts=10 -- max turkey speed
- mt=((HEIGHT*WIDTH)/ts/ts/40)
- tk = {} -- turkey table
- for i=1,mt do
- tx=math.random() * WIDTH -- turkey x
- ty=math.random() * HEIGHT -- turkey y
- txv=(math.random() * mts * 2) - mts -- turkey x velocity
- tyv=(math.random() * mts * 2) - mts -- turker y velocity
- tk[i] = {x=tx,y=ty,cxv=txv,cyv=tyv}
- end
- end
- function draw()
- background(0, 255, 33, 255)
- for i,v in ipairs(tk) do
- drawturkey(tk[i].x,tk[i].y,ts)
- if CurrentTouch.state == BEGAN then
- if (math.abs(tk[i].x - CurrentTouch.x) < ts * 2) and
- (math.abs(tk[i].y - CurrentTouch.y) < ts * 2) then
- table.remove(tk,i)
- end
- else
- if (tk[i].x + tk[i].cxv < ts) or (tk[i].x + tk[i].cxv > WIDTH) or
- (tk[i].y + tk[i].cyv < ts) or (tk[i].y + tk[i].cyv > HEIGHT) then
- if (tk[i].x + tk[i].cxv < ts) then
- tk[i].cxv = mts * math.random()
- elseif (tk[i].x + tk[i].cxv > WIDTH) then
- tk[i].cxv = -mts * math.random()
- end
- if (tk[i].y + tk[i].cyv < ts) then
- tk[i].cyv = mts * math.random()
- elseif (tk[i].y + tk[i].cyv > HEIGHT) then
- tk[i].cyv = -mts * math.random()
- end
- end
- tk[i].x = tk[i].x + tk[i].cxv
- tk[i].y = tk[i].y + tk[i].cyv
- end
- end
- end
- function drawturkey(tx,ty,tsize)
- stroke(0, 0, 0, 255)
- fill(255, 187, 0, 255)
- --tail feathers
- ellipse(tx+(tsize/2),ty+(tsize/2),tsize/2,tsize)
- ellipse(tx-(tsize/2),ty+(tsize/2),tsize/2,tsize)
- ellipse(tx+(tsize/3),ty+(tsize/2),tsize/2,tsize)
- ellipse(tx-(tsize/3),ty+(tsize/2),tsize/2,tsize)
- ellipse(tx+(tsize/6),ty+(tsize/2),tsize/2,tsize)
- ellipse(tx-(tsize/6),ty+(tsize/2),tsize/2,tsize)
- ellipse(tx,ty+(tsize/2),tsize/2,tsize)
- fill(0, 0, 0, 255)
- --legs
- ellipse(tx+(tsize/6),ty-(tsize/2),tsize/12,tsize)
- ellipse(tx-(tsize/6),ty-(tsize/2),tsize/12,tsize)
- fill(255, 187, 0, 255)
- --body
- ellipse(tx,ty,tsize,tsize)
- --shoulder
- ellipse(tx,ty+(tsize/6),tsize/2,tsize/2)
- --neck low
- ellipse(tx,ty+(tsize/3),tsize/6,tsize*5/6)
- --neck high
- fill(255, 0, 0, 255)
- ellipse(tx,ty+(tsize/2),tsize/6,tsize/2)
- --head
- fill(32, 44, 105, 255)
- ellipse(tx,ty+(tsize*2/3),tsize/6,tsize/3)
- --eyes
- fill(232, 245, 28, 255)
- ellipse(tx-(tsize/12),ty+(tsize*3/4),tsize/6,tsize/6)
- ellipse(tx+(tsize/12),ty+(tsize*3/4),tsize/6,tsize/6)
- --pupils
- --fill(0, 0, 0, 255)
- --ellipse(tx-(tsize/12),ty+(tsize*3/4),tsize/12,tsize/12)
- --ellipse(tx+(tsize/12),ty+(tsize*3/4),tsize/12,tsize/12)
- end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement