menu combo create skill 85 40 120
menu combo add skill Alchemy
menu combo add skill Blacksmithy
menu combo add skill Carpentry
menu combo add skill Tailoring
menu combo add skill Tinkering
set !old_menures #menuRes
repeat
menu get skill
if #menuRes = 1 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill alch
set %skill_name Alchemy:
gosub main_menu
)
if #menuRes = 2 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill blac
set %skill_name Blacksmithy:
gosub main_menu
)
if #menuRes = 3 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill carp
set %skill_name Carpentry:
gosub main_menu
)
if #menuRes = 4 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill tail
set %skill_name Tailoring:
gosub main_menu
)
if #menuRes = 5 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill tink
set %skill_name Tinkering:
gosub main_menu
)
until #false
sub main_menu
set %size1 105
set %size1 ( %size1 + 100 )
menu window size 290 %size1
menu shape status_bg 5 105 280 95 3 7 1 Black 7 Gray
menu font align right
menu font color black
menu font size 10
menu text titles 85 115 %skill_name
menu text titles 85 135 Attempts:
menu text titles 85 155 Time:
menu text titles 85 175 Last Gain:
return
set %sewing_kit HAG
set %ingot_type ENK
set %cloth_type CUI
set %oil_cloth RTI
set %size1 105
set %timeout #scnt + 5
gosub TM_AddUnderscore #CHARNAME
set %charname #RESULT
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXX MENU DESIGN XXXXXXXXXXXXXXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
;menu hideeuo
menu window title Guadah's Crafters Trainer
menu window color silver
menu window size 290 %size1
menu font bgcolor gray
menu shape potionbg 5 5 280 65 3 7 1 Black 7 Gray
menu font align right
menu text title 80 12 Resources:
menu text title 80 44 Train Skill:
menu font align left
menu font bgcolor silver
menu font size 10
menu button target_resource_bag 175 10 30 24 Set
menu edit resource_bag 85 10 85 %resource_bag
menu button start 230 10 50 25 Start
menu button quit 230 40 50 25 Quit
; pull down skill selection box
menu combo create skill 85 40 120
menu combo add skill Alchemy
menu combo add skill Blacksmithy
menu combo add skill Carpentry
menu combo add skill Tailoring
menu combo add skill Tinkering
; Status Box
menu shape status_bg 5 75 280 25 3 7 1 Black 7 Gray
menu font bgcolor gray
menu text status_title 10 80 Status:
menu font color maroon
menu font size 9
menu text status 60 80 Please wait, Initializing Script...
menu show
gosub TM_GetPersistantVariable resource_bag
menu set resource_bag #result
menu get resource_bag
if #menures = N/A
{
menu set status Please set your Resource Chest
}
if #menures <> N/A
{
set %resource_bag #menures
set #lobjectid %resource_bag
event macro 17 0
wait 10
contpos 575 400
wait 10
}
set !old_menures #menuRes
repeat
if #menuButton = target_resource_bag
{
menu set status Please set your Resource Chest
set #targCurs 1
set_resource_bag:
if #targCurs = 1
goto set_resource_bag
Set %resource_bag #ltargetid
Set #lobjectid %resource_bag
Event Macro 17 0
wait 10
contpos 610 440
wait 10
menu font size 10
menu set resource_bag %resource_bag
gosub TM_SetPersistantVariable resource_bag %resource_bag
set #menubutton N/A
}
menu set status Please select your skill to train.
if #menubutton = Start
{
set #menubutton N/A
menu delete Start
menu font bgcolor silver
menu font size 10
menu font color black
menu button Pause 230 10 50 25 Pause
gosub training
}
if #menubutton = Quit
{
set #menubutton N/A
display ok Thank you for using my script.$
+$
+Script is Halting$
menu hide
halt
}
menu get skill
if #menuRes = 1 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill alch
set %skill_name Alchemy:
gosub main_menu
)
if #menuRes = 2 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill blac
set %skill_name Blacksmithy:
gosub main_menu
)
if #menuRes = 3 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill carp
set %skill_name Carpentry:
gosub main_menu
)
if #menuRes = 4 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill tail
set %skill_name Tailoring:
gosub main_menu
)
if #menuRes = 5 && !old_menures <> #menuRes
{
set !old_menures #menuRes
set %skill tink
set %skill_name Tinkering:
gosub main_menu
)
until #false
sub main_menu
set %size1 105
set %size1 ( %size1 + 100 )
menu window size 290 %size1
menu shape status_bg 5 105 280 95 3 7 1 Black 7 Gray
menu font align right
menu font color black
menu font size 10
menu text titles 85 115 %skill_name
menu text titles 85 135 Attempts:
menu text titles 85 155 Time:
menu text titles 85 175 Last Gain:
return
; #################################################
; ######## PAUSE SUB ########
; #################################################
Sub CheckPause
if #menubutton = pause
{
set #menubutton N/A
menu delete pause
menu font color maroon
menu font bgcolor silver
menu button resume 230 10 50 25 Resume
menu set status Paused! Click "Resume" when ready.
gosub PauseLoop
}
if #menubutton = quit
{
display ok Thank you for using Guadah's Alchemist Assistant.$
+$
+Script is Halting$
menu hide
halt
}
return
Sub PauseLoop
Pause_Loop:
If #menubutton = resume
{
set #menubutton N/A
Menu Delete Resume
Menu Font Color Black
menu font bgcolor silver
Menu Button Pause 230 10 50 25 Pause
Return
}
if #menuButton = quit
{
Display ok Thank you for using Guadah's Alchemist Assistant.$
+$
+Script is Halting$
Menu Hide
Halt
}
Goto Pause_Loop
Return
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
; XXX TRAILMYX'S PERSISTANT VARIABLE SUBS XXX
; XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
sub TM_GetPersistantVariable
set #RESULT %1 , _ , #CHARID
set #RESULT * . #RESULT
return #RESULT
sub TM_SetPersistantVariable
set #RESULT %1 , _ , #CHARID
set * . #RESULT %2
return
if #menuRes = 1
{
set #menuRes N/A
set %skill alch
set %skill_name Alchemy:
gosub main_menu
)
...
if ( ( #menuRes = 1 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill alch
set %skill_name Alchemy:
gosub main_menu
)
menu get skill
if ( ( #menuRes = 1 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill alch
set %skill_name Alchemy:
gosub main_menu
)
if ( ( #menuRes = 2 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill blac
set %skill_name Blacksmithy:
gosub main_menu
)
if ( ( #menuRes = 3 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill carp
set %skill_name Carpentry:
gosub main_menu
)
if ( ( #menuRes = 4 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill tail
set %skill_name Tailoring:
gosub main_menu
)
if ( ( #menuRes = 5 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill tink
set %skill_name Tinkering:
gosub main_menu
)
until #false
gosub showEUOMenu1
menu combo add newskill Alchemy
menu combo add newskill Blacksmithy
menu combo add newskill Carpentry
menu combo add newskill Tailoring
menu combo add newskill Tinkering
menu get newskill
set !old_menures #menuRes
repeat
menu get newskill
if ( ( #menuRes = 1 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill alch
set %skill_name Alchemy:
gosub main_menu
}
if ( ( #menuRes = 2 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill blac
set %skill_name Blacksmithy:
gosub main_menu
}
if ( ( #menuRes = 3 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill carp
set %skill_name Carpentry:
gosub main_menu
}
if ( ( #menuRes = 4 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill tail
set %skill_name Tailoring:
gosub main_menu
}
if ( ( #menuRes = 5 ) && ( !old_menures <> #menuRes ) )
{
set !old_menures #menuRes
set %skill tink
set %skill_name Tinkering:
gosub main_menu
}
until #false
sub main_menu
menu set EUOEdit1 %skill_name
return
;--------- EasyUO Menu Designer Code Begin ---------
sub showEUOMenu1
menu Clear
menu Window Title EUOMenu1
menu Window Color BtnFace
menu Window Size 340 254
menu Font Transparent #true
menu Font Align Right
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Font BGColor Window
menu combo Create newskill 32 24 121 97
menu Font Name MS Sans Serif
menu Font Size 8
menu Font Style
menu Font Color WindowText
menu Edit EUOEdit1 32 136 121 EUOEdit1
menu Show 421 270
return
;--------- EasyUO Menu Designer Code End ---------
If you need me, I'll be in the corner in the fetal position... crying.