ไปที่เนื้อหา


รูปภาพ

ให้เทริน2ขุนพลกดกันทำไงอ่ะครับ


  • กรุณาลงชื่อเข้าใช้เพื่อตอบกระทู้
มี 1 โพสต์ตอบกลับกระทู้นี้

#1 yahoo

yahoo

    จอมยุทธใหม่

  • Members
  • 2 โพสต์

โพสต์เมื่อ 14 June 2007 - 10:32:52 PM

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

#2 onitama

onitama

    กัวต้า

  • Members
  • 31 โพสต์

โพสต์เมื่อ 15 June 2007 - 04:38:53 PM

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

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;

งงมะครับ *-*




0 สมาชิกกำลังอ่านกระทู้นี้

0 สมาชิก, 0 ผู้เยี่ยมชม, 0 ผู้ใช้งานที่ซ่อนตัว