equal
deleted
inserted
replaced
30 procedure KickFlakes(Radius, X, Y: LongInt); |
30 procedure KickFlakes(Radius, X, Y: LongInt); |
31 procedure DrawVisualGears(Layer: LongWord); |
31 procedure DrawVisualGears(Layer: LongWord); |
32 procedure DeleteVisualGear(Gear: PVisualGear); |
32 procedure DeleteVisualGear(Gear: PVisualGear); |
33 function VisualGearByUID(uid : Longword) : PVisualGear; |
33 function VisualGearByUID(uid : Longword) : PVisualGear; |
34 procedure AddClouds; |
34 procedure AddClouds; |
|
35 procedure ChangeToSDClouds; |
35 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
36 procedure AddDamageTag(X, Y, Damage, Color: LongWord); |
36 |
37 |
37 implementation |
38 implementation |
38 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils; |
39 uses uSound, uMobile, uVariables, uTextures, uRender, Math, uRenderUtils; |
39 |
40 |
556 begin |
557 begin |
557 for i:= 0 to cCloudsNumber - 1 do |
558 for i:= 0 to cCloudsNumber - 1 do |
558 AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud) |
559 AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud) |
559 end; |
560 end; |
560 |
561 |
|
562 procedure ChangeToSDClouds; |
|
563 var i: LongInt; |
|
564 vg, tmp: PVisualGear; |
|
565 begin |
|
566 if cCloudsNumber = cSDCloudsNumber then exit; |
|
567 vg:= VisualGearsList; |
|
568 while vg <> nil do |
|
569 if vg^.Kind = vgtCloud then |
|
570 begin |
|
571 tmp:= vg^.NextGear; |
|
572 DeleteVisualGear(vg); |
|
573 vg:= tmp |
|
574 end |
|
575 else vg:= vg^.NextGear; |
|
576 for i:= 0 to cSDCloudsNumber - 1 do |
|
577 AddVisualGear(cLeftScreenBorder + i * cScreenSpace div (cSDCloudsNumber + 1), LAND_HEIGHT-1184, vgtCloud) |
|
578 end; |
|
579 |
561 procedure initModule; |
580 procedure initModule; |
562 begin |
581 begin |
563 VisualGearsList:= nil; |
582 VisualGearsList:= nil; |
564 end; |
583 end; |
565 |
584 |