1
Script Debug / Re: New issue. Need help
« on: September 12, 2014, 03:49:08 PM »
That was the first thing I though, but even if i set a 5 second wait time before executing the disarm, it still doesn't do it

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.
sub ConsumeItem
while h in #charstatus || #LLIFTEDKIND = 1
{
wait 0
}
Finditem %1 C_ , #backpackid
retry:
if %1 = ZLF
{
event macro 58 0
goto skip
}
gosub TM_AdvJournalSync Apple
set #lobjectid #findid
event macro 17 0
if %1 = CBS
{
gosub TM_AdvJournalScan Apple VALID not_strong_enough
wait 10
if #result = #TRUE
{
goto retry
}
}
if %1 = NUF
{
gosub TM_AdvJournalScan Apple VALID free_hand
wait 10
if #result = #TRUE && %Disarm = #true
{
gosub Disarm
goto retry
}
if %disarm = #false
{
event ExMsg #charid 0 2498 Can't use cure pot with two handed weapon!
}
if %Disarmed = #true
{
set %Disarmed #false
event macro 37 0
wait 10
}
skip:
wait 10
return
sub Disarm
finditem %weapon C_ , #charid
set %CurWep #findid
exevent drag %CurWep
wait 10
exevent dropc #backpackid
wait 10
return
Raz,Agreed
I could swear the same thing. I think the snakes give you the best chance at getting eggs and don't collapse th nest as often. That would make sense as we use a 'Snake Charming Flute' and a serpent is not necessarily a snake, but they still respond to the flute like a slayer weapon. The Snake Charmer Flute is a Super Slayer for Snakes.
If that makes any sense...
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; Script Name: Raz's Time Getter Sub
; Author: Razeial
; Version: 1.0
; Purpose: Gives a value of time in the format of 00:00 AM/PM
;
;Instructions: Place this sub in your script. The variable %time is used for the return value.
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
SUB GetTime
set %time #time
if #time < 130000
{
if #time >= 120000 && #time < 130000
{
str left %time 4
set %time #strres
str left %time 2
set %time1 #strres
str right %time 2
set %time2 #strres
set %time %time1 , : , %time2 , #spc , PM
}
if #time >= 000000 && #time < 010000
{
str right %time 4
set %time1 #strres
str left %time1 2
set %time2 #strres
set %time 12 , : , %time2 , #spc , AM
display %time
}
if #time < 100000 && #time >= 010000
{
str left %time 4
set %time #strres
str mid %time 2 3 4
set %time #strres
str left %time 1
set %time1 #strres
str right %time 2
set %time2 #strres
set %time %time1 , : , %time2 , #spc , AM
}
if #time < 120000 && #time >= 100000
{
str left %time 4
set %time #strRes
str left %time 2
set %time1 #strres
str right %time 2
set %time2 #strres
set %time %time1 , : , %time2 , #spc , AM
}
}
if #time > 130000
{
if #time > 195959
{
str left %time 4
set %time #strRes
str left %time 2
set %time1 #strres - 12
str right %time 2
set %time2 #strres
set %time %time1 , : , %time2 , #spc , PM
}
if #time < 095959 && #time > 120000
{
set %time #time - 120000
str left %time 3
set %time #strres
display %time
str left %time 1
set %time1 #strres
str right %time 2
set %time2 #strres
set %time %time1 , : , %time2 , #spc , PM
}
}
return
Here is a simple script for getting Medusa keys a little easier. As many know by now, there seems to be an issue targeting the snake nests, so this script relies on you to do so, but does everything else by itself, except move your character.Enjoy
This is great. I am going to give it a whirl today and see what happens. There has to be a way of identifying the Serpent's Nest. They are clickable. Has anyone found out whether you have a beter chance of getting the eggs if you charm the snakes or he serpents?
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; Script Name: Raz's (almost) Auto Snake Charmer
; Author: Razeial
; Version: 1.0
; Client Tested with: 7.0.27.5
; EUO version tested with: 1.5 v218
; Shard OSI / FS: EA/OSI
; Revision Date: 8/29/2012
; Public Release: 8/26/2012
; Global Variables Used: none
; Purpose: Automates the process for obtaining Keys for the Medusa Peerless
; Instructions: Press Play. You will have to manually target the snake nest as there is an
; issue with EUO not being able to target them.
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;======================================================
; Setup
;======================================================
if %setup <> #true
{
set %snake QE_JD
set %hole PBN
set %flute RGP_PGP
set #sysmsgcol 32
set %setup #true
}
;======================================================
; Mainloop
;======================================================
mainloop:
finditem %snake G_8
if #findcnt < 1
goto mainloop
set %targsnake #findid
wait 10
finditem %hole G_8
if #findcnt < 1
goto mainloop
gosub FindFlute
gosub TargSnake
gosub TargHole
if #result = #false
goto mainloop
wait 10s
goto mainloop
return
;======================================================
; Sub TargHole
;======================================================
Sub TargHole
if #targcurs = 1
{
event SysMessage Target the hole
repeat
wait 0
until #targcurs <> 1
)
else
return #false
return
;======================================================
; Sub TargSnake
;======================================================
Sub TargSnake
set #lobjectid %useflute
set %js #jindex
event macro 17 0
target
set #ltargetid %targsnake
set #ltargetkind 1
event macro 22 0
set %je #jindex
wait 10
for %cantPersuade %js %je
{
scanjournal %cantPersuade
if you_dont't_seem in #journal
gosub TargSnake
if
}
target
return
;======================================================
; Sub FindFlute
;======================================================
SUB FindFlute
finditem %flute C_ , #backpackid
event Property #findid
if charmer in #property
set %useflute #findid
else
{
ignoreitem #findid
gosub FindFlute
}
if #findcnt < 1
{
display You have no flutes! Halting!
halt
}
return
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; Script Name: Raz's Auto-Snake Charmer
; Author: Razeial
; Version: 1.0
; Purpose: Makes getting keys for Medusa easy!
;
;Instructions: Press Play
;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;======================================================
; Setup
;======================================================
if %setup <> #true
{
set %snake QE_JD
set %hole PBN
set %flute RGP_PGP
set %maxDist 8
set %setup #true
}
;======================================================
; Mainloop
;======================================================
mainloop:
finditem %snake G_8
if #findcnt < 1
goto mainloop
set %targsnake #findid
wait 10
for %i 0 %maxDist
{
finditem %hole G_ , %i
if #findkind <> -1
{
event Property #findid
}
if nest in #property
{
set %targholeid #findid
break
}
}
wait 10
gosub FindFlute
gosub TargSnake
gosub TargHole
if #result = #false
goto mainloop
wait 10s
goto mainloop
return
;======================================================
; Sub TargHole
;======================================================
Sub TargHole
if #targcurs = 1
{
set %ltargetkind 2
set #ltargetid %targholeid
wait 10
event macro 22 0
)
else
return #false
return
;======================================================
; Sub TargSnake
;======================================================
Sub TargSnake
set #lobjectid %useflute
set %js #jindex
event macro 17 0
target
set #ltargetid %targsnake
set #ltargetkind 1
event macro 22 0
set %je #jindex
wait 10
for %cantPersuade %js %je
{
scanjournal %cantPersuade
if you_dont't_seem in #journal
gosub TargSnake
if
}
target
return
;======================================================
; Sub FindFlute
;======================================================
SUB FindFlute
finditem %flute C_ , #backpackid
event Property #findid
if charmer in #property
set %useflute #findid
else
{
ignoreitem #findid
gosub FindFlute
}
if #findcnt < 1
{
display You have no flutes! Halting!
halt
}
return
mainloop:
finditem %Rkit c_ , %bag
if #findkind = -1
{
goto mainloop
}
if #findcnt => 1
{
event Property #findid
if #findcol = 2129
if Barbed_Runic_Sewing_Kit in #property
if Uses_Remaining: , #spc , >= 15 in #property
if Price:_ , #spc , >= %price in #property
{
msg Vendor buy$
target 2s
set #ltargetid #findid
event macro 22 0
wait 5
click 239 336
wait 5
}
RETURN
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
; Script Name: Raz's Disco Trainer ;
; Author: Razeial ;
; Version: 1.51 ;
; Purpose: Trains discordance on animals ;
; Instructions: Get a bunch of animals and release them where you'd like to train. ;
; Make sure you have instruments in your pack! ;
; Script is det by default to stop training at 90 skill ;
; This script assumes you'll be using a 40LMC suit and full FC/FCR ;
; Credits: Paladin for his ScriptTimer Sub ;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;
; Script Name: Raz's Chivalry Trainer ;
; Author: Razeial ;
; Version: 1.0 ;
; Purpose: Trains Chivalry ;
; Instructions: Adjust where you'd like the script to stop training ; ;
; Credits: Paladin for his ScriptTimer Sub
;XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX;