MSon Script... - GameCreators Forum

Author

Message

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 17th Aug 2005 12:31 Edited at: 17th Aug 2005 12:32

Link

MSon Script...

I Never Made this as a Programming Language, But to Get a RunString(String$) Command in DarkBasic, But Once I Made a RunString Command, It was no bother Making RunFile(Fn) And RunFile$(File$) Commands, Ect

Pro's - Simular To DarkBasic, (Most DarkBasic Commands Still Work)
Allows Command Expantion Using Functions, (Must Recompile First)
NetScript Commands, (Not in This Version)
No Need to Compile Script Code
Loads of Additional Commands to be Added
AutoDebug When Running a Script File

Con's - Return Values Not Currenlly In Use
SomeTimes The First 2 Lines of Code Are Ignored, (Don't know Why)
Floats Currently Return to the ScriptEngine As Integers, (Need 'String 2 Float' Function)
No Code Editor, (Need to Make One)
Many Commands Still to be Added

Currently Loads Of DarkBaic Commands Included from the Following Sections:

+ Code Snippet

Core Commands
Text Commands
Input Commands
File Commands
Display Commands
Basic2D Commands
Bitmap Commands
Sound Commands
Music Commands
Sprite Commands
Image Commands
Animation Commands
Light Commands
Camera Commands
Object Commands
Object Construction Commands
Object Appearance Commands
Object Collision Commands
Object Limb Commands Mesh Commands
Object Shader Commands
Matrix Commands

This is What the Script Looks Like...

+ Code Snippet


Set Display Mode 1024,768,32

Make Matrix 1,100,100,50,50
Load Image C:Brick.Bmp,1
Prepare Matrix Texture 1,1,1,1

Position Camera 0,25,3,25

Do
Text 10,10,MSon Script
Text 10,30,By Michael Mihalyfi
Text 10,50,MSon648@Hotmail.Com
Control Camera Using ArrowKeys 0,1,3
Sync
Loop

PS: If you Manage to Make SomeThink Using This then Please Post the Script

Download Here...
http://www.geocities.com/mson648/msonscript.zip

Back to top

Profile PM Email Website

PowerSoft

19

Years of Service

User Offline

Joined: 10th Oct 2004

Location: United Kingdom

Posted: 18th Aug 2005 22:26

Link

I suppose i would be a "competitor" in this field of development. Im shocked this hasnt been noticed it seems sacreligous.

Very nice and easy to use, well done.

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 19th Aug 2005 17:59 Edited at: 19th Aug 2005 22:09

Link

Thanks

Just working on adding more commands in...

Function SYSTEM_FUNCTION_SCRIPT_DEBUG(Command$,Paramiters$)
         If Command$ = "SET DEBUG MODE"       Then SetDebugMode(GetParamiterInteger(1,Paramiters$))   : ExitFunction 1
         If Command$ = "SET DEBUG LOG FILE"   Then SetDebugLogFile(GetParamiterString(1,Paramiters$)) : ExitFunction 1
         If Command$ = "DEBUG MESSAGE"        Then DebugMessage(GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$)) : ExitFunction 1
         If Command$ = "DEBUG SINGLE MESSAGE" Then DebugSingleMessage(GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$),GetParamiterInteger(3,Paramiters$)) : ExitFunction 1
         If Command$ = "PRESS ESCAPE TO END"  Then PressEscapeToEnd() : ExitFunction 1
EndFunction 0
Function SYSTEM_FUNCTION_SCRIPT_NETSCRIPT(Command$,Paramiters$)
         If Command$ = "ACTIVATE NETSCRIPT" Then ActivateNetScript() : ExitFunction 1
         If Command$ = "UPDATE NETSCRIPT"   Then UpdateNetScript()   : ExitFunction 1
         If Command$ = "START NETSCRIPT"    Then StartNetScript(GetParamiterInteger(1,Paramiters$))   : ExitFunction 1
         If Command$ = "STOP NETSCRIPT"     Then StopNetScript(GetParamiterInteger(1,Paramiters$))    : ExitFunction 1
         If Command$ = "BLOCK NETSCRIPT"    Then BlockNetScript(GetParamiterInteger(1,Paramiters$))   : ExitFunction 1
         If Command$ = "UNBLOCK NETSCRIPT"  Then UnBlockNetScript(GetParamiterInteger(1,Paramiters$)) : ExitFunction 1
         If Command$ = "NETSCRIPT"          Then NetScript(GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$))      : ExitFunction 1
         If Command$ = "NETSCRIPT FILE$"    Then NetScriptFile$(GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$)) : ExitFunction 1
         If Command$ = "NETSCRIPT FILE"     Then NetScriptFile(GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$)) : ExitFunction 1
EndFunction 0
Function SYSTEM_FUNCTION_SCRIPT_MULTIPLAYER(Command$,Paramiters$)
         If Command$ =   "DEFAULT NET GAME" Then  n = DEFAULT NET GAME(GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$),GetParamiterInteger(3,Paramiters$),GetParamiterInteger(4,Paramiters$)) : ExitFunction 1
         If Command$ =    "CREATE NET GAME" Then    CREATE NET GAME GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ =      "JOIN NET GAME" Then      JOIN NET GAME GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$) : ExitFunction 1
         If Command$ =      "FREE NET GAME" Then      FREE NET GAME : ExitFunction 1
         If Command$ =  "CREATE NET PLAYER" Then  CREATE NET PLAYER GetParamiterString(1,Paramiters$)      : ExitFunction 1
         If Command$ =    "FREE NET PLAYER" Then    FREE NET PLAYER GetParamiterInteger(1,Paramiters$)     : ExitFunction 1
         If Command$ = "SET NET CONNECTION" Then SET NET CONNECTION GetParamiterInteger(1,Paramiters$)     : ExitFunction 1
         If Command$ = "PERFORM CHECKLIST FOR NET CONNECTIONS" Then PERFORM CHECKLIST FOR NET CONNECTIONS : ExitFunction 1
         If Command$ = "PERFORM CHECKLIST FOR NET SESSIONS"    Then PERFORM CHECKLIST FOR NET SESSIONS    : ExitFunction 1
         If Command$ = "PERFORM CHECKLIST FOR NET PLAYERS"     Then PERFORM CHECKLIST FOR NET PLAYERS     : ExitFunction 1
         If Command$ = "SEND NET MESSAGE INTEGER"  Then SEND NET MESSAGE INTEGER  GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE FLOAT"    Then SEND NET MESSAGE FLOAT    GetParamiterInteger(1,Paramiters$),GetParamiterFloat(2,Paramiters$)   : ExitFunction 1
         If Command$ = "SEND NET MESSAGE STRING"   Then SEND NET MESSAGE STRING   GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$)  : ExitFunction 1
         If Command$ = "SEND NET MESSAGE MEMBLOCK" Then SEND NET MESSAGE MEMBLOCK GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE BITMAP"   Then SEND NET MESSAGE BITMAP   GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE IMAGE"    Then SEND NET MESSAGE IMAGE    GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE SOUND"    Then SEND NET MESSAGE SOUND    GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE MESH"     Then SEND NET MESSAGE MESH     GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "GET NET MESSAGE"      Then GET NET MESSAGE : ExitFunction 1
         If Command$ = "NET MESSAGE MEMBLOCK" Then NET MESSAGE MEMBLOCK GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE IMAGE"    Then NET MESSAGE IMAGE    GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE BITMAP"   Then NET MESSAGE BITMAP   GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE SOUND"    Then NET MESSAGE SOUND    GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE MESH"     Then NET MESSAGE MESH     GetParamiterInteger(1,Paramiters$) : ExitFunction 1

EndFunction 0

+ Code Snippet


Function SYSTEM_FUNCTION_SCRIPT_DEBUG(Command$,Paramiters$)
         If Command$ = "SET DEBUG MODE"       Then SetDebugMode(GetParamiterInteger(1,Paramiters$))   : ExitFunction 1
         If Command$ = "SET DEBUG LOG FILE"   Then SetDebugLogFile(GetParamiterString(1,Paramiters$)) : ExitFunction 1
         If Command$ = "DEBUG MESSAGE"        Then DebugMessage(GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$)) : ExitFunction 1
         If Command$ = "DEBUG SINGLE MESSAGE" Then DebugSingleMessage(GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$),GetParamiterInteger(3,Paramiters$)) : ExitFunction 1
         If Command$ = "PRESS ESCAPE TO END"  Then PressEscapeToEnd() : ExitFunction 1
EndFunction 0
Function SYSTEM_FUNCTION_SCRIPT_NETSCRIPT(Command$,Paramiters$)
         If Command$ = "ACTIVATE NETSCRIPT" Then ActivateNetScript() : ExitFunction 1
         If Command$ = "UPDATE NETSCRIPT"   Then UpdateNetScript()   : ExitFunction 1
         If Command$ = "START NETSCRIPT"    Then StartNetScript(GetParamiterInteger(1,Paramiters$))   : ExitFunction 1
         If Command$ = "STOP NETSCRIPT"     Then StopNetScript(GetParamiterInteger(1,Paramiters$))    : ExitFunction 1
         If Command$ = "BLOCK NETSCRIPT"    Then BlockNetScript(GetParamiterInteger(1,Paramiters$))   : ExitFunction 1
         If Command$ = "UNBLOCK NETSCRIPT"  Then UnBlockNetScript(GetParamiterInteger(1,Paramiters$)) : ExitFunction 1
         If Command$ = "NETSCRIPT"          Then NetScript(GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$))      : ExitFunction 1
         If Command$ = "NETSCRIPT FILE$"    Then NetScriptFile$(GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$)) : ExitFunction 1
         If Command$ = "NETSCRIPT FILE"     Then NetScriptFile(GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$)) : ExitFunction 1
EndFunction 0
Function SYSTEM_FUNCTION_SCRIPT_MULTIPLAYER(Command$,Paramiters$)
         If Command$ =   "DEFAULT NET GAME" Then  n = DEFAULT NET GAME(GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$),GetParamiterInteger(3,Paramiters$),GetParamiterInteger(4,Paramiters$)) : ExitFunction 1
         If Command$ =    "CREATE NET GAME" Then    CREATE NET GAME GetParamiterString(1,Paramiters$),GetParamiterString(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ =      "JOIN NET GAME" Then      JOIN NET GAME GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$) : ExitFunction 1
         If Command$ =      "FREE NET GAME" Then      FREE NET GAME : ExitFunction 1
         If Command$ =  "CREATE NET PLAYER" Then  CREATE NET PLAYER GetParamiterString(1,Paramiters$)      : ExitFunction 1
         If Command$ =    "FREE NET PLAYER" Then    FREE NET PLAYER GetParamiterInteger(1,Paramiters$)     : ExitFunction 1
         If Command$ = "SET NET CONNECTION" Then SET NET CONNECTION GetParamiterInteger(1,Paramiters$)     : ExitFunction 1
         If Command$ = "PERFORM CHECKLIST FOR NET CONNECTIONS" Then PERFORM CHECKLIST FOR NET CONNECTIONS : ExitFunction 1
         If Command$ = "PERFORM CHECKLIST FOR NET SESSIONS"    Then PERFORM CHECKLIST FOR NET SESSIONS    : ExitFunction 1
         If Command$ = "PERFORM CHECKLIST FOR NET PLAYERS"     Then PERFORM CHECKLIST FOR NET PLAYERS     : ExitFunction 1
         If Command$ = "SEND NET MESSAGE INTEGER"  Then SEND NET MESSAGE INTEGER  GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE FLOAT"    Then SEND NET MESSAGE FLOAT    GetParamiterInteger(1,Paramiters$),GetParamiterFloat(2,Paramiters$)   : ExitFunction 1
         If Command$ = "SEND NET MESSAGE STRING"   Then SEND NET MESSAGE STRING   GetParamiterInteger(1,Paramiters$),GetParamiterString(2,Paramiters$)  : ExitFunction 1
         If Command$ = "SEND NET MESSAGE MEMBLOCK" Then SEND NET MESSAGE MEMBLOCK GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE BITMAP"   Then SEND NET MESSAGE BITMAP   GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE IMAGE"    Then SEND NET MESSAGE IMAGE    GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE SOUND"    Then SEND NET MESSAGE SOUND    GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "SEND NET MESSAGE MESH"     Then SEND NET MESSAGE MESH     GetParamiterInteger(1,Paramiters$),GetParamiterInteger(2,Paramiters$),GetParamiterInteger(3,Paramiters$) : ExitFunction 1
         If Command$ = "GET NET MESSAGE"      Then GET NET MESSAGE : ExitFunction 1
         If Command$ = "NET MESSAGE MEMBLOCK" Then NET MESSAGE MEMBLOCK GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE IMAGE"    Then NET MESSAGE IMAGE    GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE BITMAP"   Then NET MESSAGE BITMAP   GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE SOUND"    Then NET MESSAGE SOUND    GetParamiterInteger(1,Paramiters$) : ExitFunction 1
         If Command$ = "NET MESSAGE MESH"     Then NET MESSAGE MESH     GetParamiterInteger(1,Paramiters$) : ExitFunction 1

EndFunction 0

Back to top

Profile PM Email Website

dj blackdragon3710

19

Years of Service

User Offline

Joined: 5th Nov 2004

Location: In LaLa land

Posted: 21st Aug 2005 03:24

Link

erm...MSon, site is un-viewable....

<<<<<Used to be "djblackdragon" with being registered in January, 2003, no matter what it says on the left<<<<<

Back to top

Profile PM Email

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 21st Aug 2005 16:28 Edited at: 17th Aug 2007 13:13

Link

Sorry, I seem to be having problems with Zip Files

Attached is a 'Basic' Script File

Everyone Be Cool, You, Be Cool.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 21st Aug 2005 16:47 Edited at: 21st Aug 2005 16:48

Link

PROBLEM!!!

The EXE's a 7Mb File, so it should Upload, BUT, I can't post the EXE or a ZiP...

(I HATE My Wireless Network)

Back to top

Profile PM Email Website

dj blackdragon3710

19

Years of Service

User Offline

Joined: 5th Nov 2004

Location: In LaLa land

Posted: 21st Aug 2005 20:18

Link

heh....

<<<<<Used to be "djblackdragon" with being registered in January, 2003, no matter what it says on the left<<<<<

Back to top

Profile PM Email

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 19th Nov 2005 23:24 Edited at: 19th Nov 2005 23:34

Link

It's been a long time since i've looked at this post, but its time for an update...

Im working on making a Demo of MSonScript

Heres a List of some of the things I've added to it

All DBPro Commands

Using VBScript

Scripted Events

NetScripting, (Including VBScript)

Limb Based Fire

Obj Terrains, (Like a Matrix, But made out of objects)

Basic Return Values

Loads of 'Extra' commands for matrixes, images, ect

And Lots More...

There's currently some problems though, like

Only I can use the DBPro Code due to compatability Issues with DBPro

n = 5 is fine, But n = 5+5 will not currently work, (How to run a Calculation contained in a String?), (Internal VBScript Works as Normal)

I can add any Functions, Subs or DLL's as Scripted Commands, so I want to have a go at Blue + Newtons...

Will Post EXE Soon once this is done...

PS: The Attached Code has a List of Added Commands

Back to top

Profile PM Email Website

Torrey

20

Years of Service

User Offline

Joined: 20th Aug 2004

Location: New Jersey

Posted: 20th Nov 2005 12:25

Link

Nicely done, but your killer will be the speed issue. From looking at your code snippet source I see you are doubling the amount of commands needed to place a single call.

The readability of code is excellent because it's in dbpro format. Overall it's a great attempt, but don't forget that adding too many dbpro commands will give people that don't have dbpro the ability to use it for free.

Bring your game to a whole new moddable level, click here for DarkScript!

Back to top

Profile PM Email

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 23rd Nov 2005 18:32 Edited at: 23rd Nov 2005 18:34

Link

thats ashame, because i've added all the DBPro Commands, (not including 1 or 2 updates), And get an FPS rate of 98 in a "Simple 3D Loop", and thats faster than i get in DBPro, (Don't know why)

Yes use it for free, but due to the current problem of being unable to return the value of a calculation contained in a string, only basic mathmatics allowed, (Until Fixed)

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Work in Progress / MSon Script...

Attachments