1 reply to this topic

[yahoo]

ช่วยบอกทีนะครับ

[onitama]

ก่อนอื่นก็ทำตัวนับรอบก่อนครับ
ประกาศตัวแปรแบบนี้

var TurnCount: word;

ไว้ส่วนบน ๆ ของ script

จากนั้นก็เพิ่มค่ามันเข้าไปเมื่อถึงเทิรนของเรา

ใน procedure MyAttack

แบบนี้

inc(TurnCount);

ทีนี้เราก็ได้ตัวนับรอบละ

จากนั้น ต้องการเอาไปใช้กับขุน ก็ไปทำที่ procedure MyPartnerAttack;

โดยการเพิ่มเงื่อนไขให้เช็คว่ารอบที่ 2 ให้ขุนกดกัน
แบบนี้

if TurnCount = 2 then
begin
sk := 'ป้องกัน';
end
else
begin
sk := 'มือเปล่า';
end;
SendAttack(MyPartner.Row,MyPartner.Col,m.Row,m.Col,sk);

เพื่อให้ค่าของตัวนับรอบไม่ผิดพลาด เมื่อเริ่มต้นสู้ใหม่ เราก็ควรจะเริ่มนับใหม่
โดยไปใส่ค่าเริ่มต้นให้มันทุกครั้งที่เริ่มสู้
การทำงานขณะเริ่มต้นสู้ก็คือ procedure BattleStoped;
แบบนี้

RoundCount := 0;

งงมะครับ *-*