Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Topics - camotbik

Pages: 1 2 3 [4]
46
Scripting Chat / reconnect
« on: December 28, 2009, 09:19:40 AM »
For a while I have been using wifi, so i get cl`s a lot often then before. I`v been searching for a good reconnect script now, but nothing good has come in my sight. Before writing my own script, I would like to try to ask You - What kind of reconnet script are You using?

47
Script Debug / Champ Support character
« on: December 25, 2009, 04:17:40 PM »
Code: [Select]
;==================================
; Script Name: Champ Supporter.
; Author: CAMOTbIK
; Version: 0.5 Beta
; Client Tested with: 6.0.14.3
; EUO version tested with: 1.58
; Revision Date: 29.12.2009
; Public Release:
; Purpose: As a support character you ressurect and heal your friends.
; Pick up droped power scrolls and pick up gold wich will be stored in your beetle.
;==================================
set %ghost JS_KS_ZU_KV  ; JS-HUMAN_WOMAN,KS-HUMAN_MALE,ZU-ELF_MAN,KV-ELF_WOMAN
set %alive HS_IS_XU_AV  ; HS-HUMAN_WOMAN,IS-HUMAN_MALE,XU-ELF_MAN,AV-ELF_WOMAN
set %friends XXXX_XXXX_XXXX_XXXX ; Friends
set %ps EWH
set %bandages ZLF
set %beetletype ZGB
set %timer_hiding #sCnt
set %timer_healing #sCnt
set %timer_ressurecting #sCnt
ignoreitem #CHARID

repeat
gosub check_alive
gosub check_dead
gosub grab_gold
gosub grab_ps
gosub grab_bandages
gosub hide
  while #charghost = yes
     wait 0
until #charghost = yes

sub check_alive
 finditem %alive G_1
  if #FINDCNT > 0 && #FINDID in %friends
   {
    if #sCnt < %timer_already_healed && #FINDID in %already_healed
    return
    set #LTARGETID #FINDID
     finditem %bandages C_ , #BACKPACKID ; bandages
      if #FINDCNT > 0
       {
       set #LTARGETKIND 1
        set #lobjectid #findid
         event macro 17 0
         target 5s
          event macro 22 0
           gosub hide
            set %timer_healing ( #sCnt + 10 )
             set %_jindex #jindex
              set %return #false
     repeat
      if #sCnt > %timer_healing
       {
        set %timer_healing ( #sCnt + 10 )
         set %return #true
       }
      if #jindex >= %_jindex
       {
        scanjournal %_jindex
         if barely in #journal || finish in #journal || reach in #journal
          {
          set %return #true
           set %timer_healing ( #sCnt + 10 )
          }
          if being in #journal
          {
          set %already_healed #ltargetid
          set %timer_already_healed ( #sCnt + 40 )
          }
       set %_jindex %_jindex + 1
       }
      wait 0
     until %return #true
       }
      else
      {
       msg $
        msg /support character is out of bandages!!!$
         msg /drop some bandages near #charname who is standing #CHARPOSX #CHARPOSY $
          wait 1s
      }
     }
return

sub check_dead
 finditem %ghost G_1
  if #FINDCNT > 0 && #FINDID in %friends
   {
    if #sCnt < %timer_already_ressurected && #FINDID in %already_ressurected
    return
    set #LTARGETID #FINDID
     finditem %bandages C_ , #BACKPACKID ; bandages
      if #FINDCNT > 0
       {
        set #LTARGETKIND 1
         set #lobjectid #findid
          event macro 17 0
           target 5s
            event macro 22 0
             gosub hide
           set %timer_ressurect ( #sCnt + 10 )
           set %_jindex #jindex
           set %return #false
           repeat
           if #sCnt > %timer_ressurect
           {
            set %timer_ressurect ( #sCnt + 10 )
             set %return #true
             }
             if #jindex >= %_jindex
              {
               scanjournal %_jindex
                if unable in #journal || reach in #journal || being in #journal
                 {
                   set %return #true
                 }
                 if able in #journal
                 {
                 set %already_ressurected #ltargetid
                 set %timer_already_ressurected ( #sCnt + 30 )
                 }
              set %_jindex %_jindex + 1
              }
              wait 0
            until %return #true
        }
      else
      {
       msg $
        msg /support character is out of bandages!!!$
         msg /drop some bandages near #charname who is standing #CHARPOSX #CHARPOSY $
          wait 1s
      }
     }
return

sub grab_gold
 finditem POF G_2
  if #FINDCNT > 0
   {
    set %gold #FINDID
     set %stack #findstack
      set #lobjectid #CHARID
       event macro 17
        wait 10
        finditem %beetletype G_1
         if #FINDCNT > 0
          {
           set %beetle #FINDID
            exevent drag %gold %stack
             wait 10
              exevent dropc %beetle
               wait 20
                set #lobjectid %beetle
                 event macro 17
          }
    }
return

sub grab_ps
  finditem %ps G_2
   if #FINDCNT > 0
    {
     exevent drag #FINDID #FINDSTACK
      wait 10
       exevent dropc #BACKPACKID
        wait 10
    }
return

sub grab_bandages
  finditem %bandages G_2
   if #FINDCNT > 0
    {
     exevent drag #FINDID #FINDSTACK
      wait 10
       exevent dropc #BACKPACKID
        wait 10
    }
return

sub hide
 if H in #charStatus
   return
 if #sCnt > %timer_hiding
  {
   event macro 13 21
    set  %timer_hiding ( #sCnt + 10 )
  }
return

48
Script Debug / White perl Fishing.
« on: December 14, 2009, 08:21:01 AM »
Updt:
This script was made just for white pearl farming. So you should start it standing on the end of the boat (near hatch), having scissors, dagger & fishing pole in your pack. If you have more than 80.1 fishing, the script will ask you, if you wish to continue(you start to fish up serpents after 80.1), couse there is no defending sub in it.

Code: [Select]
;==================================
; Script Name: Simple fishing.
; Author: CAMOTbIK
; Version: 0.9 Beta
; Client Tested with: 6.0.14.3
; EUO version tested with: 1.58
; Revision Date: 26.12.2009
; Public Release:
; Purpose: White pearls farming, with locked fishing on 80.1
;==================================
;             YOU NEED A BOAT, DAGGER, SCISSORS AND A FISHING POLE

set %fishing_pole KDF
set %dagger WSF
set %fish EQD_FQD_GQD_DQD
set %fish_steak IND
set %scissors JAG
set %shoes CWI_AWI_NVI_OVI_PVI_QVI_ZVI_TVI
set %leather JJG_HTD_SVH_UDF_YDF ;  leather.
set %fished_stuff WWS
set %rare_fish YDF
set %eatrare #true            ; Eat some rare fish ( saves hatch space )
set %checkandlockskill #true  ; checks if fishing is +80.1, if it is, locks it down - so the character wont fish up serpents.
gosub check_req
gosub find_hatch

repeat
{
 event macro 1 0 forward one
  wait 20
  scanjournal 1
   if stopped in #journal || blocked in #journal
    {
       event macro 1 0 back right
        wait 3s
         event macro 1 0 stop
          wait 1s
           event macro 1 0 turn around
            gosub find_hatch
             return
    }
   event macro 1 0 stop
    gosub fish
}
until #CHARGHOST = yes


sub fish
repeat
chooseSkill fishing
if %checkandlockskill #true
{
if #skill >= 801
 {
 event SkillLock fishing locked
  set %checkandlockskill #false
 }
}
if %eatrare = #true
{
 finditem %rare_fish C_ , #BACKPACKID
  while #findcnt > 0
   {
    set #lobjectid #findid
     event macro 17 0
   wait 2 0
       finditem %rare_fish C_ , #BACKPACKID
   }
}
if ( #weight > ( #maxweight - 10 ) )
 {
  gosub cut_fish
   gosub drop_fish
    gosub cut_shoes
     gosub drop_leather
      gosub unload
}
finditem %fishing_pole C_ , #BACKPACKID
if #FINDCNT > 0
 {
  set #lobjectid #findid
 }
Else
 {
 return
 }
set #LObjectID #FindID
set #LTargetKind 2
set #LTargetX #charposx + 2
set #LTargetY #CharPosY
event macro 17 0
target 10s
event macro 22 0
set %_jindex #jindex
set %go #false
set %maxtimeout  #sCnt2 + 120
repeat
if #sCnt2 >  %maxtimeout
  {
   return
  }
   if #jindex >= %_jindex
   {
      scanjournal %_jindex
      if pull in #journal || fail_to_catch in #journal || a_white in #journal
      {
        break
      }
      if seem_to_be in #journal || closer_to_the in #journal
      {
       return
      }
      if already_fishing in #journal || something_is_happening in #journal
      {
       wait 5s
      }
set %_jindex %_jindex + 1
    }
  wait 0
 until %go = #true
until %something = #true
return

sub find_hatch
findItem LWX_UVX_ZUX_ZNX G_2 ;  Looking for hatch
if #FINDCNT > 0
 {
  set %hatchid #FINDID
 }
else
{
 display ok You must stand near the hatch$
  halt
}
return

sub cut_fish
finditem %dagger C_ , #BACKPACKID
if #FINDCNT > 0
 {
  set #lobjectid #findid
 }
Else
 {
  return
   halt
 }
finditem %fish C_ , #BACKPACKID
while #findcnt > 0
{
 wait 5
  set #ltargetid #findid
   event macro 17
    target
     set #ltargetkind 1
      event macro 22
       wait 1s
        finditem %fish C_ , #BACKPACKID
}
return

sub drop_fish
finditem %fish_steak C_ , #BACKPACKID
while #findcnt > 0
{
finditem %fish_steak C_ , #BACKPACKID
if #findkind <> -1
   {
   set %fish_in_the_pack #FINDID
    set %fish_ammount #FINDSTACK
     finditem %fish_steak G_2
      if #FINDCNT > 0
       {
        set %fish_on_the_ground #FINDID
         exevent drag %fish_in_the_pack %fish_ammount
          wait 1s
           exevent dropc %fish_on_the_ground
            wait 2s
    }
else
 {
  exevent drag %fish_in_the_pack %fish_ammount
   wait 1s
    Exevent Dropg #charposx #charposy
     wait 2s
      finditem %fish_steak C_ , #BACKPACKID
  }
 }
}
return

sub cut_shoes
finditem %scissors C_ , #BACKPACKID
if #FINDCNT > 0
 {
  set #lobjectid #findid
   }
Else
 {
   return
 }
finditem %shoes C_ , #BACKPACKID
while #findcnt > 0
{
 wait 5
  set #ltargetid #findid
   event macro 17
    target
     set #ltargetkind 1
      event macro 22
       wait 1s
        finditem %shoes C_ , #BACKPACKID
}
return

sub unload
finditem %fished_stuff C_ , #BACKPACKID
while #findcnt > 0
 {
Exevent Drag #findid #findstack
wait 10
 Exevent Dropc %hatchid
  wait 2s
      finditem  %fished_stuff C_ , #BACKPACKID
 }
return

sub check_req
chooseSkill fishing
if #skill >= 802
 {
  display yesno Your fishing is higher than 80.1 You may catch some sea monsters, wich could(will) kill you - there is no defence sub in this script. Do you wish to continue anyway?
   if #dispres = no
 {
     halt
 }
 }
finditem %fishing_pole C_ , #BACKPACKID
if #FINDCNT > 0
 {
  set #lobjectid #findid
 }
Else
 {
  display ok Put a Fishing Pole in your pack and restart the script
   halt
 }
finditem %scissors C_ , #BACKPACKID
if #FINDCNT > 0
 {
  set #lobjectid #findid
 }
Else
 {
  display ok Put a scissors in your pack and restart the script
   halt
 }
finditem %dagger C_ , #BACKPACKID
if #FINDCNT > 0
 {
  set #lobjectid #findid
 }
Else
 {
  display ok Put a dagger in your pack and restart the script
   halt
 }
return

sub drop_leather
finditem %leather C_ , #BACKPACKID
while #findcnt > 0
{
finditem %leather C_ , #BACKPACKID
if #findkind <> -1
   {
   set %leather_in_the_pack #FINDID
    set %leather_ammount #FINDSTACK
     finditem %leather G_2
      if #FINDCNT > 0
       {
        set %leather_on_the_ground #FINDID
         exevent drag %leather_in_the_pack %leather_ammount
          wait 1s
           exevent dropc %leather_on_the_ground
            wait 2s
    }
else
 {
  exevent drag %leather_in_the_pack %leather_ammount
   wait 1s
    Exevent Dropg #charposx #charposy
     wait 2s
      finditem %leather C_ , #BACKPACKID
  }
 }
}
return

If you try it, please leave your opinion.

49
New member introductions / Greetz.
« on: October 31, 2009, 01:38:37 PM »
Greetings, Earthlings!

My name is BOB and i come from Mars(Latvia). I have been playing UO like for ten years, so I have seen it all. Used all the stuff you could use. Matches, uoloop, ez-macros, uopilot, uoassist, injection, easyuo, razor. Had a break for like 2 years, but got some how bored and returned to uo a week ago. So, i hope i will learn something new from you.

Sorry if I made some gramatical mistakes - English is not my strenght. 

Oh yeah, that's me.


Pages: 1 2 3 [4]