Sorry your browser is not supported!

Quote: "MSon - 36 posts - Least Points-Per-Post Award! (0.138888895512)"

YAY

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Yodaman Jer

User Banned

Posted: 10th Dec 2009 02:56

blighety blarghety

Back to top

Profile

Happy Cheesecake

16

Years of Service

User Offline

Joined: 16th Jun 2009

Location: My non-vice-presidential refrigerator.

Posted: 10th Dec 2009 02:59 Edited at: 10th Dec 2009 02:59

Damn, image didn't work...

So what do I say now?

[url=http://www.xboxlc.com/profile/HappyCheez]

[/url]

Back to top

Profile PM Email

NeX the Fairly Fast Ferret

20

Years of Service

User Offline

Joined: 10th Apr 2005

Location: The Fifth Plane of Oblivion

Posted: 10th Dec 2009 02:59

Quote: "i hate modelling pedals... analogue will always sound better imo"

Granted... but when you're travelling continually and you don't have hundreds to drop on a tube box, I think practicality really should take a little priority.

Athlon64 2.7gHz->OC 3.9gHz, 31C, MSi 9500GT->OC 1gHz core/2gHz memory, 48C, 4Gb DDR2 667, 500Gb Seagate + 80Gb Maxtor + 40Gb Maxtor = 620Gb, XP Home
Air cooled, total cost £160

Back to top

Profile PM Website

Yodaman Jer

User Banned

Posted: 10th Dec 2009 03:01

OMG guys!! I got a camera, and it has a phone in it!!

Back to top

Profile

Happy Cheesecake

16

Years of Service

User Offline

Joined: 16th Jun 2009

Location: My non-vice-presidential refrigerator.

Posted: 10th Dec 2009 03:05

I have to say, that made me laugh out loud for a few minutes. Congratulations on that humor win, my friend.

[url=http://www.xboxlc.com/profile/HappyCheez]

[/url]

Back to top

Profile PM Email

Yodaman Jer

User Banned

Posted: 10th Dec 2009 03:07

Thanks, I'll be here all week. Just call my camera for local listings.

Back to top

Profile

Venge

18

Years of Service

User Offline

Joined: 13th Sep 2006

Location: Iowa

Posted: 10th Dec 2009 03:17 Edited at: 10th Dec 2009 03:18

Heh. Lookit. I maded a button in MS Paint.

Granted, all my buttons have been made in MS Paint. Cept they've all been text til now. I think I'll have to start using Sketchbook Pro.

I will live forever or die trying.
My game blog

Attachments

Login to view attachments

Back to top

Profile PM

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 10th Dec 2009 03:46 Edited at: 10th Dec 2009 03:52

I'VE DONE IT...

Best part of 2 days, but newton physics are now in my editor, I've even included a button on the ToolBar to turn the Physics on/off, and Adding Lights, (See Attached Picture).

Next...Adding Camera View Options, (FPS and RPG), Should be a lot easier than adding physics.

Everyone Be Cool, You, Be Cool.

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Yodaman Jer

User Banned

Posted: 10th Dec 2009 03:57 Edited at: 10th Dec 2009 04:01

hasha pointsilovepoints

Nice work there, MSon! I like the screen shots you've been posting, and the editor sounds like it's really coming along!

Back to top

Profile

flashing snall

19

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 10th Dec 2009 04:50

Year of the black rainbow. yeeeeeeeeesh.

Back to top

Profile PM Email Website

Omega gamer 89

17

Years of Service

User Offline

Joined: 10th Sep 2007

Location: Pittsburgh, PA

Posted: 10th Dec 2009 05:14 Edited at: 10th Dec 2009 05:15

Quote: "OMG guys!! I got a camera, and it has a phone in it!!"

Yeah? Well I just got a GUN, and it has a phone in it.

I have a devious mind.

Attachments

Login to view attachments

Back to top

Profile PM Email

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 10th Dec 2009 05:35

well i have a hamburger with a phone in it... shame i don't have a landline... can't use it...

Back to top

Profile PM Website

Venge

18

Years of Service

User Offline

Joined: 13th Sep 2006

Location: Iowa

Posted: 10th Dec 2009 05:45 Edited at: 10th Dec 2009 05:46

Well, I have a Skydome button....phone.

I love Sketchbook Pro, and I don't even have a tablet for it yet.

I will live forever or die trying.
My game blog

Attachments

Login to view attachments

Back to top

Profile PM

General Jackson

User Banned

Posted: 10th Dec 2009 05:47

Guess what

I just got hired for 40 bucks to make a guy low poly building models, and he wants phototextures on them

So easy, thats stealing.
I'm going to end up at 20 for him I think.

Back to top

Profile

Omega gamer 89

17

Years of Service

User Offline

Joined: 10th Sep 2007

Location: Pittsburgh, PA

Posted: 10th Dec 2009 05:55

Guess what?

Chicken butt!

I have a devious mind.

Back to top

Profile PM Email

General Jackson

User Banned

Posted: 10th Dec 2009 05:58

o...k...

Back to top

Profile

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 10th Dec 2009 06:24

Nice

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Draglan

17

Years of Service

User Offline

Joined: 7th Oct 2007

Location: In the mirror

Posted: 10th Dec 2009 06:32

Ohh... apparently I have uh... 20 points. Well well well, aren't I special?

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 10th Dec 2009 06:34

yes

Back to top

Profile

JZ28

16

Years of Service

User Offline

Joined: 2nd Feb 2009

Location:

Posted: 10th Dec 2009 06:35 Edited at: 10th Dec 2009 06:36

http://sites.google.com/site/jzstudios1/

40 Points
JZ28 - 7 posts - Best Point-Earning-Posts Ratio! (0.571428596973)
+
190 Points
ZFletch1 - 63 posts
= yay

Back to top

Profile PM

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 10th Dec 2009 07:53 Edited at: 10th Dec 2009 07:55

Load And Save Done... just needs a little work on them

Here are all the functions to do with loading, saving and exporting, the export to DBSource Function needs to be updated due to changes

Function LoadDBWSelect()
         File$ = OpenDialog("Load DBW Project...","DarkBasic World Project (*.dbw)|*.dbw",0,AppPath$+"Projects\")
         If File$ = "" Then ExitFunction ""
         LoadDBW(File$)

EndFunction File$
Function SaveDBWSelect()
         File$ = SaveDialog("Save DBW Project...","DarkBasic World Project (*.dbw)|*.dbw",AppPath$+"Projects\")
         If File$ = "" Then ExitFunction ""
         SaveDBW(File$)

EndFunction File$
Function SaveDBW(File$)
         If File Exist(File$) = 1 Then Delete File File$
         
         Fn = Find Free File()
         Open To Write Fn,File$
         Write String Fn,"[DARKBASIC WORLD CREATOR]" : Write String Fn,""
         If SkySphereObject    > 0  : Write String Fn,"[ADD SKYSPHERE]"   : Write String Fn,SkySphereTexture$ : EndIf
         If BSPFile$          <> "" : Write String Fn,"[LOAD BSP]"        : Write String Fn,BSPFile$          : EndIf
         If TerrainHeightmap$ <> "" : Write String Fn,"[LOAD TERRAIN]"    : Write String Fn,TerrainHeightmap$
         If TerrainTexture$   <> "" : Write String Fn,"[TEXTURE TERRAIN]" : Write String Fn,TerrainTexture$   : EndIf : EndIf
         For n = 0 to Array Count(ObjectData()) : NewObj = 0

If ObjectData(n).Type$ = "LIGHT"   : Write String Fn,"[ADD LIGHT]"
         Write String Fn,"[POSITION LIGHT]" : Write String Fn,Str$(Object Position X(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Y(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Z(ObjectData(n).ObjNum))
         Write String Fn,"[ROTATE LIGHT]"   : Write String Fn,Str$(Object Angle X(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Y(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Z(ObjectData(n).ObjNum))
         EndIf

If ObjectData(n).Type$ = "PLAIN"    Then NewObj = 1 : Write String Fn,"[NEW OBJECT PLAIN]"
         If ObjectData(n).Type$ = "BOX"      Then NewObj = 1 : Write String Fn,"[NEW OBJECT BOX]"
         If ObjectData(n).Type$ = "SPHERE"   Then NewObj = 1 : Write String Fn,"[NEW OBJECT SPHERE]"
         If ObjectData(n).Type$ = "CYLINDER" Then NewObj = 1 : Write String Fn,"[NEW OBJECT CYLINDER]"
         If ObjectData(n).Type$ = "CONE"     Then NewObj = 1 : Write String Fn,"[NEW OBJECT CONE]"
         If ObjectData(n).Type$ = "LOAD"     Then NewObj = 1 : Write String Fn,"[NEW OBJECT LOAD]" : Write String Fn,ObjectData(n).File$

If NewObj = 1
         If ObjectData(n).Texture$ <> ""  Then Write String Fn,"[TEXTURE OBJECT]" : Write String Fn,ObjectData(n).Texture$
         Write String Fn,"[POSITION OBJECT]" : Write String Fn,Str$(Object Position X(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Y(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Z(ObjectData(n).ObjNum))
         Write String Fn,"[ROTATE OBJECT]"   : Write String Fn,Str$(Object Angle X(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Y(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Z(ObjectData(n).ObjNum))
         Write String Fn,"[SCALE OBJECT]"    : Write String Fn,Str$(Object Size X(ObjectData(n).ObjNum))     : Write String Fn,Str$(Object Size Y(ObjectData(n).ObjNum))     : Write String Fn,Str$(Object Size Z(ObjectData(n).ObjNum))
         EndIf

Next n : Close File Fn

EndFunction
Function LoadDBW(File$)
         Fn = Find Free File()
         Open To Read Fn,File$
         Repeat : s$ = ReadString(Fn)
       ` Object Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[NEW OBJECT PLAIN]"    Then Obj = AddObject("PLAIN"   )
         If s$ = "[NEW OBJECT BOX]"      Then Obj = AddObject("BOX"     )
         If s$ = "[NEW OBJECT SPHERE]"   Then Obj = AddObject("SPHERE"  )
         If s$ = "[NEW OBJECT CYLINDER]" Then Obj = AddObject("CYLINDER")
         If s$ = "[NEW OBJECT CONE]"     Then Obj = AddObject("CONE"    )
         If s$ = "[NEW OBJECT LOAD]"     Then Obj = LoadObject(ReadString(Fn))
         If s$ = "[TEXTURE OBJECT]"      Then TextureObject(Obj,ReadString(Fn))
         If s$ = "[POSITION OBJECT]"     Then Position Object Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
         If s$ = "[ROTATE OBJECT]"       Then Rotate Object Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
         If s$ = "[SCALE OBJECT]"        Then Scale Object Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
       ` BPS World Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[LOAD BSP]"            Then LoadBSP(ReadString(Fn))
       ` Light Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[ADD LIGHT]"           Then AddLight()
         If s$ = "[ROTATE LIGHT]"        Then Rotate Light Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
         If s$ = "[POSITION LIGHT]"      Then Position Light Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
       ` SkySphere Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[ADD SKYSPHERE]"       Then LoadSkySphere(ReadString(Fn))
       ` Terrain Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[LOAD TERRAIN]"        Then LoadTerrain(ReadString(Fn))
         If s$ = "[TEXTURE TERRAIN]"     Then LoadTerrainTexture(ReadString(Fn))
       ` ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Until File End(Fn) = 1 : Close File Fn

EndFunction

Function ExportFPSC(Obj)
         Path$ = Get Registry$("SOFTWARE\Dark Basic\FPSCREATOR","INSTALL-PATH")
         If Path$ = "" Then ErrorMessage "FPSCreator is not installed..." : ExitFunction 0
         If Path Exist(Path$+"Files\texturebank\DarkBasic World Creator\") = 0 Then Make Directory Path$+"Files\texturebank\DarkBasic World Creator\" 
         If Path Exist(Path$+"Files\entitybank\DarkBasic World Creator\" ) = 0 Then Make Directory Path$+"Files\entitybank\DarkBasic World Creator\" 
       ` Select a FileName
         Repeat
         File$ = Input$("Export FPSC Entity","Enter FPSC Entity Name","")
         If File$ = "" Then ExitFunction
         If File Exist(Path$+"Files\entitybank\DarkBasic World Creator\"+File$+".dbo") = 1 : ErrorMessage "There is Already an Entity with that Name, Please pick a Different Entity Name."
         Else  Pass = 1 : EndIf
         Until Pass = 1
       ` Get Objects Dim Number
         For n = 0 to Array Count(ObjectData())
         If ObjectData(n).ObjNum = Obj Then Exit
         Next n
       ` Save Item
         Save Object Path$+"Files\entitybank\DarkBasic World Creator\"+File$+".dbo",Obj
         File = Find Free File()
         Open To Read File,Path$+"Files\entitybank\DarkBasic World Creator\"+File$+".fpe"
         Write String File,""
         Write String File,";header"
         Write String File,""
         Write String File,"desc          = itemj"
         Write String File,""
         Write String File,";ai"
         Write String File,"aiinit	      = appear1.fpi"
         Write String File,"aimain	      = default.fpi"
         Write String File,"aidestroy     = disappear1.fpi"
         Write String File,""
         Write String File,";spawn"
         Write String File,"spawnmax      = 0"
         Write String File,"spawndelay    = 0"
         Write String File,"spawnqty      = 0"
         Write String File,""
         Write String File,";orientation"
         Write String File,""
         Write String File,"model         = entitybank\DarkBasic World Creator\"+File$+".dbo"
         Write String File,"offx          = 0"
         Write String File,"offy          = 0"
         Write String File,"offz          = 0"
         Write String File,"rotx          = 0"
         Write String File,"roty          = 0"
         Write String File,"rotz          = 0"
         Write String File,"defaultstatic = 1"
         Write String File,"materialindex = 2"
         Write String File,"collisionmode = 1"
         Write String File,""
         Write String File,";visualinfo"
         Write String File,""
         Write String File,"textured      = entitybank\DarkBasic World Creator\"+File$+".bmp"
         Write String File,"effect        = "
         Write String File,"castshadow    = 1"
         Write String File,""
           Close File File 
         ` Complete
           AdvancedMessageBox("FPSC Entity Exported.","FPSC Entity Successfully Exported.","","&OK","","",DBWin)

EndFunction 1
Function ExportDarkBasicCode()
         s$ =    "` This Level was Created Using DarkBasic World Creator, An Open Source Editor for DarkBasic Pro, by Michael Mihalyfi, (MSon), Mihalyfi@Hotmail.co.uk"+CHR$(10)
         s$ = s$+"` Export Date was "+Get Date$()+CHR$(10)
         s$ = s$+"` ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)+CHR$(10)+CHR$(10)
         s$ = s$+"GoSub LoadMap"+CHR$(10)+CHR$(10)
         s$ = s$+"Do"+CHR$(10)
         s$ = s$+"Control Camera Using ArrowKeys 0,1,1"+CHR$(10)
         If SkySphereObject > 0 Then s$ = s$+"Position Object SkySphereObj,Camera Position X(0),Camera Position Y(0),Camera Position Z(0)"+Chr$(10)
         s$ = s$+"Sync : Loop"+CHR$(10)+CHR$(10)+CHR$(10)
         s$ = s$+"LoadMap: ` Loads a PreMade Level"+CHR$(10)
         If BSPFile$ <> ""
         s$ = s$+"         ` Loading BSP Object ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         s$ = s$+"           Load BSP "+CHR$(34)+CHR$(34)+","+BSPFile$+CHR$(10)
         EndIf
         If SkySphereObject > 0
         s$ = s$+"         ` Loading SkySphere ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         s$ = s$+"           SkySphereObj = Find Free Object() : Make Object Sphere SkySphereObj,-1000"+CHR$(10)
         s$ = s$+"           SkySphereImg = Find Free Image()  : Load Image "+SkySphereTexture$+",SkySphereImg,1"+CHR$(10)
         s$ = s$+"           Texture Object SkySphereObj,SkySphereImg"+CHR$(10)
         EndIf
         s$ = s$+"         ` Loading Objects ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         For n = 0 to Array Count(ObjectData())
         If ObjectData(n).ObjNum  > 0       : s$ = s$+"           "+ObjectData(n).Name$+   " = Find Free Object()+"+CHR$(10)
         If ObjectData(n).Type$   = "LOAD"  : s$ = s$+"           Load Object "      +ObjectData(n).File$+","+ObjectData(n).Name$+CHR$(10) : EndIf
         If ObjectData(n).Type$   = "PLAIN" : s$ = s$+"           Make Object Plain "+ObjectData(n).Name$+","+STR$(Object Size X(ObjectData(n).ObjNum))+","+STR$(Object Size Y(ObjectData(n).ObjNum))+CHR$(10) : EndIf
         If ObjectData(n).Type$   = "BOX"   : s$ = s$+"           Make Object Box "  +ObjectData(n).Name$+","+STR$(Object Size X(ObjectData(n).ObjNum))+","+STR$(Object Size Y(ObjectData(n).ObjNum))+","+STR$(Object Size Z(ObjectData(n).ObjNum))+CHR$(10) : EndIf
         If ObjectData(n).Texture > 0       : s$ = s$+"           "+ObjectData(n).Name$+"Img = Find Free Image() : Load Image "  +ObjectData(n).Texture$+","+ObjectData(n).Name$+"Img,1"+CHR$(10)
                                              s$ = s$+"           Texture Object "+ObjectData(n).Name$+","+ObjectData(n).Name$+"Img"+CHR$(10) : EndIf
                                              s$ = s$+"           Position Object "+ObjectData(n).Name$+","+STR$(Object Position X(ObjectData(n).ObjNum))+","+STR$(Object Position Y(ObjectData(n).ObjNum))+","+STR$(Object Position Z(ObjectData(n).ObjNum))+CHR$(10)
                                              s$ = s$+"           Rotate Object "+ObjectData(n).Name$+","+STR$(Object Angle X(ObjectData(n).ObjNum))+","+STR$(Object Angle Y(ObjectData(n).ObjNum))+","+STR$(Object Angle Z(ObjectData(n).ObjNum))+CHR$(10)
         s$ = s$+"         ` ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         EndIf Next n
         s$ = s$+"           Return"+CHR$(10)+CHR$(10)+CHR$(10)
         Win   = CreateWindow(0,0,500,500,"Exported DarkBasic Code",0,0,1,0)
         Edit  = CreateRichEdit(0,0,400,400,Win)
         SetGadgetText Edit,s$

EndFunction

Function LoadDBWSelect()
         File$ = OpenDialog("Load DBW Project...","DarkBasic World Project (*.dbw)|*.dbw",0,AppPath$+"Projects\")
         If File$ = "" Then ExitFunction ""
         LoadDBW(File$)

EndFunction File$
Function SaveDBWSelect()
         File$ = SaveDialog("Save DBW Project...","DarkBasic World Project (*.dbw)|*.dbw",AppPath$+"Projects\")
         If File$ = "" Then ExitFunction ""
         SaveDBW(File$)

EndFunction File$
Function SaveDBW(File$)
         If File Exist(File$) = 1 Then Delete File File$
         
         Fn = Find Free File()
         Open To Write Fn,File$
         Write String Fn,"[DARKBASIC WORLD CREATOR]" : Write String Fn,""
         If SkySphereObject    > 0  : Write String Fn,"[ADD SKYSPHERE]"   : Write String Fn,SkySphereTexture$ : EndIf
         If BSPFile$          <> "" : Write String Fn,"[LOAD BSP]"        : Write String Fn,BSPFile$          : EndIf
         If TerrainHeightmap$ <> "" : Write String Fn,"[LOAD TERRAIN]"    : Write String Fn,TerrainHeightmap$
         If TerrainTexture$   <> "" : Write String Fn,"[TEXTURE TERRAIN]" : Write String Fn,TerrainTexture$   : EndIf : EndIf
         For n = 0 to Array Count(ObjectData()) : NewObj = 0

         If ObjectData(n).Type$ = "LIGHT"   : Write String Fn,"[ADD LIGHT]"
         Write String Fn,"[POSITION LIGHT]" : Write String Fn,Str$(Object Position X(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Y(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Z(ObjectData(n).ObjNum))
         Write String Fn,"[ROTATE LIGHT]"   : Write String Fn,Str$(Object Angle X(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Y(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Z(ObjectData(n).ObjNum))
         EndIf

         If ObjectData(n).Type$ = "PLAIN"    Then NewObj = 1 : Write String Fn,"[NEW OBJECT PLAIN]"
         If ObjectData(n).Type$ = "BOX"      Then NewObj = 1 : Write String Fn,"[NEW OBJECT BOX]"
         If ObjectData(n).Type$ = "SPHERE"   Then NewObj = 1 : Write String Fn,"[NEW OBJECT SPHERE]"
         If ObjectData(n).Type$ = "CYLINDER" Then NewObj = 1 : Write String Fn,"[NEW OBJECT CYLINDER]"
         If ObjectData(n).Type$ = "CONE"     Then NewObj = 1 : Write String Fn,"[NEW OBJECT CONE]"
         If ObjectData(n).Type$ = "LOAD"     Then NewObj = 1 : Write String Fn,"[NEW OBJECT LOAD]" : Write String Fn,ObjectData(n).File$

         If NewObj = 1
         If ObjectData(n).Texture$ <> ""  Then Write String Fn,"[TEXTURE OBJECT]" : Write String Fn,ObjectData(n).Texture$
         Write String Fn,"[POSITION OBJECT]" : Write String Fn,Str$(Object Position X(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Y(ObjectData(n).ObjNum)) : Write String Fn,Str$(Object Position Z(ObjectData(n).ObjNum))
         Write String Fn,"[ROTATE OBJECT]"   : Write String Fn,Str$(Object Angle X(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Y(ObjectData(n).ObjNum))    : Write String Fn,Str$(Object Angle Z(ObjectData(n).ObjNum))
         Write String Fn,"[SCALE OBJECT]"    : Write String Fn,Str$(Object Size X(ObjectData(n).ObjNum))     : Write String Fn,Str$(Object Size Y(ObjectData(n).ObjNum))     : Write String Fn,Str$(Object Size Z(ObjectData(n).ObjNum))
         EndIf

         Next n : Close File Fn

EndFunction
Function LoadDBW(File$)
         Fn = Find Free File()
         Open To Read Fn,File$
         Repeat : s$ = ReadString(Fn)
       ` Object Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[NEW OBJECT PLAIN]"    Then Obj = AddObject("PLAIN"   )
         If s$ = "[NEW OBJECT BOX]"      Then Obj = AddObject("BOX"     )
         If s$ = "[NEW OBJECT SPHERE]"   Then Obj = AddObject("SPHERE"  )
         If s$ = "[NEW OBJECT CYLINDER]" Then Obj = AddObject("CYLINDER")
         If s$ = "[NEW OBJECT CONE]"     Then Obj = AddObject("CONE"    )
         If s$ = "[NEW OBJECT LOAD]"     Then Obj = LoadObject(ReadString(Fn))
         If s$ = "[TEXTURE OBJECT]"      Then TextureObject(Obj,ReadString(Fn))
         If s$ = "[POSITION OBJECT]"     Then Position Object Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
         If s$ = "[ROTATE OBJECT]"       Then Rotate Object Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
         If s$ = "[SCALE OBJECT]"        Then Scale Object Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
       ` BPS World Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[LOAD BSP]"            Then LoadBSP(ReadString(Fn))
       ` Light Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[ADD LIGHT]"           Then AddLight()
         If s$ = "[ROTATE LIGHT]"        Then Rotate Light Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
         If s$ = "[POSITION LIGHT]"      Then Position Light Obj,ReadFloat(Fn),ReadFloat(Fn),ReadFloat(Fn)
       ` SkySphere Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[ADD SKYSPHERE]"       Then LoadSkySphere(ReadString(Fn))
       ` Terrain Commands ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         If s$ = "[LOAD TERRAIN]"        Then LoadTerrain(ReadString(Fn))
         If s$ = "[TEXTURE TERRAIN]"     Then LoadTerrainTexture(ReadString(Fn))
       ` ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         Until File End(Fn) = 1 : Close File Fn

EndFunction


Function ExportFPSC(Obj)
         Path$ = Get Registry$("SOFTWARE\Dark Basic\FPSCREATOR","INSTALL-PATH")
         If Path$ = "" Then ErrorMessage "FPSCreator is not installed..." : ExitFunction 0
         If Path Exist(Path$+"Files\texturebank\DarkBasic World Creator\") = 0 Then Make Directory Path$+"Files\texturebank\DarkBasic World Creator\" 
         If Path Exist(Path$+"Files\entitybank\DarkBasic World Creator\" ) = 0 Then Make Directory Path$+"Files\entitybank\DarkBasic World Creator\" 
       ` Select a FileName
         Repeat
         File$ = Input$("Export FPSC Entity","Enter FPSC Entity Name","")
         If File$ = "" Then ExitFunction
         If File Exist(Path$+"Files\entitybank\DarkBasic World Creator\"+File$+".dbo") = 1 : ErrorMessage "There is Already an Entity with that Name, Please pick a Different Entity Name."
         Else  Pass = 1 : EndIf
         Until Pass = 1
       ` Get Objects Dim Number
         For n = 0 to Array Count(ObjectData())
         If ObjectData(n).ObjNum = Obj Then Exit
         Next n
       ` Save Item
         Save Object Path$+"Files\entitybank\DarkBasic World Creator\"+File$+".dbo",Obj
         File = Find Free File()
         Open To Read File,Path$+"Files\entitybank\DarkBasic World Creator\"+File$+".fpe"
         Write String File,""
         Write String File,";header"
         Write String File,""
         Write String File,"desc          = itemj"
         Write String File,""
         Write String File,";ai"
         Write String File,"aiinit	      = appear1.fpi"
         Write String File,"aimain	      = default.fpi"
         Write String File,"aidestroy     = disappear1.fpi"
         Write String File,""
         Write String File,";spawn"
         Write String File,"spawnmax      = 0"
         Write String File,"spawndelay    = 0"
         Write String File,"spawnqty      = 0"
         Write String File,""
         Write String File,";orientation"
         Write String File,""
         Write String File,"model         = entitybank\DarkBasic World Creator\"+File$+".dbo"
         Write String File,"offx          = 0"
         Write String File,"offy          = 0"
         Write String File,"offz          = 0"
         Write String File,"rotx          = 0"
         Write String File,"roty          = 0"
         Write String File,"rotz          = 0"
         Write String File,"defaultstatic = 1"
         Write String File,"materialindex = 2"
         Write String File,"collisionmode = 1"
         Write String File,""
         Write String File,";visualinfo"
         Write String File,""
         Write String File,"textured      = entitybank\DarkBasic World Creator\"+File$+".bmp"
         Write String File,"effect        = "
         Write String File,"castshadow    = 1"
         Write String File,""
           Close File File 
         ` Complete
           AdvancedMessageBox("FPSC Entity Exported.","FPSC Entity Successfully Exported.","","&OK","","",DBWin)

EndFunction 1
Function ExportDarkBasicCode()
         s$ =    "` This Level was Created Using DarkBasic World Creator, An Open Source Editor for DarkBasic Pro, by Michael Mihalyfi, (MSon), [email protected]"+CHR$(10)
         s$ = s$+"` Export Date was "+Get Date$()+CHR$(10)
         s$ = s$+"` ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)+CHR$(10)+CHR$(10)
         s$ = s$+"GoSub LoadMap"+CHR$(10)+CHR$(10)
         s$ = s$+"Do"+CHR$(10)
         s$ = s$+"Control Camera Using ArrowKeys 0,1,1"+CHR$(10)
         If SkySphereObject > 0 Then s$ = s$+"Position Object SkySphereObj,Camera Position X(0),Camera Position Y(0),Camera Position Z(0)"+Chr$(10)
         s$ = s$+"Sync : Loop"+CHR$(10)+CHR$(10)+CHR$(10)
         s$ = s$+"LoadMap: ` Loads a PreMade Level"+CHR$(10)
         If BSPFile$ <> ""
         s$ = s$+"         ` Loading BSP Object ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         s$ = s$+"           Load BSP "+CHR$(34)+CHR$(34)+","+BSPFile$+CHR$(10)
         EndIf
         If SkySphereObject > 0
         s$ = s$+"         ` Loading SkySphere ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         s$ = s$+"           SkySphereObj = Find Free Object() : Make Object Sphere SkySphereObj,-1000"+CHR$(10)
         s$ = s$+"           SkySphereImg = Find Free Image()  : Load Image "+SkySphereTexture$+",SkySphereImg,1"+CHR$(10)
         s$ = s$+"           Texture Object SkySphereObj,SkySphereImg"+CHR$(10)
         EndIf
         s$ = s$+"         ` Loading Objects ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         For n = 0 to Array Count(ObjectData())
         If ObjectData(n).ObjNum  > 0       : s$ = s$+"           "+ObjectData(n).Name$+   " = Find Free Object()+"+CHR$(10)
         If ObjectData(n).Type$   = "LOAD"  : s$ = s$+"           Load Object "      +ObjectData(n).File$+","+ObjectData(n).Name$+CHR$(10) : EndIf
         If ObjectData(n).Type$   = "PLAIN" : s$ = s$+"           Make Object Plain "+ObjectData(n).Name$+","+STR$(Object Size X(ObjectData(n).ObjNum))+","+STR$(Object Size Y(ObjectData(n).ObjNum))+CHR$(10) : EndIf
         If ObjectData(n).Type$   = "BOX"   : s$ = s$+"           Make Object Box "  +ObjectData(n).Name$+","+STR$(Object Size X(ObjectData(n).ObjNum))+","+STR$(Object Size Y(ObjectData(n).ObjNum))+","+STR$(Object Size Z(ObjectData(n).ObjNum))+CHR$(10) : EndIf
         If ObjectData(n).Texture > 0       : s$ = s$+"           "+ObjectData(n).Name$+"Img = Find Free Image() : Load Image "  +ObjectData(n).Texture$+","+ObjectData(n).Name$+"Img,1"+CHR$(10)
                                              s$ = s$+"           Texture Object "+ObjectData(n).Name$+","+ObjectData(n).Name$+"Img"+CHR$(10) : EndIf
                                              s$ = s$+"           Position Object "+ObjectData(n).Name$+","+STR$(Object Position X(ObjectData(n).ObjNum))+","+STR$(Object Position Y(ObjectData(n).ObjNum))+","+STR$(Object Position Z(ObjectData(n).ObjNum))+CHR$(10)
                                              s$ = s$+"           Rotate Object "+ObjectData(n).Name$+","+STR$(Object Angle X(ObjectData(n).ObjNum))+","+STR$(Object Angle Y(ObjectData(n).ObjNum))+","+STR$(Object Angle Z(ObjectData(n).ObjNum))+CHR$(10)
         s$ = s$+"         ` ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------"+CHR$(10)
         EndIf Next n
         s$ = s$+"           Return"+CHR$(10)+CHR$(10)+CHR$(10)
         Win   = CreateWindow(0,0,500,500,"Exported DarkBasic Code",0,0,1,0)
         Edit  = CreateRichEdit(0,0,400,400,Win)
         SetGadgetText Edit,s$

EndFunction

Heres an Example of a saved level

[DARKBASIC WORLD CREATOR]

[NEW OBJECT LOAD]
C:\Users\Michael\Desktop\DarkBasic World Creator\Resources\Models\Terrain Objects\Terrain.x
[TEXTURE OBJECT]
C:\Users\Michael\Desktop\DarkBasic World Creator\Resources\Textures\Box 3.bmp
[POSITION OBJECT]
0
0
19.9999980927
[ROTATE OBJECT]
0
0
0
[SCALE OBJECT]
79.9999923706
3.18749976158
79.9999923706
[NEW OBJECT BOX]
[TEXTURE OBJECT]
C:\Users\Michael\Desktop\DarkBasic World Creator\Resources\Textures\Box 2.bmp
[POSITION OBJECT]
0
6.19999837875
19.9999980927
[ROTATE OBJECT]
0
0
0
[SCALE OBJECT]
4.99999952316
4.99999952316
4.99999952316

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Omega gamer 89

17

Years of Service

User Offline

Joined: 10th Sep 2007

Location: Pittsburgh, PA

Posted: 10th Dec 2009 10:29

Turtles can be purple now?

I have a devious mind.

Back to top

Profile PM Email

Melancholic

15

Years of Service

User Offline

Joined: 26th Nov 2009

Location:

Posted: 10th Dec 2009 10:48

Hey every one

, i see some of you are making level editors?, im a newb and attempting to make one as well

. I was wondering how your object selection systems worked?, i have a system devised but its not very good

. Wondering if you had any tips?.

Back to top

Profile PM Email

lazerus

17

Years of Service

User Offline

Joined: 30th Apr 2008

Location:

Posted: 10th Dec 2009 12:31

ahh well it seems you have a system32 file preventing you from loading correctly. Try...

Think Laz. Remember what happened last time...

Joking of course and yes i know next to nothing on coding. tralalalallalallala

Iam happy since iam out of school early, triple free FTW!

Back to top

Profile PM Email

The Fps Creator rocks!

16

Years of Service

User Offline

Joined: 24th Oct 2008

Location: Sneaking down your chimney.

Posted: 10th Dec 2009 13:58

Test.

http://img22.imageshack.us/img22/1467/thirdt.png

Back to top

Profile PM Email

lazerus

17

Years of Service

User Offline

Joined: 30th Apr 2008

Location:

Posted: 10th Dec 2009 14:43

Lurk at fail...

So bored righ now...

Back to top

Profile PM Email

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 10th Dec 2009 14:53 Edited at: 10th Dec 2009 15:02

@ Melancholic

I'll be posting all the code to my Editor in a few days anyway, but i did make a post about how my object selector worked, Check my last post on this page.

http://forum.thegamecreators.com/?m=forum_view&t=162150&b=1

However, this was taken straight out of my source, so its set up for my dims in my editor, Usually the easiest way to make an object selector, is simply to use the command Pick Object, and combine this with MouseMove Values, This was how i made my first ever object selector.

Let me know if you need any help, or post in the DBPro Forum, im sure someone will help you.

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

Melancholic

15

Years of Service

User Offline

Joined: 26th Nov 2009

Location:

Posted: 10th Dec 2009 15:21

Thanks MSon

, will read through carfully and rewrite my select system

,

Back to top

Profile PM Email

JZ28

16

Years of Service

User Offline

Joined: 2nd Feb 2009

Location:

Posted: 10th Dec 2009 16:47

http://sites.google.com/site/jzstudios1/

[i][b][u][/u]

Back to top

Profile PM

YavinB

15

Years of Service

User Offline

Joined: 25th Sep 2009

Location: Ontario, Canada

Posted: 10th Dec 2009 18:39

Quote: "YavinB - 9 posts"

Wah hoo! Im back on this thing!

If it involves money I'm in. (only if it Benefits me)

Back to top

Profile PM

Yodaman Jer

User Banned

Posted: 10th Dec 2009 20:26

Crap! I tried re-writing my deleting code, but it doesn't work!!

    `Delete an object
     If KeyState(211)=1 And SelectedObj <> 0
       `Delete platforms
        For A=10 To 109
         If SelectedObj=A Then Delete Object A : Play Sound del
         BoxCount=BoxCount-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If BoxCount=<9 Then BoxCount=9
        Next A
       `Delete coins
        For B=110 To 159
         If SelectedObj=B Then Delete Object B : Play Sound del
         CoinCount=CoinCount-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If CoinCount=<109 Then CoinCount=109
        Next B
       `Delete powerups
        For C=160 To 165
         If SelectedObj=C Then Delete Object C : Play Sound del
         PowerUp=PowerUp-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If PowerUp=<159 Then PowerUp=159
        Next C
     EndIf

Now the program will only delete the first created object and you can no longer freely delete any object you want/need. Also, the ObjsCreated variable suddenly goes to the -150s, which makes no freaking sense at all! Just what am I doing wrong here?!

Back to top

Profile

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 10th Dec 2009 20:37

`Delete an object
     If KeyState(211)=1 And SelectedObj <> 0
       `Delete platforms
        For A=10 To 109
         If SelectedObj=A Then Delete Object A : Play Sound del
         BoxCount=BoxCount-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If BoxCount=<9 Then BoxCount=9
        Next A
       `Delete coins
        For B=110 To 159
         If SelectedObj=B Then Delete Object B : Play Sound del
         CoinCount=CoinCount-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If CoinCount=<109 Then CoinCount=109
        Next B
       `Delete powerups
        For C=160 To 165
         If SelectedObj=C Then Delete Object C : Play Sound del
         PowerUp=PowerUp-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If PowerUp=<159 Then PowerUp=159
        Next C
     EndIf

Try replacing the for loops with an if statement with the upper and lower variables - first off you're wasting processing time with unneccessary iterations of the for loop. Secondly, you only have certain things in an if statement inside the for loop, so for example every time the key is pressed it takes 1 away from the objects for every time it goes through the for loop.
Try something along these lines instead:

if selectedObj>9 and selectedObj<110
  Delete Object A : Play Sound del
         BoxCount=BoxCount-1 : ObjsCreated=ObjsCreated-1
         SelectedObj=0
         If BoxCount=<9 Then BoxCount=9
endif

and so forth...

Back to top

Profile PM Website

Yodaman Jer

User Banned

Posted: 10th Dec 2009 20:59

Thanks! That solved the issues right there.

I dunno why I thought a for-next loop would work..I mean, the reason the ObjsCreated variable went to the -100s zone was because I was deleting every object inside of that loop. I guess I thought of it because I've used for-next loops to delete objects in old games of mine...but this was a totally different situation, so I should have realized the results of using it would not be what I expected. Heh, oh well. Thanks again!

Back to top

Profile

Happy Cheesecake

16

Years of Service

User Offline

Joined: 16th Jun 2009

Location: My non-vice-presidential refrigerator.

Posted: 10th Dec 2009 21:29 Edited at: 10th Dec 2009 21:30

Crap, found out I gotta ride a bus with 30 boys and 20 girls (not allowed to sit together) to my basketball game that's recently been relocated to someplace named Kermit that's an hour or so away from here. Worse news is that I probably won't get played in the game because the coach only plays boys that were on his football team earlier this year (he doubles as the football coach). So, all of today is gonna be wasted like yesterday. And the day before yesterday. And I might be okay with not playing if our team would actually win. Yesterday we got totally blown out by a crap team. Coach played a total of 7 players out of 22. The original 5 starters did not call a single play while on the court. Two of them fouled out causing the other 2 to come in. I won't get back home until about 10:30pm.

The good news in all of this? I just saved 15% or more on my car insurance by switching to Geicko.

[url=http://www.xboxlc.com/profile/HappyCheez]

[/url]

Back to top

Profile PM Email

YavinB

15

Years of Service

User Offline

Joined: 25th Sep 2009

Location: Ontario, Canada

Posted: 10th Dec 2009 21:58

Quote: "The good news in all of this? I just saved 15% or more on my car insurance by switching to Geicko."

Haha!

If it involves money I'm in. (only if it Benefits me)

Back to top

Profile PM

lazerus

17

Years of Service

User Offline

Joined: 30th Apr 2008

Location:

Posted: 10th Dec 2009 22:18

Well i have two entire unit sections needed to be completed for Ict by 12:00 friday.

I have done about half the first one...

I really do hate these tedious tasks, especially when im accused of plagurism, i used 'big' words/phrases, such as; arresting factors, disconcerning evidence or centeral business district (CBD)

Its specialist vocab and am aiming for distinction so what the hell is thier problem. -____________-"""

Stupid freakin teachers...

Back to top

Profile PM Email

Insert Name Here

18

Years of Service

User Offline

Joined: 20th Mar 2007

Location: Worcester, England

Posted: 10th Dec 2009 22:28

Quote: "(not allowed to sit together)"

Isn't inter-gender separation illegal now?

Back to top

Profile PM

NeX the Fairly Fast Ferret

20

Years of Service

User Offline

Joined: 10th Apr 2005

Location: The Fifth Plane of Oblivion

Posted: 10th Dec 2009 22:30 Edited at: 10th Dec 2009 22:31

Quote: "especially when im accused of plagurism"

It's because they use lousy plagarism detectors and think their word is God. Teachers should be educated as to how truly useless such filters are given the amount of possible entries versus the amount of students entered in history.

Worst bit is, as more students are entered, their plagarist database will get bigger and bigger and so more peoples' careers will be wrecked by false positives. Plagarism should be detected by seeing how well a project is articulated and put together - one idea should follow on from and build upon the last - not by matching patterns of words. How stupid.

Athlon64 2.7gHz->OC 3.9gHz, 31C, MSi 9500GT->OC 1gHz core/2gHz memory, 48C, 4Gb DDR2 667, 500Gb Seagate + 80Gb Maxtor + 40Gb Maxtor = 620Gb, XP Home
Air cooled, total cost £160

Back to top

Profile PM Website

lazerus

17

Years of Service

User Offline

Joined: 30th Apr 2008

Location:

Posted: 10th Dec 2009 22:53

finaly someone with the same view.

Though my work comes off disjointed at times, best not to say why, personal stuff dont belong here.

NoW SpAMM My Monkeys!! Spamm !!!

Back to top

Profile PM Email

MSon

20

Years of Service

User Offline

Joined: 13th Jul 2004

Location: Earth, (I Think).

Posted: 10th Dec 2009 23:25

Everyone Be Cool, You, Be Cool.

Back to top

Profile PM Email Website

AndrewT

18

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 10th Dec 2009 23:32 Edited at: 10th Dec 2009 23:32

6 more days of schooooool!

i like orange

Back to top

Profile PM

Neuro Fuzzy

18

Years of Service

User Offline

Joined: 11th Jun 2007

Location:

Posted: 10th Dec 2009 23:55 Edited at: 10th Dec 2009 23:55

Our toys may cause spontaneous joy... also, combustion!

BRBHRAHRHAGGHLALRHLARAAAARRRRGHGHAHGHAGGAHGHHRHRHAHRAHRRHARHAAAARRRGHGHG
HRGHRGHGHRBGLRHGALRGHRGHRGBALRAAARGHRLABALARAAARHGHRGHRAHLBALBALAHRGRHAL
AAGRHLAHRGLRHGALHRGLAHRLGHALRHGLAHRLGAHLAALALAAHRLARHEARGHAGRHEUAHRUEHRG
AGHGUAHGLHAGUREABGHGUEBAHEAGUHAGUHUHUBHUHBUHUHABAUHAGHGUHGAUG

Back to top

Profile PM Email

Yodaman Jer

User Banned

Posted: 11th Dec 2009 00:26

HELP!!!!! please and thank you.

Back to top

Profile

demons breath

21

Years of Service

User Offline

Joined: 4th Oct 2003

Location: Surrey, UK

Posted: 11th Dec 2009 00:52

tried again... no db atm though so i'm just bouncing ideas tbh...

Back to top

Profile PM Website

lazerus

17

Years of Service

User Offline

Joined: 30th Apr 2008

Location:

Posted: 11th Dec 2009 01:00

I guess time will be against me.
Good, thats a good thing right? I mean it cant hurt me can it?
No, i wont fall placid to it, i know what happens then.
Learn for your mistakes Con. Everything will be all right, just forget to breath.

I cant sleep like this. This sleep of reason will produce monsters and those monsters can hurt me...

Screw it, lets see your best. Im waiting for you.
____
-Laz

Back to top

Profile PM Email

AndrewT

18

Years of Service

User Offline

Joined: 11th Feb 2007

Location: MI, USA

Posted: 11th Dec 2009 01:20

[b][/b] [u][/u]

i like orange

Back to top

Profile PM

Venge

18

Years of Service

User Offline

Joined: 13th Sep 2006

Location: Iowa

Posted: 11th Dec 2009 01:47

Just drove home, first day the interstate's been open since the big storm. I counted 49 cars and 13 semi trucks in the ditches on the ~140 miles of interstate driving.

I will live forever or die trying.
My game blog

Back to top

Profile PM

thenerd

16

Years of Service

User Offline

Joined: 9th Mar 2009

Location: Boston, USA

Posted: 11th Dec 2009 01:56 Edited at: 11th Dec 2009 02:00