Sisältää tällä hetkellä kartan vierittämisen ja kartan tuhoamisen.
Koodista löytyy aika varmasti omituisuuksia ja bugeja, ilmoitelkaa niistä.
Tähän olisi tarkoitus laittaa myös törmäystunnistus (jota en jaksanut/osannut laittaa vielä).
Kuva:
Example (paketissa mukana):
Code: Select all
SCREEN 500, 400
FrameLimit 40
Include "XMap.cb" // Sisällytetään XMap.cb lähdekoodiin
XMap = XMap_Create(LoadImage("Map.png"), cbMagenta) // Luodaan kartta kuvasta Map.png, läpinäkyvä väri cbMagenta
Back = MakeImage(1000, 400) // Luodaan tausta
DrawToImage Back
Color cbLightBlue
Box 0, 0, 1000, 400
DrawToScreen
XMap_AssignBack(XMap, Back) // Kiinnitetään tausta karttaan
Color 0, 0, 0
AddText "Vieritä vasemmalla ja oikealla nuolinäppäimellä"
AddText "Hiiren vasen tuhoaa karttaa"
Repeat
If LeftKey() Then XMap_Scroll(XMap, -10, 0) // Vieritetään vasemmalle
If RightKey() Then XMap_Scroll(XMap, 10, 0) // Vieritetään oikealle
// Tuhotaan karttaa
If MouseDown(1) Then XMap_Destruct(XMap, XMap_X#(XMap, MouseX() - 5), XMap_Y#(XMap, MouseY() - 5), 10, 10, 10)
XMap_Draw(XMap) // Piirretään kartta
DrawScreen
Until EscapeKey()
XMap_Delete(XMap) // Poistetaan kartta muistista
Latauslinkki:
http://koti.mbnet.fi/cerebro/XMap.zip