Spyglass Routine by Brozan (Syal)

Related: Snippet

1if not timerexists spyGlassPeek
2    createtimer spyGlassPeek
3    settimer spyGlassPeek 6600
4endif
5
6if timer "spyGlassPeek" > 6500 and not targetexists  
7    settimer 'spyGlassPeek' 0
8    gumpclose 2890020940
9    gumpclose 2890020940
10    dclicktype 5365
11    waitfortarget 1200
12    if targetexists neutral
13        target 'self'
14    endif
15    waitforgump 2890020940
16    gumpresponse 4 2890020940
17    waitforgump 2890020940
18    overhead "spyglass"
19    sysmsg "spyglass"
20    @setvar blueFound 0
21    if ingump "a small ship" 2890020940 or  ingump "a small dragon ship" 2890020940 or   ingump "a medium ship" 2890020940 or    ingump "a medium dragon ship" 2890020940 or  ingump "a large ship" 2890020940 or     ingump "a large dragon ship" 2890020940 or   ingump "a carrack" 2890020940 or   ingump "a galleon" 2890020940
22            overhead "Player BOAT" 43
23            wait 250
24            overhead "Player BOAT" 43
25            wait 250
26            overhead "Player BOAT" 43
27            @setvar blueFound 1
28    endif
29    while ingump "Next" 2890020940 and blueFound = 0
30        gumpresponse 3 2890020940
31        wait 350
32        if ingump "a small ship" 2890020940 or  ingump "a small dragon ship" 2890020940 or   ingump "a medium ship" 2890020940 or    ingump "a medium dragon ship" 2890020940 or  ingump "a large ship" 2890020940 or     ingump "a large dragon" 2890020940 or   ingump "a carrack" 2890020940 or   ingump "a galleon" 2890020940
33            overhead "Player BOAT" 43
34            wait 250
35            overhead "Player BOAT" 43
36            wait 250
37            overhead "Player BOAT" 43
38            @setvar blueFound 1
39        endif
40    endwhile    
41endif