Frage zu Zufallswege

[Sputimhoch]

hi,

wenn man in einer mehr oder weniger belebten Sadt bottet wird es mit der Zeit verdächtig, wenn man 30x hintereinander alle 4 min den gleichen Weg zum Ausgang nimmt. Selbst wenn man unregelmässig dis wechselt ist es noch verdächtig.
Ich habe jetzt die Frage an euch: Wie kann ich einem Bot die Möglichkeit geben zwischen verschiedenen Wegen zu wählen?

Danke für Eure Antworten

(<-- Dieses Smiley mag ich )

[Gabba2]

einfach mehrere Wege proggen und dann

$rnd = random(1,2,1)
Select
	case $rnd = 1
		_Weg1()
	case $rnd = 2
		_Weg2()
	;[...] usw.
endselect

[aLasca]

PHP Code:

Func _TQWout()
    If Random() < 0.5 Then

        Send("{r}")
        Sleep(8000)
        Send("{a down}")
        Sleep(900)
        Send("{a up}")
        Sleep(1500)
        Send("{d down}")
        Sleep(1290)
        Send("{d up}")
        Sleep(9000)
    Else

        rs(2000, 2200)
        Send("{o}")
        rs(1000, 1200)
        Send("{space}")
        rs(9000, 9100)
        Send("{w down}")
        rs(2300, 2310)
        Send("{d down}")
        rs(900, 910)
        Send("{d up}")
        rs(4000, 4030)
        Send("{w up}")
        Sleep(9000)

    EndIf
EndFunc   ;==>_TQWout 


[Sputimhoch]

die Methode von Gabba2 habe ich jetzt ausprobiert und es funktioniert sehr gut
Danke auch an aLasca deine Methode werde ich mir auch noch ansehen
danke für eure Hilfe

[bunney]

PHP Code:

Func randomw()
    $wayout = Random(1,6,1)
    If $wayout = 1 Then
        wayout2()
    ElseIf $wayout = 2 Then
        wayout6()
    ElseIf $wayout = 3 Then
        wayout1()
    ElseIf $wayout = 4 Then
        wayout2()
    ElseIf $wayout = 5 Then
        wayout3
...
...
...
...
EndFunc 


auch ne möglichkeit

[N.E.O.]

Oder auch

PHP Code:

#include <tt6.au3>

If CheckArea(XXXX,XXXX) Then
    
    $ran = Random(1, 4, 1)
    
    If $ran = 1 Then
        
        Run1()
        
    ElseIf $ran = 2 Then
        
        Run2()
        
    ElseIf    $ran = 3 Then
        
        Run3()
        
    ElseIf    $ran = 4 Then
        
        Run4()
        
    EndIf
EndIf ;==> CheckArea 1



If CheckArea(XXXX,XXXX) Then
    
    $ran = Random(1, 4, 1)
    
    If $ran = 1 Then
        
        Run1()
        
    ElseIf $ran = 2 Then
        
        Run2()
        
    ElseIf    $ran = 3 Then
        
        Run3()
        
    ElseIf    $ran = 4 Then
        
        Run4()
        
    EndIf
EndIf ;==> CheckArea 2 


#TT6.au3 FTW!!!