Sorry your browser is not supported!

sync on : sync rate 60 : backdrop off

REM COMMENT THE NEXT LINE TO DISABLE IMAGES
b2SetUnits 0.1,0.017453292519943295769236907684886

myworld = b2CreateWorld(-2000,-2000,2000,2000,0,500,1)

floorbody = b2CreateBoxBody(myworld,800,20,0,0,0.5)
b2PositionBody floorbody,512,700
BodyCount = 1

dim Bodies(-1) as integer

ink rgb(200,200,200),0

for I = 1 to 10

   blockbody = b2createboxbody(myworld,100,15,1,0,0.5)
   b2positionbody blockbody,rnd(700)+100,500

NExt I

for I = 1 to 5

   blockbody = b2createboxbody(myworld,20,20,0.1,0,0.5)
   b2positionbody blockbody,rnd(700)+100,500

NExt I

for I = 1 to 5

   blockbody = b2createboxbody(myworld,25,25,5,0,0.5)
   b2positionbody blockbody,rnd(700)+100,500

NExt I


for I = 1 to 5

   blockbody = b2createboxbody(myworld,175,5,1,0,0.5)
   b2positionbody blockbody,rnd(700)+100,500

NExt I

do
    b2Step myworld
    b2DrawDebugInfo myworld,0,0,1,1,1

    If mouseclick() = 2 and rnd(2) = 1
      circlebody = b2createcirclebody(myworld,5,0.1,0,0.5)
      b2positionbody circlebody,mousex(),mousey()
    endif

    text 0,0,str$(screen fps())
    text 0,20,"Body count: "+str$(BodyCount)
    sync
    cls 0
loop

sync on : sync rate 60 : backdrop off

`Not sure what this does. You should probably have it before any program with the plugin, tho. Its weird without it.
b2SetUnits 0.1,0.017453292519943295769236907684886

`This creates the world.
myworld = b2CreateWorld(-2000,-2000,2000,2000,0,500,1)

`This makes the floor to build on. It has a density of 0, so it will stay in place.
floorbody = b2CreateBoxBody(myworld,800,20,0,0,0.5)
b2PositionBody floorbody,512,700

ink rgb(200,200,200),0

`These are variables that will be explained later
click = 1
oldmousex = 0
oldmousey = 0
lastmousex = 0
lastmousey = 0
lastshape = 0
Posx = 0
Posy = 0
density# = 0.5
clickdelay = -1

do
   CLS

    `not sure what these do yet
    b2Step myworld
    b2DrawDebugInfo myworld,0,0,1,1,1

    `This is used to make a delay between clicks so the game doesn't register one click as a trillion
    If clickdelay > -1 then clickdelay = clickdelay - 1

    `This puts it into build mode (If click = 2 then it is in build mode). It also records the mouse coordinates for building.
    If mouseclick() = 2 and click = 1 and clickdelay = -1

        click = 2
        oldmousex = mousex()
        oldmousey = mousey()
        clickdelay = 10

    endif

    `This cancels the build mode and puts it back into drag mode
    If mouseclick() = 2 and click = 2 and clickdelay = -1 then click = 1:clickdelay = 10

    `Makes the last shape made again
    If mouseclick() = 4 and click = 1 and clickdelay = -1 and lastshape <> 0

      clickdelay = 10
      If lastshape = 1 then body = b2createboxbody(myworld,abs(lastmousex-oldmousex),abs(lastmousey-oldmousey),density#,0,0.5):b2positionbody body,mousex(),mousey()
      If lastshape = 2 then body = b2createcirclebody(myworld,Get_Distance(oldmousex,oldmousey,lastmousex,lastmousey)/2,density#,0,0.5):b2positionbody body,mousex(),mousey()

      clickdelay = 10

    endif

    `This makes a box. It could probably have been done better, so there's no point commenting on my crappy code here
    If mouseclick() = 1 and click = 2 and mousex() <> oldmousex and mousey() <> oldmousey and clickdelay = -1
        click = 1
        If mousex() > oldmousex then posx = oldmousex+(0.5*(mousex()-oldmousex))
        If mousey() > oldmousey then posy = oldmousey+(0.5*(mousey()-oldmousey))
        If mousex() < oldmousex then posx = mousex()+(0.5*(oldmousex-mousex()))
        If mousey() < oldmousey then posy = mousey()+(0.5*(oldmousey-mousey()))

        blockbody = b2createboxbody(myworld,abs(mousex()-oldmousex),abs(mousey()-oldmousey),density#,0,0.5)
        b2positionbody blockbody,posx,posy

        clickdelay = 10
        lastshape = 1
        lastmousex = mousex()
        lastmousey = mousey()

    endif

    `This makes a circle
    If mouseclick() = 4 and click = 2 and mousex() <> oldmousex and mousey() <> oldmousey and clickdelay = -1

        `These two commands make and position the circle at the current mouse position
       circlebody = b2createcirclebody(myworld,Get_Distance(oldmousex,oldmousey,mousex(),mousey())/2,density#,0,0.5)
       b2positionbody circlebody,oldmousex,oldmousey

       click = 1
       clickdelay = 10
       lastshape = 2
       lastmousex = mousex()
       lastmousey = mousey()

    endif

    If click = 2 then linebox(oldmousex,oldmousey,mousex(),mousey()):circle oldmousex,oldmousey,get_distance(oldmousex,oldmousey,mousex(),mousey())/2

    `If you press a number button, record it as the density
    If scancode() >= 2 and scancode() <= 10 then density# = scancode() - 1
    If scancode() = 11 then density# = 0

    `Debug and help info
    If click = 1 then text 0,0,"Drag mode"
    If click = 2 then text 0,0,"Build mode"
    text 0,20,"Density of block: "+str$(density#)
    text 0,40,"LMB to drag shapes"
    Text 0,60,"RMB button for build mode"
    Text 0,80,"Followed by:"
    Text 0,100,"--LMB for box"
    Text 0,120,"--MMB for circle"
    Text 0,140,"--RMB to leave build mode"
    Text 0,160,"MMB to make last shape"
    If clickdelay > -1 then Text 0,180,"Click delay"
    IF click = 2 then Text 0,200,"Dis X: "+str$(mousex()-oldmousex)+", Dis Y: "+str$(mousey()-oldmousey)
    sync
    cls 0
loop

`This gets the distance between 2 coordinates
Function get_Distance(x1,y1,x2,y2)

    result# = sqrt((x2-x1)^2+(y2-y1)^2)
    result# = abs(result#)

Endfunction result#

Function linebox(x1,y1,x2,y2)

   line x1,y1,x2,y1
   line x1,y1,x1,y2
   line x2,y1,x2,y2
   line x1,y2,x2,y2

Endfunction

sync on
b2SetUnits 0.1,0.017453292519943295769236907684886
rem Water Size
rem Try diffrent sizes
#constant WATERSIZE = 1
rem Max water amount
rem how much ripples you can draw until engine starts to remove old ripples
#constant MAXWATER = 400
Rem Water Shape
Rem 1 = Box 2 = Circle
#constant WATERSHAPE = 1
global wat
MyWorld = b2CreateWorld(-2000,-2000,2000,2000,0,50,1)
MyFloor = b2CreateBoxBody(MyWorld, screen width(), 50, 0, 0.3, 5)
b2PositionBody MyFloor,screen width()/2,screen height()-50
CreateWater(MyWorld,500,1)
do
if mouseclick() then CreateWater(MyWorld,mousex(),mousey())
b2Step MyWorld
b2DrawDebugInfo MyWorld,0,0,1,1,0
fastsync
cls 0
loop

Function CreateWater(MyWorld,x,y)
 if wat<MAXWATER then inc wat,1:global dim water(wat,2) as integer
 if wat=MAXWATER then del=Longest():b2DeleteBody MyWorld,water(del,0):water(del,2)=0
 if wat<MAXWATER then del=wat
 if WATERSHAPE = 1 then water(del,0) = b2CreateBoxBody(MyWorld,WATERSIZE,WATERSIZE,2,0,0)
 if WATERSHAPE = 2 then water(del,0) = b2CreateCircleBody(MyWorld,WATERSIZE,2,0,0) 
 water(del,1) = timer()
 water(del,2) = 1
 b2PositionBody water(del,0),x,y
Endfunction

Function Longest()
 for x=1 to wat
  if water(x,2)=1
   if timer()-water(x,1)>longes then longes=timer()-water(x,1):long=x
  endif
 next x
Endfunction long

REM Ragdoll Demo for Box2D by SteveW

scw=1280
sch=1024



set display mode scw,sch,32
sync on : sync rate 60 : backdrop off

REM COMMENT THE NEXT LINE TO DISABLE IMAGES
b2SetUnits 0.1,0.017453292519943295769236907684886

myworld = b2CreateWorld(-2000,-2000,2000,2000,0,500,1)

floorbody = b2CreateBoxBody(myworld,scw-50,20,0,0,0.5)
b2PositionBody floorbody,scw/2,sch-100

ink rgb(200,200,200),0

for I = 1 to 10

   blockbody = b2createboxbody(myworld,75,75,.9,0,0.5)
   b2positionbody blockbody,rnd(scw-200)+200,rnd(sch/2)

NExt I

for I = 1 to 10

   circlebody = b2createcirclebody(myworld,15,.7,0,0.5)
   b2positionbody circlebody,rnd(scw-200)+200,rnd(sch/2)

NExt I

      bodyx=scw/2
      bodyy=50
      density#=.5

      head = b2createcirclebody(myworld,20,density#,.2,.5)
      b2positionbody head,bodyx,bodyy

      neck = b2createboxbody(myworld,20,10,density#,.2,.5)
      b2positionbody neck,bodyx,bodyy+25
      neckjoint=b2createrevolutejoint(myworld,head,neck,bodyx,bodyy+20)

      body = b2createboxbody(myworld,30,60,density#,.2,.5)
      b2positionbody body,bodyx,bodyy+55
      bodyjoint=b2createrevolutejoint(myworld,neck,body,bodyx,bodyy+30)

      armru= b2createboxbody(myworld,40,10,density#,.2,.5)
      b2positionbody armru,bodyx-37,bodyy+25
      armrujoint=b2createrevolutejoint(myworld,armru,body,bodyx-15,bodyy+25)

      armrl= b2createboxbody(myworld,40,10,density#,.2,.5)
      b2positionbody armrl,bodyx-77,bodyy+25
      armrljoint=b2createrevolutejoint(myworld,armru,armrl,bodyx-57,bodyy+25)

      armlu= b2createboxbody(myworld,40,10,density#,.2,.5)
      b2positionbody armlu,bodyx+37,bodyy+25
      armlujoint=b2createrevolutejoint(myworld,armlu,body,bodyx+15,bodyy+25)

      armll= b2createboxbody(myworld,40,10,density#,.2,.5)
      b2positionbody armll,bodyx+77,bodyy+25
      armlljoint=b2createrevolutejoint(myworld,armlu,armll,bodyx+57,bodyy+25)

      pelvis = b2createboxbody(myworld,30,20,density#,.2,.5)
      b2positionbody pelvis,bodyx,bodyy+95
      bodyjoint=b2createrevolutejoint(myworld,pelvis,body,bodyx,bodyy+95)

      legru= b2createboxbody(myworld,10,50,density#,.2,.5)
      b2positionbody legru,bodyx-9,bodyy+130
      legrujoint=b2createrevolutejoint(myworld,legru,pelvis,bodyx-9,bodyy+105)

      legrl= b2createboxbody(myworld,10,50,density#,.2,.5)
      b2positionbody legrl,bodyx-9,bodyy+180
      legrljoint=b2createrevolutejoint(myworld,legrl,legru,bodyx-9,bodyy+155)

      footr= b2createboxbody(myworld,20,10,density#,.2,.5)
      b2positionbody footr,bodyx-14,bodyy+210
      footrjoint=b2createrevolutejoint(myworld,footr,legrl,bodyx-9,bodyy+200)

      leglu= b2createboxbody(myworld,10,50,density#,.2,.5)
      b2positionbody leglu,bodyx+9,bodyy+130
      leglujoint=b2createrevolutejoint(myworld,leglu,pelvis,bodyx+9,bodyy+105)

      legll= b2createboxbody(myworld,10,50,density#,.2,.5)
      b2positionbody legll,bodyx+9,bodyy+180
      leglljoint=b2createrevolutejoint(myworld,legll,leglu,bodyx+9,bodyy+155)

      footl= b2createboxbody(myworld,20,10,density#,.2,.5)
      b2positionbody footl,bodyx+14,bodyy+210
      footljoint=b2createrevolutejoint(myworld,footl,legll,bodyx+9,bodyy+200)


do

    b2Step myworld
    b2DrawDebugInfo myworld,0,0,1,1,1

ink rgb(200,200,200),0
    b2Step myworld

    rem box 50,890,1230,910
    text 0,0,str$(screen fps())
    text 0,20,"Esc to Exit"
    sync
    cls 0
loop

REM Rope Bridge Demo for Box2D by SteveW

   scw=800
   sch=600
   linktotal=30

   dim link(linktotal+1)
   dim linkjoint(linktotal+1)
   dim Boxes(-1) as integer

   set display mode scw,sch,32
   sync on : sync rate 60 : backdrop off

   REM COMMENT THE NEXT LINE TO DISABLE IMAGES
   b2SetUnits 0.1,0.017453292519943295769236907684886
   myworld = b2CreateWorld(-2000,-2000,2000,2000,0,400,1)
   floorbody = b2CreateBoxBody(myworld,399,50,0,0,0.5)
   b2PositionBody floorbody,400,574
   cliff1body = b2CreateBoxBody(myworld,200,400,0,0,0.5)
   b2PositionBody cliff1body,100,399
   cliff2body = b2CreateBoxBody(myworld,200,400,0,0,0.5)
   b2PositionBody cliff2body,699,399

   ink rgb(200,200,200),0

   density#=1
   restitution#=.1
   friction#=.5
   bodyy=205
   boxy=sch-135
   boxsizex=400/linktotal
   bodyx=200+boxsizex/2
   objectnum=1
   breakbridge=0

   link(objectnum)= b2createboxbody(myworld,boxsizex+4,10,density#,restitution#,friction#)
   b2positionbody link(objectnum),200,bodyy
   anchorjoint1=b2createrevolutejoint(myworld,link(objectnum),cliff1body,200,bodyy)

for i=200+boxsizex to 600 step boxsizex
   objectnum=objectnum+1
   link(objectnum)= b2createboxbody(myworld,boxsizex+4,10,density#,restitution#,friction#)
   b2positionbody link(objectnum),i,bodyy
   linkjoint(objectnum)=b2createrevolutejoint(myworld,link(objectnum),link(objectnum-1),i,bodyy)

next i
   anchorjoint2=b2createrevolutejoint(myworld,link(objectnum),cliff2body,600,bodyy)

do
   b2Step myworld
   b2DrawDebugInfo myworld,0,0,1,1,1
   ink rgb(200,200,200),0

   If mouseclick() = 2 and rnd(2) = 1
      boxbody = b2createboxbody(myworld,20,20,.01,.1,.5)
      b2positionbody boxbody,mousex(),mousey()
   endif

   if spacekey() and rnd(2)=1 and breakbridge=0
      breakbridge=1
      b2DeleteJoint myworld,anchorjoint1
   endif

   text 0,0,str$(screen fps())
   text 0,10,"right button adds boxes"
   text 0,20,"spacebar cuts the rope"
   text 0,30,"Esc to Exit"
   sync
   cls 0

loop

sync on : sync rate 60 :Set Display Mode 1280,1024,32
backdrop off

b2SetUnits 0.1,0.017453292519943295769236907684886

MyWorld = b2CreateWorld(-2000,-2000,2000,2000,0,500,0)

floorbody = b2CreateBoxBody(MyWorld,1000,20,0,0,1)
b2PositionBody floorbody,512,700

dim Boxes(-1) as integer
pulleybox1 = b2CreateBoxBody(MyWorld,80,20,1,0.1,1)
b2positionbody pulleybox1,300,800
b2enablebodyrotation pulleybox1,0
pulleybox2 = b2CreateBoxBody(MyWorld,80,20,1,0.1,1)
b2positionbody pulleybox2,700,750
b2enablebodyrotation pulleybox2,0
pjoint = b2CreatePulleyJoint(MyWorld,pulleybox1,pulleybox2,30,80,70,75,30,70,70,70,14,14,1)

for y = 0 to 20
    for x = 0 to y
        tempbody = b2CreateBoxBody(MyWorld,20,20,1,0.1,1)
         b2PositionBody tempbody,512+(x*20)-(y*10),(y*20)+280
        If y = 0 and x = 0
         `rjoint = b2CreatePrismaticJoint(MyWorld,tempbody,floorbody,512,500,0,0)
        Endif
        array insert at top Boxes(0)
        Boxes(0) = tempbody
    next x
next y

do
   Cls

   Set Cursor 0,0
    b2Step MyWorld
    c = array count(Boxes(0))
    for i = 0 to c
        tempbody = Boxes(i)
    next i
    b2DrawDebugInfo MyWorld,0,0,1,1,1
    text 0,0,str$(screen fps())
    sync
loop