(AGK version: 108.14)
Submitted: 2014-02-03 04:02:34
rem color background
setClearColor(0,0,0)

rem create sphere 0001
sphere0001=createObjectSphere(20,20,20)

rem load image
image0001=loadImage("metal.jpg")

rem texture sphere0001 with image0001
setObjectImage(sphere0001,image0001,0)

rem position the camera 80 units behind the sphere
setCameraPosition(1,0,0,-80)

rem main
do

  rem shake camera (earthquake effect)
  for i0001=1 to 360

    rem calculate camera x angle, y angle, and z angle
    cxa#=sin(i0001)*random(0,2)
    cya#=cos(i0001)*random(0,2)
    cza#=tan(i0001)*random(0,2)

    rem update camera angles
    setCameraRotation(1,cxa#,cya#,cza#)

    rem sync
    sync()

  next i0001

loop
Help make AGK better by submitting an example for this command!
(All examples are subject to approval)
Login to post an example of your own.