tkinter飞机大战测试程序

"""
   tkinter飞机大战测试程序
   本程序需要gameturtle模块0.2版支持。
   利用标签对敌机和子弹进行分组，也用了颜色对敌机进行了分组。
"""
from gameturtle import *
from random import randint

bimage = Image.new("RGBA",(10,10),color=(255,255,255)) # 用来做子弹的图像
eimage = Image.new("RGBA",(20,40),color=(255,123,0))   # 用来做敌机的图像

root = Tk()                                       # 建窗口
cv = Canvas(width=800,height=600,bg='blue')       # 织画布
cv.pack()                                         # 放画布

# 红色大方块代表玩家飞机
player = GameTurtle(cv,Image.new("RGBA",(100,50),color='red'))

bullets=[]
enemis=[]
counter = 0

while True:
    mx,my = cv.mouse_pos()                        # 鼠标指针
    
    if player.isalive():player.goto(mx,my)        # 没死则移到鼠标指针
    
    counter = counter + 1
    if counter % 10 == 0 and player.isalive() :   # 一定机率产生子弹
        GameTurtle(cv,bimage,pos=(mx,my),heading=-90,tag='zidan')
        x,y = randint(0,800),0
        GameTurtle(cv,eimage,pos=(x,y),heading=90,tag='diren') # 产生敌人
        
    bullets= group(cv,'zidan')                    # 所有的子弹
    [b.fd(10) for b in bullets]                   # 所有子弹移动
    [b.kill() for b in bullets if b.out_canvas()] # 超出画布自删

    enemis= group(cv,'diren')                     # 所有的敌人
    [e.fd(1) for e in enemis]                     # 所有敌人向下移动
    # 超出画布范围或者碰到子弹则删除
    [e.kill() for e in enemis if e.out_canvas() or e.collide_tag('zidan')]
    if  player.isalive():
        if player.collide_color((255,123,0)):player.kill()
    cv.update()
    time.sleep(0.01)