Sorry your browser is not supported!

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