Editing a Matrix With The Mouse...

Author

Message

MSon

21

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 1st Mar 2005 00:35 Edited at: 1st Mar 2005 00:45

Link

Some Problems, but look at it to see what you think

Click on the Matrix Point and Use Mouse Z to Raise and Lower

Need feedback on how to Improve

AutoCam Off
Position Camera 50,10,0

Make Matrix 1,100,100,50,50
Do : EditMatrixWithMouse(1,100,100,50,50)
     Control Camera Using ArrowKeys 0,5,5
                               Loop

Function EditMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
         If MouseClick() = 0 Then ExitFunction 0
`        Get a Free Object Number And Make an Object
         Repeat : Inc On,1 : Until Object Exist(On) = 0
         Make Object Sphere On,2
       ` Get Values
         xSegSize# = Width# / xSeg
         ySegSize# = Lenth# / ySeg
       ` Loop For All Tiles
     For y = 1 To ySeg
     For x = 1 To xSeg
         Show = 0
      If MouseClick() = 0 Then Goto MatrixEditCleanUp
       ` Position the Object At Matrix Point
         Position Object On,x * xSegSize#,Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),y * ySegSize#
       ` Mouse Over Object @ Matrix Point?
         Mx = MouseX()
         Ox = Object Screen X(On)
      If Ox > Mx - 5 And Ox < Mx + 5
         My = MouseY()
         Oy = Object Screen Y(On)
      If Oy > My - 5 And Oy < My + 5
       ` Update Now
         Show Object On
         Repeat
         Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + (MouseMoveZ() / 100)
         Position Object On,Object Position X(On),Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),Object Position Z(On)
         Update Matrix Mn
         Until MouseClick() <> 1
         x = OldX : y = OldY : Show = 1
         EndIf : EndIf
       ` Show Point Selector?
      If Show = 0 Then Hide Object On
       ` Backup Data And Then Loop
         OldX = x : OldY = y
         Next x : Next y
MatrixEditCleanUp: ` CleanUp
                     Delete Object On
EndFunction 1

+ Code Snippet

AutoCam Off
Position Camera 50,10,0

             Make Matrix 1,100,100,50,50
Do : EditMatrixWithMouse(1,100,100,50,50)
     Control Camera Using ArrowKeys 0,5,5
                               Loop

Function EditMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
         If MouseClick() = 0 Then ExitFunction 0
`        Get a Free Object Number And Make an Object
         Repeat : Inc On,1 : Until Object Exist(On) = 0
         Make Object Sphere On,2
       ` Get Values
         xSegSize# = Width# / xSeg
         ySegSize# = Lenth# / ySeg
       ` Loop For All Tiles
     For y = 1 To ySeg
     For x = 1 To xSeg
         Show = 0
      If MouseClick() = 0 Then Goto MatrixEditCleanUp
       ` Position the Object At Matrix Point
         Position Object On,x * xSegSize#,Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),y * ySegSize#
       ` Mouse Over Object @ Matrix Point?
         Mx = MouseX()
         Ox = Object Screen X(On)
      If Ox > Mx - 5 And Ox < Mx + 5
         My = MouseY()
         Oy = Object Screen Y(On)
      If Oy > My - 5 And Oy < My + 5
       ` Update Now
         Show Object On
         Repeat
         Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + (MouseMoveZ() / 100)
         Position Object On,Object Position X(On),Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),Object Position Z(On)
         Update Matrix Mn
         Until MouseClick() <> 1
         x = OldX : y = OldY : Show = 1
         EndIf : EndIf
       ` Show Point Selector?
      If Show = 0 Then Hide Object On
       ` Backup Data And Then Loop
         OldX = x : OldY = y
         Next x : Next y
MatrixEditCleanUp: ` CleanUp
                     Delete Object On
EndFunction 1

Edit: The Object over the Matrix Point should be Visable when over the Matrix Point, But its not unless your clicking on it and I don't know why...

Back to top

Profile PM Email Website

John H

Retired Moderator

23

Years of Service

User Offline

Joined: 14th Oct 2002

Location: Burlington, VT

Posted: 1st Mar 2005 06:26 Edited at: 1st Mar 2005 06:26

Link

Quote: "Function EditMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
If MouseClick() = 0 Then ExitFunction 0
` Get a Free Object Number And Make an Object
Repeat : Inc On,1 : Until Object Exist(On) = 0
Make Object Sphere On,2

If MouseClick() = 0 Then Goto MatrixEditCleanUp
` Position the Object At Matrix Point
Position Object On,x * xSegSize#,Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),y * ySegSize#
"

Thats why, you say 'only show the sphere if your clicking'

Click here to join our forums and get updates on game progress sooner!

Back to top

Profile PM

MSon

21

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 1st Mar 2005 08:05 Edited at: 1st Mar 2005 08:10

Link

NEW CODE!!!

AutoCam Off
Position Camera 50,10,0

Make Matrix 1,100,100,50,50
Do : EditMatrixWithMouse(1,100,100,50,50)
     Control Camera Using ArrowKeys 0,5,5
                               Loop

Function EditMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
`         If MouseClick() = 0 Then ExitFunction 0
         On = 1 : Make Object Sphere On,2
       ` Get Values
         xSegSize# = Width# / xSeg
         ySegSize# = Lenth# / ySeg
       ` Loop For All Tiles
     For y = 1 To ySeg
     For x = 1 To xSeg
         Show = 0
`      If MouseClick() = 0 Then Goto MatrixEditCleanUp
       ` Position the Object At Matrix Point
         Position Object On,x * xSegSize#,Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),y * ySegSize#
       ` Mouse Over Object @ Matrix Point?
         Mx = MouseX()
         Ox = Object Screen X(On)
      If Ox > Mx - 5 And Ox < Mx + 5
         My = MouseY()
         Oy = Object Screen Y(On)
      If Oy > My - 5 And Oy < My + 5
       ` Update Now
         Show Object On
         Repeat
         Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + (MouseMoveZ() / 100)
         Position Object On,Object Position X(On),Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),Object Position Z(On)
         Update Matrix Mn
         Until MouseClick() <> 1
         x = OldX : y = OldY : Show = 1
         EndIf : EndIf
       ` Show Point Selector?
      If Show = 0 Then Hide Object On
       ` Backup Data And Then Loop
         OldX = x : OldY = y
         Next x : Next y
MatrixEditCleanUp: ` CleanUp
                     Delete Object On
EndFunction 1

+ Code Snippet

AutoCam Off
Position Camera 50,10,0

             Make Matrix 1,100,100,50,50
Do : EditMatrixWithMouse(1,100,100,50,50)
     Control Camera Using ArrowKeys 0,5,5
                               Loop

Function EditMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
`         If MouseClick() = 0 Then ExitFunction 0
         On = 1 : Make Object Sphere On,2
       ` Get Values
         xSegSize# = Width# / xSeg
         ySegSize# = Lenth# / ySeg
       ` Loop For All Tiles
     For y = 1 To ySeg
     For x = 1 To xSeg
         Show = 0
`      If MouseClick() = 0 Then Goto MatrixEditCleanUp
       ` Position the Object At Matrix Point
         Position Object On,x * xSegSize#,Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),y * ySegSize#
       ` Mouse Over Object @ Matrix Point?
         Mx = MouseX()
         Ox = Object Screen X(On)
      If Ox > Mx - 5 And Ox < Mx + 5
         My = MouseY()
         Oy = Object Screen Y(On)
      If Oy > My - 5 And Oy < My + 5
       ` Update Now
         Show Object On
         Repeat
         Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + (MouseMoveZ() / 100)
         Position Object On,Object Position X(On),Get Ground Height(Mn,Object Position X(On),Object Position Z(On)),Object Position Z(On)
         Update Matrix Mn
         Until MouseClick() <> 1
         x = OldX : y = OldY : Show = 1
         EndIf : EndIf
       ` Show Point Selector?
      If Show = 0 Then Hide Object On
       ` Backup Data And Then Loop
         OldX = x : OldY = y
         Next x : Next y
MatrixEditCleanUp: ` CleanUp
                     Delete Object On
EndFunction 1

Back to top

Profile PM Email Website

Pyro990

21

Years of Service

User Offline

Joined: 25th Oct 2004

Location: UK

Posted: 2nd Mar 2005 07:39

Link

Hehe, pretty cool

.

My Site
Laptop: P4 3.4GHz w/HT-120GB HDD-1GB DDR SDRAM-nVIDIA GeForce FX Go5700 128MB
PC: P4 2.8GHz-30GB HDD-1GB RAM-nVIDIA GeForce FX5200 256MB

Back to top

Profile PM Email Website

MSon

21

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 3rd Mar 2005 01:13 Edited at: 3rd Mar 2005 02:59

Link

Thanks Pyro...

But New Code...

Heres a List of the Commands I've made, and used in this...

+ Code Snippet

GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
RaiseMatrixPointWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
SetMatrixTileWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
RaiseMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
MouldRaiseMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
TriangleMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
RandomHill1MatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
RandomHill2MatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)

Check out the Right Click Menu in This, (All the Above commands used in the Programme)...

Matrix Editor...

Set Display Mode 800,600,32
` ---------------------------------------------------------------
Perform CheckList For Display Modes
v = CheckList Quantity()
Global MenuForeColor : MenuForeColor = RGB(255,255,255)
Global MenuBackColor : MenuBackColor = RGB(0  ,20 ,0  )
Global Dim Menu$(50)
For n = 1 To v
Menu$(n) = CheckList String$(n)
Next n : Repeat
n = UpdateMenu(0,v,0,0,1)
Until n <> 0
Set Display Mode CheckList Value A(n),CheckList Value B(n),CheckList Value C(n)
Empty CheckList
UnDim Menu$()
` ---------------------------------------------------------------

Disable EscapeKey
          Sync On
        Sync Rate 0
      AutoCam Off
  Position Camera 50,10,0
   Position Light 0,100,100,100
           Make Matrix 1,100,100,50,50
            Load Image "C:TileSheet.bmp",1
Prepare Matrix Texture 1,1,2,1

Selector = 6657
Make Object Sphere Selector,2
       Hide Object Selector

` Setup Menu
  Global MenuForeColor : MenuForeColor = RGB(255,255,255)
  Global MenuBackColor : MenuBackColor = RGB(0  ,20 ,0  )
  Global Dim Menu$(22)
             Menu$(1)  = " Raise Matrix Point "
             Menu$(2)  = " Raise Matrix Area "
             Menu$(3)  = " Mould Raise Matrix Area "
             Menu$(4)  = " Set Matrix Tiles With Mouse "
             Menu$(5)  = " Make Pyramid On Matrix "
             Menu$(6)  = " Make Random Hill 1 On Matrix "
             Menu$(7)  = " Make Random Hill 2 On Matrix "
             Menu$(8)  = "--------------------------------------------"
             Menu$(9)  = " Set Matrix WireFrame Mode "
             Menu$(10) = " Set Matrix Ghost Mode "
             Menu$(11) = "--------------------------------------------"
             Menu$(12) = " Exit "
             Menu$(13) = "-----------------"
             Menu$(14) = "      On      "
             Menu$(15) = "      Off     "
             Menu$(16) = "-----------------"
             Menu$(17) = "- Are You Sure? -"
             Menu$(18) = "  Yes     "
             Menu$(19) = "  No      "
             Menu$(20) = "------------------------"
             Menu$(21) = " File "
             Menu$(22) = " Matrix Commands "

Do : Click = MouseClick()
      Key$ = Inkey$()
     xTile = GetMatrixMouseX(1,100,100,50,50)
     yTile = GetMatrixMouseY(1,100,100,50,50)

If xTile => 0 And yTile => 0
   Position Object Selector,2 * xTile,Get Matrix Height(1,xTile,yTile),2 * yTile
   Show Object Selector
   Else
   Hide Object Selector
   EndIf

` Right Click Menu
  If Click = 2 : n = UpdateMenu(21,22,MouseX() + 10,MouseY() - 10,1) : ` Main Menu
  If n = 21 Then n = UpdateMenu(12,12,MouseX() + 10,MouseY() - 10,1) : ` File Menu
  If n = 22 Then n = UpdateMenu( 1,10,MouseX() + 10,MouseY() - 10,1) : ` Matrix Menu
  GoSub MenuControls : EndIf

Ink -1,0
Text 10,10,"Mouse Over Matrix xTile: " + Str$(xTile)
Text 10,20,"Mouse Over Matrix yTile: " + Str$(yTile)
Text 10,40,"Right Click for the Menu..."
Text 10,60,"Active Tool: " + Menu$(Tool)
If Tool = 1 Then  RaiseMatrixPointWithMouse(1,100,100,50,50)
If Tool = 2 Then       RaiseMatrixWithMouse(1,100,100,50,50)
If Tool = 3 Then  MouldRaiseMatrixWithMouse(1,100,100,50,50)
If Tool = 4 Then     SetMatrixTileWithMouse(1,100,100,50,50)
If Tool = 5 Then    TriangleMatrixWithMouse(1,100,100,50,50)
If Tool = 6 Then RandomHill1MatrixWithMouse(1,100,100,50,50)
If Tool = 7 Then RandomHill2MatrixWithMouse(1,100,100,50,50)
Control Camera Using ArrowKeys 0,5,5
                          FastSync
                          Loop

Function RaiseMatrixPointWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
         x = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
         y = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
      If x > -1 And y > -1
      Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + (MouseMoveZ() / 100)
          Update Matrix Mn
           ExitFunction 1
                  EndIf
EndFunction 0
Function SetMatrixTileWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Tile = 1
Repeat
If MouseClick() = 1 Then Inc Tile,1 : WaitForMouseClickValue(0)
If Tile > Matrix Tile Count(Mn) Then Tile = 1
For y = y1 To y2
For x = x1 To x2
Set Matrix Tile Mn,x,y,Tile
Next x : Next y
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function RaiseMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com
If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
Height# = Get Matrix Height(Mn,x1,y1) + (MouseMoveZ() / 100)
For y = y1 To y2
For x = x1 To x2
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function MouldRaiseMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
Height# = (MouseMoveZ() / 100)
For y = y1 To y2
For x = x1 To x2
Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + Height#
Next x : Next y
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function TriangleMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
Repeat
zValue# = zValue# + MouseMoveZ() / 100
Height# = Get Matrix Height(Mn,x1,y1)
xa = x1
xb = x2
ya = y1
yb = y2
Repeat
Inc Height#,zValue#
Inc xa,1
Inc ya,1
Dec xb,1
Dec yb,1
For y = ya To yb
For x = xa To xb
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Until xa => xb Or ya => yb
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function RandomHill1MatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
zValue# = zValue# + MouseMoveZ() / 100
Height# = Get Matrix Height(Mn,x1,y1)
xa = x1
xb = x2
ya = y1
yb = y2
Repeat
Inc xa,1
Inc ya,1
Dec xb,1
Dec yb,1
Inc Height#,Rnd(zValue#)
For y = ya To yb
For x = xa To xb
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Until xa => xb Or ya => yb
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function RandomHill2MatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
zValue# = zValue# + MouseMoveZ() / 100
Height# = Get Matrix Height(Mn,x1,y1)
xa = x1
xb = x2
ya = y1
yb = y2
Repeat
Inc xa,1
Inc ya,1
Dec xb,1
Dec yb,1
For y = ya To yb
For x = xa To xb
Inc Height#,Rnd(zValue#) / xSeg
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Until xa => xb Or ya => yb
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1

Function GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns the Matrix xTile That The Mouse is Over
       ` Return The xTile That the Mouse Is Over
       ` Else Returns -1 if NOT Over a Matrix Tile
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

` Selector Object
                   On = 999
Make Object Sphere On,2
       Hide Object On

` Get Required Values
  xSegSize# = Width# / xSeg
  ySegSize# = Lenth# / ySeg
   xMatrix# = Matrix Position X(Mn)
   zMatrix# = Matrix Position Z(Mn)
   SelectorHalfWidth = 10

` Loop For All Tiles
For y = 0 To ySeg
For x = 0 To xSeg

` Position the Object At Matrix Tile Point
  Position Object On,x * xSegSize# + xMatrix#,Get Matrix Height(Mn,x,y),y * ySegSize# + zMatrix#

` Is the Mouse Over the Matrix Tile?
   Mx = MouseX()
   Ox = Object Screen X(On)
If Ox > Mx - SelectorHalfWidth And Ox < Mx + SelectorHalfWidth
   My = MouseY()
   Oy = Object Screen Y(On)
If Oy > My - SelectorHalfWidth And Oy < My + SelectorHalfWidth

` Update Now
  Delete Object On
  ExitFunction x
  EndIf : EndIf
  Next x : Next y

` CleanUp is Not Over Any Tile
  Delete Object On

EndFunction -1
Function GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns the Matrix yTile That The Mouse is Over
       ` Return The yTile That the Mouse Is Over
       ` Else Returns -1 if NOT Over a Matrix Tile
       `
       ` By Michael Mihalyfi
       `    MSon648@Hotmail.Com

` Selector Object
                   On = 999
Make Object Sphere On,2
       Hide Object On

` Get Required Values
  xSegSize# = Width# / xSeg
  ySegSize# = Lenth# / ySeg
   xMatrix# = Matrix Position X(Mn)
   zMatrix# = Matrix Position Z(Mn)
   SelectorHalfWidth = 10

` Loop For All Tiles
For y = 0 To ySeg
For x = 0 To xSeg

` Position the Object At Matrix Tile Point
  Position Object On,x * xSegSize# + xMatrix#,Get Matrix Height(Mn,x,y),y * ySegSize# + zMatrix#

` Is the Mouse Over the Matrix Tile?
   Mx = MouseX()
   Ox = Object Screen X(On)
If Ox > Mx - SelectorHalfWidth And Ox < Mx + SelectorHalfWidth
   My = MouseY()
   Oy = Object Screen Y(On)
If Oy > My - SelectorHalfWidth And Oy < My + SelectorHalfWidth

` Update Now
  Delete Object On
  ExitFunction y
  EndIf : EndIf
  Next x : Next y

` CleanUp is Not Over Any Tile
  Delete Object On

EndFunction -1

Function Smallest(Value1#,Value2#)
         If Value1# < Value2# Then ExitFunction Value1#
EndFunction Value2#
Function Largest(Value1#,Value2#)
         If Value1# > Value2# Then ExitFunction Value1#
EndFunction Value2#

Function ClickText(x,y,String$,c1,c2)
      If MouseX() > x
      If MouseY() > y
      If MouseX() < x + Text Width(String$)
      If MouseY() < y + Text Height(String$)
         Rv = 1 : EndIf : EndIf : EndIf : EndIf
      If Rv = 0 Then Ink c2,0 Else Ink c1,0
     Box x,y,x + Text Width(String$),y + Text Height(String$)
      If Rv = 0 Then Ink c1,0 Else Ink c2,0
    Text x,y,String$
EndFunction Rv

Function MenuWidth(ItemStart,ItemEnd)
       ` Get the Width of the Menu
         For n = ItemStart To ItemEnd
         If Text Width(Menu$(n)) > Width Then Width = Text Width(Menu$(n))
         Next n
EndFunction Width
Function MenuHeight(ItemStart,ItemEnd)
       ` Get the Height of the Menu
            Height = ItemEnd - ItemStart * Text Height("Test")
EndFunction Height
Function UpdateMenu(ItemStart,ItemEnd,x,y,LoopValue)
         Width  = MenuWidth(ItemStart,ItemEnd)
         Height = MenuHeight(ItemStart,ItemEnd)

` Wrap Menu to the Screen
  If x < 0 Then x = 0
  If y < 0 Then y = 0
  If x + Width  > Screen Width()  Then x = Screen Width()  - Width
  If y + Height > Screen Height() Then y = Screen Height() - Height

yBackup = y

Do:y = yBackup
For n = ItemStart To ItemEnd
    Rv      = 0
    String$ = Menu$(n)
    Height  = Text Height(String$)
    Click   = MouseClick()
  ` Spacer
 If Mid$(String$,1) = "-" Then Skip = 1 : Click = 0 : Else Skip = 0
  ` Selected or Over?
 If MouseX() > x And MouseY() > y And MouseX() < x + Width And MouseY() < y + Height
 If Click = 1 Then WaitForMouseClickValue(0) : ExitFunction n
    Rv = 1
 If Skip = 1 Then Rv = 0
    EndIf
       If Rv = 0 Then Ink MenuBackColor,0 Else Ink MenuForeColor,0
      Box x,y,x + Width,y + Height
       If Rv = 0 Then Ink MenuForeColor,0 Else Ink MenuBackColor,0
     Text x,y,String$
      Inc y,Height
     Next n
       If Click = 1 Then WaitForMouseClickValue(0) : ExitFunction 0
       If LoopValue = 0 Then ExitFunction 0
          Sync : Loop
EndFunction -1

Function WaitForMouseClickValue(n)
  Repeat
   Until MouseClick() = n
EndFunction

MenuControls: If n => 1  And n <= 7 Then Tool = n
              If n =  9
                 n = UpdateMenu(13,16,MouseX() + 10,MouseY() + 10,1)
                 If n = 14 Then Set Matrix WireFrame On 1
                 If n = 15 Then Set Matrix WireFrame Off 1
                 EndIf
              If n =  10
                 n = UpdateMenu(13,16,MouseX() + 10,MouseY() + 10,1)
                 If n = 14 Then Ghost Matrix On 1
                 If n = 15 Then Ghost Matrix Off 1
                 EndIf
              If n =  12
                 n = UpdateMenu(17,20,MouseX() + 10,MouseY() + 10,1)
                 If n = 18 Then End
                 EndIf : Return

+ Code Snippet

Set Display Mode 800,600,32
` ---------------------------------------------------------------
Perform CheckList For Display Modes
v = CheckList Quantity()
Global MenuForeColor : MenuForeColor = RGB(255,255,255)
Global MenuBackColor : MenuBackColor = RGB(0  ,20 ,0  )
Global Dim Menu$(50)
For n = 1 To v
Menu$(n) = CheckList String$(n)
Next n : Repeat
n = UpdateMenu(0,v,0,0,1)
Until n <> 0
Set Display Mode CheckList Value A(n),CheckList Value B(n),CheckList Value C(n)
Empty CheckList
UnDim Menu$()
` ---------------------------------------------------------------

Disable EscapeKey
          Sync On
        Sync Rate 0
      AutoCam Off
  Position Camera 50,10,0
   Position Light 0,100,100,100
           Make Matrix 1,100,100,50,50
            Load Image "C:TileSheet.bmp",1
Prepare Matrix Texture 1,1,2,1

                   Selector = 6657
Make Object Sphere Selector,2
       Hide Object Selector

` Setup Menu
  Global MenuForeColor : MenuForeColor = RGB(255,255,255)
  Global MenuBackColor : MenuBackColor = RGB(0  ,20 ,0  )
  Global Dim Menu$(22)
             Menu$(1)  = " Raise Matrix Point "
             Menu$(2)  = " Raise Matrix Area "
             Menu$(3)  = " Mould Raise Matrix Area "
             Menu$(4)  = " Set Matrix Tiles With Mouse "
             Menu$(5)  = " Make Pyramid On Matrix "
             Menu$(6)  = " Make Random Hill 1 On Matrix "
             Menu$(7)  = " Make Random Hill 2 On Matrix "
             Menu$(8)  = "--------------------------------------------"
             Menu$(9)  = " Set Matrix WireFrame Mode "
             Menu$(10) = " Set Matrix Ghost Mode "
             Menu$(11) = "--------------------------------------------"
             Menu$(12) = " Exit "
             Menu$(13) = "-----------------"
             Menu$(14) = "      On      "
             Menu$(15) = "      Off     "
             Menu$(16) = "-----------------"
             Menu$(17) = "- Are You Sure? -"
             Menu$(18) = "  Yes     "
             Menu$(19) = "  No      "
             Menu$(20) = "------------------------"
             Menu$(21) = " File "
             Menu$(22) = " Matrix Commands "

Do : Click = MouseClick()
      Key$ = Inkey$()
     xTile = GetMatrixMouseX(1,100,100,50,50)
     yTile = GetMatrixMouseY(1,100,100,50,50)

If xTile => 0 And yTile => 0
   Position Object Selector,2 * xTile,Get Matrix Height(1,xTile,yTile),2 * yTile
   Show Object Selector
   Else
   Hide Object Selector
   EndIf

` Right Click Menu
  If Click = 2 : n = UpdateMenu(21,22,MouseX() + 10,MouseY() - 10,1) : ` Main Menu
  If n = 21 Then n = UpdateMenu(12,12,MouseX() + 10,MouseY() - 10,1) : ` File Menu
  If n = 22 Then n = UpdateMenu( 1,10,MouseX() + 10,MouseY() - 10,1) : ` Matrix Menu
  GoSub MenuControls : EndIf

 Ink -1,0
Text 10,10,"Mouse Over Matrix xTile: " + Str$(xTile)
Text 10,20,"Mouse Over Matrix yTile: " + Str$(yTile)
Text 10,40,"Right Click for the Menu..."
Text 10,60,"Active Tool: " + Menu$(Tool)
If Tool = 1 Then  RaiseMatrixPointWithMouse(1,100,100,50,50)
If Tool = 2 Then       RaiseMatrixWithMouse(1,100,100,50,50)
If Tool = 3 Then  MouldRaiseMatrixWithMouse(1,100,100,50,50)
If Tool = 4 Then     SetMatrixTileWithMouse(1,100,100,50,50)
If Tool = 5 Then    TriangleMatrixWithMouse(1,100,100,50,50)
If Tool = 6 Then RandomHill1MatrixWithMouse(1,100,100,50,50)
If Tool = 7 Then RandomHill2MatrixWithMouse(1,100,100,50,50)
Control Camera Using ArrowKeys 0,5,5
                          FastSync
                          Loop





Function RaiseMatrixPointWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
         x = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
         y = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
      If x > -1 And y > -1
      Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + (MouseMoveZ() / 100)
          Update Matrix Mn
           ExitFunction 1
                  EndIf
EndFunction 0
Function SetMatrixTileWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    [email protected]

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Tile = 1
Repeat
If MouseClick() = 1 Then Inc Tile,1 : WaitForMouseClickValue(0)
If Tile > Matrix Tile Count(Mn) Then Tile = 1
For y = y1 To y2
For x = x1 To x2
Set Matrix Tile Mn,x,y,Tile
Next x : Next y
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function RaiseMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    [email protected]
If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
Height# = Get Matrix Height(Mn,x1,y1) + (MouseMoveZ() / 100)
For y = y1 To y2
For x = x1 To x2
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function MouldRaiseMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    [email protected]

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
Height# = (MouseMoveZ() / 100)
For y = y1 To y2
For x = x1 To x2
Set Matrix Height Mn,x,y,Get Matrix Height(Mn,x,y) + Height#
Next x : Next y
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function TriangleMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    [email protected]

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
Repeat
zValue# = zValue# + MouseMoveZ() / 100
Height# = Get Matrix Height(Mn,x1,y1)
xa = x1
xb = x2
ya = y1
yb = y2
Repeat
Inc Height#,zValue#
Inc xa,1
Inc ya,1
Dec xb,1
Dec yb,1
For y = ya To yb
For x = xa To xb
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Until xa => xb Or ya => yb
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function RandomHill1MatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    [email protected]

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
zValue# = zValue# + MouseMoveZ() / 100
Height# = Get Matrix Height(Mn,x1,y1)
xa = x1
xb = x2
ya = y1
yb = y2
Repeat
Inc xa,1
Inc ya,1
Dec xb,1
Dec yb,1
Inc Height#,Rnd(zValue#)
For y = ya To yb
For x = xa To xb
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Until xa => xb Or ya => yb
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1
Function RandomHill2MatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns a Value of 0 If NOT Activated
       ` Returns a Value of -1 If Used, but invalid Coordinates Specified
       ` Else Returns 1 if Used
       `
       ` Instructions:
       `            1: Hold the Left Click Button on Your Mouse when over a TilePoint
       `            2: While Left Clicked move the Mouse Over the TilePoint to go to
       `            3: Release the Left Mouse Button
       `            4: Use Mouse Z To Inc/Dec Height in the Selected Area
       `            5: Right Click to Exit Function
       `
       ` By Michael Mihalyfi
       `    [email protected]

If MouseClick() <> 1 Then ExitFunction 0
xa = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
ya = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Repeat
xb = GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
yb = GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
Until MouseClick() = 0
If xa = -1 Then ExitFunction -1
If ya = -1 Then ExitFunction -1
If xb = -1 Then ExitFunction -1
If yb = -1 Then ExitFunction -1
x1 = Smallest(xa,xb)
y1 = Smallest(ya,yb)
x2 =  Largest(xa,xb)
y2 =  Largest(ya,yb)
Repeat
zValue# = zValue# + MouseMoveZ() / 100
Height# = Get Matrix Height(Mn,x1,y1)
xa = x1
xb = x2
ya = y1
yb = y2
Repeat
Inc xa,1
Inc ya,1
Dec xb,1
Dec yb,1
For y = ya To yb
For x = xa To xb
Inc Height#,Rnd(zValue#) / xSeg
Set Matrix Height Mn,x,y,Height#
Next x : Next y
Until xa => xb Or ya => yb
Update Matrix Mn : Sync
Until MouseClick() = 2
WaitForMouseClickValue(0)
EndFunction 1

Function GetMatrixMouseX(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns the Matrix xTile That The Mouse is Over
       ` Return The xTile That the Mouse Is Over
       ` Else Returns -1 if NOT Over a Matrix Tile
       `
       ` By Michael Mihalyfi
       `    [email protected]

                 ` Selector Object
                   On = 999
Make Object Sphere On,2
       Hide Object On

` Get Required Values
  xSegSize# = Width# / xSeg
  ySegSize# = Lenth# / ySeg
   xMatrix# = Matrix Position X(Mn)
   zMatrix# = Matrix Position Z(Mn)
   SelectorHalfWidth = 10

  ` Loop For All Tiles
For y = 0 To ySeg
For x = 0 To xSeg

` Position the Object At Matrix Tile Point
  Position Object On,x * xSegSize# + xMatrix#,Get Matrix Height(Mn,x,y),y * ySegSize# + zMatrix#

 ` Is the Mouse Over the Matrix Tile?
   Mx = MouseX()
   Ox = Object Screen X(On)
If Ox > Mx - SelectorHalfWidth And Ox < Mx + SelectorHalfWidth
   My = MouseY()
   Oy = Object Screen Y(On)
If Oy > My - SelectorHalfWidth And Oy < My + SelectorHalfWidth

` Update Now
  Delete Object On
  ExitFunction x
  EndIf : EndIf
  Next x : Next y

` CleanUp is Not Over Any Tile
  Delete Object On

EndFunction -1
Function GetMatrixMouseY(Mn,Width#,Lenth#,xSeg,ySeg)
       ` Returns the Matrix yTile That The Mouse is Over
       ` Return The yTile That the Mouse Is Over
       ` Else Returns -1 if NOT Over a Matrix Tile
       `
       ` By Michael Mihalyfi
       `    [email protected]

                 ` Selector Object
                   On = 999
Make Object Sphere On,2
       Hide Object On

` Get Required Values
  xSegSize# = Width# / xSeg
  ySegSize# = Lenth# / ySeg
   xMatrix# = Matrix Position X(Mn)
   zMatrix# = Matrix Position Z(Mn)
   SelectorHalfWidth = 10

  ` Loop For All Tiles
For y = 0 To ySeg
For x = 0 To xSeg

` Position the Object At Matrix Tile Point
  Position Object On,x * xSegSize# + xMatrix#,Get Matrix Height(Mn,x,y),y * ySegSize# + zMatrix#

 ` Is the Mouse Over the Matrix Tile?
   Mx = MouseX()
   Ox = Object Screen X(On)
If Ox > Mx - SelectorHalfWidth And Ox < Mx + SelectorHalfWidth
   My = MouseY()
   Oy = Object Screen Y(On)
If Oy > My - SelectorHalfWidth And Oy < My + SelectorHalfWidth

` Update Now
  Delete Object On
  ExitFunction y
  EndIf : EndIf
  Next x : Next y

` CleanUp is Not Over Any Tile
  Delete Object On

EndFunction -1

Function Smallest(Value1#,Value2#)
         If Value1# < Value2# Then ExitFunction Value1#
EndFunction Value2#
Function Largest(Value1#,Value2#)
         If Value1# > Value2# Then ExitFunction Value1#
EndFunction Value2#

Function ClickText(x,y,String$,c1,c2)
      If MouseX() > x
      If MouseY() > y
      If MouseX() < x + Text Width(String$)
      If MouseY() < y + Text Height(String$)
         Rv = 1 : EndIf : EndIf : EndIf : EndIf
      If Rv = 0 Then Ink c2,0 Else Ink c1,0
     Box x,y,x + Text Width(String$),y + Text Height(String$)
      If Rv = 0 Then Ink c1,0 Else Ink c2,0
    Text x,y,String$
EndFunction Rv

Function MenuWidth(ItemStart,ItemEnd)
       ` Get the Width of the Menu
         For n = ItemStart To ItemEnd
         If Text Width(Menu$(n)) > Width Then Width = Text Width(Menu$(n))
         Next n
EndFunction Width
Function MenuHeight(ItemStart,ItemEnd)
       ` Get the Height of the Menu
            Height = ItemEnd - ItemStart * Text Height("Test")
EndFunction Height
Function UpdateMenu(ItemStart,ItemEnd,x,y,LoopValue)
         Width  = MenuWidth(ItemStart,ItemEnd)
         Height = MenuHeight(ItemStart,ItemEnd)

` Wrap Menu to the Screen
  If x < 0 Then x = 0
  If y < 0 Then y = 0
  If x + Width  > Screen Width()  Then x = Screen Width()  - Width
  If y + Height > Screen Height() Then y = Screen Height() - Height

    yBackup = y

 Do:y = yBackup
For n = ItemStart To ItemEnd
    Rv      = 0
    String$ = Menu$(n)
    Height  = Text Height(String$)
    Click   = MouseClick()
  ` Spacer
 If Mid$(String$,1) = "-" Then Skip = 1 : Click = 0 : Else Skip = 0
  ` Selected or Over?
 If MouseX() > x And MouseY() > y And MouseX() < x + Width And MouseY() < y + Height
 If Click = 1 Then WaitForMouseClickValue(0) : ExitFunction n
    Rv = 1
 If Skip = 1 Then Rv = 0
    EndIf
       If Rv = 0 Then Ink MenuBackColor,0 Else Ink MenuForeColor,0
      Box x,y,x + Width,y + Height
       If Rv = 0 Then Ink MenuForeColor,0 Else Ink MenuBackColor,0
     Text x,y,String$
      Inc y,Height
     Next n
       If Click = 1 Then WaitForMouseClickValue(0) : ExitFunction 0
       If LoopValue = 0 Then ExitFunction 0
          Sync : Loop
EndFunction -1

Function WaitForMouseClickValue(n)
  Repeat
   Until MouseClick() = n
EndFunction

MenuControls: If n => 1  And n <= 7 Then Tool = n
              If n =  9
                 n = UpdateMenu(13,16,MouseX() + 10,MouseY() + 10,1)
                 If n = 14 Then Set Matrix WireFrame On 1
                 If n = 15 Then Set Matrix WireFrame Off 1
                 EndIf
              If n =  10
                 n = UpdateMenu(13,16,MouseX() + 10,MouseY() + 10,1)
                 If n = 14 Then Ghost Matrix On 1
                 If n = 15 Then Ghost Matrix Off 1
                 EndIf
              If n =  12
                 n = UpdateMenu(17,20,MouseX() + 10,MouseY() + 10,1)
                 If n = 18 Then End
                 EndIf : Return

PS: All the Matrix Tools in the Menu Work!!!

Still would like a Proper Hill Command and would like any help on improving it...

PS: If you don't have a matrix tile set then you can just rem out the 2 lines load image and prepare matrix texture and it will still work

Edit:
Matrix Shaping Commands...
Use left click to select the Area, and then MouseZ to raise or lower, then right click to exit tool

Matrix Tile Commands
Use left click to select area and then left click to go to the next tile number, and right click to exit tool

Back to top

Profile PM Email Website

MSon

21

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 6th Mar 2005 22:53 Edited at: 7th Mar 2005 02:38

Link

This Might sound a bit Cheaky, but does anyone have any useful Functions or code for editing a matrix?

Example: RaiseMatrixAreaWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)

Above is a function that I have, and it automatically gets xTileFrom, yTileFrom, xTileTo, yTileTo direct from the mouse, and this part is reusable so I can link any matrix commands or functions direct to the mouse...

Ie:
I can change
HillOnMatrix(Mn,xTile1,yTile1,xTile2,yTile2)
To
HillOnMatrixWithMouse(Mn,Width#,Lenth#,xSeg,ySeg)

And I can add it in the Menu...

Back to top

Profile PM Email Website

hannibal dark

User Banned

Posted: 7th Mar 2005 17:02

Link

well i am going to publish a matrix editor next month. and seems like there is not much idea thus they are nearly same. You should try to put the texture editor routinne in your program. also add matrix, delete matrix, resize, tilex, tilez, texture, save texture, save matrix, save project (as dbpro commands in text) e.t.c.
a gui should be added also.
nice work

wanna learn ? Then just ask it to me

Back to top

Profile

MSon

21

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 8th Mar 2005 01:56

Link

I've got an Engine for a 'Never Ending Matrix' which allows large game maps, so I want to adapt this editor to the game engine...

I've altered the Editor a Little to try and make it compatable with the Never Ending Matrix...

So Far So Good...

Will Post Updated Code Soon...

Back to top

Profile PM Email Website

BatVink

Moderator

23

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 8th Mar 2005 04:06 Edited at: 8th Mar 2005 04:06

Link

I converted Rob king's Magic World to DB Pro. The basic, non-enhanced version is here,source and all.

The Classic version was given to the community by Rob, so it's free to do with what you will. I think he'd appreciate a credit if you use any of it, though.

BatVink

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Editing a Matrix With The Mouse...