[DBPro] Direct++ Source Code

Codul sursa de la Direct++.

Cod:

DarkSide_Set_File_Requester_Extension ".Z3D"
DarkSide_Set_File_Requester_Extension_Pattern "1"
DarkSide_Open_File_Requester
DarkSide_Return_File_Requester_Full
do
scr$=get clipboard$()

interfisier(scr$)
InterLinie(Line$)

if escapekey() = 1 then end
sync
loop

function InterLinie(Line$)
dim Parametru(9)
dim Parametru$(9)
TypeOfData=1
AuFostGasiteGhilimele=0
StringTemporar$="";
IndicePS=1
IndiceP=1
AFostGasitParametru=0
length=len(Line$)
i=1
Command$="";
while i<=length
Char$=Mid$(Line$,i)
if Char$="/" and i if Mid$(Line$,i+1) = "/" then ok=1
endif
if ok=1 then exit
if Char$<>";" and Char$<>" " and AFostGasitParametru=0 and Char$<>"("
Command$=Command$+Char$
endif
if Char$="("
AFostGasitParametru=1
endif
if AFostGasitParametru=1 and Char$<>";" and Char$<>"("
if Char$="," or Mid$(Line$,i+1)=")"
if TypeOfData=1
Parametru(IndiceP)=val(StringTemporar$)
IndiceP=IndiceP+1
endif
if TypeOfData=2
Parametru$(IndicePS)=StringTemporar$
IndicePS=IndicePS+1
endif
StringTemporar$=""
endif
if Char$="'" then AuFostGasiteGhilimele=AuFostGasiteGhilimele+1
if AuFostGasiteGhilimele=1 then TypeOfData=2
if AuFostGasiteGhilimele=2
AuFostGasiteGhilimele=0
TypeOfData=1
endif
if Char$<>"," and Char$<>"'"
StringTemporar$=StringTemporar$+Char$
endif
endif
if Char$=")"
AFostGasitParametru=0
endif
if Char$=";"
Command$=Upper$(Command$)
Select Command$
Case "MAKE_CUBE"
make object cube Parametru(1),Parametru(2)
endcase
Case "SCREENOUT"
text Parametru(1),Parametru(2),Parametru$(1)
EndCase
Case "LOAD_OBJECT"
load object Parametru$(1),Parametru(1)
EndCase
Case "POSITION_WINDOW"
set window position Parametru(1),Parametru(2)
EndCase
Case "WINDOW_TITLE"
set window title Parametru$(1)
EndCase
Case "WINDOW_SIZE"
set window size Parametru(1),Parametru(2)
EndCase
Case "WINDOW_ON"
SET WINDOW ON
EndCase
Case "WINDOW_OFF"
SET WINDOW OFF
EndCase
Case "MAXIMIZE_WINDOW"
MAXIMIZE WINDOW
EndCase
Case "MINIMIZE_WINDOW"
MINIMIZE WINDOW
EndCase
Case "HIDE_WNIDOW"
hide window
EndCase
Case "SHOW_WINDOW"
show window
EndCase
Case "DISPLAY_MODE"
set display mode Parametru(1),Parametru(2),Parametru(2)
EndCase
Case "SYNC_ON"
sync on
EndCase
Case "SYNC_OFF"
sync off
EndCase
Case "CLEAR_SCREEN"
cls
EndCase
Case "HOLD_MOUSE"
wait mouse
EndCase
Case "HOLD_KEY"
wait key
EndCase
Case "EXIT"
exit
EndCase
Case "SYNC"
sync
EndCase
Case "SET_SYNC_RATE"
sync rate Parametru(1)
EndCase
Case "FONT_TEXT"
set text font Parametru$(1)
EndCase
Case "SET_TRANSPARENT_TEXT"
set text transparent
EndCase
Case "TEXT_SIZE"
set text size Parametru(1)
EndCase
Case "TEXT_COLOR"
ink rgb(Parametru(1),Parametru(2),Parametru(3)),0
EndCase
Case "MAKE_BOX"
box Parametru(1),Parametru(2),Parametru(3),Parametru(4)
EndCase
Case "LOCK_PIXELS"
lock pixels
EndCase
Case "UNLOCK_PIXELS"
unlock pixels
EndCase
Case "MAKE_CIRCLE"
circle Parametru(1),Parametru(2),Parametru(3)
EndCase
Case "MAKE_ELLIPSE"
ellipse Parametru(1),Parametru(2),Parametru(3),Parametru(4)
EndCase
Case "LOAD_SOUND"
load sound Parametru$(1),Parametru(2)
EndCase
Case "PLAY_SOUND"
play sound Parametru(1)
EndCase
Case "STOP_SOUND"
stop sound Parametru(1)
EndCase
Case "PAUSE_SOUND"
pause sound Parametru(1)
EndCase
Case "RESUME_SOUND"
resume sound Parametru(1)
EndCase
Case "DELETE_SOUND"
delete sound Parametru(1)
EndCase
Case "LOOP_SOUND"
loop sound Parametru(1)
EndCase
Case "SAVE_SOUND"
save sound Parametru$(1),Parametru(1)
EndCase
Case "RECORD_SOUND"
record sound Parametru(1)
EndCase
Case "STOP_RECORD_SOUND"
stop recording sound
EndCase
Case "SOUND_SPEED"
set sound speed Parametru(1),Parametru(2)
EndCase
Case "SOUND_VOLUME"
set sound volume Parametru(1),Parametru(2)
EndCase
Case "ESCAPEKEY_OFF"
DISABLE ESCAPEKEY
EndCase
Case "ESCAPEKEY_ON"
ENABLE ESCAPEKEY
EndCase
Case "SYSTEMKEYS_OFF"
DISABLE SYSTEMKEYS
EndCase
Case "SYSTEMKEYS_ON"
ENABLE SYSTEMKEYS
EndCase
Case "EXIT_PROMPT"
exit prompt Parametru$(1),Parametru$(2)
EndCase
Case "LOAD_MUSIC"
load music Parametru$(1),Parametru(1)
EndCase
Case "DELETE_MUSIC"
delete music Parametru(1)
EndCase
Case "PLAY_MUSIC"
play music Parametru(1)
EndCase
Case "LOOP_MUSIC"
loop music Parametru(1)
EndCase
Case "STOP_MUSIC"
stop music Parametru(1)
EndCase
Case "PAUSE_MUSIC"
pause music Parametru(1)
EndCase
Case "RESUME_MUSIC"
resume music Parametru(1)
EndCase
Case "MUSIC_SPEED"
set music speed Parametru(1),Parametru(2)
EndCase
Case "MUSIC_VOLUME"
set music volume Parametru(1),Parametru(2)
EndCase
rem UpDate 1
Case "LOAD_IMAGE"
load image Parametru$(1),Parametru(1)
EndCase
Case "DELETE_IMAGE"
delete image Parametru(1)
EndCase
Case "SAVE_IMAGE"
save image Parametru$(1),Parametru(1)
EndCase
Case "GET_IMAGE"
get image Parametru(1),Parametru(2),Parametru(3),Parametru(4),Parametru(5)
EndCase
Case "PASTE_IMAGE"
paste image Parametru(1),Parametru(2),Parametru(3)
EndCase
Case "MAKE_CAMERA"
make camera Parametru(1)
EndCase
Case "DELETE_CAMERA"
delete camera Parametru(1)
EndCase
Case "MOVE_CAMERA"
move camera Parametru(1)
EndCase
Case "POSITION_CAMERA"
position camera Parametru(1),Parametru(2),Parametru(3)
EndCase

Case "ROTATE_CAMERA"
rotate camera Parametru(1),Parametru(2),Parametru(3)
EndCase
Case "XROTATE_CAMERA"
xrotate camera Parametru(1)
EndCase
Case "YROTATE_CAMERA"
yrotate camera Parametru(1)
EndCase
Case "ZROTATE_CAMERA"
zrotate camera Parametru(1)
EndCase
Case "TURN_CAMERA_LEFT"
turn camera left Parametru(1)
EndCase
Case "TURN_CAMERA_RIGHT"
turn camera right Parametru(1)
EndCase
Case "PITCH_CAMERA_UP"
PITCH CAMERA UP Parametru(1)
EndCase
Case "PITCH_CAMERA_DOWN"
PITCH CAMERA down Parametru(1)
EndCase
Case "ROLL_CAMERA_LEFT"
ROLL CAMERA LEFT Parametru(1)
EndCase
Case "ROLL_CAMERA_RIGHT"
ROLL CAMERA RIGHT Parametru(1)
EndCase
Case "SET_CURRENT_CAMERA"
SET CURRENT CAMERA Parametru(1)
EndCase
Case "CLEAR_CAMERA_VIEW"
CLEAR CAMERA VIEW Parametru(1)
EndCase
Case "AUTOCAM_ON"
AUTOCAM ON
EndCase
Case "AUTOCAM_OFF"
AUTOCAM OFF
EndCase
Case "BACKDROP_ON"
BACKDROP ON
EndCase
Case "BACKDROP_OFF"
BACKDROP OFF
EndCase
Case "TEXTURE_BACKDROP"
TEXTURE BACKDROP Parametru(1)
EndCase
Case "BOMB_PORTICLES"
bomb_particles()
EndCase
Case "MAKE_PARTICLES"
make_particles()
EndCase
Case "MAKE_PARTICLES_FOUNTAIN"
make_particles_fountain()
EndCase
Case "MAKE_PARTICLE_FIRE"
make_particle_fire();
EndCase
Case "SET_CAMERA_FOV"
SET CAMERA FOV Parametru(1)
EndCase
Case "SET_CAMERA_RANGE"
SET CAMERA RANGE Parametru(1),Parametru(2)
EndCase
Case "SET_CAMERA_VIEW"
SET CAMERA VIEW Parametru(1),Parametru(2),Parametru(3),Parametru(4)
EndCase
Case "SET_CAMERA_ASPECT"
SET CAMERA ASPECT Parametru(1)
EndCase
Case "CONTROL_CAMERA_USING_ARROWKEYS "
CONTROL CAMERA USING ARROWKEYS Parametru(1),Parametru(2),Parametru(3)
EndCase
Case "SHOW_MOUSE"
show mouse
EndCase
Case "HIDE_MOUSE"
hide mouse
EndCase
Case "POSITION_MOUSE"
position mouse Parametru(1),Parametru(2)
EndCase
Case "MAKE_MWORLD"
MAKE MATRIX Parametru(1),Parametru(2),Parametru(3),5,5
EndCase
Case "DELETE_MWORLD"
DELETE MATRIX Parametru(1)
EndCase
Case "TEXTURE_MWORLD"
PREPARE MATRIX TEXTURE Parametru(1),Parametru(2),1,1
EndCase
Case "POSITION_MWORLD"
POSITION MATRIX Parametru(1),Parametru(2),Parametru(3),Parametru(4)
EndCase
Case "RANDOMIZE_MWORLD "
RANDOMIZE MATRIX Parametru(1),Parametru(2)
EndCase
Case "GHOST_MWORLD_ON "
GHOST MATRIX ON Parametru(1)
EndCase
Case "GHOST_MWORLD_OFF"
GHOST MATRIX OFF Parametru(1)
EndCase
Case "SET_MWORLD_WIREFRAME_ON"
SET MATRIX WIREFRAME ON Parametru(1)
EndCase
Case "SET_MWORLD_WIREFRAME_OFF"
SET MATRIX WIREFRAME OFF Parametru(1)
EndCase
CASE "UPDATE_MWORLD"
update matrix Parametru(1)
endcase
Case "DELETE_OBJECT"
delete object Parametru(1)
EndCase
Case "SHOW_OBJECT"
show object Parametru(1)
EndCase
Case "HIDE_OBJECT"
hide object Parametru(1)
EndCase
Case "POSITION_OBJECT "
POSITION OBJECT Parametru(1),Parametru(2),Parametru(3),Parametru(4)
EndCase
`Case "SCALE_OBJECT"
`SCALE OBJECT Parametru(1),Prametru(2),Parametru(3),Parametru(4)
`EndCase
`Case "ROTATE_OBJECT"
`ROTATE OBJECT Parametru(1),Prametru(2),Parametru(3),Parametru(4)
`EndCase
Case "MOVE_OBJECT"
MOVE OBJECT Parametru(1),Parametru(2)
EndCase
Case "XROTATE_OBJECT "
XROTATE OBJECT Parametru(1),Parametru(2)
EndCase
Case "YROTATE_OBJECT"
YROTATE OBJECT Parametru(1),Parametru(2)
EndCase
Case "ZROTATE_OBJECT"
ZROTATE OBJECT Parametru(1),Parametru(2)
EndCase
Case "CONTROL_OBJECT"
ctr_obj()
endcase
Case "MAKE_CONE"
make_cone()
endcase
CASE "MAKE_SPHERE"
make_sphere()
endcase
Case "LOOP_ROTATE"
loop_rotate()
endcase
Case "TEXTURE_OBJECT"
texture_object()
endcase
Case ""

EndCase
EndSelect
Command$=""
j=1
while j<=9
Parametru(j)=0;
Parametru$(j)="";
j=j+1
endwhile
AFostGasitParametru=0
endif
i=i+1
endwhile
endfunction

FUNCTION InterFisier(scr$)

open to read 1, scr$
do
read string 1, MyText$
If MyText$ = "END" then exitfunction
interlinie(MyText$)
if escapekey() = 1 then end

loop
close file 1
ENDFUNCTION

function ctr_obj()
s#=Parametru(2)
a#=Parametru(3)
dist#=Parametru(4)
height#=Parametru(5)
smooth=Parametru(6)
do

if upkey() then move object Parametru(1),s#
if downkey() then move object Parametru(1),-s#
if leftkey() then yrotate object Parametru(1),wrapvalue(object angle y(1)-a#)
if rightkey() then yrotate object Parametru(1),wrapvalue(object angle y(1)+a#)
set camera to follow object position x(Parametru(1)),object position y(Parametru(1)),object position z(Parametru(1)),object angle y(Parametru(1)),dist#,height#,smooth,0
if escapekey() = 1 then end
loop
endfunction

function make_cube()
make object cube Parametru(1),Parametru(2)
endfunction

function load_tworld()
if file open(7) then close file 7
open to read 7,"library/a_scripts/load_tworld.txt"
read string 7,tworld$
close file 7
make terrain 1,tworld$
endfunction

function make_mworld()
make matrix Parametru(1),Parametru(2),Parametru(3),Parametru(4),Parametru(5)
endfunction

function load_object()
load object Parametru$(1),Parametru(1)
endfunction

function window_on()
set window on
endfunction

function window_title()
set window title Parametru$(1)
endfunction

function load_tworld_texture()
if file open(8) then close file 8
open to read 8,"library/a_scripts/load_tworld_texture.txt"
read string 8,tworld_texture$
close file 8
load image tworld_texture$,700
texture terrain 1,700
endfunction

function frame_rate_on()
sync on
endfunction

function set_frame_rate()
if file open(9) then close file 9
open to read 9,"library/a_scripts/set_frame_rate.txt"
read string 9,sfr$
close file 9
sync rate val(sfr$)
endfunction

function object_collision()
if object exist(1) then automatic object collision 1,1,1
endfunction

function texture_mworld()
if file open(10) then close file 10
open to read 10,"library/a_scripts/texture_mworld.txt"
read string 10,texture$
close file 10
load image texture$,9499
if matrix exist(1) then prepare matrix texture 1,9499,1,1
endfunction

function screenout()
text Parametru(1),Parametru(2),Parametru$(1)
endfunction

function bomb_particles()
for p=123456 to 123460
make particles p,0,Parametru(4),Parametru(5)
color particles p,rnd(255)*tan(12),rnd(255)*tan(7),rnd(255)*tan(22)
rotate particles p,rnd(5000)*htan(6),rnd(5000)*htan(12),rnd(5000)
set particle emissions p,rnd(255)
set particle floor p,rnd(200)
set particle gravity p,15*hsin(10)
position particles p,Parametru(1),Parametru(2),Parametru(3)
next p
endfunction

function make_particles()
make particles Parametru(1),Parametru(2),Parametru(3),Parametru(4)
color particles 1,255,0,0
rotate particles 1,90,0,0
Set particle life 1,75
Set particle speed 1,0.004
endfunction

function make_particles_fountain()
MAKE PARTICLES Parametru(1),0,1000,Parametru(5)
SET PARTICLE GRAVITY Parametru(1),0
color particles Parametru(1),0,0,500
Position Particles Parametru(1),Parametru(2),Parametru(3),Parametru(4)
endfunction

function make_particle_fire()
MAKE PARTICLES Parametru(1),0,1000,Parametru(2)
SET PARTICLE GRAVITY Parametru(1),3
SET PARTICLE CHAOS Parametru(1),5
SET PARTICLE EMISSIONS Parametru(1),10000
SET PARTICLE SPEED Parametru(1),0.001
color particles Parametru(1),200,10,0
set particle life Parametru(1),10
endfunction

function make_cone()
make object cone Parametru(1),Parametru(2)
endfunction

function make_sphere()
make object sphere Parametru(1),Parametru(2)
endfunction

Function Hide_Window()
Hide Window
endfunction

Function Show_Window()
show window
endfunction

function Window_size()
set window size Parametru(1),Parametru(2)
endfunction

function loop_rotate()
do
if spacekey() = 1 then yrotate object 1,object angle y(1) + 0.4
loop
endfunction

function texture_object()
texture object Parametru(1),Parametru(2_
endfunction

Bun venit pe SkullBox!
Bine ai venit, Vizitator. Trebuie să te autentifici sau să îţi creezi un cont. Ai pierdut sau nu ai primit emailul care conţine codul de activare al contului? Autentifică-te cu numele de utilizator, parola şi precizează durata sesiunii.

Bun venit pe SkullBox!