At üzerinde iken special ability ile dismount atýp anýnda ata binen bi script lazým :D Razorda yaptým ama yavaþ yapýyor biraz.

;==================================
; Script Name: rane's combat dismount w/ or w/ out special moves
; Author: raneksi
; Version: 1.0
; Client Tested with: 4.0.11a
; EUO version tested with: V1.42 [Build 00A9]
; Shard OSI / FS: both
; Revision Date:
; Public Release: 14/7/2005
; Global Variables Used: none
; Purpose: Allows you to dismount quickly in combat with hotkey and enable special move if defined
;==================================

;variables:

set %special 0
set %move secondary
set %hk1 r
set %hk2 ctrl


;#####################################################

if %move = primary
set %param 35
else
set %param 36

initEvents
keyloop:
onHotKey %hk1 %hk2
gosub dismount
goto keyloop

sub dismount
set #LOBJECTID #CHARID
event Macro 17 0
set %mounted 0
if %special = 1
event Macro %param 0
mountloop:
onHotKey %hk1 %hk2
gosub mount
if %mounted = 1
{
return
}
else
{
goto mountloop
}
return

sub mount
findItem OF_MG_SG_EG_WJ_BK_MHB_HHB_SH_CG_JG_KG G_2 ;
if #findkind <> -1
{
set #LOBJECTID #FINDID
event Macro 17 0
set %mounted 1
}
else
{
goto mountloop
}
return

spellbook yapan bir script arýyorum. Hatasýz olsun mümkünse. :)

;***************************************************************************************
; Script Name: Paladin's Empty Spellbook Filler
; Author: Paladin
; Version: 2.1.1 - Last Updated 04/19/07
; Original Script Relase : 04/08/07
; Client Tested with: 5.0.8.0
; EUO version tested with: 1.5 - test Version 110
; Shard OSI / FreeShards : Freeshards [ Tested on Alexandria ]
; Global Variables Used: none
; Purpose: To Fill an Empty Spellbook from 0 to 64 scrolls.
;***************************************************************************************

; Credit to : Snicker7 as its his elite subs that allow this script to run well !
; Credit to : Ceo for his nifty World Save Check Sub
;***************************************************************************************

; dont modify

ignoreitem reset

set %_worldsavejournalindex #jindex
set *CEOWorldSaving #false

set %regs WZF_KZF_SZF_RZF_MZF_KUF_JUF_JZF_

set %scrolltypes NXL_QXL_PXL_AYL_ZXL_CYL_BYL_WXL_VXL_YXL_XXL_IYL_HYL_KYL_JYL_EYL_DYL_GYL_FYL_STL_RTL_UTL_TTL_OTL_NTL_QTL_PTL_AUL_ZTL_CUL_BUL_WTL_VTL_YTL_XTL_IUL_HUL_KUL_JUL_EUL_DUL_GUL_FUL_QUL_PUL_SUL_RUL_MUL_LUL_OUL_NUL_YUL_XUL_AVL_ZUL_UUL_TUL_WUL_VUL_GVL_FVL_IVL_HVL_CVL_

set %SpellLevel 1
set %SpellChoice 0

set #Menubutton N/A

;==========================================================================================

gosub InfoMenu
wait 2
gosub SetMenuVars
wait 2
gosub cleanbackpack
wait 2

_makeloop:

gosub makescroll
wait 2

goto _makeloop


;==========================================================================================

sub SetMenuVars

_menuloop:

menu edit ResoVar 115 65 70 *resource
menu edit FullBookVar 115 105 70 *fullbook
menu edit EmptyBookVar 115 145 70 *emptybook

if #Menubutton = _SetSec
{
wait 4
set #targcurs 1
while #targcurs = 1
wait 1

set *resource #ltargetid
menu edit ResoVar 115 65 70 *resource
set #strres
gosub StatusText 1
wait 5

set #lobjectid *resource
event macro 17 0
wait 10
contpos 0 500
wait 10
set #menubutton N/A
goto _menuloop
}

if #Menubutton = _SetFullBook
{
wait 4
set #targcurs 1
while #targcurs = 1
wait 1

event property #ltargetid
if 64 notin #property
{
display ok This is not a full spell book silly.. restart script with a full one..
halt
}
if 64 in #property
{
ignoreitem #ltargetid
set *fullbook #ltargetid
menu edit FullBookVar 115 105 70 *fullbook
gosub StatusText 2
set #menubutton N/A
goto _menuloop
}
}

if #Menubutton = _SetEmptyBook
{
wait 4
set #targcurs 1
while #targcurs = 1
wait 1

event property #ltargetid

if 0 in #property
{
set *emptybook #ltargetid
menu edit EmptyBookVar 115 145 70 *emptybook
gosub StatusText 3
set #menubutton N/A
goto _menuloop
}
else
{
display ok This is not a empty spell book silly.. restart script with an empty one..
halt
}
}

if #Menubutton = _Start
{
if *resource = N/A || *fullbook = N/A || *emptybook = N/A
{
gosub StatusText 4
set #menubutton N/A
goto _menuloop
}
wait 2
menu hide
wait 2
return
}

goto _menuloop


;==========================================================================================

sub StatusText

menu delete Status
menu font color White
menu font bgcolor Red
menu font size 10

if %1 = 1
menu text Status 5 250 Resource Container Set !
if %1 = 2
menu text Status 5 250 Full Spellbook Set !
if %1 = 3
menu text Status 5 250 Empty Spellbook Set !
if %1 = 4
menu text Status 5 250 Not all variables are Set !

menu font size 8
menu font bgcolor Black

return

;==========================================================================================

sub makescroll

gosub CEOWorldSaveChecker save_in_1_minute world_is_saving world_save_complete 50 120

gosub choosespell
gosub manacheck %manacost

wait 10

_make:

gosub manacheck %manacost
wait 10
gosub checkforpen
wait 10
gosub checkbackpackregs
wait 10

gosub s7MakeAnything Inscription %SpellLevel %SpellChoice

wait 26

finditem %scroll C_ , #backpackid
if #findkind <> -1
{
exevent drag #findid
wait 7
exevent dropc *emptybook
wait 7
set %Lastscroll %scroll
return
}

if #findkind = -1
{
finditem %lastscroll C_ , #backpackid
if #findcnt > 0
{
exevent drag #findid 60000
wait 7
exevent dropc *resource
wait 7
}

goto _make
}

return

;==========================================================================================

sub choosespell

set %SpellChoice %SpellChoice + 1

if %SpellChoice = 9
{
set %SpellChoice 1
Set %SpellLevel %SpellLevel + 1
}

if %SpellLevel = 9
{
gosub cleanbackpack
wait 5
display ok You have finished your book ! Enjoy!
wait 5
display ok Now Please go Rate my Awesome Scripts !
halt
}

gosub scrolltypes

return

;==========================================================================================

sub manacheck

chooseskill medi

manacheckloop:

if #mana < %1 + 10 && #skill > 900
{
event macro 13 46
wait 10
scanjournal 1
if trance in #journal
{
while #mana < #maxmana
gosub CEOWorldSaveChecker save_in_1_minute world_is_saving world_save_complete 50 120
wait 1
return
}
if cannot_focus in #journal 2
{
gosub CEOWorldSaveChecker save_in_1_minute world_is_saving world_save_complete 50 120
wait 200
goto manacheckloop
}
}

if #mana < %1 && #skill < 900
{
while #mana < #maxmana
gosub CEOWorldSaveChecker save_in_1_minute world_is_saving world_save_complete 50 120
wait 1
return
}

return

;==========================================================================================

sub checkforpen

_checkforpen:

finditem PBG C_ , #backpackid
if #findkind <> -1
return

if #findkind = -1
{
finditem PBG C_ , *resource
if #findkind <> -1
{
wait 5
exevent drag #findid
wait 5
exevent dropc #backpackid
wait 5
return
}

if #findkind = -1
{
display ok Out of Scribe Pens... get more and restart
wait 5
halt
}
}

;==========================================================================================

sub checkbackpackregs

finditem DPF C_ , #backpackid
if #findkind <> -1
{
if #findstack <= 10
{
gosub cleanbackpack
gosub getresources
return
}
return
}

if #findkind = -1
{
wait 5
gosub cleanbackpack
gosub getresources
return
}

finditem %regs C_ , #backpackid

if #findkind <> -1
{
if #findstack <= 10
{
gosub cleanbackpack
gosub getresources
return
}
return
}

if #findkind = -1
{
wait 5
gosub cleanbackpack
gosub getresources
return
}
;==========================================================================================

sub getresources

gosub checkresourcestacks

gosub regs

return

;==========================================================================================

sub cleanbackpack

_cleaning:

finditem DPF C_ , #backpackid
if #findkind <> -1
{
wait 5
exevent drag #findid 60000
wait 5
exevent dropc *resource
wait 5
goto _cleaning
}

wait 5

finditem %regs C_ , #backpackid
if #findkind <> -1
{
wait 5
exevent drag #findid 60000
wait 5
exevent dropc *resource
wait 5
goto _cleaning
}
if #findkind = -1
{
wait 5
ignoreitem reset
return
}

;==========================================================================================

sub checkresourcestacks

finditem DPF C_ , *resource
if #findkind = -1
{
display ok Ran out of Scrolls...That sucks.. Halting
wait 5
halt
}

set %checks 0

_checkingagain:

finditem %regs C_ , *resource

if #findkind <> -1
{
if #findstack >= 50
{
ignoreitem #findid
set %checks %checks + 1
goto _checkingagain:
}
if #findstack < 50
{
display ok Running Low on a Reagent.. Get more and restart
wait 5
halt
}
}

if #findkind = -1
{
if %checks = 8
{
ignoreitem reset
wait 5
return
}
if %checks < 8
{
display ok Running Low on a Reagent.. Get more and restart
wait 5
halt
}
}

;==========================================================================================

sub regs

finditem DPF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem WZF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem KZF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem SZF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem RZF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem MZF C_ , *resource
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem JZF C_ , *resource
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem KUF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

finditem JUF C_ , *resource
if #findkind <> -1
{
wait 10
exevent drag #findid 50
wait 10
exevent dropc #backpackid
}
if #findkind = -1
{
display ok Low on one or more regs.. fix and restart
wait 5
halt
}

return

;==========================================================================================

sub scrolltypes

if %SpellLevel = 1 ; level one
{
if %SpellChoice = 1
{
set %scroll NXL ; clumsy
}
if %SpellChoice = 2
{
set %scroll QXL ; create food
}
if %SpellChoice = 3
{
set %scroll PXL ; feeble mind
}
if %SpellChoice = 4
{
set %scroll AYL ; heal
}
if %SpellChoice = 5
{
set %scroll ZXL ; magic arrow
}
if %SpellChoice = 6
{
set %scroll CYL ; night sight
}
if %SpellChoice = 7
{
set %scroll BYL ; reactive armor
}
if %SpellChoice = 8
{
set %scroll WXL ; weaken
}
set %manacost 6
}

if %SpellLevel = 2 ; level two
{
if %SpellChoice = 1
{
set %scroll VXL ; agility
}
if %SpellChoice = 2
{
set %scroll YXL ; cunning
}
if %SpellChoice = 3
{
set %scroll XXL ; cure
}
if %SpellChoice = 4
{
set %scroll IYL ; harm
}
if %SpellChoice = 5
{
set %scroll HYL ; magic trap
}
if %SpellChoice = 6
{
set %scroll KYL ; magic untrap
}
if %SpellChoice = 7
{
set %scroll JYL ; protection
}
if %SpellChoice = 8
{
set %scroll EYL ; strength
}
set %manacost 8
}

if %SpellLevel = 3 ; level three
{
if %SpellChoice = 1
{
set %scroll DYL ; bless
}
if %SpellChoice = 2
{
set %scroll GYL ; fireball
}
if %SpellChoice = 3
{
set %scroll FYL ; magic lock
}
if %SpellChoice = 4
{
set %scroll STL ; poison
}
if %SpellChoice = 5
{
set %scroll RTL ; telekinesis
}
if %SpellChoice = 6
{
set %scroll UTL ; teleport
}
if %SpellChoice = 7
{
set %scroll TTL ; unlock
}
if %SpellChoice = 8
{
set %scroll OTL ; wall of stone
}
set %manacost 12
}

if %SpellLevel = 4 ; level four
{
if %SpellChoice = 1
{
set %scroll NTL ; arch cure
}
if %SpellChoice = 2
{
set %scroll QTL ; arch protection
}
if %SpellChoice = 3
{
set %scroll PTL ; curse
}
if %SpellChoice = 4
{
set %scroll AUL ; fire field
}
if %SpellChoice = 5
{
set %scroll ZTL ; greater heal
}
if %SpellChoice = 6
{
set %scroll CUL ; lightning
}
if %SpellChoice = 7
{
set %scroll BUL ; mana drain
}
if %SpellChoice = 8
{
set %scroll WTL ; recall
}
set %manacost 16
}

if %SpellLevel = 5 ; level five
{
if %SpellChoice = 1
{
set %scroll VTL ; blade spirits
}
if %SpellChoice = 2
{
set %scroll YTL ; dispel field
}
if %SpellChoice = 3
{
set %scroll XTL ; incognito
}
if %SpellChoice = 4
{
set %scroll IUL ; magic reflection
}
if %SpellChoice = 5
{
set %scroll HUL ; mind blast
}
if %SpellChoice = 6
{
set %scroll KUL ; paralyze
}
if %SpellChoice = 7
{
set %scroll JUL ; poison field
}
if %SpellChoice = 8
{
set %scroll EUL ; summon creature
}
set %manacost 18
}

if %SpellLevel = 6 ; level six
{
if %SpellChoice = 1
{
set %scroll DUL ; dispel
}
if %SpellChoice = 2
{
set %scroll GUL ; energy bolt
}
if %SpellChoice = 3
{
set %scroll FUL ; explosion
}
if %SpellChoice = 4
{
set %scroll QUL ; invisibility
}
if %SpellChoice = 5
{
set %scroll PUL ; mark
}
if %SpellChoice = 6
{
set %scroll SUL ; mass curse
}
if %SpellChoice = 7
{
set %scroll RUL ; paralyze field
}
if %SpellChoice = 8
{
set %scroll MUL ; reveal
}
set %manacost 24
}

if %SpellLevel = 7 ; level seven
{
if %SpellChoice = 1
{
set %scroll LUL ; chain lightning
}
if %SpellChoice = 2
{
set %scroll OUL ; energy field
}
if %SpellChoice = 3
{
set %scroll NUL ; flamestrike
}
if %SpellChoice = 4
{
set %scroll YUL ; gate travel
}
if %SpellChoice = 5
{
set %scroll XUL ; mana vampire
}
if %SpellChoice = 6
{
set %scroll AVL ; mass dispel
}
if %SpellChoice = 7
{
set %scroll ZUL ; meteor swarm
}
if %SpellChoice = 8
{
set %scroll UUL ; polymorph
}
set %manacost 42
}

if %SpellLevel = 8 ; level Eight
{
if %SpellChoice = 1
{
set %scroll TUL ; earthquake
}
if %SpellChoice = 2
{
set %scroll WUL ; energy vortex
}
if %SpellChoice = 3
{
set %scroll VUL ; resurrection
}
if %SpellChoice = 4
{
set %scroll GVL ; summon air elemental
}
if %SpellChoice = 5
{
set %scroll FVL ; summon daemon
}
if %SpellChoice = 6
{
set %scroll IVL ; summon earth elemental
}
if %SpellChoice = 7
{
set %scroll HVL ; summon fire elemental
}
if %SpellChoice = 8
{
set %scroll CVL ; summon water elemental
}
set %manacost 52
}

return

;==========================================================================================

sub InfoMenu

menu clear
menu show
menu window title Paladin's Empty Spellbook Filler
menu window size 300 275


menu Shape shpGroup1 0 245 301 50 3 1 1 Black 7 Red

menu window color black
menu font bgcolor black
menu Font Name Arial
menu Font Size 10
menu font color White
menu text Instructions 15 15 Click Set on each button to set each Variable!
menu text Instructions2 15 35 It will then ask you to target appropriate item !

menu font size 8

menu text _ResoSec 15 70 Resource Secure :
menu edit ResoVar 115 65 70 *resource
menu button _SetSec 195 65 85 25 Set Secure

menu text _FullBook 15 110 Full Spellbook :
menu edit FullBookVar 115 105 70 *fullbook
menu button _SetFullBook 195 105 85 25 Set FullBook

menu text _EmptyBook 15 150 Empty Spellbook :
menu edit EmptyBookVar 115 145 70 *emptybook
menu button _SetEmptyBook 195 145 85 25 Set EmptyBook

menu font size 10

menu text Instructions3 15 185 When you have set all 3 things, Click Start !

menu font size 8

menu button _Start 75 210 150 25 Start Script

return

;==========================================================================================

;--;----
;* @name s7MakeAnything
;* @author snicker7
;* @ver 1.3 19Aug05
;* @purpose Crafting sub capable of dealing with the
;* standard crafting gump for all crafting skills.
;* @params %1 Crafting skill. Possible values are:
;* Tailor, Smith, Carpentry, Cooking,
;* Alchemy, Stonecrafting, Tinker,
;* Inscription, or Cartography
;* %2 Three possible options:
;* SelectMaterial: Selects the material to
;* craft with (if avaliable) by
;* index which is defined by %3.
;* Smelt/Cut: Only avaliable if %1 is
;* 'Tailor' or 'Smith', respectively.
;* Will cut or smelt the item passed
;* by ID as variable %3.
;* For Crafting: This should be a number
;* which corresponds to the category
;* on the crafting gump beginning
;* with the first category as 1.
;* %3 The material index for SelectMaterial,
;* the ID of the item to be smelted/cut for
;* Smelt/Cut, or the selection number of the
;* item you wish to make on the crafting menu.
;* %4 (optional) ID of specific tool to use. If
;* %4 is defined, the sub will use this tool
;* only to craft with. Used for runic kits.
;* The sub will return #false if the tool is
;* not found. Slower, as the tool will be
;* opened every call of the script, rather
;* than just waiting for the gump to return,
;* ensuring that the tool menu is the right
;* tool.
;* @returns #true The sub executed successfully.
;* #false A tool was not found to perform the
;* necessary operations. Useful, if the sub
;* returns #false, simply call it again to
;* make the correct tool.
;* @notes This sub automatically determines when to "Make Last."
;* If you call the sub twice in a row with the same
;* options, the second time it will click make last
;* instead of clicking through the whole menu.
;* @example: call s7subs.euo s7MakeAnything Smith 7 10 ;Make a warfork
;* call s7subs.euo s7MakeAnything Stonecrafting SelectMaterial 2 ;select dullcopper granite
;* call s7subs.euo s7MakeAnything Tailor Cut DFKLSED ;cuts the item with ID DFKLSED
;* call s7subs.euo s7MakeAnything Smith 7 10 EASUSPS ;makes a warfork using the tool with ID EASUSPS
;* @status almost done. still need to put in the cartotool type and find all types for all tools.
;----
sub s7MakeAnything
if %0 < 3
return #false
namespace push
namespace local _s7MakeAnything
if %0 = 4 && !tool <> N/A
{
finditem %4 C_ , #backpackid
if #findkind = -1 2
namespace pop
return #false
if ( #findtype notin !tool && #findid notin !tool ) 2
namespace pop
return #false
set !tool %4
set !FirstCall #true
}
if !1 = %1 && !2 = %2 && !3 = %3 && %2 <> SelectMaterial && !2 notin Smelt_Cut
set !MakeLast #true
if !1 <> %1 || !2 <> %2 || !3 <> %3 || %2 = SelectMaterial || %2 in Smelt_Cut
{
set !1 %1
if !1 = Tailor
set !tool HAG
if !1 = Smith
set !tool OBG_TBG_TLH_FBG
if !1 = Carpentry
set !tool EGG_IGG_KGG
if !1 = Cooking
set !tool BCG_DND_OGG
if !1 = Alchemy
set !tool RQF
if !1 = Stonecrafting
set !tool ZEH
if !1 = Tinker
set !tool JTL_KTL
if !1 = Inscription
set !tool PBG
if !1 = Cartography
set !tool PBG
if %0 = 4
{
finditem %4 C_ , #backpackid
if #findkind = -1 2
namespace pop
return #false
if #findtype notin !tool 2
namespace pop
return #false
set !tool %4
}
if %0 < 4
{
finditem !tool C_ , #backpackid
if #findkind = -1 2
namespace Pop
return #false
}
set !FirstCall #true
set !MakeLast #false
if %2 in smelt_cut 3
set !FirstCall #false
set !destroyID %3
set !destroy #true
if !Destroy && !1 notin smith_tailor 2
namespace Pop
return #false
if %2 notin smelt_cut 2
set !3 %3
set !2 %2
if !2 = SelectMaterial
set !2 15
}
for !selection 2 3
{
for !loop 1 1
{
set #result #true
if !1 = Tailor && !destroy
set !loop 2
if ( ! !FirstCall || ( !1 = Smith && !Destroy ) ) && !loop <> 2 2
gosub s7WaitForVars contsize = 530_437 contname = generic_gump 2
set !loop 1
if ( ! #result || !FirstCall ) && !loop <> 2
{
gosub s7WaitForVars contsize = 530_437 contname = generic_gump 1
finditem !tool C_ , #backpackid
if #findkind = -1 2
namespace Pop
return #false
gosub s7WaitForAction 12
set #lobjectid #findid
event macro 17 0
set !loop 0
set !FirstCall #False
}
}
if !MakeLast && ! !destroy
{
set !_Cx #contposx + 280
set !_Cy #contposy + 410
click !_Cx !_Cy
namespace Pop
return #true
}
if !selection = 2
{
if !destroy && !1 = Tailor
{
finditem JAG_KAG C
if #findkind = -1 2
namespace pop
return #false
set #lobjectid #findid
set #ltargetid !destroyid
set #ltargetkind 1
gosub s7WaitForAction 12
event macro 17 0
target 2s
event macro 22 0
set !destroy #false
namespace pop
return #true
}
wait 10
set !_Cx #contposx + 20
set !_Cy ( #contposy + 70 + ( !2 * 20 ) )
if !destroy && !1 = Smith
set !_Cy ( #contposy + 70 + ( 14 * 20 ) )
click !_Cx !_Cy
if !destroy && !1 = Smith
{
target 2s
set #ltargetid !destroyid
set #ltargetkind 1
event macro 22 0
set !destroy #false
gosub s7WaitForVars contsize = 530_437 contname = generic_gump 2
namespace pop
return #true
}
}
if !selection = 3
{
set !3t !3
for !loop 0 1
{
if !3t > 10
{
set !_Cx #contposx + 380
set !_Cy #contposy + 270
click !_Cx !_Cy
set !3t !3t - 10
set !loop 0
}
if !3t <= 10
{
set !_Cx #contposx + 230
set !_Cy ( #contposy + 50 + ( !3t * 20 ) )
click !_Cx !_Cy
gosub s7WaitForVars contsize = 530_437 contname = generic_gump 2
namespace Pop
return #true
}
}
}
}

;----
;* @name s7WaitForAction
;* @author snicker7
;* @ver 1.1 31Jan05
;* @purpose waits 1.3 seconds before continuing, useful for waiting to perform
;* another action
;* @params none
;* @returns none
;* @notes probably not an original idea, but I need to use it frequently and it
;* was easier to write it myself than to try to look for it as written by
;* someone else
;* @example: call s7Subs.euo s7WaitForAction 13
;* @status tested good
sub s7WaitForAction
_s7WaitForAction:
if %_s7ActionTimer + %1 > #scnt2 2
wait 1
goto _s7WaitForAction
set %_s7ActionTimer #scnt2
return

;----
;* @name s7WaitForVars
;* @author snicker7, inspired by Quintok, and of course, Smertrios
;* @ver 1.2 24Aug05
;* @purpose Multiple input sysvar waiter.
;* @params %1*n is the gump sysvar being checked
;* %2*n is the comparative operator (>, <, <>, =, etc)
;* %3*n is the desired value of the sysvar
;* %nfinal is the timeout in seconds
;* @returns #false if it times out
;* #true if success
;* @notes %1 does not require the preceding number sign
;* one line shorter than Q's, no disrespect son
;* originally written by Smertrios, included in Lexia
;* Multiple inputs by Quintok, Obfuscation and name-
;* spacing by snicker7!
;* @example: call s7Subs.euo s7WaitForVars contID = #backpackID contSize = 7_9 3
;* @status tested good
sub s7WaitForVars
namespace Push
namespace Local _s7WFVs
set !C %0 / 3
set !T #scnt + 5
if ( %0 % 3 ) = 1
set !T #scnt + % . %0
for !i 1 !C
{
set !o 3 * !i - 2
set !p !o + 1
set !q !o + 2
if ! ( # . % . !o % . !p % . !q )
set !i 0
if #scnt > !T 2
namespace pop
return #false
}
namespace Pop
return #true

;===========
;**
;* @name s7ResourceCheck
;* @ver 1.1 05May05
;* @author snicker7
;* @purpose Checks to see if a certain amount of resources are in the backpack, if not, restocks from a set container
;* @params %1 Type of resource to check
;* %2 FindCol of resource, N/A if irrelevant
;* %3 Minimum amount of resource to have
;* %4 How many to restock if not enough found
;* %5 True/False: is the resource stackable
;* %6 Container ID to restock from
;* @returns #true Restock was successful
;* #false Resources not found in backpack or secure
;* @dependencies s7MoveToCont
;* @example call s7subs.euo s7ResourceCheck WZF N/A 6 100 #true %secure
;* @status testing
sub s7ResourceCheck
namespace push
namespace local _s7ResCzech
set !ResType %1
set !ResCol %2
set !ResCount %3
set !RestockCnt %4
set !StkCnt cnt
if %5
set !StkCnt stack
set !RestockCont %6
for !ResI 0 1
{
finditem !resType C_ , #backpackid
set !BPItemCount 0
if #findkind <> -1
{
set !FindCnt #findCnt
for !CountItem 1 !FindCnt
{
finditem !resType !CountItem C_ , #backpackid
if ( !ResCol <> N/A && #findcol = !ResCol ) || !ResCol = N/A
set !BPItemCount !BPItemCount + #find . !stkCnt
}
}
if !BPItemCount >= !ResCount && !ResI <> 0
{
namespace pop
return #true
}
if !BPItemCount < !resCount && !ResI <> 0
{
finditem !resType C_ , !restockCont
set !SecureItemCount 0
if #findkind <> -1
{
set !FindCnt #findCnt
for !CountItem 1 !FindCnt
{
finditem !resType !CountItem C_ , !restockCont
if ( !ResCol <> N/A && #findcol = !ResCol ) || !ResCol = N/A 2
set !SecureItemCount !SecureItemCount + #find . !stkCnt
set !RestockID #findid
}
}
if ( !SecureItemCount + !BPItemCount ) < !resCount
{
namespace pop
return #false
}
set !RestockAmt !restockCnt - !BPItemCount
gosub s7MoveToCont !RestockID #backpackid #charid 140_220 !restockAmt
wait 20
set !ResI 0
}
}

;----
;* @name s7MoveToCont
;* @author snicker7
;* @ver 1.2 24Aug05
;* @purpose A wrapper for the sub s7MoveToPos for moving to containers.
;* @params %1 is the item to be dragged
;* %2 is the container to drag to
;* %3 is the mother container in which %2 is contained
;* %4 is the #findmod value for the container
;* %5 is the amount to be dragged (blank for all)
;* @returns none
;* @notes this is mad basic. no error checking. That is up to you.
;* @dependencies s7MoveToPos
;* @example: call s7Subs.euo s7MoveToCont #findid #backpackid #charid 140_220
;* @status tested good
sub s7MoveToCont
namespace Push
namespace Local _s7MoveToCont
set !_ID %1
set !_DCont %2
set !_MCont %3
set !_FMod %4
if %euover >= 15000
{
set !_Amt 65535
if %0 > 4
set !_Amt abs %5
finditem !_ID
if #findkind = -1 2
namespace pop
return #false
gosub s7WaitForAction 13
exevent drag #findid !_Amt
exevent dropc !_DCont
namespace pop
return #true
}
set !_Amt #spc
if %0 > 4
set !_Amt %5
set #result #true
set !_retry 0
for !_ 1 1
{
finditem !_DCont C_ , !_MCont
if #findkind = -1
{
set #lobjectid !_MCont
gosub s7WaitForAction 13
event macro 17 0
gosub s7WaitForVars contid = !_MCont 3
if ! #result
{
set !_retry !_retry + 1
if !_retry > 2 2
namespace pop
return #false
}
set !_ 0
}
}
set !_retry 0
set #findmod !_Fmod
for !_ 1 1
{
gosub s7MoveToPos !_ID #findx #findy 4 !_Amt
if ! #result
{
set !_retry !_retry + 1
if !_retry > 2 2
namespace pop
return #false
set !_ 0
}
}
namespace Pop
return #true

;-----------------------------------------------------------
; Script Name: CEOWorldSaveChecker
; Author: CEO
; Version: 1.0
; Client Tested with: 4.0.10b
; EUO version tested with: 1.42.00A5
; Shard OSI / FS: OSI
; Revision Date: 060105
; Public Release: 060105
; Global Variables Used: *CEOWorldSaving
; Purpose: Used to catch the world save message for freeshards and temporarily pause mainscript during save.
;-------------------------------------------------------------

sub CEOWorldSaveChecker
; sub to pause a script during a RunUO world save.
set %_text1 %1
set %_text2 %2
set %_text3 %3
if %_worldsaveupcoming
{
if %_worldsavetimer < #scnt
{
set %_worldsavetimer #scnt + %5
;gosub popupworldsave 85 70 blue
goto _WSC_WAIT1
}
return
}
_WSC1:
if %_worldsavejournalindex > #jindex
return
scanjournal %_worldsavejournalindex
if %_text1 in #journal
{
set %_worldsaveupcoming #true
set %_worldsavetimer #scnt + %4
set %_worldsavejournalindex %_worldsavejournalindex + 1
return
}
set %_worldsavejournalindex %_worldsavejournalindex + 1
goto _WSC1
_WSC_WAIT1:
if %_worldsavetimer < #scnt
goto _WSC_Complete
wait 5
set *CEOWorldSaving #true
if %_worldsavejournalindex > #jindex
goto _WSC_WAIT1
scanjournal %_worldsavejournalindex
if %_text2 in #journal
{
;gosub popupworldsave 85 70 yellow
set %_worldsavejournalindex %_worldsavejournalindex + 1
goto _WSC_WAIT2
}
set %_worldsavejournalindex %_worldsavejournalindex + 1
goto _WSC_WAIT1
_WSC_WAIT2:
if %_worldsavetimer < #scnt
goto _WSC_Complete
wait 5
if %_worldsavejournalindex > #jindex
goto _WSC_WAIT2
scanjournal %_worldsavejournalindex
if %_text3 notin #journal
{
set %_worldsavejournalindex %_worldsavejournalindex + 1
goto _WSC_WAIT2
}
_WSC_Complete:
set %_worldsavejournalindex #jindex
set %_worldsaveupcoming #false
set *CEOWorldSaving #false
;menu delete worldsave
return

[bandageself komutuyla çalýþan, hatasýz bir macro arýyorum. Poi yediðinde sapýtýp, üst üste on kere bandaj basmasýn lütfen. Ayrýca cure-heal gibi þeyleri de içmese yeridir.

Elinde olan varsa ve paylaþýrsa sevinirim. Elimdeki script ne kadar onarsamda düzelmedi ve oynanýþý etkiliyor.

Ýyi oyunlar herkese.