bradwall
Level: Smiter
Rank Points: 423
Registered: 02-12-2003
IP: Logged
|
Re: DRODtris (0)
Yeah, so far my code looks like this:
For d = 35 To 10 Step -1
For e = 10 To 19
pSN = G1(e, d)
If G1(e, d) <> 0 Then
drawx = (e - 10) * 14
drawy = (d - 10) * 14
If G1(e, d) = 6 Then 'Tar is 6
If (G1(e + 1, d) = 6 And G1(e - 1, d) = 6 And G1(e, d + 1) <> 6 And G1(e, d - 1) = 6) Then
'Tar is bottom tar.
DrawBlock drawx, drawy, 9, 1, 1
ElseIf (G1(e + 1, d) = 6 And G1(e - 1, d) <> 6 And G1(e, d + 1) <> 6 And G1(e, d - 1) = 6) Then
'Tar is bottom left tar.
DrawBlock drawx, drawy, 10, 1, 1
ElseIf (G1(e + 1, d) <> 6 And G1(e - 1, d) = 6 And G1(e, d + 1) <> 6 And G1(e, d - 1) = 6) Then
'Tar is bottom right tar.
DrawBlock drawx, drawy, 11, 1, 1
ElseIf (G1(e + 1, d) = 6 And G1(e - 1, d) <> 6 And G1(e, d + 1) = 6 And G1(e, d - 1) = 6) Then
'Tar is left side tar.
DrawBlock drawx, drawy, 12, 1, 1
ElseIf (G1(e + 1, d) = 6 And G1(e - 1, d) = 6 And G1(e, d + 1) = 6 And G1(e, d - 1) = 6) Then
'Tar is middle tar.
DrawBlock drawx, drawy, 13, 1, 1
ElseIf (G1(e + 1, d) <> 6 And G1(e - 1, d) = 6 And G1(e, d + 1) = 6 And G1(e, d - 1) = 6) Then
'Tar is right side tar.
DrawBlock drawx, drawy, 14, 1, 1
ElseIf (G1(e + 1, d) = 6 And G1(e - 1, d) = 6 And G1(e, d + 1) = 6 And G1(e, d - 1) <> 6) Then
'Tar is top tar.
DrawBlock drawx, drawy, 15, 1, 1
ElseIf (G1(e + 1, d) = 6 And G1(e - 1, d) <> 6 And G1(e, d + 1) = 6 And G1(e, d - 1) <> 6) Then
'Tar is top left tar.
DrawBlock drawx, drawy, 16, 1, 1
ElseIf (G1(e + 1, d) <> 6 And G1(e - 1, d) = 6 And G1(e, d + 1) = 6 And G1(e, d - 1) <> 6) Then
'Tar is top right tar.
DrawBlock drawx, drawy, 17, 1, 1
Else
DrawBlock drawx, drawy, 6, 1, 1
End If
End If
End If
Next e
Next d
This obviously doesn't check for tar being the way it should be... but, I will have to look into it and see what I need to do to get it to work right. Thanks for the snipit of code... it will be handy.
|