Sorry your browser is not supported!

LUA EXECUTE
Executes a string of Lua code.

Returns
An integer indicating success.
0: success
1: Error occurred running the script
2: Syntax error
3: Required memory could not be allocated
4: Error with error reporting mechanism. (Don't ask!)
5: Error reading or opening script file (right filename?)

Parameters
1: Code to execute (string)

Usage

DBPro code:

errcode = LUA EXECUTE("myvar=1")

Script1 = (Lang = "gm" , Code = "DBPro.Call("..Quote.."SetResizeMode..Quote..",1)")
Script2 = (Lang = "gm" , Code = "DBPro.Call("..Quote.."SetResizeType..Quote..",1)")
Script3 = (Lang = "gm" , Code = "DBPro.Call("..Quote.."ShowFocus"..Quote..")")
ScriptCount = 3
end

Change log of Barnski's Lua Plugin
**************************************

download newest version here: http://homepage.swissonline.ch/barnski/main.htm

******************
v1.1.0  2007-01-30
******************
md5 of dll/lib file: 4b0662160a0239ee2e1ccd09de2dd580
-LUA REGISTER DLL:	allows you to register custom dlls/plugins in order to use their commands from within your scripts.
-LUA REGISTER FUNCTION:	allows you to register dbpro user functions (and dll functions) in order to use them from within your scripts.
-new example: register_functions.dba showing the new commands in action.


******************
v1.0.1  2007-07-05
******************
md5 of dll/lib file: f3e5e6c6296ca59a4b04f3309c1db130
-start of changelog.

"Function Script_"+StripSpaces(Keyword$)+ParaString$"
Keyword$+" "+ParaString$
"EndFunction"

"Pointer = GET PTR TO FUNCTION ("+Chr$(34)+Keyword$+Chr$(34)+")"
"LUA REGISTER FUNCTION Pointer, "Chr$(34)+StripSpaces(Keyword$)+Chr$34)+","+ParaType+",IsReturn,PluginType"

   Lua Set String "ToolBar_"+Lua String$("Gadget"+Str$(n)+".Catagory")+"_"+Str$(Lua Int("ToolBar_"+Lua String$("Gadget"+Str$(n)+".Catagory")+"_Count"),Lua String$("Gadget"+Str$(n)+".Name")
   Lua Load String "ToolBar_"+Lua String$("Gadget"+Str$(n)+".Catagory")+"_Count = ToolBar_"+Lua String$("Gadget"+Str$(n)+".Catagory")+"_Count + 1","Temp"

---------- Visual DarkBasic ---------- By Michael Mihalyfi ---------- Mihalyfi@hotmail.co.uk ----------

-- Required Values
   AppPath = "C:/Documents and Settings/Michael.MICHAELS/Desktop/Visual DarkBasic/"

-- Recent Files
   RecentFile1  = "C:/Files/Test 10.VDB Project"
   RecentFile2  = "C:/Files/Test 9.VDB Project" 
   RecentFile3  = "C:/Files/Test 8.VDB Project"
   RecentFile4  = "C:/Files/Test 7.VDB Project"
   RecentFile5  = "C:/Files/Test 6.VDB Project"
   RecentFile6  = "C:/Files/Test 5.VDB Project"
   RecentFile7  = "C:/Files/Test 4.VDB Project"
   RecentFile8  = "C:/Files/Test 3.VDB Project"
   RecentFile9  = "C:/Files/Test 2.VDB Project"
   RecentFile10 = "C:/Files/Test 1.VDB Project"

-- Gadgets
   Gadget1  = { Name = "Select/Move"             , Catagory = "Common" , File = AppPath.."Gadgets/Select.gm"        , Icon = AppPath.."Images/Select.bmp"       , Help = "Create a BlueGui "  }
   Gadget2  = { Name = "Window"                  , Catagory = "Common" , File = AppPath.."Gadgets/Window.gm"        , Icon = AppPath.."Images/Win.bmp"          , Help = "Create a BlueGui "  }
   Gadget3  = { Name = "Canvas"                  , Catagory = "Common" , File = AppPath.."Gadgets/Canvas.gm"        , Icon = AppPath.."Images/Canvas.bmp"       , Help = "Create a BlueGui "  }
   Gadget4  = { Name = "Image"                   , Catagory = "Common" , File = AppPath.."Gadgets/Image.gm"         , Icon = AppPath.."Images/Pic.bmp"          , Help = "Create a BlueGui "  }
   Gadget5  = { Name = "RollOver Image"          , Catagory = "Common" , File = AppPath.."Gadgets/Rollover.gm"      , Icon = AppPath.."Images/PicRoll.bmp"      , Help = "Create a BlueGui "  }
   Gadget6  = { Name = "HotSpot"                 , Catagory = "Common" , File = AppPath.."Gadgets/HotSpot.gm"       , Icon = AppPath.."Images/HotSpot.bmp"      , Help = "Create a BlueGui "  }
   Gadget7  = { Name = "WordArt"                 , Catagory = "Common" , File = AppPath.."Gadgets/WordArt.gm"       , Icon = AppPath.."Images/Font.bmp"         , Help = "Create a BlueGui "  }
   Gadget8  = { Name = "Button"                  , Catagory = "Form"   , File = AppPath.."Gadgets/Button.gm"        , Icon = AppPath.."Images/Btn.bmp"          , Help = "Create a BlueGui Button."      }
   Gadget9  = { Name = "Label"                   , Catagory = "Form"   , File = AppPath.."Gadgets/Label.gm"         , Icon = AppPath.."Images/Label.bmp"        , Help = "Create a BlueGui Label"        }
   Gadget10 = { Name = "TextBox"                 , Catagory = "Form"   , File = AppPath.."Gadgets/TextBox.gm"       , Icon = AppPath.."Images/Edit.bmp"         , Help = "Create a BlueGui EditBox"      }
   Gadget11 = { Name = "TickBox"                 , Catagory = "Form"   , File = AppPath.."Gadgets/TickBox.gm"       , Icon = AppPath.."Images/Check.bmp"        , Help = "Create a BlueGui TickBox"      }
   Gadget12 = { Name = "RadioBox"                , Catagory = "Form"   , File = AppPath.."Gadgets/RadioBox.gm"      , Icon = AppPath.."Images/Radio.bmp"        , Help = "Create a BlueGui RadioBox"     }
   Gadget13 = { Name = "Panel"                   , Catagory = "Form"   , File = AppPath.."Gadgets/Panel.gm"         , Icon = AppPath.."Images/Panel.bmp"        , Help = "Create a BlueGui Panel"        }
   Gadget14 = { Name = "Group"                   , Catagory = "Form"   , File = AppPath.."Gadgets/Group.gm"         , Icon = AppPath.."Images/Frame.bmp"        , Help = "Create a BlueGui Group"        }
   Gadget15 = { Name = "ListBox"                 , Catagory = "Form"   , File = AppPath.."Gadgets/ListBox.gm"       , Icon = AppPath.."Images/List.bmp"         , Help = "Create a BlueGui ListBox"      }
   Gadget16 = { Name = "DropBox"                 , Catagory = "Form"   , File = AppPath.."Gadgets/DropBox.gm"       , Icon = AppPath.."Images/Combo.bmp"        , Help = "Create a BlueGui DropBox"      }
   Gadget17 = { Name = "TabBar"                  , Catagory = "Form"   , File = AppPath.."Gadgets/TabBar.gm"        , Icon = AppPath.."Images/Tabs.bmp"         , Help = "Create a BlueGui TabBar"       }
   Gadget18 = { Name = "TreeView"                , Catagory = "Form"   , File = AppPath.."Gadgets/TreeView.gm"      , Icon = AppPath.."Images/Tree.bmp"         , Help = "Create a BlueGui TreeView"     }
   Gadget19 = { Name = "ScrollBar"               , Catagory = "Form"   , File = AppPath.."Gadgets/ScrollBar.gm"     , Icon = AppPath.."Images/Scroll.bmp"       , Help = "Create a BlueGui ScrollBar"    }
   Gadget20 = { Name = "ListView"                , Catagory = "Form"   , File = AppPath.."Gadgets/ListView.gm"      , Icon = AppPath.."Images/ListVw.bmp"       , Help = "Create a BlueGui DataView"     }
   Gadget21 = { Name = "Progress Bar"            , Catagory = "Form"   , File = AppPath.."Gadgets/Progress Bar.gm"  , Icon = AppPath.."Images/Prog.bmp"         , Help = "Create a BlueGui Progress Bar" }
   Gadget22 = { Name = "Track Bar"               , Catagory = "Form"   , File = AppPath.."Gadgets/Track Bar.gm"     , Icon = AppPath.."Images/Track.bmp"        , Help = "Create a BlueGui Track Bar"    }
   Gadget23 = { Name = "RichEdit"                , Catagory = "Form"   , File = AppPath.."Gadgets/RichEdit.gm"      , Icon = AppPath.."Images/Rich.bmp"         , Help = "Create a BlueGui RichEdit Box" }
   Gadget24 = { Name = "ToolBar"                 , Catagory = "Form"   , File = AppPath.."Gadgets/ToolBar.gm.gm"    , Icon = AppPath.."Images/Toolbar.bmp"      , Help = "Create a BlueGui "  }
   Gadget25 = { Name = "StatusBar"               , Catagory = "Form"   , File = AppPath.."Gadgets/StatusBar.gm"     , Icon = AppPath.."Images/Status.bmp"       , Help = "Create a BlueGui "  }
   Gadget26 = { Name = "SysTray Icon"            , Catagory = "Form"   , File = AppPath.."Gadgets/SysTrayIcon.gm"   , Icon = AppPath.."Images/SysTrayIcon.bmp"  , Help = "Create a BlueGui "  }
   Gadget27 = { Name = "File Explorer"           , Catagory = "Form"   , File = AppPath.."Gadgets/File Explorer.gm" , Icon = AppPath.."Images/FileExplorer.bmp" , Help = "Create a BlueGui "  }
   Gadget28 = { Name = "Web Browser"             , Catagory = "Web"    , File = AppPath.."Gadgets/Web Browser.gm"   , Icon = AppPath.."Images/Web.bmp"          , Help = "Create a BlueGui "  }
   Gadget29 = { Name = "Flash"                   , Catagory = "Web"    , File = AppPath.."Gadgets/Flash.gm"         , Icon = AppPath.."Images/Flash.bmp"        , Help = "Create a BlueGui "  }
   Gadget30 = { Name = "Windows Media Player"    , Catagory = "Web"    , File = AppPath.."Gadgets/WMP.gm"           , Icon = AppPath.."Images/MediaPlayer.bmp"  , Help = "Create a BlueGui "  }
   Gadget31 = { Name = "QuickTime Media Stream"  , Catagory = "Web"    , File = AppPath.."Gadgets/QuickTime.gm"     , Icon = AppPath.."Images/QuickTime.bmp"    , Help = "Create a BlueGui "  }
   Gadget32 = { Name = "DivX Media Stream"       , Catagory = "Web"    , File = AppPath.."Gadgets/DivX.gm"          , Icon = AppPath.."Images/DivX.bmp"         , Help = "Create a BlueGui "  }
   Gadget33 = { Name = "RealPlayer media Stream" , Catagory = "Web"    , File = AppPath.."Gadgets/RealPlayer.gm"    , Icon = AppPath.."Images/RealPlayer.bmp"   , Help = "Create a BlueGui "  }
   Gadget34 = { Name = "DarkBasic Camera"        , Catagory = "3D"     , File = AppPath.."Gadgets/Camera.gm"        , Icon = AppPath.."Images/Camera.bmp"       , Help = "Create a DarkBasic Camera " }
   GadgetCount = 35
   
-- Color Selectors
   ColorPicker1 = { Name = "Absolute Color Picker"        , File = AppPath.."Color Pickers/Absolute Color Picker/Absolute Color Picker.exe"               }
   ColorPicker2 = { Name = "Gogas Color Picker"           , File = AppPath.."Color Pickers/Gogas Color Picker/Gogas Color Picker.exe"                     }
   ColorPicker3 = { Name = "Pick Color From Image"        , File = AppPath.."Color Pickers/Pick Color From Image/Pick Color From Image.exe"               }
   ColorPicker4 = { Name = "Windows Default Color Picker" , File = AppPath.."Color Pickers/Windows Default Color Picker/Windows Default Color Picker.exe" }
   ColorPickerCount   = 4
   DefaultColorPicker = 1
   
-- Code Editors
   CodeEditor1 = { Name = "QuickCode" , File = AppPath.."Code Editors/QuickCode/QuickCode.exe" }
   CodeEditorCount   = 1
   DefaultCodeEditor = 1

-- Tools
   Tool1 = { Name = "Create ActiveX Gadget" , File = AppPath.."Tools/Create ActiveX Gadget/Create ActiveX Gadet.exe" }
   Tool2 = { Name = "DarkBasic Archive"     , File = AppPath.."Tools/DarkBasic Archive/DarkBasic Archive.exe"        }
   Tool3 = { Name = "ResHack"               , File = AppPath.."Tools/ResHack/ResHack.exe"                            }
   ToolCount = 3
   
-- Import Scripts
   ImportScript1 = { Name = "Visual Basic 5 Form, (.Frm)" , File = AppPath.."Import Scripts/VB5 Form.gm" }
   ImportScriptCount = 1
   
-- Export Scripts
   ExportScript1 = { Name = "Dark Basic Source, (.dba)" , File = AppPath.."Export Scripts/dba.gm" }
   ExportScriptCount = 1
   
-- Side Windows
   SideWindow1  = { Name = "Event Watcher" , File = AppPath.."Side Windows/Event Watcher.gm" }
   SideWindow2  = { Name = "Properties"    , File = AppPath.."Side Windows/Properties.gm"    }
   SideWindow3  = { Name = "Discription"   , File = AppPath.."Side Windows/Discription.gm"   }
   SideWindowCount = 3
   

   Lua Load File Path$
   CheckForLuaError()
   Lua New Table "loaded"
   Lua New Table "loaded.images"
   CheckForLuaError()

   Count = Lua Int("static.count")
   Dim StaticDecal(Count) as StaticDecalType
   For i = 1 to Count
      StaticDecal(i).X = Lua Float("static.c"+Str$(i)+".x")
      StaticDecal(i).Y = Lua Float("static.c"+Str$(i)+".y")
      StaticDecal(i).Priority = Lua Int("static.c"+Str$(i)+".priority")
      ImagePath$ = Lua String$("static.c"+Str$(i)+".image") `read image path

      `If image loaded
      If Lua Int("loaded.images."+ImagePath$) > 0 `this will produce an error if the image is not loaded as the table entry does not exist
         StaticDecal(i).ImageNumber = Lua Int("loaded.images."+ImagePath$) `read the image number
      Else
         `Load Image and store image number
         Lua Reset Error `this resets the previous error
         StaticDecal(i).ImageNumber = Find Free Image()
         Lua New Table "loaded.images."+ImagePath$ `add a new table containing imagepath$
         Lua Set Int "loaded.images."+ImagePath$,StaticDecal(i).ImageNumber `store the image number in this new table
         Load Image ImagePath$,StaticDecal(i).ImageNumber,1
      Endif
   Next i

static = {
count = 2,
c1 = {x = 2.0, y = 2.0, image = "player.bmp", priority = 9},
c2 = {x = 10.0, y = 12.0, image = "player.bmp", priority = 9}
}

Rem Project: lua_functions
Rem Created: 13.03.2006 01:07:14

Rem ***** Main Source File *****

`showcase of calling lua script functions

disable escapekey
set window on

`initialize the Lua interface
LUA MAKE
`load lua script file (can be edited with notepad)
LUA LOAD FILE "functions.lua"

`push lua script function name on stack
LUA PUSH FUNCTION "test"
`call lua script function, indicating 0 arguments, and 1 result.
error = LUA CALL FUNCTION(0,1)
check_for_error()
`result of the function lies on the stack
result# = LUA POP FLOAT()
check_for_error()
print result#

`push lua script function name on stack
LUA PUSH FUNCTION "f"
`push function arguments
LUA PUSH INT 3
`call lua script function, indicating 1 argument, and 1 result.
error = LUA CALL FUNCTION(1,1)
check_for_error()
`result of the function lies on the stack
iresult = LUA POP INT()
check_for_error()
print iresult
wait key

`push lua script function name on stack
LUA PUSH FUNCTION "MakeMyBox"
`push objnr argument.
LUA PUSH INT 1
`call lua script function, indicating 1 arguments, and 0 result.
error = LUA CALL FUNCTION(1,0)
check_for_error()


wait key
end


function check_for_error()
   `Display message and terminate program if a Lua error has occurred.
   if LUA ERROR()
      print LUA ERROR MSG$()
      wait key
      end
   endif
endfunction



`THIS SECTION WILL NEVER BE EXECUTED
`we have to include a command of every dll we want to be called from within a script
make object 1, 1, 1

LoadEntities:
   Lua load file "Data/Scripts/Entities.cfg"
   EC()
   For ad = 1 to 5000 step 1
      Entity(ad).name$ = Lua string$("EntityName")
      Entity(ad).x     = Lua float("EntityXPos")
      Entity(ad).y     = Lua float("EntityYPos")
      Entity(ad).z     = Lua float("EntityZPos")
      Entity(ad).xang  = Lua float("EntityXAng")
      Entity(ad).yang  = Lua float("EntityYAng")
      Entity(ad).zang  = Lua float("EntityIsAI")
      Entity(ad).isai  = Lua float("EntityIsAI")
      Entity(ad).path$ = Lua string$("EntityModelPath")
      EC()
   Next Entity
Return

LoadEntities:
   Lua load file "Data/Scripts/Entities.cfg"
   EC()
   For ad = 1 to 5000 step 1
      Entity(ad).name$ = Lua string$("EntityName.ad")
      Entity(ad).x     = Lua float("EntityXPos.ad")
      Entity(ad).y     = Lua float("EntityYPos.ad")
      Entity(ad).z     = Lua float("EntityZPos.ad")
      Entity(ad).xang  = Lua float("EntityXAng.ad")
      Entity(ad).yang  = Lua float("EntityYAng.ad")
      Entity(ad).zang  = Lua float("EntityIsAI.ad")
      Entity(ad).isai  = Lua float("EntityIsAI.ad")
      Entity(ad).path$ = Lua string$("EntityModelPath.ad")
      EC()
   Next Entity
Return

--Entity 1
EntityName.1       = "Ball"
EntityXPos.1       = 0
EntityYPos.1       = 0
EntityZPos.1       = 0
EntityXAng.1       = 0
EntityYAng.1       = 0
EntityZAng.1       = 0
EntityIsAI.1       = 0
EntityModelPath.1  = "Data/Models/Ball.x"
----------------------------------------
--Entity 2
EntityName.2       = "Ball"
EntityXPos.2       = 0
EntityYPos.2       = 0
EntityZPos.2       = 0
EntityXAng.2       = 0
EntityYAng.2       = 0
EntityZAng.2       = 0
EntityIsAI.2       = 0
EntityModelPath.2  = "Data/Models/Ball.x"

-- ETC. ETC.

Item(Position).BaseItem = Lua String$("baseitem.id"+Str$(BaseItemID))

lua make 0
lua set int "test",15
print lua int("test")
wait key

lua terminate
end

--Entity 1
EntityName.a1       = "Ball"
EntityXPos.a1       = 0
----------------------------------------
--Entity 2
EntityName.a2       = "Ball"
EntityXPos.a2       = 0

-- ETC. ETC.

LoadEntities:
   Lua load file "Data/Scripts/Entities.cfg"
   EC()
   For ad = 1 to 5000 step 1
      Entity(ad).name$ = Lua string$("EntityName.a"+Str$(ad) )
      Entity(ad).x     = Lua float("EntityXPos.a"+Str$(ad))
      Entity(ad).y     = Lua float("EntityYPos.a"+Str$(ad))
      EC()
   Next Entity
Return

Lua Make 0
LuaCheckError()
Lua Load File "Villager.lua"
LuaCheckError()
Print Lua String$("model")
LuaCheckError()
wait key
end

Function LuaCheckError()
   If Lua Error()
      Print Lua Error Msg$()
      Wait key
      End
   Endif
Endfunction

model = "villager"

Lua Make
Do
   Inc i
   Lua New Table "testing"+Str$(i)
   print i
   Wait key
Loop

Lua Make
Lua New Table "a"
Do
   Inc i
   Lua New Table "a.testing"+Str$(i)
   print i
Loop

test = 
{
	[0] = 
	{
		num = 88
	}

}

test = 
{
	[1] = 
	{
		num = 88
	}

}