Svetainės paskirtis
LT
Šios svetainės paskirtis yra pateikti programavimo pamokas žaidimų kūrimui su Game maker 8.1 lite. Beje aš visai nemoku anglų kalbos, todėl atsiprašau jei kils neaiškumų. Laukite naujų pamokų...
EN
This site is intended to provide programming lessons creation of games with Game Maker Lite 8.1. By the way I do not speak English, so I'm sorry if you have any questions. Wait for a new tutorials...
pvz tokia pamoka(big draw):
Information about object: object0
Sprite:
Solid: false
Visible: true
Depth: 0
Persistent: false
Parent:
Mask:
Create Event:
execute code:
i=0 a[i]='' b[i]='' h=i x1='' y1='' x2='' y2='' lw=4 cw=lw/2 ad=0 ff='' xx=mouse_x yy=mouse_y dyd=100 kampas=0 lpsn=15 pdir='' pdis=''
skale=1
Draw Event:
execute code:
if mouse_check_button_pressed(mb_left)and ad=0 {xx=mouse_x yy=mouse_y i+=1 h=i a[i]=mouse_x b[i]=mouse_y}
if mouse_check_button(mb_left)and ad=0{if mouse_x!=xx or mouse_y!=yy
{i+=1 h=i a[i]=mouse_x b[i]=mouse_y}}
if mouse_check_button_released(mb_left) and ad=0 {if is_real(a[i-1]) a[i]=' '+string(a[i]) else a[i]=string(a[i])}
//////////////
as=0
if mouse_check_button_pressed(mb_right)and ad=0 and is_string(a[i]){ad=6 window_set_cursor(cr_none) instance_create(mouse_x,mouse_y,object1)
with object1{image_xscale=object0.skale image_yscale=object0.skale} as=1}
if ad=6 { object1.x=mouse_x object1.y=mouse_y}
if mouse_wheel_down()and ad=6 {with object1 if image_xscale>0.4{image_xscale-=0.1 image_yscale-=0.1} }
if mouse_wheel_up()and ad=6 {with object1 if image_xscale<1{image_xscale+=0.1 image_yscale+=0.1} }
if mouse_check_button(mb_left) and ad=6 {for(u=0 u<=i u+=1){
if u>0{if is_string(a[u]){if string_char_at(a[u],1)!=' ' and
collision_circle(real(a[u]),b[u],cw,object1,true,false) a[u]=' '+string(a[u])}}
if is_string(a[u]) or u=i continue
if collision_line(a[u],b[u],real(a[u+1]),b[u+1],object1,true,false) a[u]=' '+string(a[u])}}
if mouse_check_button_pressed(mb_right)and ad=6 and as=0{ad=0 with object1 {object0.skale=image_xscale instance_destroy()} window_set_cursor(cr_default) }
////////////////////////
if keyboard_check(vk_control)and ad=0 ad=4
if mouse_check_button_pressed(mb_left)and ad=4{i+=1 h=i a[i]=mouse_x b[i]=mouse_y}
if is_real(a[i]) and ad=4{draw_set_color(c_black) draw_line_width(a[i],b[i],mouse_x,mouse_y,lw)
draw_set_color(c_black) draw_circle(mouse_x,mouse_y,cw,false)}
if keyboard_check_released(vk_control)and ad=4 {ad=0 if is_real(a[i])a[i]=' '+string(a[i]) }
/////////////pas mane ne visada suveikia atleidus mygt alt, todel naudoju tab
if keyboard_check(vk_tab)and ad=0 ad=5
if ad=5 and is_real(a[i]){pdir=(round(point_direction(a[i],b[i],mouse_x,mouse_y)/lpsn)*lpsn)mod 360 pdis=point_distance(a[i],b[i],mouse_x,mouse_y)
c=a[i]+lengthdir_x(pdis,pdir) c2=b[i]+lengthdir_y(pdis,pdir)}
as=0
if mouse_check_button_pressed(mb_left)and ad=5 {if is_string(a[i]){i+=1 h=i a[i]=mouse_x b[i]=mouse_y as=1}
if is_real(a[i]) and as=0 {i+=1 h=i a[i]=c b[i]=c2} }
if is_real(a[i]) and ad=5 and as=0{draw_set_color(c_black) draw_line_width(a[i],b[i],c,c2,lw)
draw_set_color(c_black) draw_circle(c,c2,cw,false)}
if keyboard_check_released(vk_tab) and ad=5{ad=0 pdir='' pdis='' if is_real(a[i]) a[i]=' '+string(a[i])}
////////////////////////
if keyboard_check_pressed(vk_left)and ad=0 ad=2
if ad=2 and i>0 i-=1
if keyboard_check_pressed(vk_right)and ad=2 ad=3
if ad=3 and i<h {i+=1 if i=h ad=0}
if keyboard_check_pressed(ord('Z'))or keyboard_check_pressed(ord('X'))or keyboard_check(ord('Z')) or keyboard_check(ord('X'))
and i>0{for(u=1 u<=h u+=1)
{if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
if is_string(x1){x1=real(a[u])-lw/2 y1=b[u]-lw/2 x2=real(a[u])+lw/2 y2=b[u]+lw/2}
if is_real(x1){if x1>real(a[u])-lw/2 x1=real(a[u])-lw/2 if y1>b[u]-lw/2 y1=b[u]-lw/2 if x2<real(a[u])+lw/2 x2=real(a[u])+lw/2 if y2<b[u]+lw/2 y2=b[u]+lw/2 }}
if (keyboard_check_pressed(ord('Z'))or keyboard_check_pressed(ord('X')))and is_real(x1) {px=x1+(x2-x1)/2 py=y1+(y2-y1)/2}}
if keyboard_check(ord('Z')) or keyboard_check(ord('X')) and i>0and is_real(x1){if keyboard_check(ord('Z')) {pp=1 kampas+=1 kampas=kampas mod 360}
if keyboard_check(ord('X')) {pp=-1 kampas-=1 kampas=(360+kampas) mod 360} for(u=1 u<=h u+=1)
{if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
pdis=point_distance(px,py,real(a[u]),b[u]) pdir=point_direction(px,py,real(a[u]),b[u])+pp
if is_real(a[u]) a[u]=px+lengthdir_x(pdis,pdir)else a[u]=string(px+lengthdir_x(pdis,pdir)) b[u]=py+lengthdir_y(pdis,pdir)}}
/////////////////////
if keyboard_check_pressed(vk_down)or keyboard_check_pressed(vk_up) or keyboard_check_pressed(ord('A')) or keyboard_check_pressed(ord('S'))
and i>0 {for(u=1 u<=h u+=1) {if is_string(a[u-1])and string_char_at(string(a[u]),1)=' 'continue
if is_string(x1){x1=real(a[u]) y1=b[u] x2=real(a[u]) y2=b[u]}
if is_real(x1){if x1>real(a[u]) x1=real(a[u]) if y1>b[u] y1=b[u] if x2<real(a[u]) x2=real(a[u]) if y2<b[u] y2=b[u] }}
if is_real(x1) {px=x1+(x2-x1)/2 py=y1+(y2-y1)/2}}
if keyboard_check(vk_down)and dyd>1 and i>0 and is_real(x1){ip=dyd dyd-=1
for(u=1 u<=h u+=1)
{if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
pdis=point_distance(px,py,real(a[u]),b[u])*dyd/ip pdir=point_direction(px,py,real(a[u]),b[u])
if is_real(a[u]) a[u]=px+lengthdir_x(pdis,pdir) else a[u]=string(px+lengthdir_x(pdis,pdir)) b[u]=py+lengthdir_y(pdis,pdir) }}
if keyboard_check(vk_up) and i>0 and is_real(x1){ip2=dyd dyd+=1
for(u=1 u<=h u+=1)
{if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
pdis=point_distance(px,py,real(a[u]),b[u])*dyd/ip2 pdir=point_direction(px,py,real(a[u]),b[u])
if is_real(a[u]) a[u]=px+lengthdir_x(pdis,pdir) else a[u]=string(px+lengthdir_x(pdis,pdir)) b[u]=py+lengthdir_y(pdis,pdir) }}
////////////////
if keyboard_check_pressed(ord('A')) and i>0 and is_real(x1) {for(u=1 u<=h u+=1)
{ if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
pdis=point_distance(px,py,real(a[u]),b[u]) pdir=point_direction(real(a[u]),b[u],px,py)
if is_real(a[u]) a[u]=px+lengthdir_x(pdis,pdir) else a[u]=string(px+lengthdir_x(pdis,pdir))}}
if keyboard_check_pressed(ord('S')) and i>0 and is_real(x1) {for(u=1 u<=h u+=1)
{if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
pdis=point_distance(px,py,real(a[u]),b[u]) pdir=point_direction(real(a[u]),b[u],px,py)
b[u]=py+lengthdir_y(pdis,pdir)}}
if keyboard_check_pressed(vk_shift)and is_string(a[i]) and ad=0 ad=1 if ad=1 cw=4
if ad=1 and mouse_check_button_pressed(mb_left){for(u=1 u<=i u+=1){
if is_string(a[u-1]) and string_char_at(string(a[u]),1)=' ' continue
if point_distance(real(a[u]),b[u],mouse_x,mouse_y)<=cw {ff=u break}}}
if is_real(ff) {if(mouse_x!=xx or mouse_y!=yy) {if is_real(a[ff]) a[ff]+=mouse_x-xx else
{if string_char_at(a[ff],1)=' ' nn=' ' else nn='' a[ff]=nn+string(real(a[ff])+mouse_x-xx)}
b[ff]+=mouse_y-yy}}
if ad=1 and mouse_check_button_released(mb_left) ff=''
if keyboard_check_released(vk_shift)and ad=1 {ad=0 ff=''} if ad=0 cw=lw/2
for(u=0 u<=i u+=1)
{draw_set_color(c_black) if u>1 {if is_real(a[u-1]) draw_line_width(a[u-1],b[u-1],real(a[u]),b[u],lw)}
if ad=0 draw_set_color(c_black) if ad=1 draw_set_color(c_yellow) if is_real(ff){if u-1=ff draw_set_color(c_red)}
if u>1{if string_char_at(string(a[u-1]),1)!=' ' draw_circle(real(a[u-1]),b[u-1],cw,false) else
if is_real(a[u-2]) draw_circle(real(a[u-1]),b[u-1],cw,false)}
if u=i and u>0 { if is_real(ff){if u=ff draw_set_color(c_red)if u!=ff draw_set_color(c_yellow)}
if is_real(a[u-1]) or string_char_at(string(a[u]),1)!=' ' draw_circle(real(a[u]),b[u],cw,false)}}
draw_set_color(c_green)
if keyboard_check(ord('Z')) or keyboard_check(ord('X')) and i>0 and is_real(x1) draw_circle(px,py,3,false)
if keyboard_check_pressed(vk_enter) and i>0{for(u=1 u<=i u+=1)
{if is_string(a[u-1])and string_char_at(string(a[u]),1)=' ' continue
if is_string(x1){x1=real(a[u])-lw/2 y1=b[u]-lw/2 x2=real(a[u])+lw/2 y2=b[u]+lw/2}
if is_real(x1){if x1>real(a[u])-lw/2 x1=real(a[u])-lw/2 if y1>b[u]-lw/2 y1=b[u]-lw/2 if x2<real(a[u])+lw/2 x2=real(a[u])+lw/2
if y2<b[u]+lw/2 y2=b[u]+lw/2}} }
draw_set_color(c_blue)
if keyboard_check(vk_enter) and is_real(x1) draw_rectangle(x1,y1,x2,y2,true)
if keyboard_check_released(vk_enter) and is_real(x1) {screen_save_part('sauliaus piesinys.png',x1,y1,x2-x1,y2-y1) x1=''}
if keyboard_check_released(ord('Z'))or keyboard_check_released(ord('X')) or keyboard_check_released(ord('A'))
or keyboard_check_released(ord('S'))or keyboard_check_released(vk_up) or keyboard_check_released(vk_down) x1=''
xx=mouse_x yy=mouse_y
at position (0,0) draw the value of: i
at position (0,20) draw the value of: 'kampas '+string(kampas)
at position (0,40) draw the value of: 'dydis '+string(dyd)+'%'
if expression ad=5 is true
at position (0,60) draw the value of: 'kampas 2: '+string(pdir)
at position (0,80) draw the value of: 'atstumas: '+string(pdis)+' px'
Information about object: object1
Sprite: sprite0
Solid: false
Visible: true
Depth: 0
Persistent: false
Parent:
Mask: