Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

Code Snippets / DarkShell

Author
Message
ironhoof
21
Years of Service
User Offline
Joined: 3rd Sep 2002
Location:
Posted: 10th Oct 2002 11:56
K-Frames is already taken by some big corp as ive been searching around, SO i changed its name based on the fact its a SHELL gui system and its for darkbasic
so i now announce it as darkshell

i also updated the devices -so makesure you get the update

http://members.aol.com/ironhoof7/darkshell.exe
-----\
There was a man on the stairs that wasn't there.
He wasn't there agian today I think he's from the CIA.
David T
Retired Moderator
21
Years of Service
User Offline
Joined: 27th Aug 2002
Location: England
Posted: 10th Oct 2002 20:26
An Installshield wizard for this? I've seen it all

I love Star Trek.
Especially the Episodes with Starships in.
ironhoof
21
Years of Service
User Offline
Joined: 3rd Sep 2002
Location:
Posted: 10th Oct 2002 23:21
Well if you want something to have its very own icon thats the only way to be sure it registers them

-----\
There was a man on the stairs that wasn't there.
He wasn't there agian today I think he's from the CIA.
ironhoof
21
Years of Service
User Offline
Joined: 3rd Sep 2002
Location:
Posted: 11th Oct 2002 05:23
Um on another note i started the visual IDE for it and i altered the name AGIAN just a tad so it not to conflict with the OTHER darkshell thing on the net.. WHAT TO DO?

I'll tll yea... =\

-----\
There was a man on the stairs that wasn't there.
He wasn't there agian today I think he's from the CIA.
Shadow Robert
21
Years of Service
User Offline
Joined: 22nd Sep 2002
Location: Hertfordshire, England
Posted: 11th Oct 2002 07:23
hahaa... well iron hopefully our little team up will find your product a stable name like, Visual DarkBasic 2.0

however i think we can talk more about names blah blah in a few days, oh and something i'll upload for you to see ... I've made an editable code window - will take alot to setup scripting within DB however should be good

just think this'll probably be the first editor built in db which uses db - hahaa isn't that a doosey of a head scratcher. Even more so that the development version will be the base for creating the actual application.

Now if anyone actually understood all that without any confusion then certianly deserve to be coding

Holy jumping mother of god NOOOO!!!...
Ahem I mean, I'll think about it
Shadow Robert
21
Years of Service
User Offline
Joined: 22nd Sep 2002
Location: Hertfordshire, England
Posted: 12th Oct 2002 02:14
Just got your email... please don't change the name to
- DarkShelz
will just make it sound very tacky. I did a search over several search engines and found there are no products labeled Visual DarkBasic - and the only referance was to CodeBase
So, as long as there are no complaints from the DBS team - that is probably the better title to go for.

i've thought up a few ways today about howto go about making a proper parser for the VDB coding window, perhaps have a testable version - right now its just a text string coder, its pretty basic and most peeps here could have done it

I'm still not sure if to setup the coding window as an extra program that runs simaltaniously, or just to set it as a function wind. oh well i'm sure i'll think of something.

Have a basic version of the resource libraries done though, setup like DLLs ... as it compiles all the resources into files and then packs them into a single file.

Currently have a basic setup, Resource Sets are
- 6-Byte Header
-- Icon Count 4-Byte (LONG)
-- Height 1-Byte (BYTE)
-- Width 1-Byte (BYTE)
- Picture Data (4-Byte + 3-Byte*(Height*Width))
-- Picture Position 4-Byte (LONG)
-- Pixel Colour 2-Byte (WORD)
-- Pixel Alpha 1-Byte (BYTE)

Also the Scripts will be export as .dba and then stored...
the pack files don't yet use compression.
hopefully this gives your a little to think about thou

Holy jumping mother of god NOOOO!!!...
Ahem I mean, I'll think about it
Shadow Robert
21
Years of Service
User Offline
Joined: 22nd Sep 2002
Location: Hertfordshire, England
Posted: 12th Oct 2002 02:22
Oh btw... the picture position relates to what icon it is, so say the set is named File.vrc then the code will use the file icon array - so say icon 1 would be new, icon 2 would be save, etc...
if the loader cannot find an icon then it just uses a built in blank icon
And most people think i'm mad to setup bool returns on my functions

Holy jumping mother of god NOOOO!!!...
Ahem I mean, I'll think about it
ironhoof
21
Years of Service
User Offline
Joined: 3rd Sep 2002
Location:
Posted: 15th Oct 2002 07:02
I suppose your right i just got back from vacation so i wasn't able to respond right away.

Yea the name DOSE sound tacky, however I never claimed to be a name specialist ^_^. I say we do this project in mostly DB as possible scripting can be done in DB quite well
see my RPGDTE "http://members.aol.com/ironhoof7/rpgdte2.exe"
it runs off nothing but external scripting "and my script interpeter isnt nothing more than 12 lines of code!"
and its neither case nor space sensitive!

However still i think doing it in db alone proves impressiveness aswell as keeping standalone ability.

Your textbox support function should mold right into the K-frames libraries that way people can use it too when they visual build into the frame. Remember what I said earlier PACK function "that store more than 1 line of text" should share the allocatable ListStack$() array. "just like the listbox.kct" dose

Also I fixed a VERY minor bug in listbox.kct you can get the update right here: it would let you click below the last item listed in the list even before you scrolled it "You know 1 blank space down past the view port for the listbox" so i repaired it with a simple if MG+15>Y+Height then ExitFunction.

THE REPAIR FOR LISTBOX.KCT

function NewList(X,Y,Width,Height,FormNumber,ListNum,Pointer,Allocate)
set current bitmap FormNumber
ink WinColor(1),0:box X,Y,X+Width,Y+Height
ink WinColor(3),0:line X,Y,X+Width,Y:line X,Y,X,Y+Height
ink WinColor(2),0:line X+Width,Y,X+Width,Y+Height:line X,Y+Height,X+Width,Y+Height
ListBox(ListNum,0)=X:ListBox(ListNum,1)=Y:ListBox(ListNum,2)=Width
ListBox(ListNum,3)=Height:ListBox(ListNum,4)=FormNumber:ListBox(ListNum,5)=Pointer
ListBox(ListNum,6)=Allocate:ListBox(ListNum,7)=0
RefreshWindow(FormNumber)
endfunction

function AddItem(ListNum,Text$)
if ListBox(ListNum,7)=ListBox(ListNum,6) then added=0:goto done:
ListStack$(ListBox(ListNum,5)+ListBox(ListNum,7))=Text$
ListBox(ListNum,7)=ListBox(ListNum,7)+1:added=1
done:
endfunction added

function ListOffSet(ListNum,OffSet)
ListBox(ListNum,8)=OffSet:RefreshList(ListNum)
endfunction

function MoreList(ListNum)
Height=ListBox(ListNum,3):Allocate=ListBox(ListNum,6)
tmp=Height/15:temp=(Allocate+Pointer)-tmp
if temp<1 then temp=-1
endfunction temp

function RefreshList(ListNum)
X=ListBox(ListNum,0):Y=ListBox(ListNum,1):Width=ListBox(ListNum,2)
Height=ListBox(ListNum,3):FormNumber=ListBox(ListNum,4)ointer=ListBox(ListNum,5)
Allocate=ListBox(ListNum,6):J=Y:set text font "fixedsys"
set current bitmap FormNumber
ink WinColor(1),0:box X+1,Y+1,X+Width-1,Y+Height-1:ink WinColor(2),0
for tmp=Pointer to (Allocate+Pointer)
strtmp$=ListStack$(tmp+ListBox(ListNum,8))
if len(strtmp$)*8>(Width-5) then b=(Width-5)/8:strtmp$=Left$(strtmp$,b)
if J<Y+(Height-10) then Text X+5,J,strtmp$
inc J,15
next tmp
RefreshWindow(FormNumber)
endfunction

Function OnListBox(MaxWindows,MaxLists,Cursor)
Yes=0:onform=0
for a=1 to MaxWindows
if MouseOver(a)=1 then onform=a
next a
if onform=0 then exitfunction
for a=0 to MaxLists
zax=ListBox(a,0)+sprite x(onform)+1:zay=ListBox(a,1)+sprite y(onform)+1
if mousex()>zax and mousex()<zax+ListBox(a,2) and mousey()>zay and mousey()<zay+ListBox(a,3) and onform=ListBox(a,4)
Yes=a:ListSel(onform,a,Cursor)
endif
next a
endfunction Yes

Function ListSel(FormNumber,ListNum,Cursor)
ty=mousey()-sprite y(formnumber)ointer=ListBox(ListNum,5)
X=ListBox(ListNum,0):Y=ListBox(ListNum,1):Width=ListBox(ListNum,2)
Height=ListBox(ListNum,3):RefreshList(ListNum)
set current bitmap formnumber:set text font "fixedsys"
ty=ty-y:mg=ty/15:mg=mg*15:mg=mg+y
if MG+15>Y+Height then ExitFunction
ink WinColor(0),0:box X+2,Mg,X+Width-2,Mg+15
ink Wincolor(3),0:line X+2,MG,X+Width-2,MG
line X+2,MG,X+2,MG+15:ink WinColor(2),0:Line X+2,MG+15,X+Width-2,MG+15
Line X+Width-2,MG+1,X+Width-2,MG+15
strtmp$=ListStack$((ty/15)+ListBox(ListNum,8)+Pointer)
if len(strtmp$)*8>(Width-5) then b=(Width-5)/8:strtmp$=Left$(strtmp$,b)
ink Rgb(255,255,0),0:Text X+5,MG,strtmp$
RefreshWindow(formnumber):ListBox(ListNum,9)=(ty/15)+ListBox(ListNum,8)+Pointer
endfunction

-----\
There was a man on the stairs that wasn't there.
He wasn't there agian today I think he's from the CIA.
Shadow Robert
21
Years of Service
User Offline
Joined: 22nd Sep 2002
Location: Hertfordshire, England
Posted: 15th Oct 2002 07:49
well yeah it'll have to be in db alone otherwise it won't work for like half the DB users, kinda seems pointless to make such a product if most peoples can't use it (still wonder how come people code in DarkMatter yet no one ever has it? hahaa)

However this doesn't mean that we're restricted to DB 1.13 standard only

not really been able to do much for this the last few days, as i've been wrestling with my forum to get ot working properly - finally fixxed most of it however that email activation problem is still bugging me!

i have almost finished a simple parse/scripting language for VDB - works much the same way as VB which will please alot of people, yet DBish twist... i'll show ya what i mean in a day or so once i finish messing with C++ MFC 4.2 and get back to DB stuff.
it isn't yet a windowed function, so there is still alot of work to do on it - did add keyword function reference, a little too slow for proper use but still will be good

Holy jumping mother of god NOOOO!!!...

Login to post a reply

Server time is: 2024-03-29 08:17:23
Your offset time is: 2024-03-29 08:17:23