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 - Ketchup

Pages: [1] 2
1
Script Debug / Trying to use pathfind
« on: July 25, 2017, 12:12:13 PM »
I currently have a sub for movement along the lines of this

sub move
move 6232 422
move 6220 422
move 6220 418
move 6180 418
return

I'm trying to turn it into a pathfind sub to make it more efficient but I'm having issues where if I change the "move" to event pathfind it seems to want to spam pathfinding and unlike the move sub it seems to work terribly.

this is an example of what I changed it to

sub move
event pathfind 6232 422
event pathfind 6220 422
event pathfind 6220 418
event pathfind 6180 418
return

what am I doing wrong to make it spam so much?

2
Script Debug / Pathfinding issue
« on: July 13, 2017, 05:12:34 PM »
Having an issue with it returning to the spot but still spamming pathfinding, if anyone can point me in the direction of what I need to add to make it return to the spot and stop trying to pathfind I would muchly appreciate it, thanks!
Code: [Select]
sub findattack1
finditem %target G_15
if #findcnt < 1
event pathfind 6788 3444
{
if #finddist > 1
event pathfind #findx #findy #findz
gosub attackmob
}
until #findcnt < 1
return

3
Script Debug / Issues with a script I've written/tried to write
« on: December 22, 2015, 07:11:12 AM »
Basically, don't slate me, we all have to start somewhere but I have learnt a lot by doing this but I'm now having issues, I ran each sub on it's own and they all worked as intended, I have added them together and am having issues, if anyone could quickly look over this and give me corrections or advice on what I'm done well and not so well, the advice would be appreciated, I want to learn to script and eventually write for you all but I'm going to need a little guidance. Please & Thanks! (I didn't really mess with the wait times as of yet.) Some issues I'm having, getting a certain amount of ingots from the secure and crafting a certain amount of shields, ideally something like getting 1000 ingots and crafting 100 shields and then donating would be nice but I was unsure how to even go about that either

Code: [Select]
set %homerunebook EOSSNOD
set %libraryrunebook JUSSNOD
set %homesecure KJHEFPD
set %ingots ENK
set %smithtool OBG
set %tinkertool JTL
set %donationnpc SKHWH
set %backpack UAJNZOD
set %ingotamount 500



main:
gosub openresourcebag
gosub getingots
gosub checktinkertools
gosub checksmithtools
gosub craftshields
gosub recalltonpc
repeat
{
gosub donate
}
#findcnt FIK C_ , #backpackid
until #findcnt <= 0
gosub recallhome


sub openresourcebag
set #lobjectid %homesecure
Event macro 17 0
wait 10
return

sub getingots
finditem ENK , %homesecure
exevent drag #findid %ingotamount
wait 10
Exevent Dropc #backpackid
wait 10
return

sub recalltonpc
event macro 15 31
target 50
set #ltargetid %libraryrunebook
event macro 22
wait 10
return

sub recallhome
event macro 15 31
target 50
set #ltargetid %homerunebook
event macro 22
wait 10
return

sub checktinkertools
repeat
#findcnt %tinkertool C_ , #backpackid
if #findcnt < 3
{
gosub crafttinkertools
}
finditem %tinkertool C_ , #backpackid
until #findcnt >= 3
if #findcnt >= 3
return

sub checksmithtools
repeat
#findcnt %smithtool C_ , #backpackid
if #findcnt < 3
{
gosub craftsmithtools
}
finditem %smithtool C_ , #backpackid
until #findcnt >= 3
if #findcnt >= 3
return


sub craftshields
finditem %smithtool C_ , #backpackid
set #lobjectid #findid
event macro 17 0
{
      wait 20
      click 318 429
      wait 20
}
return

sub donate
click 302 235 d
wait 10
click 290 318
wait 10
target 20
finditem FIK C_ , #backpackid
set #LtargetID #findid
event macro 22
wait 10
return


sub crafttinkertools
finditem %tinkertool C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 10
click 266 115
wait 10
return

sub craftsmithtools
finditem %tinkertool C_ , #backpackid
set #lobjectid #findid
event macro 17 0
wait 30
click 410 252
wait 30
click 262 94
wait 30
return





4
Script Debug / Sub issue
« on: December 10, 2015, 07:32:13 AM »
I have an issue with this sub setting off the sound (alarm) no matter what I try to edit, why does my alarm keep going off even though my %Alerts are not being triggered?

Basically I use lame 3.0 and have added this sub into it, except the alarm goes off constantly when I add more than 1 %Alert
Code: [Select]
set %ALERTS 3
set %ALERT1 Wiggles
set %ALERT2 Razor
set %ALERT3 Deathstar
set %stamPer ( #MAXSTAM * %stamPercMod ) / 100
set !jindex #jindex + 1
set %playerspotted #false

sub playercheck
     set !nextjinedxend #jindex
    if !jindex <= !nextjinedxend
    {
       for !ji !jindex !nextjinedxend
       {
           scanjournal !ji
           for %number 1 %alerts
           if %alert . %number in #journal
           {
                   set %playerspotted #true
                   break
           }
       }
       set !jindex !nextjinedxend + 1
    }
    if %playerspotted
    {
       while #true
       {
           sound alarm
       }
    }
    sleep 10
    return





5
Script Debug / run from a mob
« on: November 17, 2015, 06:36:16 AM »
I'm trying to add something to my script project but I have no idea how to go about this, I'm trying to add something in that if it seems a mob type (RB_UB) it runs away using the sub leave dungeon anyone know a quick way to do this? I have added the things I know below...

set %runawaymobs RB_UB

finditem %runawaymobs G_10

gosub leavedungeon

6
Script Debug / Hiding and closing corpses
« on: November 07, 2015, 08:43:01 AM »
I have these two subs but I'm not sure how to go about closing and hiding the corpse after I've finished looting, if anyone could add it in and show me how it's done I would be grateful!
Thanks!
Code: [Select]
;--------------------------------------------------------------
;--------------------------------------------------------------
sub loot
  finditem YFM G_2
  if #findkind <> -1
  {
    set %mobs_killed %mobs_killed + 1
    set %corpse #findid
    if %skin = #true  && %training_mode = #false
    {
      if %use_war_cleaver = #true
        set %skin_tool %cleaverid
      set #lobjectid %skin_tool
      event macro 17 0
      target
      set #ltargetid %corpse
      event macro 22 0
      wait 17
    }
    if %loot_gold = #false && %loot = N/A
    {
      ignoreitem %corpse
      return
    }
    set #lobjectid %corpse
    event macro 17 0
    wait 5
    gosub wait_gump container_gump 144_212 3
    if #result = #false
      return
    wait 5
    set %loot_container #contid
    wait 13
    ignoreitem %corpse
  }
  if #findkind = -1
    return
  gosub grab_items
return
;--------------------------------------------------------------
;--------------------------------------------------------------
sub grab_items
  if %loot_gold = #true
  {
    wait 4
    finditem POF C_ , %loot_container
    if #findkind <> -1
    {
      exevent drag #findid #findstack
      wait 13
      exevent dropc #backpackid
      wait 13
    }
  }
  finditem * C_ , %loot_container
  for %i 1 #findcnt
  {
    finditem %loot C_ , %loot_container
    if #findkind <> -1
    {
      exevent drag #findid #findstack
      wait 13
      exevent dropc #backpackid
      wait 13
    }
    finditem %stackables C_ , %loot_container
    if #findkind <> -1
    {
      exevent drag #findid #findstack
      wait 13
      exevent dropc #backpackid
      wait 13
    }
  }
  if %skin = #true  && %use_war_cleaver <> #true
  {
lloop:
    gosub weight_check
    wait 2
    while #true
    {
      finditem EEG C_ , %loot_container
      if #findkind <> -1
      {
        set #lid #findcnt
        if #weight > %weight_before_split
        {
          set %damount #findstack / 2
          if #findstack <= 15
            set %damount #findstack
        }
        else
          set %damount #findstack
        exevent drag #findid %damount
        wait 14
        exevent dropc #backpackid
        wait 15
      }
      if #findkind = -1
        break
      wait 5
      finditem kag C_ , #backpackid
      set #lobjectid #findid
      event macro 17 0
      target   2s
      finditem eeg C_ , #backpackid
      set #ltargetid #findid
      event macro 22 0
      wait 5
      wait 10
    }
  }
return
;--------------------------------------------------------------
;--------------------------------------------------------------

7
Script Debug / Addition to this sub please!
« on: November 06, 2015, 05:11:44 AM »
I'm trying to add something to this script that re-arms a weapon with more than 15 durability after it removes one for being low on durability
firstly I'd add this to the top of my script %weapons and add the list of weps I'd like rearmed by type or ID either is fine, I know this script removes armor too but I can check that myself and repair it way before I get through 5 or so weapons, here is the sub, maybe also the wait times may need editing so that I don't die from hitting nothing , I'd appreciate any help. THANKS!

sub scan_armor
  set #lpc 1000
  gosub show_men
  finditem * C_ , #charid
  for #findindex 1 #findcnt
  {
    gosub scan_dura #findid
    if #result = #true && !dura_max <> N/A
    {
      event property #findid
      set %temp_sid #property
      str pos %temp_sid $
      set %del #strres - 1
      if %del > 22
        set %del 22
      str left %temp_sid %del
      set %prop #strres
      set %slash /
      menu list add durabox %prop , #spc , !dura_cur , %slash , !dura_max
      if !dura_cur <= %dura_warn
      {
        set %problem %problem + 1
        event macro 3 0 %prop , #spc , !dura_cur , #spc , Durability , #spc , left! , #spc , Please , #spc , Stop , #spc , Script , #spc , And , #spc , Fix , #spc , It!!!
        menu delete durawarn
        menu Font Size 8
        menu Font Style b
        menu Font Color Red
        menu Text durawarn 15 10 ( %problem warnings ) %prop is below dura threshold
        if %remove_armor_on_warn = #true
        {
          wait 10
          exevent drag #findid #findstack
          wait 10
          exevent dropc #backpackid
          wait 10
        }
      }
    }
  }
  set #lpc 20
  set %problem 0
return

8
Script Debug / Issue with a sub of mine
« on: September 20, 2015, 07:32:00 AM »
I'm having an issue when calling this sub for the 2nd time in my script, firstly it runs to my first rail great, runs to bank, deposits and then upon calling the rail sub for the second time it does nothing, anyone have an idea why?
without adding my whole script this is what it looks like

This is my little call for subs in my checkweight sub, why would the 2nd call not work? any help appreciated!

 gosub runrail RailOne
        wait 2s
        gosub recall_to_bank
        wait 1s
        gosub deposit_items
        wait 1s
        gosub recall_to_dungeon
        wait 1s
        gosub runrail RailTwo

Code: [Select]



;--------------------------------------------------------------
;--------------------------------------------------------------
sub runrail
msg Dungeon Despise$
wait 2s
     namespace push
     namespace local MR , #systime

     set !Cnt %1 , Cnt
     set !Cnt % . !Cnt
     set !SX %1 , X
     set !SY %1 , Y

     for !i 1 !Cnt
     {
         set !nX !SX , !i
         set !nY !SY , !i
         set !nX % . !nX
         set !nY % . !nY

         move !nX !nY 0 5s   ;you might have to adjust timeout depending on move length
     }

     namespace clear
     namespace pop
return

9
Stealth Client / Buying/Paying For Stealth Scripts
« on: September 01, 2015, 10:29:17 AM »
Paying someone to write me some scripts for Stealth
ICQ me or PM me and I will tell you what I would like, thank you!
ICQ #657306595

10
Script Debug / Character Movement
« on: August 25, 2015, 08:29:47 AM »
this is something I have not really looked into or can understand too well so I'm after some help
I'm wanting a character to move to a certain spot but from a starting spot that may change (not by too much) but I have no idea the best way to do this,
 I'm looking for something like this
 Press num9 - char runs to a spot
 Press num8 - char runs to a different spot
 press num7 - char runs to another spot

what would be the best way to do this guys and how would I key activate it?

11
Script Debug / GM Alerter Sub
« on: July 09, 2015, 10:10:03 AM »
So It seems a GM loves me and bothers me almost twice a day so I'd like some help please, I'm needing it to journal scan for a GM talking, let me know if I've got it all wrong!
Code: [Select]
Main: My mainy body script would go here along with
gosub GM_ALERT


sub GM_ALERT
gosub TM_AdvJournalScan GM ALERT [GM][
if #RESULT = #TRUE
{
sound warning2.wav


;-------------------------------------------------------------------------------
; %1 - Journal Name
; %2 - #LPC setting (optional)
; Brings !_jindex up to the most recent #journal entry
sub TM_AdvJournalSync
  namespace push
  namespace local TM_AdvJS_ , %1
  set !_jindex #jindex + 1
  if %0 > 1
    set !lpc_set %2
  namespace pop
  set !TM_FunctionCalled #TRUE
return
;-------------------------------------------------------------------------------
; %1 - Journal Name
; %2 - NONE, ADVANCE , ( _VALID ) - advances jindex pointer, anything else
; %3, %4, %5, etc strings to match
; returns #TRUE for match, #FALSE for no match
;  Will not advance !_jindex pointer to allow for scanning journal history for more than one search.
;  Also searches for : , #SPC in journal entry to be sure someone isn't spamming the text
;  About %2 arguments:
;    NONE: defaults to basic journal scan (no SPAM checking, no #jindex pointer copy advancing)
;    ADVANCE: no spam checking, advances #jindex copy
;    VALID: invokes SPAM filtering, no advance of #jindex copy
;    VALID_ADVANCE, VALIDADVANCE, ADVANCE_VALID, etc.: invokes SPAM filtering, advances of #jindex copy
sub TM_AdvJournalScan
  namespace push
  namespace local TM_AdvJS_ , %1
  set !args %2
  set !temp_lpc #LPC
  if !lpc_set = N/A
    set #LPC 1000
  else
    set #LPC !lpc_set
  set !num_args %0
  set !first_arg 3
  set !sampled_jindex #JINDEX
  if !_jindex = N/A
    set !_jindex !sampled_jindex
  if !charname = N/A
  {
    set !charname #CHARNAME
AdvJournalScan_loop1:
    str pos !charname #SPC
    if #STRRES <> 0
    {
      set !val #STRRES - 1
      str left !charname !val
      set !left #STRRES
      set !val !val + 1
      str del !charname 1 !val
      set !charname !left , _ , #STRRES
      goto AdvJournalScan_loop1
    }
  }
  set !index !first_arg
  repeat
    set !temp_jindex !_jindex
    set !text % . !index
    while !temp_jindex <= !sampled_jindex
    {
      scanjournal !temp_jindex
      str pos #JOURNAL !charname 1
      set !namepos #STRRES
      str count #JOURNAL !charname
      set !namecnt #STRRES
      str pos #JOURNAL :_ 1
      set !smcpos #STRRES
      str pos #JOURNAL !text 1
      set !textpos #STRRES
      if !textpos < !smcpos && !smcpos <> 0 || !smcpos = 1 || :_ notin #JOURNAL || VALID notin !args
        set !pass #TRUE
      else
        set !pass #FALSE
      if ( !text in #journal && ( ( !namepos = 1 && !namecnt <= 1 ) || !pass ) )
      {
        set !temp_jindex !temp_jindex + 1
        if ADVANCE in !args
          set !_jindex !temp_jindex
        set !trigger !text
        set #LPC !temp_lpc
        namespace pop
        set !TM_FunctionCalled #TRUE
        return #TRUE
      }
      set !temp_jindex !temp_jindex + 1
    }
    set !index !index + 1
  until !index - !first_arg > !num_args - !first_arg
  set %10 !sampled_jindex - !_jindex
  set %10 %1 , _ , %10 ; for debugging purposes
  set #LPC !temp_lpc
  set TM_AdvJournalGetTrigger #FALSE
  namespace pop
  set !TM_FunctionCalled #TRUE
return #FALSE
;-------------------------------------------------------------------------------


12
Submit your Script / Ketchup's Saucy Veternary Trainer
« on: June 28, 2015, 05:03:09 AM »
Please be gentle, here is my first written script that I've actually ever got semi working, I plan to keep this updated and try to build on the basics I have here! I need to learn somehow!
Anyway!
Setup Instructions:
1) Have a backpack full of normal bandages
2) Have 2 identical tamed animals, preferably something with high hit points that hits little damage, I prefer cows
3) Target the actual animal and not it's hit point bar, for now (plan to be fixed)

Known issues that I may need help with:
1) Sometimes the pet may die, I'm unsure how to go about ignoring the timer if a pet doesn't need to be healed, for example if it's full health
2) If you run out of bandages, no scripted way to get more


13
Script Debug / possible help with the start of a script please?
« on: June 02, 2015, 08:50:22 PM »
I'm in need of some guidelines to follow, I would like some help starting this, if anyone could show me how pressing a key on one client can be sent to all the other open clients or ones selected, ones selected is probably better and return back to the main client and wait for another key to be pressed.
If someone could help me out by showing me how for example I can armor ignore and momentum strike as a start would be perfect, I can then mess around adding new keys!
I suppose this script could even send the key pressed to the clients and I can set the macros up through the clients
any advice or the start of the script would be great please!

14
Script Debug / Messing with a section of a script help
« on: May 30, 2015, 09:58:16 PM »
I'm messing with Gen's - GM Alerter and wondering a few things, I've included the sub that I'm trying to modify and the whole script.
in the sub alert if I remove the gosub pause it does the first thing I want I want it to do, but I'm unsure if this will ruin the rest of the script, I'm removing it because I want it to not pause everytime I move my my character or when a GM moves it. Will doing this also cause it to just keep playing if I have player detection on? if so I don't really mean to do this... the other things I'm thinking of doing is changing the "warning" sound, would I just put another .wav file name in it's place and make sure it's in the same folder as the script? for me the sound is too short,If I miss it the first time, I'll be screwed
also does anyone know the co-ords for the new jail/AFK room? I'm pretty sure that doesn't work either unless it's the warning of being moved setting it off first, so basically I just want it to not pause and for it to keep playing something when I'm moved until I pause and reset the script I guess
Code: [Select]
sub alert
  set *stop #true
  if %sound
    sound warning.wav
  wait 20
  gosub s7TTS %1
  wait 20
  gosub menu_refresh
  set %sound #true
  if %pause
  {
    set %jreset #true
    set %pause #false
    set #menubutton N/A
    gosub pause
  }
return
Code: [Select]
;=================================================================
; Script Name: Gen's GM Alert 2.0
; Author: Gen2000
; Version: 2.0
; Shard OSI / FS: OSI
; Release Date: 10/17/09
; Purpose: Menu Driven GM alert and more!
;=================================================================
; Featured Alerts: GM Talks
;                  Character Moves
;                  Lost Connection
;                  Character in Jail
;                  Character Dead
;                  Trade Window
;-----------------------------------------------------------------
; Other Features:  Voice Alerts! (It talks!)
; Player Detection w/ Name of character detected in menu/voice
;=================================================================
; Requirments: s7TTS VBScript (Included)
;              talk VBScript  (Included)
;              warning.wav    (Included)
;=================================================================
; Directions:  Make sure all 4 files are in the same folder as euo.
;              (Gen's GM Alert 2.0 + 3 files above)
;              Start script and check the boxes you want to use.
;=================================================================
; Special Thanks: snicker7/s7Accessability Suite - "Voice Alerts"
;=================================================================
; http://www.scriptuo.com
;=================================================================
gosub setup
;================================================
;----------------Alerts--------------------------
;================================================
; Add/Remove Alerts you want.
; *Make sure %ALERTS = The amount of Alerts.
;================================================
SET %ALERTS 16
set %ALERT1 hail
set %ALERT2 excuse
set %ALERT3 here
set %ALERT4 key
set %ALERT5 greetings
set %ALERT6 are
set %ALERT7 hello
set %ALERT8 csr
set %ALERT9 chat
set %ALERT10 GM
set %ALERT11 Please_enter
set %ALERT12 respond
set %ALERT13 EARep
set %ALERT14 %charname_first
set %ALERT15 %charname_last ;Uses for Lord/Lady.
set %ALERT16 Advisor



;================================================
;----------------Falses--------------------------
;================================================
; If you get a false positive you can add it below.
; Go to Tools/VarDump on EUO
; Scroll down to !Debug.(at the bottom)
; Copy and past that into a new %FALSE
; Update %FALSES at the top.
;================================================
set %FALSES 39
set %FALSE1 you_see:
set %FALSE2 Can't_get_there
set %FALSE3 You_are_now_under_the_protection_of_the_town_guards.
set %FALSE4 Care_to_hear_how_to_earn_some_easy_gold?
set %FALSE5 I_have_an_offer_for_you.
set %FALSE6 You_are_frozen_and_cannot_move.
set %FALSE7 You_are_already_casting_a_spell.
set %FALSE8 You_prepare_to_strike
set %FALSE9 in_Bushido_has
set %FALSE10 This_book_needs_time_to_recharge.
set %FALSE11 You_cannot_cast_that_spell_in_this_form.
set %FALSE12 You_cannot_honor_this_monster_because_it_is_too_damaged.
set %FALSE13 You_have_lost_all_Perfection_in_fighting_this_opponent.
set %FALSE14 Mana_to_use_this_ability.
set %FALSE15 You_cannot_use_this_ability_while_frozen.
set %FALSE16 You_have_lost_some_Perfection_in_fighting_this_opponent.
set %FALSE17 You_did_not_earn_the_right_to_loot_this_creature!
set %FALSE18 You_prepare_to_perform_a_Shadowjump.
set %FALSE19 What_do_you_want_to_use_this_item_on?
set %FALSE20 You_carve_some_meat,_which_remains_on_the_corpse.
set %FALSE21 You_skin_it,_and_the_hides_are_now_in_the_corpse.
set %FALSE22 You_see_nothing_useful_to_carve_from_the_corpse.
set %FALSE23 I_cannot_tell_where_I_am.
set %FALSE24 You_have_Achieved_Perfection_in_inflicting_damage_to_this_opponent!
set %FALSE25 You_have_achieved_the_highest_path_in_Valor_and_can_no_longer_gain_any_further.
set %FALSE26 You_failed_to_create_the_item,_and_some_of_your_materials_are_lost.
set %FALSE27 Tame_which_animal?
set %FALSE28 Click_on_the_person_to_transfer_ownership_to.
set %FALSE29 You_have_earned_250_reward_points_for_this_donation.
set %FALSE30 You_are_overloaded.
set %FALSE31 This_is_currently_in_use.
set %FALSE32 You_are_busy_doing_something_else_and_cannot_focus.
set %FALSE33 You_are_unable_to_resurrect_your_patient.
set %FALSE34 You_are_able_to_resurrect_your_patient.
set %FALSE35 Greetings.__Have_a_look_around.
set %FALSE36 Thank_you_so_much
set %FALSE37 What_shall_I_use_this_key_on?
set %FALSE38 There_is_no_metal_here_to_mine.
set %FALSE39 Where_do_you_wish_to_dig?
;------------------------------------------------
; If an NPC is setting off the player alert.
; Add the NPC name below and update %PDFALSES.
;------------------------------------------------
set %PDFALSES 21
set %PDFALSE1 quest , #spc , giver
set %PDFALSE2 tower , #spc , cryer
set %PDFALSE3 Priest , #spc , Of , #spc , Mondain
set %PDFALSE4 the , #spc , noble
set %PDFALSE5 the , #spc , fighter
set %PDFALSE6 the , #spc , sailor
set %PDFALSE7 the , #spc , thief
set %PDFALSE8 the , #spc , gypsy
set %PDFALSE9 the , #spc , Bard
set %PDFALSE10 the , #spc , artist
set %PDFALSE11 the , #spc , mage
set %PDFALSE12 the , #spc , wandering , #spc , healer
set %PDFALSE13 the , #spc , beggar
set %PDFALSE14 the , #spc , peasant
set %PDFALSE15 the , #spc , sculptor
set %PDFALSE16 The , #spc , Actor
set %PDFALSE17 Refugee
set %PDFALSE18 The , #spc , Hairstylist
set %PDFALSE19 The , #spc , Guard
set %PDFALSE20 Milena
set %PDFALSE21 a ,  #spc , PK , #spc , dragon
;================================================
;-----------------Main loop----------------------
;================================================
;--------DO NOT EDIT BELOW THIS LINE-------------
;================================================
gosub showEUOMenu1
gosub s7TTS G M Alert is now scanning
loop:
if #MENUBUTTON = CLOSED
  halt
if #MENUBUTTON = pause
  gosub pause
if %line <= #jindex
{
  for %number 1 %alerts
  {
    scanjournal %line
    if %alert . %number in #journal
    {
      gosub failsafe
      if #result
      {
        if %debug
          set !debug_result #journal
        gosub updJournalLines #journal
        set %alert Talking
        set %journal %journalline1
        set %pause #true
        gosub alert %journalline1
      }
    }
  }
}
menu get playerdetect
if ! #MENURES
  goto trade
if %contact_wait < #SCNT
  ignoreitem reset name
finditem HS_IS_NAB_OAB_QAB_PAB_MAB_RAB_SAB_LAB_XU_AV_OCB_NCB_CD_ME G_12
if #findkind <> -1
{
  if #FINDREP <> 7
  {
    gosub GetName #findid
    if #result
    {
      set %cname %Propname
      set %sound #false
      gosub alert %cname , #spc , has , #spc , arrived
      set %contact %cname
      menu set contact %contact
    }
  }
  ignoreitem #findid name
  set %contact_wait #SCNT + 30
}
trade:
menu get tradewindow
if #MENURES
{
  if #CONTSIZE = 348_203 && #CONTNAME = trade_gump
  {
    set %alert Trade Window
    set %pause #true
    gosub alert Trade , #spc , Winndow
  }
}
menu get jail
if #MENURES
{
  if #CHARPOSY < 1192 && #CHARPOSY > 1158 && #CHARPOSX < 5312 && #CHARPOSX > 5270
  {
    set %alert Jail!
    set %pause #true
    gosub alert You , #spc , are , #spc , in , #spc , jail
  }
}
if #CHARNAME = N/A
{
  event macro 8 2
  wait 10
}
menu get dead
if #MENURES
{
  if #CHARGHOST = yes
  {
    set %alert Your Dead
    set %pause #true
    gosub alert you , #spc , are , #spc , dead
  }
}
menu get lostcon
if #MENURES
{
  if #CONTNAME = waiting_gump && #CONTSIZE = 203_121
  {
    set %alert LostConn
    set %pause #true
    gosub alert Lost , #spc , Connection
  }
}
menu get charmove
if #MENURES
{
  if ! %set
    gosub setcharpos
  if %x <> #CHARPOSX || %y <> #CHARPOSY
  {
    set %set #false
    set %alert Moved
    set %pause #true
    gosub alert your , #spc ,  character , #spc ,  has , #spc , been , #spc , mooved
  }
}
if #CLILOGGED <> 1
{
  menu set status Halted
  menu set Alert Logged
  halt
}
goto loop
;================================================
;---------------Subs-----------------------------
;================================================
sub alert
  set *stop #true
  if %sound
    sound warning.wav
  wait 20
  gosub s7TTS %1
  wait 20
  gosub menu_refresh
  set %sound #true
  if %pause
  {
    set %jreset #true
    set %pause #false
    set #menubutton N/A
    gosub pause
  }
return

sub s7TTS
  set !_s7TTS_str N/A
  for !_s7tts 1 %0
  {
    if !_s7tts_str <> N/A
      set !_s7tts_str !_s7tts_str , #spc , % . !_s7tts
    if !_s7tts_str = N/A
      set !_s7tts_str % . !_s7tts
  }
  execute WScript s7TTS.vbs " , !_s7TTS_str , "
return

sub GetName
  Event Property %1
  if #property = $
    return #false
  for %number 1 %pdfalses
  {
    if %pdfalse . %number in #property
      return #false
  }
  str pos #property $
  set %strlen #strres - 1
  str left #property %strlen
  set %PropName #strres
return #true

sub updJournalLines
  set %journalLine %1
  gosub strreplace journalLine _ #spc
  for %journalI 10 2
  {
    set %_ %journalI - 1
    set %journalLine . %journalI %journalLine . %_
  }
  set %journalline1 %journalLine
return

sub strreplace
  str Pos % . %1 %2
  if #strRes = 0
    return
  set %pos #strRes
  str del % . %1 %pos 1
  str ins #strRes %3 %pos
  set % . %1 #strRes
  gosub strreplace %1 %2 %3
return

sub failsafe
  if %charname_failsafe in #journal
    return #false
  if #JCOLOR = 53
    return #false
  if #journal = N/A
    return #false
  for %number 1 %falses
  {
    if %false . %number in #journal
      return #false
  }
  if [Alliance] in #journal
    return #false
  if [Guild] in #journal
    return #false
return #true

sub pause
  menu set status Paused
  menu delete pause
  menu Font Color WindowText
  menu Font BGColor BtnShadow
  menu Button resume 132 88 75 25 Resume
  gosub s7TTS G M Alert is now paused
pause:
  if #menubutton = closed
    halt
  if #menubutton = resume
  {
   
    if %jreset
      set %line #jindex + 1
    set %jreset #false
    menu set status Scanning...
    menu set alert None
    menu set journal Waiting...
    menu delete resume
    menu Font Color WindowText
    menu Font BGColor BtnShadow
    menu Button pause 132 88 75 25 Pause
    gosub s7TTS G M Alert is now scanning
  return
}
goto pause

sub menu_refresh
  menu set status %status
  menu set journal %journal
  menu set alert %alert
return

sub setcharpos
  set %x #CHARPOSX
  set %y #CHARPOSY
  set %set #true
return

sub charname
  if #CHARNAME = N/A
  {
    event macro 8 2
    wait 10
  }
  set %charname #CHARNAME
  str len %charname
  set %len #strres
  str pos %charname #spc
  set %pos #STRRES
  str del %charname %pos %len
  set %charname_first #strres
  str del %charname 1 %pos
  set %charname_last #strres
  str len %charname_last
  set %len #strres
  set %len %len + 1
  str ins %charname_last : %len
  set %charname_failsafe #strres
  if %charname_first = lord || %charname_first = lady
    set %charname_first %charname_last
return

;================================================
;---------------Menus----------------------------
;================================================
sub showEUOMenu1
  menu Clear
  menu Window Title Gen's - GM Alert 2.0 - #charname
  menu Window Color Black
  menu Window Size 340 225
  menu Font Transparent #true
  menu Font Align Right
  menu Font Name MS Sans Serif
  menu Font Size 12
  menu Font Style
  menu Font Color Aqua
  menu Font Transparent #false
  menu Font Align Left
  menu Font BGColor Black
  menu Text EUOLabel1 196 8 Alert:
  menu Text EUOLabel2 4 200 Journal:
  menu Font Color Lime
  menu Text alert 240 8 %alert
  menu Text journal 64 200 %journal
  menu Font Size 10
  menu Font Style bu
  menu Font Color Blue
  menu Text EUOLabel4 96 52 Choose Alerts Below
  menu Font Size 12
  menu Font Style
  menu Font Color Aqua
  menu Text EUOLabel6 4 8 Status:
  menu Font Color Lime
  menu Text status 60 8 %status
  menu Font Color Blue
  menu Text EUOLabel3 0 140 ======================================
  menu Text EUOLabel5 0 28 ======================================
  menu Text EUOLabel7 0 180 ======================================
  menu Font Color Aqua
  menu Text EUOLabel8 4 160 Last Contact:
  menu Font Color Lime
  menu Text contact 108 160 %contact
  menu Font Size 8
  menu Font Color Red
  menu Check lostcon 8 116 101 25 #true Lost Connection
  menu Check playerdetect 8 76 101 25 #false Player Detection
  menu Check tradewindow 228 116 101 25 #true Trade Window
  menu Check jail 228 76 101 25 #true Jail
  menu Check dead 228 96 101 25 #true Dead
  menu Font Color WindowText
  menu Font BGColor BtnShadow
  menu Button pause 132 88 75 25 Pause
  menu Font Color Red
  menu Font BGColor Black
  menu Check charmove 8 96 101 25 #false Char Moved
  menu Show 0 745
return


sub setup
set #lpc 10000
set %line #jindex + 1
ignoreitem #CHARID me
set %status Scanning...
set %alert None
set %journal Waiting...
set %contact None
set %sound #true
set #MENUBUTTON N/A
set %set #false
set %jreset #false
set %pause #false
set %debug #true
gosub charname
return

15
UOSteam / Steam issue upon login
« on: April 22, 2015, 07:02:07 PM »
not sure if this has even been suggested but when I open steam and try to connect to UO I get the "unable to resolve IP Address login.ultimaonline.com" message, is there a way to fix this issue? I'm running windows 7 and it never used to do this when I running windows 8
any way to solve it that anyone knows of?

Pages: [1] 2