//2011.12.22
//脚本启动进入游戏！Sub jinru()
//人物回到复位位置 Sub fuwei()
//选木马  Sub xuanmuma()	
//开技能 Sub openjineng()
//自动寻找目标 Sub xunzhao()
//执行技能1 Sub runjineng1()
//执行技能2 Sub runjineng2()
//判断是否结束 Sub jieshu()
//找到自己  Sub wo()
//聊天提示  Sub liaotian()
//定位 sub dingwei()
//选木马 sub xuanmuma()
//选大商贩 sub shop1()
//买物品1 Sub mai1()
//买物品2 Sub mai2()	
//买物品3 Sub mai3()	
//买物品4 Sub mai4()	
//关买物品界面 sub guan()
//送物品   sub song()

Dim i,j,k,m,q,r
//Goto ABC1
r=0
q=0
j = 0
i = 0
l=0
//dingwei
delay 3500      
jinru
renwu2
fuwei
Delay 9500
liaotian
Do  While j < 150
  If j>0 then
    fuwei 
    End if
    If j<17 and j>0 then
    openjineng 
    End If

    xunzhao

      //If j<1 then
        // kainiao
     // End if
        If j>0 and j < 6  Then 
                      
          dingwei
          xuanmuma
          shop1	
          mai1
          guan
          song
   
       End If
       If j>12 and k<-1 and q<1 Then 
       	lost
       End If
    If j=22 Then 
        dingwei
        xuanmuma
        shop1
        mai2
        mai2 
        mai2 
        guan
        song
    End If
    //If j = 6 Then 
      //  dingwei
      //  xuanmuma
       // shop1
       // mai3
     
       // guan
       // song
   // End If
    If j =14 Then
        dingwei
        xuanmuma
        shop1 
        mai3 
        mai4
        guan
        song
    End If
    wo 
    

    j = j + 1
    
Loop
Rem kaishi


RestartScript