Plugin a=JIAMI.Test2()
Rem ts1
If a=0
     j=inputbox("此精灵只供XXXXXX群人员使用!每日使用前要激活!关于激活码详见群公告栏","激活框","")
     Plugin m=JIAMI.Test1(j)
     If m=1 or m=2 or m=3 or m=4 or m=5
         Plugin t= TISHIKUANG.Test1(m,5-m)
         Goto z1000
     ElseIf m=6
         Plugin t= TISHIKUANG.Test1(m,0)
         Goto z0
     ElseIf m=7
         Plugin t= TISHIKUANG.Test1(m,0)/
         Goto z1000
     EndIf  
ElseIf a=1
     Goto z0
ElseIf a=2
     Plugin t= TISHIKUANG.Test1(7,0)
     Goto z1000