Problem mit Rundenanzahl!

02/02/2009 19:36 kknb#16
Code:
start()

func _run()
    _WMove($Move_x, $Move_y)
    sleep(1500)
    hm()
    sleep(800)
    wayout()
    sleep(5500)
    fight()
    sleep(200)
    resign1()
    sleep(5000)
    
EndFunc

Func VK() 
    sleep(5000)
    ident()
    sleep(3000)
    DisChange()
    sleep(5000)
    sellway()
    sleep(2000)
    sell($x1sell, $y1sell, $x2sell, $y2sell)
    sleep(3000)
    _GHTravel($_xGH, $_yGH)
    sleep(3000)
	start()      
Endfunc 


func start()	
For $i = 1 to 6
      _run()
Next
      VK()
endfunc
oder so:

Code:
func _run()
    _WMove($Move_x, $Move_y)
    sleep(1500)
    hm()
    sleep(800)
    wayout()
    sleep(5500)
    fight()
    sleep(200)
    resign1()
    sleep(5000)
    
EndFunc

Func VK() 
    sleep(5000)
    ident()
    sleep(3000)
    DisChange()
    sleep(5000)
    sellway()
    sleep(2000)
    sell($x1sell, $y1sell, $x2sell, $y2sell)
    sleep(3000)
    _GHTravel($_xGH, $_yGH)
    sleep(3000)   
Endfunc 


$runs = 0
while True
	Select
		case $runs < 6
			_run()
			$runs = $runs +1 
		case Else
			vk()
			$runs = $runs -6
	EndSelect
WEnd
02/02/2009 19:41 aLasca#17
Quote:
Originally Posted by kknb View Post
2 mal next o_O
Huch^^ Aus versehen xD