equal
deleted
inserted
replaced
601 |
601 |
602 procedure SpawnBoxOfSmth; |
602 procedure SpawnBoxOfSmth; |
603 var i, x, y, k: integer; |
603 var i, x, y, k: integer; |
604 b: boolean; |
604 b: boolean; |
605 begin |
605 begin |
606 exit; // hack |
606 exit; // temp hack until boxes are fully implemented |
607 if CountGears(gtCase) > 2 then exit; |
607 if CountGears(gtCase) > 2 then exit; |
608 k:= 7; |
608 k:= 7; |
609 repeat |
609 repeat |
610 x:= getrandom(2000) + 24; |
610 x:= getrandom(2000) + 24; |
611 {$IFDEF DEBUGFILE}AddFileLog('SpawnBoxOfSmth: check x = '+inttostr(x));{$ENDIF} |
611 {$IFDEF DEBUGFILE}AddFileLog('SpawnBoxOfSmth: check x = '+inttostr(x));{$ENDIF} |