hi all, i'm using call dll to call my darkcloud code because i want it to be more difficult to hack my program.
i'm still learning to use the sample project
problem is, its crashing...
can someone help me fix this please?
Rem Project: DarkCLOUDSample
Rem Created: Sunday, June 28, 2009
load dll "DarkCLOUDS.dll",1
rem Please wait
set text font "verdana" : s$="generating clouds...please wait"
center text screen width()/2,screen height()/2,s$ : sync
rem init app at 60fps
sync on : sync rate 60
if dll call exist(1,"?DCSetCloudy@@YAXM@Z")=1
rem half-fill the sky with clouds
setcloudy#=call dll(1,"?DCSetCloudy@@YAXM@Z",0.7)
endif
rem set sky brightness to 1
if dll call exist(1,"?DCSetBrightness@@YAXM@Z")=1
setbrightness# = call dll(1,"?DCSetBrightness@@YAXM@Z",0.4)
endif
rem set wind to 30 mph at 270 degrees (heading west)
if dll call exist(1,"?DCSetWind@@YAXMM@Z")=1
setwind=call dll(1,"?DCSetWind@@YAXMM@Z",100,270)
endif
rem set rain
if dll call exist(1,"?DCSetRain@@YAXMM@Z")=1
setrain=call dll(1,"?DCSetRain@@YAXMM@Z",10,10)
endif
rem init with texture number 1, and number of keyframes per day
if dll call exist(1,"?DCInit@@YAXHH@Z")=1
init=call dll(1,"?DCInit@@YAXHH@Z",1,10)
endif
rem starting at 9am
time#=17.0
rem the update command creates the cloud texture
if dll call exist(1,"?DCUpdate@@YAXM@Z")=1
update=call dll(1,"?DCUpdate@@YAXM@Z",time#)
endif
rem show texture 1 as the backdrop
texture backdrop 1
rem Main loop
do
rem step through the day
time#=time#+100.0/(60.0*60.0*60.0)
rem update clouds
if dll call exist(1,"?DCUpdate@@YAXM@Z")=1
update=call dll(1,"?DCUpdate@@YAXM@Z",time#)
endif
control camera using arrowkeys 0, 1, 1
text 0, 0, str$(screen fps())
rem update screen
sync
rem end loop
loop
yes, all the dlls are in the project folder.
they will be encrypted in the final project
CHECK OUT SOME MUSIC FROM MY NEW TECHNO CD! TECHNOKINESIS
http://www.youtube.com/watch?v=4a8KedfgVv0
ALSO, CHECK OUT MY NEW TECHNO CD! http://www.imageposeidon.com/
