0 Members and 2 Guests are viewing this topic.
For(P,0,C)If abs({P*2+L1+1}-Y)<7If abs({P*2+L1}-X)<7E--EndEndEndText(40,1,"HEALTH:")Rect(66,2,(66+(E/2)),5)If E<12->NReturnEnd
For(P,0,C)If {P*2+L1+1}-Y<7+({P*2+L1+1}-Y>65529)*({P*2+L1}-X<7+({P*2+L1+1}-X>65529))E--EndEndText(40,-39,"HEALTH:") //"-" is subtract, not negativeRect(66,-64,E/2,3) //"-" is subtract; the third/fourth arguments are how long/wide the rectangle is, not end pointsIf E<12->NReturnEnd
Try:Code: [Select]For(P,0,C)If {P*2+L1+1}-Y<7+({P*2+L1+1}-Y>65529)*({P*2+L1}-X<7+({P*2+L1+1}-X>65529))E--EndEndText(40,-39,"HEALTH:") //"-" is subtract, not negativeRect(66,-64,E/2,3) //"-" is subtract; the third/fourth arguments are how long/wide the rectangle is, not end pointsIf E<12->NReturnEndAlso, I fixed the double If because it might help your problem
For(P,0,C)If abs({P*2+L1+1}-Y<7)*abs({P*2+L1}-X<7)E--EndEndText(40,-39,"HEALTH:") //"-" is subtract, not negativeRect(66,-64,E/2,3) //"-" is subtract; the third/fourth arguments are how long/wide the rectangle is, not end pointsIf E<12->NReturnEnd