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.


Messages - Nicar

Pages: 1 ... 9 10 [11] 12
151
General UO Chat / Re: My Spring Cleaning Point results
« on: June 22, 2008, 12:48:07 PM »
Quote from: Hardyz on June 22, 2008, 10:13:09 AM

Yeah I've used the fisher to hand in a lot too.  I started looting maps and nets too.  I still keep all colored nets and ASOS's.  I want to stock pile a bunch and when I start to actually play uo again to sit down and just do all the ASOSs and then do all the nets for fun. lol

I should probably script other things to make more money and what not...but the fisher is just a lot simpler to do.  It doesn't require long to set up like my library script.  Also less likely of getting caught.

I keep some colored nets. I also been keeping most ASOS, probably will end up turning them in too. Occasionally in an SOS chest, there is a net. So, that's like 250 for the chest, 500 for the net, a lot better than just 100 for a SOS.

152
General UO Chat / Re: My Spring Cleaning Point results
« on: June 22, 2008, 08:18:58 AM »
Well, i'm up to 830k points. Haven't claimed anything yet. Just wanted to add TM, you rock, your fisher gets me close to 10k easily a day (yeah, I know that'd be a lvl 11 arti, but I don't have a set up to leave in a dungeon.)  Anyways, I am fishing up some of the SOS. Where my boat is around, I'll keep the SOSs to fish up in the area that doesn't take me half an hour to get to. Also to save time, you can just dump the chest with junk in it on the dude to turn in. Gets tiring to go sell all stuff when you have 12-15 chest easily.

153
Scripting Chat / Re: My beetle lumberjacker is coming soon.
« on: June 16, 2008, 06:50:17 PM »
Understood. I guess I should post up the one I have somewhere for people that want it. Or might post in private sections. There was one person trying to post problems with it, but never gave me enough info, think it was lag issues more, not sure if i want to post it  :)

154
Scripting Chat / Re: My beetle lumberjacker is coming soon.
« on: June 16, 2008, 07:59:35 AM »
Would this mean, I could almost abandoned my adopted script? Lots to do, so little time, if I didn't actually have to work at work.

155
General UO Chat / Re: My Spring Cleaning Point results
« on: June 15, 2008, 12:39:07 PM »
Ahh come on, you know i'm not a script slut.. your snippet is just more bullet proof. Anyways, yeah, I get kind ticked with not many nets, but I'll leave how I am. I like the occasional 5k point Ancient SOS.. and pre treasure loot, screw wasting the time to fish it up, just keep fishing and get points. I guess I should check for any remotely close to where I'm fishing.   I also need to stock up on pearls.

156
General UO Chat / Re: My Spring Cleaning Point results
« on: June 15, 2008, 11:55:45 AM »
Ok, a couple things, nice points, I have about 690k

Next, your snippet, I cannot reply to it. I posted a snippet for both, rather simple, no checks in there for much stuff, but working flawlessly for me, well, not flawlessly, I do have times where 1 or 2 items miss being turned in, but, out of 100 or so, that's not bad. Oh, and I posted mine on WINUO early last week, just wanted to say   :P I was quicker   :P Oh, and Guadah posted his Guadah stylle with menus to switch between.. but that was as a script and not a snippet.

Another thing, you're the freakin man.. I had maybe around 610k and daily I'm getitng more points with your full fisher..


157
General Discussion / Re: Post up your code snippets.
« on: June 15, 2008, 07:58:48 AM »
Well, I can go through some stuff later and maybe chop some up. How many lines you want?  Here a little with str, while, if/else, goto, gosub..  basically, target secures in your reach, and then it will open them up. That's it.

Code: [Select]
display Please target your secure (do not target containers inside a secure)!
setmultisecure:
wait 1
set #targcurs 1
target
while #targcurs = 1
  wait 0
if %secure = n/a
  set %secure #ltargetid , _
else
{
  if #ltargetid notin %secure
    set %secure %secure , #ltargetid , _
}
wait 5
display yesno Do you have another secure to target?
if #dispres = yes
  goto setmultisecure
wait 5
str count %secure _
set %numbersecures #strres
set %startpos 1
for %i 1 %numbersecures
{
  str mid %secure %startpos 7
  set %cursecure #strres
  gosub open_container %cursecure
  set %startpos %startpos + 8
}
halt
sub open_container
  ;%1 = Container to open
  set #lobjectid %1
  wait 5
  event macro 17
  wait 20
return

158
General Discussion / Re: Post up your code snippets.
« on: June 14, 2008, 10:01:33 PM »
I bet this code is going to be too much. But it has some Str and some namespace.. If.. if/else.. just one thing, i believe to go through the rest of the code you can only target containers that have map fragments, horns and minotaur arties in the top level of the chest. Also, need a blue beetle.  I have clicked multi secures to test that it opens, it then will halt when it gets to calculating.  saying that you're missing a quest item. you can then restart and just click a chest say with 6 maps, 18 arties and 120 horns. This is nice because it'll drop 100 horns on you and rest in the beetle. So, hope you can use the code to test.

Code: [Select]
set %mapfrag UVH
set %horn GJG
set %minoarti SEE_CFE_JRD
set %secure n/a
display Please target your secure (do not target containers inside a secure)!
setmultisecure:
wait 1
set #targcurs 1
target
while #targcurs = 1
  wait 0
if %secure = n/a
  set %secure #ltargetid , _
else
{
  if #ltargetid notin %secure
    set %secure %secure , #ltargetid , _
}
wait 5
display yesno Do you have another secure to target?
if #dispres = yes
  goto setmultisecure
gosub dismount
display Please target your pack animal
wait 1
set #targcurs 1
target
while #targcurs = 1
  wait 0
set %packanimal #ltargetid
wait 5
str count %secure _
set %numbersecures #strres
set %startpos 1
for %i 1 %numbersecures
{
  str mid %secure %startpos 7
  set %cursecure #strres
  gosub open_container %cursecure
  set %startpos %startpos + 8
}
;display You chosen %secure secure containers


gosub find_quest_items %mapfrag
set %nummaps #result
gosub find_quest_items %horn
set %numhorn #result
gosub find_quest_items %minoarti
set %numminoarti #result
display Number map horn mino %nummaps %numhorn %numminoarti


gosub calculate_num_quest %numhorn %nummaps %numminoarti
set %run_quest_this_many #result
display %run_quest_this_many
recalculate:
gosub calculate_totalarti_weight
display Quest weight %total_questrun_weight and mino arties 5/30 %minoarti_5stone_cnt %minoarti_30stone_cnt
gosub weight_for_run %total_questrun_weight
gosub grab_items %run_quest_this_many %tripweight
gosub mount_beetle
display %tripweight
halt

sub calculate_totalarti_weight
  set %gamanhornweight %run_quest_this_many * 20
  gosub calculate_minotaur_arties
  gosub calculate_minoartie_weight
  set %mapweight %run_quest_this_many
  set %total_questrun_weight %gamanhornweight + %mapweight + %total_minoartie_weight
return

sub weight_for_run
  ;%1 weight for avaliable runs
  set %charavailweight #maxweight - #weight
  set %char_packy_weight %charavailweight + 1600
  set %availcarryweight 1600 + %charavailweight
  if %1 <= %availcarryweight
    set %tripweight %1
  if %1 > %availcarrweight
  {
    set %run_quest_this_many %run_quest_this_many - 5
    goto recalculate
  }
return

sub calculate_minotaur_arties
  namespace push
  namespace local Secure
  set %minoarti_5stone_cnt 0
  set %minoarti_30stone_cnt 0
  set !startpos 1
  for !i 1 %numbersecures
  {
    str mid %secure !startpos 7
    set !cursecure #strres
    gosub open_container !cursecure
    finditem %minoarti c_ , !cursecure
    for #findindex 1 #findcnt
    {
      event property #findid
      if 5 in #property
        set %minoarti_5stone_cnt %minoarti_5stone_cnt + 1
      if 30 in #property
        set %minoarti_30stone_cnt %minoarti_5stone_cnt + 1
    }
    set !startpos !startpos + 8
  }
  if %minoarti_5stone_cnt >= %run_quest_this_many
    set %grab_this_many_minoarti_5cnt %run_quest_this_many
  if %minoarti_5stone_cnt < %run_quest_this_many
  {
    set %grab_this_many_minoarti_5cnt %minoarti_5stone_cnt
    if ( %minoarti_5stone_cnt + %minoarti_30stone_cnt ) >= %run_quest_this_many
      set %grab_this_many_minoarti_30cnt %run_quest_this_many - %grab_this_many_minoarti_5cnt
  }
  namespace clear
  namespace pop
return

sub calculate_minoartie_weight
  set %minoarti_5stone_weight %minoarti_5stone_cnt * 5
  set %minoarti_30stone_weight %minoarti_30stone_cnt * 30
  set %total_minoartie_weight %minoarti_5stone_weight + %minoarti_30stone_weight
return

;finditem %mapfrag c_ , %secure
;for #findindex 1 %run_quest_this_many
;{
;  exevent dragc #findid
;  exevent dropc #backpackid
;}


sub find_quest_items
  ;%1 = Current quest item to search for
  namespace push
  namespace local NS1
  set !itemcount 0
  set !i 0
  set !j 0
  set !item %1
findquestitems:
  set !startpos 1
  for !j 1 %numbersecures
  {
    str mid %secure !startpos 7
    set !cursecure #strres
    gosub open_container !cursecure
    finditem !item c_ , !cursecure
    display #findcnt
    if findkind = -1 && %numbersecures - !j = 0
    {
      display ok You are lacking one of the quest items, get some and press play
      pause
      set !i !i + 1
      if !i < 4
        goto findquestitems
      display ok Halting Script, you did not listen, tried too many times, or are out of some quest items!
      halt
    }
    set !startpos !startpos + 8
    if !item = %horn
      set !itemcount ( !itemcount + #findstack )
    else
      set !itemcount ( !itemcount + #findcnt )
   
  }
 
  set #result !itemcount
 
  namespace pop
return #result


sub calculate_num_quest
 
  ;%1 = number gaman horns
  ;%2 = number map fragments
  ;%3 = number minotaur artifacts
  namespace push
  namespace local NS1
  set !horntotal %1 / 20
  set !maptotal %2
  set !minototal %3 / 3
  display !horntotal !maptotal !minototal
  if !horntotal = 0 || !maptotal = 0 || !minototal = 0
  {
    display ok You do not have enough quest items to complete a quest! Script is ending!
    namespace pop
    halt
  }
  if !horntotal <= !maptotal && !horntotal <= !minototal
  {
    set #result !horntotal
    namespace pop
    return #result
  }
  if !maptotal <= !horntotal && !maptotal <= !minototal
  {
    set #result !maptotal
    namespace pop
    return #result
  }
  if !minototal <= !maptotal && !minototal <= !horntotal
  {
    set #result !minototal
    namespace pop
    return #result
  }
return #false  ;should never reach here

sub grab_items
  ;%1 total times to run quest
  ;%2 total weight of quest items
  namespace push
  namespace local grabitems
  set !itemcount 1 + %1 + %1
  set %hornsleft %1 * 20
 
  set %startpos 1
  for !i 1 %numbersecures
  {
    str mid %secure %startpos 7
   
    set %cursecure #strres
    gosub open_container %cursecure
    if %hornsleft > 0
    {
      display %hornsleft
      finditem %horn c_ , %cursecure
      if #findkind <> -1
      {
        display #findstack %hornsleft
        If #findstack > 100 && %hornsleft > 100
        {
          exevent drag #findid 100
          set %hornsleft %hornsleft - 100
          wait 5
          finditem %horn c_ , #backpackid
          if #findkind = -1
            exevent dropc #backpackid
          else
            exevent dropc %packanimal
          wait 10
         
        }
        else
        {
          if #findstack <= %hornsleft
          {
            exevent drag #findid #findstack
            set %hornsleft %hornsleft - #findstack
            wait 5
            finditem %horn c_ , #backpackid
            if #findkind = -1
              exevent dropc #backpackid
            else
              exevent dropc %packanimal
            wait 10
           
          }
          else
          {
            exevent drag #findid %hornsleft
            set %hornsleft %hornsleft - %hornsleft
            wait 5
            finditem %horn c_ , #backpackid
            if #findkind = -1
              exevent dropc #backpackid
            else
              exevent dropc %packanimal
            wait 10
           
          }
        }
      }
      wait 10
      finditem %horn c_ , %cursecure
      if #findkind <> 1
      {
        if #findstack >= %hornsleft
        {
          exevent drag #findid %hornsleft
          set %hornsleft %hornsleft - %hornsleft
        }
        if #findstack < %hornsleft
        {
          exevent drag #findid #findstack
          set %hornsleft %hornsleft - #findstack
        }
        wait 5
        exevent dropc %packanimal
        wait 10
       
      }
    }
   
    set %startpos %startpos + 8
  }
 
  namespace pop
return

sub open_container
  ;%1 = Container to open
  set #lobjectid %1
  wait 5
  event macro 17
  wait 20
return

sub mount_beetle
remount:
  msg all follow me$
  finditem %packanimal g_2
  gosub open_container %packanimal
  finditem %packanimal c_ #charid
  if findkind = -1
    goto remount
return

sub dismount
redismount:
  set #lobjectid #charid
  event macro 17
  wait 10
  finditem %packanimal g_2
  msg all follow me$
  wait 5
  if findkind = -1
    goto redismount
return

159
Off Topic / Re: Son's first Olympic Scoring TKD Tourny
« on: June 14, 2008, 09:54:26 PM »
That's awesome Cerveza, glad to be able to read about this, I love sports news. I'm sure the bout with coaches son was tough, probably becoming good friends? Hope he keeps it up, keeps you busy taking him to matches and competitions.

160
General Discussion / Re: Set multiple variables at once
« on: June 13, 2008, 07:31:08 AM »
So, perhaps, just as simple as that, it might be able to be done?

161
General Discussion / Re: Set multiple variables at once
« on: June 12, 2008, 08:44:07 PM »
well, how about a colon ?   :  I don't think it's used for anything
Code: [Select]
int %count1 : %count2
float %realmath : %candivide

162
General Discussion / Re: Set multiple variables at once
« on: June 12, 2008, 08:12:40 PM »
Do I recall in C or something, a way to specify if a variable is an integer or a string? I mean, yeah, it might be a lot to put in, and could confuse/break some things, but the people that will be using it will be ones that know the project and are aware of it, and people can easily update current code to handle. Ok, so I cheated since I been out of programming for a long long time..
Code: [Select]
int x;
       float my_variable;

       x = 10;
       my_variable = -262.344;

       cout << "The value of x is " << x << endl;
       cout << "The value of my_variable is "
            << my_variable << endl;

and maybe that's what I was thinking like setting it up like   int %count1 , %count2 , ....

163
General Discussion / Re: Set multiple variables at once
« on: June 12, 2008, 06:53:11 PM »
Quote from: TrailMyx on June 12, 2008, 04:08:47 PM
Well because EUO doesn't have a real "value" for null since it deals with variable arguments mostly like strings unless math can be done.  At least with stronger typed languages, you can divine what the value should be, but you can't make the assumption with a language like EasyUO.  But if you can actually setup what you'd like "null" to be, then you get your <3 of nulls and you can talk about empty strings, zeros, N/A, etc.

Actually, if you try and do any math to a N/A, it's treated like a zero.  Also if the value that's found in a variable doesn't actually represent a number, then it's considered a zero or N/A.

Code: [Select]
set %test imanumber
set %test %test * 5 + 10
display ok %test

This will result in a 10 since the multiplication evaluates to zero.

This all still means I'll be able to do something like
Code: [Select]
set %count1 , %count2 , %count3 , %count4 0
or

Code: [Select]
#initvar %count1 , %count2 , %count3 , %count4where it initializes to 0 or whatever?

164
General Discussion / Set multiple variables at once
« on: June 12, 2008, 08:39:49 AM »
Am I the only one that wants/uses/does this?

Like, initializing variables to 0. I don't want to check for a variable by n/a. What if I ran the script, stopped it, and I'm running it again and it is holding a value? so, now I have 5 variables, I am setting to 0... I want to set them with 1 line of code, can SUO do that?

165
Gold Farming / Re: TrailMyx's Full Auto Fisherman
« on: June 10, 2008, 08:21:20 PM »
Well, ran this the other day, 11 straight hours, was fishing when I got home from work. Awesome bro!.

Pages: 1 ... 9 10 [11] 12