i already found it out :
procedure saveb
play video videos/saving.vid
game save slot 1
map return
end
procedure loadb
play video videos/loading.vid
game load slot 1
map return
end
procedure healthb
player heal 20
text "+ hp"
map return
end
procedure armorb
player givearmour 100
text "+ armor"
map return
end
procedure ammob
give ammo 1 100
give ammo 2 100
give ammo 3 100
give ammo 4 100
give ammo 5 500
text "+ ammo"
map return
end
procedure exitb
map return
end
cursor 1
image saveb Sprites/assets/savebutton.png
button saveb 450 450 saveb
image loadb Sprites/assets/loadbutton.png
button loadb 680 450 loadb
image healthb Sprites/assets/healthbutton.png
button healthb 300 100 healthb
image armorb Sprites/assets/armor.png
button armorb 300 200 armorb
image ammob Sprites/assets/ammo.png
button ammob 300 300 ammob
image exitb Sprites/assets/exit.png
button exitb 300 400 exitb
image screen Sprites/assets/screen2.png
show screen 430 100 0
halt