- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 10
- 11
- 12
- 13
- 14
- 15
- 16
- 17
- 18
- 19
- 20
- 21
- 22
- 23
- 24
- 25
- 26
- 27
- 28
- 29
- 30
- 31
- 32
- 33
- 34
- 35
- 36
- 37
- 38
- 39
- 40
- 41
- 42
- 43
- 44
- 45
- 46
- 47
- 48
- 49
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
TBattleBot = class(TUnit)
fLetaet,fPlyvet:boolean; fBMSpeed:integer;//skorost' kadrov
fCBMm:integer;//количество картинок MOVE
fCBMl:integer;//count lestnica
fCBMu:integer;//count up lestnica
fCBMa:integer;//count attack //
fCBMd:integer;//count damage
fCBMk:integer;//count kill
fMxSp,fMySp,fLxSp,fLySp,fUxSp,fUySp:integer;//skorosti
fBShow:boolean;
fxSnarad,fySnarad:integer;//x y vypuskaemogo snarada otnositelno 0:0-fxbm:fybm
fSxSpeed,fSySpeed:integer;//skorost' snarada
fSPZh:integer;//PZh snarada
fSlvl:integer;//lvl snarada :;
fSBMSpeed:integer;
fSxbm,fSybm,fSxr,fSyr,fSxb,fSyb,fSWidthbm,fSHeightbm,fSWidthr,fSHeightr:integer;//har snarada
fAlgoritm:array [1..10] of TAlgoritm;
fST:integer;//summa vremeni algoritmov
fCA:integer;//kolvo povtorov algoritmov
fTAlgoritm:integer;//Tekushchii algoritm
fDamage:integer; //ataka
fDefence:integer;//zashchyta
fStructure:integer;
fTStructure:integer;//HP
Constructor Create(xbm,ybm,xr,yr,Widthr,Heightr,xb,yb,
CBMm,CBMl,CBMu,CBMa,CBMd,CBMk,BMSpeed,
xSnarad,ySnarad,Sxr,Syr,Sxb,Syb,SxSpeed,SySpeed,SPZh,Slvl,SBMSpeed,
SWidthbm,SHeightbm,SWidthr,SHeightr,
MxSp,MySp,LxSp,LySp,UxSp,UySp,
c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,Damage,Defence,Structure,TStructure:integer;
StBM:string;Stan,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:char;
Levo,Letaet,Plyvet:boolean);
Procedure Attack(Alvl:integer);
end;
//....
Constructor TBattleBot.Create(xbm,ybm,xr,yr,Widthr,Heightr,xb,yb,
CBMm,CBMl,CBMu,CBMa,CBMd,CBMk,BMSpeed,
xSnarad,ySnarad,Sxr,Syr,Sxb,Syb,SxSpeed,SySpeed,SPZh,Slvl,SBMSpeed,
SWidthbm,SHeightbm,SWidthr,SHeightr,
MxSp,MySp,LxSp,LySp,UxSp,UySp,
c1,c2,c3,c4,c5,c6,c7,c8,c9,c10,Damage,Defence,Structure,TStructure:integer;
StBM:string;Stan,s1,s2,s3,s4,s5,s6,s7,s8,s9,s10:char;
Levo,Letaet,Plyvet:boolean);
begin
inherited Create(xbm,ybm,xr,yr,Widthr,Heightr,xb,yb,StBM,Stan,Levo);
fBMSpeed:=BMSpeed;
fStan:=Stan;
fCBMm:=CBMm;
fCBMl:=CBMl;
fCBMa:=CBMa;
fCBMd:=CBMd;
fCBMk:=CBMk;
fLevo:=Levo;
fLetaet:=Letaet;
fPlyvet:=Plyvet;
fxSnarad:=xSnarad;
fySnarad:=ySnarad;
fSxr:=Sxr;
fSyr:=Syr;
fSxb:=Sxb;
fSyb:=Syb;
fSxSpeed:=SxSpeed;
fSySpeed:=SySpeed;
fSPZh:=SPZh;
fSlvl:=Slvl;
fSBMSpeed:=SBMSpeed;
fSWidthbm:=SWidthbm;
fSHeightbm:=SHeightbm;
fSWidthr:=SWidthr;
fSHeightr:=SHeightr;
fMxSp:=MxSp;
fMySp:=MySp;
fLxSp:=LxSp;
fLySp:=LySp;
fUxSp:=UxSp;
fUySp:=UySp;
fAlgoritm[1].Chastota:=c1;
fAlgoritm[2].Chastota:=c2;
//...
fAlgoritm[1].NStan:=s1;
fAlgoritm[2].NStan:=s2;
//...
fCA:=0;
fTAlgoritm:=1;
fDamage:=Damage;
fDefence:=Defence;
fStructure:=Structure;
fTStructure:=TStructure;
end;
Так говнокодил мой друг реалтаймовую игрушку.
Описание юнита.