Code

[Lord Tony Spike]

Those of you who are into coding may post your code snippets here

[Lord Tony Spike]

Single Entrance Code

Makes wrestlers enter from only 1 side of the arena

PLAYERS.BB

;default positions
  pOutTim(cyc)=0 : pFoc(cyc)=0
  If pRole(cyc)=0
   curtainSlot(pCurtain(cyc))=curtainSlot(pCurtain(cyc))+1
   If matchTeams=0
    slotter=(no_wrestlers-(no_wrestlers/2))-curtainSlot(pCurtain(cyc))
    If slotter<0 Then slotter=0
    If pCurtain(cyc)=1 Then pZ#(cyc)=410+(20*slotter) : pA#(cyc)=180
    slotter=(no_wrestlers/2)-curtainSlot(pCurtain(cyc))
    If slotter<0 Then slotter=0
    If pCurtain(cyc)=2 Then pZ#(cyc)=410+(20*slotter) : pA#(cyc)=180  ;changed -410- to + and 0 to 180
   Else
    If pCurtain(cyc)=1 Then pZ#(cyc)=390+(20*curtainSlot(pCurtain(cyc))) : pA#(cyc)=180
    ;If pCurtain(cyc)=2 Then pZ#(cyc)=-390-(20*curtainSlot(pCurtain(cyc))) : pA#(cyc)=0  ;changed
   If pCurtain(cyc)=2 Then pZ#(cyc)=-390+(20*curtainSlot(pCurtain(cyc))) : pA#(cyc)=180   
EndIf
   pX#(cyc)=0 : pY#(cyc)=wGround#
  EndIf
  If pRole(cyc)=1 
   Repeat
    pX#(cyc)=Rnd(-130,130) : pZ#(cyc)=Rnd(-130,130)
   Until InsideRing(pX#(cyc),pZ#(cyc),0)=0
   pY#(cyc)=wGround# : pA#(cyc)=Rnd(0,360)
   pOutTim(cyc)=100
  EndIf
  If pRole(cyc)=2
   If pZ#(pClient(cyc))>0 Then pZ#(cyc)=pZ#(pClient(cyc))+10 : pA#(cyc)=180 
   If pZ#(pClient(cyc))<0 Then pZ#(cyc)=pZ#(pClient(cyc))+10 : pA#(cyc)=180  ;changed to +10 and 0 to 180
   randy=Rnd(0,1)
   If randy=0 Then pX#(cyc)=pX#(pClient(cyc))+10 Else pX#(cyc)=pX#(pClient(cyc))+10 ;changed -10 to +10 first one
   pY#(cyc)=pY#(pClient(cyc))
  EndIf