You're not allowed swearing in a violent video game? Ok I'll just work with this as constructive criticism, a post or two would have been appreciated??? Here's a more PG version:
sync rate 0
sync on
load image "loadingscreen.jpg",222
sync
paste image 222,0,0
sync
#CONSTANT robot 1
#CONSTANT neck 1
#CONSTANT head 2
#CONSTANT right_arm 3
#CONSTANT left_arm 4
#CONSTANT right_leg 5
#CONSTANT right_foot 6
#CONSTANT left_leg 7
#CONSTANT left_foot 8
autocam off
rem make roxy
load image "roxy.jpg",444
make object box 222, 500, 300 , 300
position object 222,1733,88,2500
texture object 222,444
rem make roxydoor
load image "roxydoor.jpg",555
make object box 111, 50, 140 , 66
position object 111,1965,56,2400
texture object 111,555
rem make limb 0
make object box robot, 50, 65 , 30
hide limb robot,0
offset limb robot,0, 0,13,0
position object robot,2555,70,2500
rem attach a neck
make object cylinder 2,10
scale object 2, 60,160,60
make mesh from object neck,2
delete object 2
add limb robot,neck,neck
offset limb robot,neck, 0,40,0
load image "peterneck.jpg",434
texture limb robot, neck,434
rem attach a head
make object sphere 2,30
scale object 2, 60,100,40
make mesh from object head,2
delete object 2
add limb robot, head, head
link limb robot, neck, head
offset limb robot, head, 0,20,0
load image "peter.jpg",111
texture limb robot, head,111
rotate limb robot,head,0,-90,0
rem attach right arm
make object cylinder 2,60
scale object 2, 20,100,20
make mesh from object right_arm, 2
delete object 2
add limb robot, right_arm, right_arm
offset limb robot,right_arm, -30.2,5,-10
rotate limb robot, right_arm, 30,0,0
rem attach left arm
make object cylinder 2,60
scale object 2, 20,100,20
make mesh from object left_arm, 2
delete object 2
add limb robot, left_arm, left_arm
offset limb robot,left_arm, 30.2,5,-10
rotate limb robot, left_arm, 30,0,0
rem attach right leg
make object cylinder 2,40
scale object 2, 35,130,35
make mesh from object right_leg, 2
delete object 2
add limb robot, right_leg, right_leg
offset limb robot,right_leg, -10.5,-22,10
load image "petertrousers.jpg",563
texture limb robot, right_leg,563
load image "boot.jpg",999
rem attach right foot
make object sphere 2, 100
scale object 2,10,10,25
make mesh from object right_foot, 2
delete object 2
add limb robot, right_foot, right_foot
link limb robot, right_leg, right_foot
offset limb robot, right_foot, -10,-44,-4
texture limb robot,right_foot,999
rem attach left leg
make object cylinder 2,40
scale object 2, 35,130,35
make mesh from object left_leg, 2
delete object 2
add limb robot, left_leg, left_leg
offset limb robot,left_leg, 10.5,-22,10
texture limb robot, left_leg,563
rem attach left foot
make object sphere 2, 100
scale object 2,10,10,25
make mesh from object left_foot, 2
delete object 2
add limb robot, left_foot, left_foot
link limb robot, left_leg, left_foot
offset limb robot, left_foot, 10,-44,-4
texture limb robot,left_foot,999
rem peter stomach
make object sphere 280, 100
scale object 280,55,56,66
glue object to limb 280,robot,0
load image "peterjacket.jpg",123
texture object 280,123
yrotate object 280,-90
color backdrop rgb(33,0,0)
load object "hair.x",433
scale object 433,300,300,300
position object 433,2655,2,2500
load image "hair.jpg",77
texture object 433,77
load object "m16.x",533
scale object 533,130,130,130
position object 533,2755,20,2500
load object "Magnum.x",633
scale object 633,300,300,300
position object 633,2800,11,2500
load object "free_injector_3DS.3DS",733
scale object 733,10,20,10
position object 733,2895,23,2500
load object "mac11.3ds",833
scale object 833,600,600,600
position object 833,2925,63,2500
make matrix 1,10000,10000,100,100
load image "scrap.jpg",2
prepare matrix texture 1, 2, 2,2
for xTile=0 to 30
for zTile=0 to 30
set matrix tile 1,xTile,zTile,rnd(3)+1
next zTile
next xTile
update matrix 1
make object box 10,2,20,2
make mesh from object 1,10:delete object 10
make object cube 10,5:add limb 10,1,1:offset limb 10,1,7,-7,15
add limb 10,2,1:offset limb 10,2,0,10,0
link limb 10,0,1:link limb 10,1,2
hide limb 10,1
delete mesh 1
hide limb 10,0
x#=2500
z#=2500
make object box 11,0.7,200,0.7
xrotate object 11,-90
hide object 11
make object sphere 888,100
lock vertexdata for limb 888,0
for i = 1 to 360
xtwo# = get vertexdata position x(i)
ytwo# = get vertexdata position y(i)
ztwo# = get vertexdata position z(i)
set vertexdata position i,xtwo#,ytwo#+rnd(88),ztwo#
next i
unlock vertexdata
position object 888,2450,12,2450
sync on: sync rate 0
do
asb#=asb#+10
if asb#=1500 then asb#=0
if asb#=<500
move object robot,-0.025
yrotate object robot,180
rotate limb robot,left_leg, rnd(13),0,0
rotate limb robot,left_foot, rnd(15),0,0
rotate limb robot,right_leg, rnd(13),0,0
rotate limb robot,right_foot, rnd(15),0,0
endif
if asb# =>1000
move object robot,-0.025
rotate limb robot,left_leg, rnd(13),0,0
rotate limb robot,left_foot, rnd(15),0,0
rotate limb robot,right_leg, rnd(13),0,0
rotate limb robot,right_foot, rnd(15),0,0
Endif
as#=as#+10
if as#=1500 then as#=0
if as#=<500
text object screen x(robot), object screen y(robot)-79, "I am evil! I am evil!"
Endif
if as# =>1000
text object screen x(robot), object screen y(robot)-79, "young skallywag!"
Endif
POSITION MOUSE 0,0
hide mouse
set cursor 0,30
print "x:"+str$(camera position x())
set cursor 0,50
print "z:"+str$(camera position z())
if mouseclick()=1
set cursor 0,0
print "left mouse button"
show object 11
position object 11,LIMB POSITION X(10, 1),LIMB POSITION y(10, 1),LIMB POSITION z(10, 1)
else
hide object 11
endif
if mouseclick()=1 and OBJECT COLLISION(11, robot)
yrotate object robot,rnd(45)
zrotate object robot,90
endif
yrotate object 11,object angle y(10)
xrotate object 11,wrapvalue(camera angle X()-90)
zrotate object 11,LIMB angle z(10, 1)
vx#=mousemovex():vy#=mousemovey()
ax#=wrapvalue(ax#+vy#)
ay#=wrapvalue(ay#+vx#)
cay#=curveangle(ay#,camera angle y(),20)
cax#=curveangle(ax#,camera angle x(),20)
rotate camera cax#,cay#,0
ox#=x#:oz#=z#:move=0
if keystate(17)=1 then x#=newxvalue(x#,cay#,d#):z#=newzvalue(z#,cay#,d#):move=1
if keystate(31)=1 then x#=newxvalue(x#,cay#+500,d#):z#=newzvalue(z#,cay#+500,d#):move=1
if keystate(32)=1 then x#=newxvalue(x#,cay#+90,d#):z#=newzvalue(z#,cay#+90,d#):move=1
if keystate(30)=1 then x#=newxvalue(x#,cay#-90,d#):z#=newzvalue(z#,cay#-90,d#):move=1
d#=1
if move>0
walk#=walk#+d#*4
endif
y#=curvevalue(60,y#,20)
if controlkey()=1 then y#=curvevalue(15,y#,20):d#=0.5
position camera x#,70+(y#+sin(walk#)*3),z#
position object 10,camera position x(),camera position y(),camera position z()
rotate limb 10,1,-90,wrapvalue(camera angle y()),0
rotate object 10,wrapvalue(camera angle x()-5.5),wrapvalue(camera angle y()-5.5),0
sync
loop
Love is the destiny of mankind as it was in the beginning as it will be for all time.