Simba Code:RockPattern:=[1,5,9,13,17,21,2,6,10,14,18,22,3,7,11,15,19,23,4,8,12,16,20,24];
OreMid := DTMFromString('78DA63CC626260E0606440054C601226CA584' +
'C849A3C209F8F809A6C209F19BF1A00AD2101F4');
For I:=0 to 23 Do
Begin
StatsGuise('Dropping Ores: ' + IntToStr(I));
SlotBox:=InvBox(RockPattern[I]);
If FindDTm(OreMid, X, Y, SlotBox.X1, SlotBox.Y1, SlotBox.X2, SlotBox.Y2) Then
Begin
Writeln('dtm found');
Writeln('I is:' + IntToStr(I));
If I=0 Or 6 Or 12 or 18 Then
Begin
Writeln('TopBox');
I get the Writeln('I is:' + IntToStr(I)); to say I is:0, but then then it should say 'TopBox' because
Simba Code:If I=0 Or 6 Or 12 or 18 Then
Begin
Writeln('TopBox');
but it doesn't, why not??










Reply With Quote