Tamanho : 376 KBNome do Arquivo : UOAMv9_Install.exeDownload : Clique Aqui! ; ==--== INICIO ==--==initevents; =====================================================================; Macro de Fishing; Distribuicao: Gratuita; ========================CONFIGURACOES INICIAIS - Variaveis=====================Set %Pole XHFSet %Tentativa 4Set %Comando 1Set %ComandoX 1Set %msg ForwardSet %cnt 0Set #ltargetid 0Set #ltargetz 0Set #ltargetkind 2; ========================CONFIGURACOES INICIAIS - Variaveis=====================loop:Set %cnt %cnt + 1gosub %cntif %cnt > 7{Set %cnt 0goto Move}Set %Chance 0goto Fish; ====================FISH====================Fish:Set %Chance %Chance + 1if %Chance > %Tentativa{goto loop}gosub poleSet #SCNT 0jornal:if #SCNT > 7{goto Fish}deletejournalscanjournalif you_can't in #journal{goto loop}if nao_pescou in #journal{goto Fish}if see in #journal{goto loop}if voce_retira_fish in #journal{goto loop}if nao_a_peixe in #journal{goto loop}if pull in #journal{goto Fish}if too in #journal{goto loop}goto jornal; ====================MOVE====================Move:if %Comando = 1{msg Raise Anchor$msg Forward$}if %Comando = 2{msg Raise Anchor$msg Left$}if %Comando = 3{msg Raise Anchor$msg Back$}if %Comando = 4{msg Raise Anchor$msg Right$}Set %ComandoX %ComandoX + 1IF %ComandoX > 6{Set %ComandoX 1Set %Comando %Comando + 1IF %Comando > 4{Set %Comando 1}}wait 6smsg Drop Anchor$goto loopsub 1set #ltargetx #charposxset #ltargety #charposy + 3returnsub 2set #ltargetx #charposx + 1set #ltargety #charposy + 3returnsub 3set #ltargetx #charposx + 2set #ltargety #charposy + 3returnsub 4set #ltargetx #charposx + 3set #ltargety #charposy + 3returnsub 5set #ltargetx #charposx - 1set #ltargety #charposy + 3returnsub 6set #ltargetx #charposx - 2set #ltargety #charposy + 3returnsub 7set #ltargetx #charposx - 3set #ltargety #charposy + 3return;----------sub 8set #ltargetx #charposxset #ltargety #charposy - 3returnsub 9set #ltargetx #charposx + 1set #ltargety #charposy - 3returnsub 10set #ltargetx #charposx + 2set #ltargety #charposy - 3returnsub 11set #ltargetx #charposx + 3set #ltargety #charposy - 3returnsub 12set #ltargetx #charposx - 1set #ltargety #charposy - 3returnsub 13set #ltargetx #charposx - 2set #ltargety #charposy - 3returnsub 14set #ltargetx #charposx - 3set #ltargety #charposy - 3return;---------sub 15set #ltargetx #charposxset #ltargety #charposy - 4returnsub 16set #ltargetx #charposx + 1set #ltargety #charposy - 4returnsub 17set #ltargetx #charposx + 2set #ltargety #charposy - 4returnsub 18set #ltargetx #charposx + 3set #ltargety #charposy - 4returnsub 19set #ltargetx #charposx - 1set #ltargety #charposy - 4returnsub 20set #ltargetx #charposx - 2set #ltargety #charposy - 4returnsub 21set #ltargetx #charposx - 3set #ltargety #charposy - 4return;---------sub 22set #ltargetx #charposxset #ltargety #charposy + 4returnsub 23set #ltargetx #charposx + 1set #ltargety #charposy + 4returnsub 24set #ltargetx #charposx + 2set #ltargety #charposy + 4returnsub 25set #ltargetx #charposx + 3set #ltargety #charposy + 4returnsub 26set #ltargetx #charposx - 1set #ltargety #charposy + 4returnsub 27set #ltargetx #charposx - 2set #ltargety #charposy + 4returnsub 28set #ltargetx #charposx - 3set #ltargety #charposy + 4returnsub polefinditem %Poleif #findkind = 0{set #LObjectID #FindIDevent macro 17 0targetevent macro 25 0event macro 22 0return}if #findkind = 1{ignoreitem #FindIDgosub polereturn}if #findkind = -1{ignoreitem resetevent sysmessage Pole nao encontradowait 3sreturn}return; ==--== FIM ==--== Solicitado ajuda ao Instituto Historiar de Campos dos Goytacazes, pela aluna do Curso de Pedagogia Ana Carla Ribeiro, abordando o tema relacionado com pontos Turisticos / Historico de Campos dos Goytacazes. Nos do Instituto Historiar ficamos felizes em poder estar colaborando com o trabalho e divulgacao de nossa Historia por essa ser a nossa finalidade. Seguindo a programacao da 15a Semana Nacional dos Museus promovida pelo Instituto Brasileiro de Museus (Ibram) , o Museu Historico de Campos (MHC) abre a exposicao temporaria