Who can use EASYUo can made be upgrade … we are pro

General Macro Help Who can use EASYUo can made be upgrade … we are pro

Viewing 2 posts - 1 through 2 (of 2 total)
  • Author
    Posts
  • #2050
    FeST
    Blocked
    • Topics - 8
    • Replies - 30
    • Total - 38
    • Novice
    • ★★

    ;7/14/04
    set %ver 16
    set %file mine.txt
    set %cmd cmd.exe
    initevents
    key p alt
    set %recall #false
    set %straighthome #false
    set %opendoor #false
    set %sand NO
    set %smelt #true
    set %bank #false
    set %count #False
    set %AlwaysClick #FALSE
    set %stop #false
    set %amount 1000
    if %sand = yes || %bank = #true
    set %smelt #false
    set %color #false
    ;++++++++++++++++++++++++++++++++
    sub stop
    if %stop = #false
    goto wkq
    If %iron >= %amount ;change the %iron to one of the 9 setting below
    pause
    wkq:
    return
    set %iron 0
    set %d 0
    set %s 0
    set %c 0
    set %b 0
    set %g 0
    set %a 0
    set %ve 0
    set %va 0
    ;++++++++++++++++++++++++++++++++++
    ;******** INITIAL SETTINGS*****************
    set %first 0
    set %tim 12
    set %jin #jindex
    set %home 1
    set %logweight 12
    set %script #TRUE
    set %b 0
    set %hideme #TRUE
    if %bank = #true
    set %hideme #false
    set %color #true
    set %shovels 5
    set %forge JBG_SOJ_ROJ_AUJ_ZTJ_CUJ_BUJ_WTJ
    +_VTJ_JUJ_JUJ_EUJ_DUJ_GUJ_FUJ_QUJ_PUJ_OUJ
    +_NUJ_YUJ_XUJ_AVJ_ZUJ_UUJ_TUJ_IVJ_HVJ_CVJ
    +_BVJ_EVJ_DVJ_OVJ_NVJ
    set %shovelid WWF_qpf_twf_npf
    set %alloreid DWJ_GWJ_EWJ_TVJ_enk_KSG
    set %doorname jif_kif_iif_HIF_zpc
    set %object qwl
    set %delay 30
    set %targetfirst 0
    set %counterstarted 0
    set %scnt 0
    set %secureid 0
    set %sss 0
    set %counting 0
    set %ingotid ENK_ksg
    SET %S 0
    set %n 0
    set %o 0
    SET %cx #charposx
    SET %cy #charposy
    set %maxweight #maxweight – 25
    set *511 pause
    chooseskill hidi
    wait 10
    set %home %home + 2
    if %recall = #true
    set %straighthome #false

    ;*********Menu SETUP********************
    set %asd 30
    set %asa 10
    set %stop 0
    Menu Clear
    Menu hide
    Menu Window size 310 40
    Menu Window Color $D9D0C8
    Menu Font bgcolor $D9D0C8
    Menu Font Color Black
    Menu Font Style b
    Menu font size 12
    Menu Font Name tahoma
    Menu Window Title Jebbits Miner Rail
    Menu Text txt 10 10 Please Rate This Script If You Use It
    menu show 270 0
    wait 60
    menu hide

    Menu Clear
    Menu hide
    Menu Window size 235 175
    Menu Window Color $D9D0C8
    Menu Font bgcolor $D9D0C8
    Menu Font Color Black
    Menu Font Name tahoma
    Menu Window Title Jebbits OTF Rail Miner
    Menu Text txt 10 10 Initializing
    Menu Font Color red
    Menu Text txt1 5 30 Ver %ver OSI/Some Free Shards 9/19/04
    Menu Font Color black
    menu show 0 0
    menu show 0 0
    menu hideeuo
    wait 60
    menu delete txt1
    Menu Text txt 10 %asa Initializing.
    Menu Text txt1 10 %asd Opening Paperdoll
    Event macro 8 1
    wait 20
    contpos 650 0
    event macro 8 7
    wait 20
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    Menu Font Color black
    set %asd %asd + 15
    Menu Text txt 10 10 Initializing..
    Menu Text txt1 10 %asd Opening Status
    event macro 8 2
    wait 20
    contpos 200 200
    wait 20
    CLICK 596 358
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    Menu Font Color black
    menu delete txt
    set %asd %asd + 15
    Menu Text txt 10 10 Initializing…
    Menu Text txt1 10 %asd Opening Backpack
    event macro 8 7
    wait 20
    contpos 615 330
    wait 10
    set %backpackid #backpackid
    wait 10
    IF #BACKPACKID <> #CONTID
    display msg Caution the backpack id check does not match the # , backpackid in easyuo. This can cause the script to not work.
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    Menu Font Color black
    menu delete txt
    set %asd %asd + 15
    Menu Text txt 10 10 Initializing….
    Menu Text txt1 10 %asd Finding Shovel
    finditem %shovelid c_ , %backpackid
    wait 30
    if #findid = x 3
    set %stop 2
    Menu Font Color red
    Menu Text txt2 150 %asd Failed
    if #findid <> x 2
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    Menu Font Color black
    menu delete txt
    set %asd %asd + 15
    Menu Text txt 10 10 Initializing…….
    Menu Text txt1 10 %asd Locating Secure
    wait 30
    Menu Font Color Green
    if %bank = #true
    {
    Menu Text txt2 150 %asd Bank
    msg bank $
    wait 20
    set %secureid #contid
    }
    else
    {
    Menu Text txt2 150 %asd House
    finditem jif_kif_iif_HIF_bud_dhp
    +_ygp_xgp_ahp_zgp_jhp_mhp_lhp_ghp_ikf G_2
    wait 10
    set #LOBJECTID #findid
    event macro 17 0
    set %secureid #findid
    wait
    contpos 110 110
    }
    if #findid = x && %bank = #false
    {
    set %stop 2
    Menu Font Color red
    Menu Text txt2 150 %asd Failed
    }
    Menu Font Color black
    if #findid <> x
    {
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    }
    Menu Font Color black
    if #findid = x && %bank = #true
    {
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    }
    Menu Font Color black
    wait 20
    menu delete txt
    set %asd %asd + 15
    Menu Text txt 10 10 Initializing……..
    Menu Text txt1 10 %asd Locating Storage Box
    WAIT 10
    if %bank = #true
    finditem cud_hkf c_
    else
    finditem cud_hkf_grl_frl c_ , %secureid
    wait 25
    if #findid = x
    {
    set %stop 2
    Menu Font Color red
    Menu Text txt2 150 %asd Failed
    }
    if #findid <> x
    {
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    }
    Menu Font Color black
    wait 20
    set #LOBJECTID #findid
    set %orebagid #findid
    wait 10
    if %recall = #false
    {
    goto menu
    }
    set %asd %asd + 15
    menu delete txt
    Menu Font Color black
    Menu Text txt 10 10 Initializing……
    Menu Text txt1 10 %asd Setting up recall
    finditem %object c_ , %backpackid
    wait 10
    Menu Font Color red
    if #findid <> x
    Menu Text txt2 150 %asd Passed
    if #findid = x
    {
    set %stop 2
    Menu Font Color red
    Menu Text txt2 150 %asd Failed
    }
    menu:
    set %asd %asd + 15
    menu delete txt
    Menu Text txt 10 10 Initializing………
    Menu Text txt1 10 %asd Locating forge
    findItem %forge G_3
    if #findid = x && %smelt = #true 3
    set %stop 2
    Menu Font Color red
    Menu Text txt2 150 %asd Failed
    if #findid <> x 2 && %smelt = #true 2
    Menu Font Color red
    Menu Text txt2 150 %asd Passed
    if #findid <> x && %smelt = #false 2
    Menu Font Color red
    Menu Text txt2 150 %asd Disabled
    menu delete txt
    set %asd %asd + 20
    Menu Font Color red
    Menu Text txt 10 10 Initializing………
    if %stop <> 2
    Menu Text txt1 10 %asd Done And Ready For Action
    if %stop = 2 3
    Menu Font Color red
    Menu Text txt1 10 %asd Please Fix Failed Tests And Restart
    halt
    wait 50
    menu hide
    CLICK 128 192 R
    hide easyuo
    msg $

    set %first 0
    set %set1 0
    set %set2 0
    gosub remember

    ;**********RUNEBOOK SET UP****************************
    ;****************MAIN MENU**********************

    gosub setup
    display yesno Do you have a rail made, and do you wish to use it
    if #dispres = yes
    {
    set %userail yes
    goto skipp
    }
    display yesno Do you wish to make a perm rail?
    if #dispres = yes
    set %setrail yes
    if %setrail = yes
    {
    if EXEC notin #opts
    {
    display ok In order to save the rail file you must have $”Disable Execute” un-checked.
    + Enable this option$from the Easyuo menu:$$Tools>Options>Permissions>Disable Execute$$Halting…
    halt
    }

    display yesno Are you using win 98/95/ME
    if #dispres = yes
    set %cmd command.com
    if #dispres = yes
    set %_98 1
    EXECUTE %cmd /c if exist %file del %file
    }
    hh:
    display yesnocancel Click Yes If you wish to Mark a rail spot. Click no if you are finished. Click cancel if your wish to re-target a location
    if #dispres = no
    {
    if %setrail = yes
    gosub saverail
    set %jin #jindex
    deletejournal
    return
    }
    if #dispres = Cancel
    {
    set %nn %nn – 1
    set %oo %oo – 1
    goto hh
    }
    if #dispres = yes && %userail <> Yes
    {
    GOSUB FINDSHOVEL
    set #lobjectid #findid
    event macro 17 0
    set %first %first + 1
    if %opendoor = #true
    gosub door
    wait 20
    waiting:
    if #targcurs = 1
    goto waiting
    set %st1 #cursorx
    set %st2 #cursory
    set %set1 #ltargetx
    set %set2 #ltargety
    set %set3 #ltargetz
    gosub remember
    goto hh
    }
    skipp:
    return

    if %count = #true
    gosub menu
    if %userail <> yes
    {
    if %recall = #true
    {
    gosub recall
    }
    gosub gohome
    }
    loop:
    gosub digger
    gosub findshovel
    gosub makeshovel
    noshovelneeded:
    gosub digger
    gosub check
    goto loop

    ;******FIND SHOVEL SUBROUTINE***********
    sub findshovel
    finding:
    finditem %shovelid c_ , %backpackid
    wait 5
    if #findid = X
    {
    if %recall = #true
    {
    gosub recall
    }
    gosub gohome
    gosub house
    gosub shovell
    GOSUB goback
    }
    ignoreitem reset
    return

    ;4444444444444444444444444444444
    sub digger
    WALKAGAIN:
    if %nn < %home 2
    gosub loc
    GOTO WALKAGAIN
    RETURN:
    if %nn < %home
    goto digout
    if %health = #true && #hits < #maxhits – 10
    gosub health
    ignoreitem reset
    GOSUB FINDSHOVEL
    if #weight > %begin + 12
    set %maxweight #maxweight – 48
    else
    set %maxweight #maxweight – 24
    set %begin #weight
    set #lobjectid #findid
    event macro 17 0
    target 4s
    ignoreitem #findid
    if %AlwaysClick = #true
    set %targ 0
    if %targ = 0 || %userail = yes
    {
    set %targ 1
    click %digxx . %n %digyy . %n f
    click %digxx . %n %digyy . %n d
    }
    set #ltargetx %digspotx
    set #ltargety %digspoty
    set #ltargetz %digspotz
    wait %tim
    set #ltargetkind 2
    event macro 22
    if %sand = yes
    {
    GOSUB CHECK
    IF %MARK = 99
    GOTO SANDCHECK
    wait 7s
    }
    GOSUB CHECK
    SANDCHECK:
    if %mark = 99 2
    set %MARK 0
    gosub loc
    GOTO RETURN
    digout:
    return

    ;**************CHECK SUBROUTINE****************
    sub check
    set %checkit #jindex
    FOR %i %jin %checkit
    {
    SCANJOURNAL %I
    if #weight > %maxweight || Your_backpack_is_full in #journal
    goto jumpout
    if not_enough in #journal || no_metal in #journal || can’t in #journal || cannot in #journal || is_too_far_away in #journal || no_metal in #journal || no_sand in #journal 4
    SET %MARK 99
    DELETEJOURNAL
    SET %JIN %CHECKIT + 1
    RETURN
    }
    jumpout:
    SET %JIN %CHECKIT + 1
    if #weight > %maxweight || Your_backpack_is_full in #journal
    {
    DELETEJOURNAL
    if #weight > #maxweight
    gosub dragit
    if %recall = #true
    gosub recall
    GOSUB GOHOME
    gosub house
    gosub goback
    RETURN
    }
    if you_loosen in #journal 1
    gosub digger
    If you_destroyed in #journal 1
    gosub checkshovel
    if %counter = 20
    set %x + 1
    if %counter = 20
    set %counter 0
    if %counter > 19
    gosub checkshovel
    return

    ;***********HOUSE SUBROUTINE************
    sub house
    if %straighthome <> #true
    {
    set %nn 1
    set %oo 1
    set %o 1
    set %n 1
    }
    ;***********WALKING TO SECURE*************
    set %scnt #scnt
    movingtime:
    if #scnt – %scnt > 4
    {
    set %scnt #scnt
    event macro 5 1
    event macro 5 1
    gosub recall
    }
    move %cx %cy 0 1s
    if #charposx <> %cx || #charposy <> %cy
    goto movingtime
    set %x + 1
    set %counter 0
    ;***************************HIDING********************
    ;****************FIND AND OPEN CHEST*************
    if %hideme = #true && %bank = #false
    event macro 13 21
    wait 5
    opensecure:
    ;Find chest
    if %Bank = #true
    {
    msg Bank $
    wait 15
    goto skip
    }
    FINDITEM %secureid G_2
    IF #FINDKIND = -1
    {
    GOTO OPENSECURE:
    }
    ;Open chest
    set #LOBJECTID %secureid
    set #findmod 0_0
    set #NEXTCPOSX 27
    set #NEXTCPOSY 49
    event macro 17 0
    skip:
    set %time #scnt + 10
    WaitSecureToOpen:
    if %time < #scnt
    goto opensecure
    finditem %orebagid c_
    if #findid <> %orebagid
    goto WaitSecureToOpen
    INGOREITEM RESET
    ;———————————————Ore routine————————————————-
    IF %SMELT = #true
    gosub smelt
    if %count = #true
    {
    gosub count
    gosub menu
    }
    ore:
    finditem %alloreid c_ , %backpackid
    if #findkind = 1
    {
    goto rock
    }

    if #findkind = 0
    {
    IF #lLiftedKind <> 1
    event drag #findid
    wait 15
    msg $
    wait 5
    waitfordump:
    if %bank = #true
    finditem %orebagid C_
    else
    finditem %orebagid C_ , %secureid
    if #findid = x
    goto opensecure
    set #findmod 20_10
    click #findx #findy p
    if #lliftedkind = 1
    goto waitfordump
    wait 5
    goto ore
    }

    rock:
    set %w #weight
    finditem BVI_dwj_ c_ , %backpackid
    if #findkind <> 0
    goto mana
    if #findkind = 0 && %color = #true
    {
    IF #lLiftedKind <> 1
    event drag #findid
    if #findCol = 0 ;regular
    click 168 167 p
    if #findCol = 2419 ;Dull Copper
    click 145 167 p
    if #findCol = 2406 ;Shadow
    click 122 167 p
    if #findCol = 2413 ;Copper
    click 102 167 p
    if #findCol = 2418 ;Bronze
    click 79 167 p
    if #findCol = 2213 ;Golden
    click 61 216 p
    if #findCol = 2425 ;Agapite
    click 81 216 p
    if #findCol = 2207 ;Verite
    click 105 216 p
    if #findCol = 2219 ;Valorite
    click 120 216 p
    WAIT 25
    goto rock
    }
    if #findkind = 0
    {
    IF #lLiftedKind <> 1
    event drag #findid
    wait 20
    click 151 167 p
    }
    ;if %w = #weight
    ;{
    ;event drag #findid
    ;wait 20
    ; click 197 115 p
    ;}
    goto rock

    mana:
    IF %RAIL = #TRUE && %n < %FIRST
    {
    GOSUB GOBACK
    GOTO DIGDIG
    }
    IF %manaset = #false
    {

    return
    }
    if #mana < %Totalmana
    {
    event macro 13 46
    wait 10s
    goto mana

    }
    return
    ;————————————–GET SHOVEL———————————————————
    sub shovell
    finditem %shovelid c_ , %backpackid
    if #findid <> x
    return
    set %amount 0
    getmore:
    finditem %shovelid c_ , %secureid
    if #findkind = -1
    {
    display msg out of shovels. Resupply and press play.
    pause
    set %nn 2
    }

    if #findkind = 0
    {
    more:
    event drag #findid
    wait 20
    oops:
    click 718 367 p mc
    wait 20
    if #LLIFTEDKIND = 1
    goto oops
    ignoreitem #findid
    wait 5
    finditem %shovelid c_ , %secureid
    set %amount %amount + 1
    wait 5
    }
    if #findkind = -1
    {
    ignoreitem reset
    return
    }
    If %amount < %shovels
    {
    goto more
    }
    ignoreitem reset
    return

    sub smelt
    findItem %forge g_3
    wait 10
    if #findid = x
    pause
    set #lTargetID #findid
    set #lTargetKind 1
    _smelt:
    findItem DWJ_EWJ_GWJ_tvj C_ , %backpackid
    if #findid <> x
    {
    if #findtype = TVJ && #findstack <= 1
    {
    ignoreitem #findid
    }
    set %testw #weight
    set #lObjectID #findID
    event Macro 17 0
    wait 5
    event Macro 22 0
    wait 20
    if %testw = #weight
    ignoreitem #findid
    goto _smelt

    }
    ignoreitem reset
    return

    ;————————————–FORGE————————————

    ;—————————————-HEAL—————————————-
    sub health
    if #hits >= #maxhits – 10
    return
    set *511 resume
    loopit:
    wait 10
    if #hits < #maxhits – 10
    goto loopit
    set *511 pause
    return

    ;————————OVERWEIGHT ORE DRAG—————————–
    sub dragit
    SET %SS 0
    drop:
    SET %SS %SS + 1
    if #weight < #maxweight
    goto end
    if %ss = 9 && #weight > #maxweight
    set %ss 0
    WAIT 15
    if %ss = 1 3
    set %st 300
    set %sy 215
    set %ds 50
    IF %SS = 2
    SET %SY %SY + %ds
    IF %SS = 3
    SET %ST %ST + %ds
    IF %SS = 4
    SET %SY %SY – %ds
    if %ss = 5 4
    set %st 300
    set %sy 215
    set %ss 6
    set %ds 65
    IF %SS = 6
    SET %SY %SY + %ds
    IF %SS = 7
    SET %ST %ST + %ds
    IF %SS = 8
    SET %SY %SY – %ds
    finditem dwj c_ , %backpackid
    if #findkind = 0
    {
    IF #LLIFTEDKIND = 0
    {
    Event Drag #Findid
    gosub amount
    wait 5
    if %logamount < #findstack
    msg %logamount $
    else
    msg $
    wait 20
    }
    click %ST %SY P
    }
    GOTO drop
    end:
    return

    sub amount
    set %logamount #weight – #maxweight
    set %divide ( ( %logamount / 2 ) * 2 )
    if %divide = %logamount
    set %logamount ( ( %logamount / %logweight ) + 1 )
    else
    set %logamount ( ( ( %logamount + 1 ) / %logweight ) + 1 )
    return

    ;——————————-Program loc below here——————————-
    sub loc
    set %mark 0
    if %userail = yes && %preset <> 1
    {
    set %n 0
    set %o 0
    set %nn 0
    set %oo 0
    set %preset 1
    call %file
    if %first = 0
    display msg Unable to locate file. Ensure That you have made and saved a rail before using the perm rail setting. Script has been halted.
    if %first = 0
    halt
    set %first %first – 1
    }
    msg $
    IF %nn >= %FIRST + 1
    {
    if %straighthome = #true
    {
    set %n 1
    set %o 1
    set %nn 1
    set %oo 1
    }
    if %recall = #true
    gosub recall
    gosub gohome
    gosub house
    }
    if %nn < %first + 1
    {
    set %targ 0
    set %n %n + 1
    set %o %o + 1
    set %nn %nn + 1
    set %oo %oo + 1
    SET %MARK 0
    set %x + 1
    if %opendoor = #true
    gosub door
    set %digspotx %digx . %n
    set %digspoty %digy . %n
    set %digspotz %digz . %n
    set %movex %walk . %n
    set %movey %wallk . %n
    set %scnt #scnt + 5
    while #scnt < %scnt
    {
    move %movex %movey 0 5s
    if %movex <> #charposx && %movey <> #charposy
    {
    event pathfind %movex %movey
    wait 1s
    move %movex %movey 0 3s
    }
    if %movex = #charposx && %movey = #charposy
    goto moveout
    }
    }
    moveout:
    return

    sub remember
    set %n %n + 1
    set %digxx . %n %st1
    set %digyy . %n %st2
    set %digx . %n %set1
    set %digy . %n %set2
    set %digz . %n %set3
    set %walk . %n #charposx
    set %wallk . %n #charposy
    set %nn %n
    return

    sub gohome
    set %charposx %walk2
    set %charposy %wallk2
    if %straighthome = #true
    {
    SET %NNN %NN
    gosub straighthome
    goto bott
    }
    msg $
    if %recall <> #true
    SET %NNN %NN
    moveagain:
    set %nn %nn – 1
    move %walk . %nn %wallk . %nn 0 5s
    if %walk . %nn <> #charposx && %wallk . %nn <> #charposy
    {
    finditem %doorname g_3
    if #findid <> x && %opendoor = #true
    gosub door
    event pathfind %walk . %nn %wallk . %nn
    wait 1s
    move %walk . %nn %wallk . %nn 0 3s
    }
    if %opendoor = #true
    gosub door
    IF %NN <> 1
    goto moveagain
    set %nn 1
    set %n 1
    bott:
    return

    sub goback
    set %charposx %walk . %nnn
    set %charposy %wallk . %nnn
    if %straighthome = #true
    {
    gosub straighthome
    goto bottt:
    }
    if %recall = #true
    set %nnn %NR
    set %nn 1
    set %n 1
    msg $
    if %opendoor = #true
    gosub door
    moveon:
    IF %NNN >= %FIRST + 1
    {
    RETURN
    }
    IF %NNN = %NN
    RETURN
    SET %N %N + 1
    set %nn %nn + 1
    move %walk . %nn %wallk . %nn 0 5s
    if %walk . %nn <> #charposx && %wallk . %nn <> #charposy
    {
    event pathfind %walk . %nn %wallk . %nn
    wait 1s
    move %walk . %nn %wallk . %nn 0 3s
    }
    gosub door
    goto moveon
    bottt:
    return

    sub count
    ingot:
    finditem %ingotid c_ , %backpackid
    wait 20
    if #findkind = 0
    {
    if #findCol = 0 ;regular
    set %iron %iron + #FINDSTACK
    if #findCol = 2419 ;Dull Copper
    set %d %d + #FINDSTACK
    if #findCol = 2406 ;Shadow
    set %s %s + #FINDSTACK
    if #findCol = 2413 ;Copper
    set %c %c + #FINDSTACK
    if #findCol = 2418 ;Bronze
    set %b %b + #FINDSTACK
    if #findCol = 2213 ;Golden
    set %g %g + #FINDSTACK
    if #findCol = 2425 ;Agapite
    set %a %a + #FINDSTACK
    if #findCol = 2207 ;Verite
    set %ve %ve + #FINDSTACK
    if #findCol = 2219 ;Valorite
    set %va %va + #FINDSTACK
    ignoreitem #findid
    goto ingot
    }
    ignoreitem reset
    return

    sub menu
    if %menuset = 1
    goto count
    set %menuset 1
    menu clear
    menu window size 100 243
    menu window color BLACK
    menu font bgcolor BLACK
    menu window title Bod counter
    menu font align center
    menu font style
    menu font color red
    menu font size 11
    menu text stat 18 0 Total Ingots
    menu font align center
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 25 Iron
    menu font size 11
    menu font style
    menu font color green
    menu text stat 5 50 Dull
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 75 Shadow
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 100 Copper
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 125 Bronze
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 150 Gold
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 175 Agapite
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 200 Vetite
    menu font style
    menu font color green
    menu font size 11
    menu text stat 5 225 Valorite
    menu font align center
    count:
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat1
    menu text stat1 70 25 %iron
    menu font size 11
    menu font style B
    menu font color RED
    menu Delete stat2
    menu text stat2 70 50 %d
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat3
    menu text stat3 70 75 %s
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat4
    menu text stat4 70 100 %c
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat5
    menu text stat5 70 125 %b
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat6
    menu text stat6 70 150 %g
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat7
    menu text stat7 70 175 %a
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat8
    menu text stat8 70 200 %ve
    menu font style B
    menu font color RED
    menu font size 11
    menu Delete stat9
    menu text stat9 70 225 %va
    set #menubutton N/A
    menu show 0 290
    gosub stop
    return

    sub saverail
    menu clear
    menu font color Red
    menu font size 10
    menu text 10 5 txt Wait.. Saving rail.. Screen should flash
    set %tempn %n
    set %tempo %n
    set %n 0
    set %o 0
    set %numb 0
    set %hhh 0
    looprail:
    set %hhh %hhh + 1
    set %array . %hhh set , #spc , % , walk . %n , #spc , %walk . %n
    set %hhh %hhh + 1
    set %array . %hhh set , #spc , % , wallk . %n , #spc , %wallk . %n
    set %hhh %hhh + 1
    set %array . %hhh set , #spc , % , digxx . %n , #spc , %digxx . %n
    set %hhh %hhh + 1
    set %array . %hhh set , #spc , % , digyy . %n , #spc , %digyy . %n
    if %n = %tempo
    {
    set %hhh %hhh + 1
    set %array . %hhh set , #spc , % , findfile , #spc , 1
    set %hhh %hhh + 1
    set %array . %hhh set , #spc , % , first , #spc , %tempo
    set %hhh %hhh + 1
    set %array . %hhh Exit
    menu hide
    set %araysave %hhh
    gosub saveitall array 1 %araysave %file
    return

    ;==================================
    ; Script Name: Sub WriteFastDOSArray
    ; Author: Roadkill
    ; Version: 1.2
    ; Client Tested with: 4.0.2a patch21
    ; EUO version tested with: build 0082
    ; Shard OSI / FS: OSI
    ; Revision Date: 11May04
    ; Public Release: 12May04
    ; Global Variables Used: none
    ; Purpose: write the values from an array into multiline file
    ; using single DOS write for speed instead of slow loop.
    ;==================================
    sub saveitall
    set !lpc #lpc
    set #lpc 1000
    set !doslengthlimit 2000
    ;get comspec for OS
    str left #osver 1
    set !filecmd cmd.exe
    if %_98 = 1
    {
    set !filecmd command.com
    set !doslengthlimit 500
    }
    ;test for allow exec
    if exec notin #opts
    {
    display OK You MUST have “allow Execute” enabled to write a file,$
    + and right now you DON’T! Fix it…you have 10 seconds.
    wait 10s
    }
    set !writestring %1 , %2
    set !writestring % . !writestring
    set !wstart %2 + 1
    set !crlf #spc , >> , #spc , %4 , #spc , && , #spc , echo , #spc
    for !z !wstart %3
    {
    set !element %1 , !z
    set !element % . !element
    str len !element
    set !elementlen #strres
    str len !writestring
    set !writestringlen #strres
    if !writestringlen + !elementlen > !doslengthlimit
    {
    execute !filecmd /c echo !writestring >> %4
    wait 5
    set !writestring #smc , —bufferdump—
    }
    set !writestring !writestring , !crlf , !element
    }
    execute !filecmd /c echo !writestring >> %4
    wait 5
    set #lpc !lpc
    return

    }
    set %n %n + 1
    set %o %o + 1
    goto looprail
    return

    sub door
    finditem %doorname g_3
    set #lobjectid #findid
    set #ltargetid #findid
    event macro 17 0
    wait 30
    return

    sub straighthome
    set %movex #charposx
    set %movey #charposy
    set %resetx 0
    set %resety 0
    if %charposy < %movey
    set %p 1
    else
    set %p 0
    if %charposx < %movex
    set %pp 1
    else
    set %pp 0
    set %addx %movex
    set %addy %movey
    continue:
    set %spec %movex – %charposx
    if %spec < 1
    set %spec %Charposx – %movex
    set %specc %movey – %charposy
    if %specc < 1
    set %specc %Charposy – %movey

    if %resetx <> 1 || 8 <= %spec
    {
    if %charposx < %movex
    set %addx %addx – 8
    else
    set %addx %addx + 8
    set %movex %addx
    }
    if %resety <> 1 || 8 <= %specc
    {
    if %charposy < %movey
    set %addy %addy – 8
    else
    set %addy %addy + 8
    set %movey %addy
    }

    if 8 >= %spec
    {
    set %movex %charposx
    set %resetx 1
    }
    if 8 >= %specc
    {
    set %movey %charposy
    set %resety 1
    }
    keepmoving:
    scanjournal
    if can’t in #journal
    {
    move %movex %movey 1 4s
    }
    deletejournal
    set %edx #charposx
    set %edy #charposy
    move %movex %movey 1 4s
    }
    event pathfind %movex %movey #charposz
    move %movex %movey 1 3s
    wait 25
    if %edx = #charposx && %edy = #charposy
    {
    if %wqe < 3
    set %wqe %wqe + 1
    else
    set %wqe 0
    if %wqe = 0
    {
    set %signx +
    set %signy +
    }
    if %wqe = 1
    {
    set %signx +
    set %signy –
    }
    if %wqe = 2
    {
    set %signx –
    set %signy –
    }
    if %wqe = 3
    {
    set %signx –
    set %signy +
    }
    set %movey %movey %signx 3
    set %movex %movex %signy 3
    move %movex %movey 0 3s
    set %edx #charposx
    set %edy #charposy
    }
    if #charposx <> %movex || #charposy <> %movey
    {
    goto keepmoving
    }
    if %resetx = 1 && %resety = 1
    return
    goto continue
    return

    sub Recall
    if #weight > #maxweight
    gosub dragit
    set %recallloop 1
    if %recall = #false
    {
    set %recallloop 0
    return
    }
    wait 20
    SET %NR %NN
    set %nn 2
    set %oo 2
    set %n 2
    set %o 2
    set %cxx #charposx
    set %cyy #charposy
    lookagain:
    finditem %object c_ , %backpackid
    if #findid <> x
    {
    set #ltargetid #findid
    event macro 15 31
    wait 2s
    scanjournal #jindex
    if fiz in #journal
    goto lookagain
    set #ltargetkind 1
    event macro 22 0
    wait 2s
    set #SCNT 0
    wait:
    if #SCNT > 10
    goto lookagain
    wait 30
    if %cxx = #charposx
    {
    if %cyy = #charposy
    {
    goto wait
    }
    }
    set %recallloop 0
    return

    #2052
    FeST
    Blocked
    • Topics - 8
    • Replies - 30
    • Total - 38
    • Novice
    • ★★

    im not understand in EASYUO… idiotly program

Viewing 2 posts - 1 through 2 (of 2 total)
  • You must be logged in to reply to this topic.