[Crystal]

Знаю, что ничего нового на скрине )
Просто меня прикололо как выглядит.
Какбудто банку трёхлитровую с горохом рассыпали )
Их тут кстати 5000.



Если комуто интересно как это работает, выкладываю код.
Только учтите система тормозная, и лучше так не делать )

    If a\d#=1 And a\PS#=0 And a\T#=23 And a\ZPPS#=2 Then
    PointEntity a\entity,PolevoyShpat
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,PolevoyShpat)<1 And a\PS#<23 Then
    a\v#=0.0
    a\PS#=a\PS#+0.1
    If a\PS#>23 Then a\PS#=23
    If a\PS#=23 Then a\T#=0
    End If
    
    
    If a\PS#=23 And a\UPPS#=0 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS1
    a\v#=0.1
    End If    
        
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS1)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=1
    End If
    
    If a\PS#=23 And a\UPPS#=1 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS2
    a\v#=0.1
    End If    
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS2)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=2
    End If
    
    If a\PS#=23 And a\UPPS#=2 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS3
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS3)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=3
    End If
    
    If a\PS#=23 And a\UPPS#=3 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS4
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS4)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=5
    End If
    
    If a\PS#=23 And a\UPPS#=5 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS5
    a\v#=0.1
    End If        
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS5)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=6
    End If
    
    If a\PS#=23 And a\UPPS#=6 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS6
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS6)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=7
    End If
    
    If a\PS#=23 And a\UPPS#=7 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS7
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS7)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=8
    End If
    
    If a\PS#=23 And a\UPPS#=8 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS8
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS8)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=9
    End If
    
    If a\PS#=23 And a\UPPS#=9 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS9
    a\v#=0.1
    End If
    
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS9)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=9
    End If
    
    If a\PS#=23 And a\UPPS#=9 Then
    PointEntity a\entity,ZavodPPS
    a\v#=0.1
    End If
            
    If EntityDistance(a\entity,ZavodPPS)<1 And a\PS#>0 Then
    a\v#=0.0
    a\PS#=0
    a\UPPS#=0
    a\ZPPS#=1
    End If
    
    If EntityDistance(a\entity,ZavodPPS)<1 And a\PS#=0 Then
    a\T#=a\T#+0.1
    If a\T#>23 Then
    a\T#=23
    a\r#=0
    End If
    End If
        
    
    
    
    
    If a\d#=1 And a\PS#=0 And a\T#=23 And a\ZPPS#=1 And a\UPPS#=0 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS1
    a\v#=0.1
    End If    
        
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS1)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=1
    End If
    
    If a\T#=23 And a\UPPS#=1 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS2
    a\v#=0.1
    End If    
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS2)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=2
    End If
    
    If a\T#=23 And a\UPPS#=2 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS3
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS3)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=3
    End If
    
    If a\T#=23 And a\UPPS#=3 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS4
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS4)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=5
    End If
    
    If a\T#=23 And a\UPPS#=5 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS5
    a\v#=0.1
    End If        
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS5)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=6
    End If
    
    If a\T#=23 And a\UPPS#=6 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS6
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS6)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=7
    End If
    
    If a\T#=23 And a\UPPS#=7 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS7
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS7)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=8
    End If
    
    If a\T#=23 And a\UPPS#=8 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS8
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS8)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=9
    End If
    
    If a\T#=23 And a\UPPS#=9 Then
    PointEntity a\entity,UP2_PolevoyShpat_ZavodPPS9
    a\v#=0.1
    End If
    
    
    If EntityDistance(a\entity,UP2_PolevoyShpat_ZavodPPS9)<1 And a\T#=23 Then
    a\v#=0.0
    a\UPPS#=9
    End If
    
    If a\T#=23 And a\UPPS#=9 Then
    PointEntity a\entity,PolevoyShpat
    a\v#=0.1
    End If
            
            
            
            
    If EntityDistance(a\entity,PolevoyShpat)<1 And a\PS#<23 Then
    a\v#=0.0
    a\PS#=a\PS#+0.1
    If a\PS#>23 Then a\PS#=23
    If a\PS#=23 Then a\T#=0
    a\UPPS#=0
    a\ZPPS#=0
    End If
    
    
    If a\PS#=23 And a\UPPS#=0 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS1
    a\v#=0.1
    End If    
        
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS1)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=1
    End If
    
    If a\PS#=23 And a\UPPS#=1 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS2
    a\v#=0.1
    End If    
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS2)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=2
    End If
    
    If a\PS#=23 And a\UPPS#=2 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS3
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS3)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=3
    End If
    
    If a\PS#=23 And a\UPPS#=3 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS4
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS4)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=5
    End If
    
    If a\PS#=23 And a\UPPS#=5 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS5
    a\v#=0.1
    End If        
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS5)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=6
    End If
    
    If a\PS#=23 And a\UPPS#=6 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS6
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS6)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=7
    End If
    
    If a\PS#=23 And a\UPPS#=7 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS7
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS7)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=8
    End If
    
    If a\PS#=23 And a\UPPS#=8 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS8
    a\v#=0.1
    End If
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS8)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=9
    End If
    
    If a\PS#=23 And a\UPPS#=9 Then
    PointEntity a\entity,UP_PolevoyShpat_ZavodPPS9
    a\v#=0.1
    End If
    
    
    If EntityDistance(a\entity,UP_PolevoyShpat_ZavodPPS9)<1 And a\PS#=23 Then
    a\v#=0.0
    a\UPPS#=9
    End If
    
    If a\PS#=23 And a\UPPS#=9 Then
    PointEntity a\entity,ZavodPPS
    a\v#=0.1
    End If
            
    If EntityDistance(a\entity,ZavodPPS)<1 And a\PS#>0 Then
    a\v#=0.0
    a\PS#=0
    a\UPPS#=0
    a\ZPPS#=1
    End If
    
    If EntityDistance(a\entity,ZavodPPS)<1 And a\PS#=0 Then
    a\T#=a\T#+0.1
    If a\T#>23 Then
    a\T#=23
    a\r#=0
    End If
    End If