set lpc 6000
    set %Journal #jindex
    set #LOBJECTID #CHARID
    event macro 17 0
    wait 5
    msg All Follow ME$
    event macro 22
     finditem * G_1
     for #findindex 1 #findcnt
     {
     if #findid <> #charid && #findrep in 2
     {
     set %petid #findid
     break
     }
     }
    set #LOBJECTID %petid
    event macro 17 0


    ;set %friend2 Ezio_Auditore
    set %friend1 SeVeRuS
    set %friend2 KIRHYA
    set %friend3 Lyzolda
    set %friend4 Nasdrea
    set %friend5 Topo
    set %friend6 Gai
    set %friend7 Sauron
    set %friend8 Purpurea
    set %friend9 Miriel
    set %friend10 Freddy
    set %friend11 DaNGerOuS
    set %friend12 Cape
    set %friend13 Loker
    set %friend14 Sexual
    set %friend15 DesdemOnA
    set %friend16 Cast
    set %friend17 SarK
    set %friend18 Nemo
    set %friend19 Soraya
    set %friend20 StE_SoulBlaDe
    set %friend21 EnD_SoulBlaDe
    set %friend22 ShoT_ChOcO
    set %friend23 KasH
    set %friend24 KaRaShO


    loop:
    if #jindex > %Journal
      {
       set %Journal %Journal + 1
       scanjournal %Journal
         if ( begins_to_menacingly_swing_a_bola in #journal )
         gosub DismoReMount
      }
    goto loop




    sub DismoReMount

        if %friend1 in #journal || %friend2 in #journal  || %friend3 in #journal || %friend4 in #journal || %friend5 in #journal || %friend6 in #journal || %friend7 in #journal || %friend8 in #journal || %friend9 in #journal || %friend10 in #journal || %friend11 in #journal || %friend12 in #journal || %friend13 in #journal || %friend14 in #journal || %friend15 in #journal || %friend16 in #journal || %friend17 in #journal || %friend18 in #journal || %friend19 in #journal || %friend20 in #journal || %friend21 in #journal || %friend22 in #journal || %friend23 in #journal || %friend24 in #journal
        {
         return
        }
        else
        {
        wait 5
        set #LOBJECTID #CHARID
        event macro 17 0
        wait 4
        set #LOBJECTID %petid
        event macro 17 0
        }
    return