equal
deleted
inserted
replaced
50 s:='M{'+inttostr(dig[0])+':' |
50 s:='M{'+inttostr(dig[0])+':' |
51 +inttostr(dig[1])+':' |
51 +inttostr(dig[1])+':' |
52 +inttostr(dig[2])+':' |
52 +inttostr(dig[2])+':' |
53 +inttostr(dig[3])+':' |
53 +inttostr(dig[3])+':' |
54 +inttostr(dig[4])+'}'; |
54 +inttostr(dig[4])+'}'; |
55 //CheckLandDigest(s); |
55 CheckLandDigest(s); |
56 SendIPCRaw(@s[0], Length(s) + 1) |
56 SendIPCRaw(@s[0], Length(s) + 1) |
57 end; |
57 end; |
58 |
58 |
59 procedure CheckLandDigest(s: shortstring); |
59 procedure CheckLandDigest(s: shortstring); |
60 const digest: shortstring = ''; |
60 const digest: shortstring = ''; |
63 AddFileLog('CheckLandDigest: ' + s); |
63 AddFileLog('CheckLandDigest: ' + s); |
64 {$ENDIF} |
64 {$ENDIF} |
65 if digest = '' then |
65 if digest = '' then |
66 digest:= s |
66 digest:= s |
67 else |
67 else |
68 TryDo(s = digest, 'Different maps generated, sorry', true) |
68 // TryDo(s = digest, 'Different maps generated, sorry', true) |
69 end; |
69 end; |
70 |
70 |
71 procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword); |
71 procedure DrawLine(X1, Y1, X2, Y2: LongInt; Color: Longword); |
72 var |
72 var |
73 eX, eY, dX, dY: LongInt; |
73 eX, eY, dX, dY: LongInt; |