Игростроение - Создание игр

Type buttons
Field imgb, xb, yb, idb, tx, ty, textb$, maskb
End Type

Global mask_button

Function create_button(img$,xb,yb,idb)
n.buttons = New buttons
n\imgb = LoadImage("images/"+img$)
n\xb = xb
n\yb = yb
n\idb=idb
End Function

Function Draw_button(idb)
For n.buttons = Each buttons
If n\idb=idb
If n\imgb<>0 Then DrawImage n\imgb,n\xb,n\yb
;SetFont fntArialB : Color 0,0,255
Text n\xb+n\tx,n\yb+n\ty,n\textb$
End If
Next
End Function

Function mask_button(mas$)
mask_button=0
mask_button=LoadImage("images/"+mas$)
End Function

Function mask_for_button(mas$,num)
n.buttons=Last buttons
For i=1 To i=num
n\maskb=LoadImage("images/"+mas$)
n=Before n
Next
End Function

Function text_button(tx,ty,textb$)
n.buttons=Last buttons
n\tx = tx
n\ty = ty
n\textb$=textb$
End Function

Function on_click_button(mx,my,idb)
i=0
For n.buttons = Each buttons
If n\idb=idb
  i=i+1
  If n\imgb<>0
   If ImageRectCollide(n\imgb,n\xb,n\yb,0,mx-1,my-1,2,2)=1
   If n\maskb=0
   DrawImage mask_button,n\xb,n\yb
   Else
   DrawImage n\maskb,n\xb,n\yb
   EndIf
    If MouseHit(1)
    Return i
    EndIf
   Exit
   EndIf
  EndIf
EndIf
Next
End Function

Function free_button(idb)
For n.buttons = Each buttons
If n\idb=idb Then Delete n
Next
End Function

Graphics 1024,768,32,0

mask_button("menu/mm.png")

create_button("menu/asd.bmp",724,748,19) : create_button("menu/asd.bmp",824,748,19)
create_button("menu/asd.bmp",924,748,19) : create_button("menu/asd.bmp",  0,  0,19)
create_button("menu/asd.bmp",100,  0,19) : create_button("menu/asd.bmp",200,  0,19)
create_button("menu/asd.bmp",300,  0,19) : create_button("menu/asd.bmp",400,  0,19)

Repeat
Cls : mx=MouseX() : my=MouseY()
draw_button(19)
   
Select on_click_button(mx,my,19)
Case 1
   
Case 2

Case 6

Case 7
End
End Select

Flip
Until KeyDown(1)
End