rpg!!!
what kinda rpg is this going to be?
can u kinda give a brief descripion of the storyline?
email-
[email protected]
aim-yoshix18
ive made a window maker thingy u can use
u edit it in the db editor area up at the top and then save the window as an image by pressing 'F5'
i have bdl so im not sure that this will work in pro
`---------------------------------------------
`Edit window----------------------------------
`---------------------------------------------
`3D on/off----------
3d$="on"
`Title--------------
title$="-Yoshiz World- vs0.01"
tr=255:tg=155:tb=000
size=12:center$="on"
font$="Arial"
`Dimentions---------
width=300:height=150
`Background color---
br=240:bg=240:bb=240
`Line color---------
lr=150:lg=150:lb=200
`Title color--------
hght=10
pr=200:pg=200:pb=200
`# = darker---------
df=2
`-------------------
cls:sync on
`---------------------------------------------
`---------------------------------------------
`---------------------------------------------
norm=1
if 3d$="on"
if pr>40 then pr=40
if pg>40 then pg=40
if pb>40 then pb=40
endif
if df>03 then df=03
if df<01 then df=01
hide mouse
`---------------------------------------------
`Make and get image---------------------------
`---------------------------------------------
set text font font$:set text size size
ink rgb(br,bg,bb),0
box 0,0,width,height
if 3d$="on"
for start=1 to hght
ink rgb(pr-((start+df)*20),pg-((start+df)*20),pb-((start+df)*20)),0
line 1,start,width,start
next start
else
ink rgb(pr,pg,pb),0:box 0,0,width,hght
endif
ink rgb(pr+50,pg+50,pb+50),0
box width-10,2,width-02,hght-2:box width-20,2,width-12,hght-2
box width-30,2,width-22,hght-2
ink rgb(lr,lg,lb),0
line width-10,000002,width-02,000002
line width-02,000002,width-02,hght-2
line width-20,000002,width-12,000002
line width-12,000002,width-12,hght-2
line width-22,000002,width-30,000002
line width-30,000002,width-30,hght-2
line width-10,000002,width-10,hght-2
line width-10,hght-2,width-02,hght-2
line width-20,000002,width-20,hght-2
line width-20,hght-2,width-12,hght-2
line width-22,000002,width-22,hght-2
line width-22,hght-2,width-30,hght-2
line 0000,00000,width,0000:line 0000,00000,000,height
line 0,hght,width,hght:line 0,height,width,height
line width,00,width,height
ink rgb(tr,tg,tb),0
line width-28,hght-3,width-24,hght-3:line width-18,3,width-18,hght-3
line width-18,000003,width-14,000003:line width-14,3,width-14,hght-3
line width-18,hght-3,width-14,hght-3:line width-08,3,width-03,hght-2
line width-03,000003,width-08,hght-2
if center$="on"
center text width/2,0,title$
else
text 5,0,title$
endif
`---------------------------------------------
get image 1,0,0,width+1,height+1
`---------------------------------------------
`maximum image--------------------------------
`---------------------------------------------
ink rgb(br,bg,bb),0
box 0,0,screen width()-1,screen height()-1
if 3d$="on"
for start=1 to hght
ink rgb(pr-((start+df)*20),pg-((start+df)*20),pb-((start+df)*20)),0
line 1,start,screen width(),start
next start
else
ink rgb(pr,pg,pb),0:box 0,0,screen width()-1,hght
endif
ink rgb(pr+50,pg+50,pb+50),0
box screen width()-10,2,screen width()-02,hght-2
box screen width()-20,2,screen width()-12,hght-2
box screen width()-30,2,screen width()-22,hght-2
ink rgb(lr,lg,lb),0
line screen width()-10,000002,screen width()-02,000002
line screen width()-02,000002,screen width()-02,hght-2
line screen width()-20,000002,screen width()-12,000002
line screen width()-12,000002,screen width()-12,hght-2
line screen width()-22,000002,screen width()-30,000002
line screen width()-30,000002,screen width()-30,hght-2
line screen width()-10,000002,screen width()-10,hght-2
line screen width()-10,hght-2,screen width()-02,hght-2
line screen width()-20,000002,screen width()-20,hght-2
line screen width()-20,hght-2,screen width()-12,hght-2
line screen width()-22,000002,screen width()-22,hght-2
line screen width()-22,hght-2,screen width()-30,hght-2
line 0000,0000,screen width(),0000
line 0000,0000,000,screen height()
line 0000,hght,screen width(),hght
line 0,screen height()-1,screen width(),screen height()-1
line screen width()-1,00,screen width()-1,screen height()
ink rgb(tr,tg,tb),0
line screen width()-28,hght-3,screen width()-24,hght-3
line screen width()-18,000003,screen width()-18,hght-3
line screen width()-18,000003,screen width()-14,000003
line screen width()-14,000003,screen width()-14,hght-3
line screen width()-18,hght-3,screen width()-14,hght-3
line screen width()-08,000003,screen width()-03,hght-2
line screen width()-03,000003,screen width()-08,hght-2
if center$="on"
center text screen width()/2,0,title$
else
text 5,0,title$
endif
`---------------------------------------------
get image 3,0,0,screen width(),screen height()
`---------------------------------------------
`minimize image-------------------------------
`---------------------------------------------
cls
if 3d$="on"
for start=1 to hght
ink rgb(pr-((start+df)*20),pg-((start+df)*20),pb-((start+df)*20)),0
line 1,start,100,start
next start
else
ink rgb(pr,pg,pb),0:box 0,0,100,hght
endif
ink rgb(lr,lg,lb),0
line 000,000,000,hght:line 000,0000,100,0000
line 100,000,100,hght:line 000,hght,100,hght
ink rgb(br,bg,bb),0
if text width(title$)>100 then title$=left$(title$,15)+" ..."
text 5,0,title$
`---------------------------------------------
get image 2,0,0,101,hght+1
`---------------------------------------------
`arrow image----------------------------------
`---------------------------------------------
cls
ink rgb(255,155,000),0
line 0,5,10,5
line 5,0,5,10
`---------------------------------------------
get image 4,0,0,11,11
`---------------------------------------------
sprite 2,0,0,2:hide sprite 2
sprite 3,0,0,3:hide sprite 3
ink rgb(000,155,000),0
cls
`---------------------------------------------
`---------------------------------------------
`---------------------------------------------
do
if keystate(63)=1 then click2=1
if click2=1 and keystate(63)=0
click2=0
if mini=0 and max=0 then delete file "windows/window_nor.bmp":save image "windows/window_nor.bmp",1
if mini=1 then delete file "windows/window_min.bmp":save image "windows/window_min.bmp",2
if maxs=1 then delete file "windows/window_max.bmp":save image "windows/window_max.bmp",3
endif
x=mousex():y=mousey()
if mouseclick()=1
if click=0
if maxs=1
if x>screen width()-30 and y>2 and x<screen width()-22 and y<hght then show sprite 2:mini=1:hide sprite 3:maxs=0
if x>screen width()-20 and y>2 and x<screen width()-12 and y<hght then show sprite 1:norm=1:hide sprite 3:maxs=0
if x>screen width()-10 and y>2 and x<screen width()-02 and y<hght
delete sprite 1:delete sprite 2:delete sprite 3:delete sprite 4
delete image 1:delete image 2:delete image 3:delete image 4:end
endif:endif
if mini=1 and (x>0 and y>screen height()-(hght+2) and x<101) then show sprite 1:norm=1:hide sprite 2:mini=0
if norm=1 and x>boxx and y>boxy and x<boxx+width and y<boxy+hght
if x>(boxx+width)-30 and y>boxy+2 and x<(boxx+width)-22 and y<boxy+hght then show sprite 2:mini=1:hide sprite 1:norm=0
if x>(boxx+width)-20 and y>boxy+2 and x<(boxx+width)-12 and y<boxy+hght then show sprite 3:maxs=1:hide sprite 1:norm=0
if x>(boxx+width)-10 and y>boxy+2 and x<(boxx+width)-2 and y<boxy+hght
delete sprite 1:delete sprite 2:delete sprite 3:delete sprite 4
delete image 1:delete image 2:delete image 3:delete image 4:end
endif
if click<2 then click=click+1
if click=1 then holdx=(boxx-x):holdy=(boxy-y)
endif:endif:else:if click<>0 then click=0
endif
if click<>0 and norm=1 then boxx=x+holdx:boxy=y+holdy
if mini=1 then sprite 2,0,screen height()-(hght+1),2
if maxs=1 then sprite 3,0,0,3
if norm=1 then sprite 1,boxx,boxy,1
sprite 4,x,y,4:offset sprite 4,5,5
sync:loop
`---------------------------------------------
`---------------------------------------------
`---------------------------------------------
im the only one thats normal in this world.
everyone else is weird.
....:::Koshi:::....
