CodeBase - WW2 GUN

Information

Uploaded: 25th Jun 2006 09:31

Modified: 1st Jan 1970 01:00

Author:  HOMER the man

Summary

load object "C:\Program Files\Dark Basic Software\Dark Basic\media\models\static\G\GUN11.X",1 yrotate object 1,180 move object 1,3 sync on do aY# = Object angle Y(1) If Leftkey()=1 then Yrotate object 1,Wrapvalue(aY#-3) If Rightkey()=1 then Yrotate object 1,Wrapvalue(aY#+3) X# = Object position x(1) Z# = Object position z(1) cZ# = Newzvalue(Z#,aY#-180,100) cX# = Newxvalue(X#,aY#-180,100) sync loop

Full Description

load object &quot;C:\Program Files\Dark Basic Software\Dark Basic\media\models\static\G\GUN11.X&quot;,1<br /> yrotate object 1,180<br /> move object 1,3<br /> sync on<br /> do<br /> aY# = Object angle Y(1)<br /> If Leftkey()=1 then Yrotate object 1,Wrapvalue(aY#-3)<br /> If Rightkey()=1 then Yrotate object 1,Wrapvalue(aY#+3)<br /> X# = Object position x(1)<br /> Z# = Object position z(1)<br /> cZ# = Newzvalue(Z#,aY#-180,100)<br /> cX# = Newxvalue(X#,aY#-180,100)<br /> sync<br /> loop