Casino Mac
Posted: Wed Apr 04, 2018 6:19 pm
Using Moguay's Godly mac i altered it for Casino with new changes i hand was hurting trying for some rares =p
<code></code>
Sub Main
/declare strLucky'sCourtToken string local Lucky's Court Token
/declare i int local 0
:Lucky'sCourtTokenTurn
/if (${i} <= 0 || ${i} >= 4) {
/if (${Window[GiveWnd].Open}) {
/nomodkey /notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s (!${Window[GiveWnd].Open})
/delay 5
}
/varset i 0
}
/call openBags
/call ClearCursor
/if (!${Spawn[NPC =Felicitous].ID} && ${Spawn[NPC =Felicitous].Distance}>0 && ${Spawn[NPC =Felicitious].Distance}<15) {
/echo Lucky'sCourtToken: exit, Felicitous not in range
/return
}
/if (${FindItem[${strLucky'sCourtToken}].InvSlot}) {
/if (${Target.ID}!=${Spawn[NPC =Felicitous.ID}) /target id ${Spawn[NPC =Felicitous].ID}
/delay 1s (${Target.ID}==${Spawn[NPC =Felicitous].ID})
/ctrl /itemnotify ${InvSlot[${FindItem[${strLucky'sCourtToken}].InvSlot}]} leftmouseup
/if (${Target.ID}==${Spawn[NPC =Felicitous].ID}) {
/nomodkey /click left target
/delay 1s (!${Cursor.ID})
/if (!${Cursor.ID}) {
/varcalc i ${i} + 1
/goto :Lucky'sCourtTokenTurn
}
}
/echo Lucky'sCourtToken: >>>> Lag PROBLEM <<<<, use /endmac to exit
} else {
/echo Lucky'sCourtToken: exit, no more item to turn
/return
}
/goto :Lucky'sCourtTokenTurn
/return
||||||||| FUNCTIONS
Sub openBags
/declare i int local
/declare retryTimer timer local
/declare miscTimer timer local
/for i 1 to 8
/varset miscTimer 30
/if (${Me.Inventory[pack${i}].Container}) {
penBag
/if (!${Window[pack${i}].Open}) {
/itemnotify pack${i} rightmouseup
/delay 5 ${Window[pack${i}].Open} || ${Window[TradeSkillWnd].Open}
/if (!${Window[pack${i}].Open} && !${Window[TradeSkillWnd].Open} && ${miscTimer}) /goto
penBag
/if (${Window[TradeSkillWnd].Open}) {
penExperimentWnd
/notify TradeSkillWnd ExperimentButton leftmouseup
/delay 5 !${Window[TradeSkillWnd].Open}
/if (${Window[TradeSkillWnd].Open} && ${miscTimer}) /goto
penExperimentWnd
}
}
}
/next i
/return
Sub ClearCursor
:ClearCursor
/if (${Cursor.ID}) {
/autoinventory
/delay 5 (!${Cursor.ID})
/goto :ClearCursor
}
/return
<code></code>
Sub Main
/declare strLucky'sCourtToken string local Lucky's Court Token
/declare i int local 0
:Lucky'sCourtTokenTurn
/if (${i} <= 0 || ${i} >= 4) {
/if (${Window[GiveWnd].Open}) {
/nomodkey /notify GiveWnd GVW_Give_Button leftmouseup
/delay 1s (!${Window[GiveWnd].Open})
/delay 5
}
/varset i 0
}
/call openBags
/call ClearCursor
/if (!${Spawn[NPC =Felicitous].ID} && ${Spawn[NPC =Felicitous].Distance}>0 && ${Spawn[NPC =Felicitious].Distance}<15) {
/echo Lucky'sCourtToken: exit, Felicitous not in range
/return
}
/if (${FindItem[${strLucky'sCourtToken}].InvSlot}) {
/if (${Target.ID}!=${Spawn[NPC =Felicitous.ID}) /target id ${Spawn[NPC =Felicitous].ID}
/delay 1s (${Target.ID}==${Spawn[NPC =Felicitous].ID})
/ctrl /itemnotify ${InvSlot[${FindItem[${strLucky'sCourtToken}].InvSlot}]} leftmouseup
/if (${Target.ID}==${Spawn[NPC =Felicitous].ID}) {
/nomodkey /click left target
/delay 1s (!${Cursor.ID})
/if (!${Cursor.ID}) {
/varcalc i ${i} + 1
/goto :Lucky'sCourtTokenTurn
}
}
/echo Lucky'sCourtToken: >>>> Lag PROBLEM <<<<, use /endmac to exit
} else {
/echo Lucky'sCourtToken: exit, no more item to turn
/return
}
/goto :Lucky'sCourtTokenTurn
/return
||||||||| FUNCTIONS
Sub openBags
/declare i int local
/declare retryTimer timer local
/declare miscTimer timer local
/for i 1 to 8
/varset miscTimer 30
/if (${Me.Inventory[pack${i}].Container}) {

/if (!${Window[pack${i}].Open}) {
/itemnotify pack${i} rightmouseup
/delay 5 ${Window[pack${i}].Open} || ${Window[TradeSkillWnd].Open}
/if (!${Window[pack${i}].Open} && !${Window[TradeSkillWnd].Open} && ${miscTimer}) /goto

/if (${Window[TradeSkillWnd].Open}) {

/notify TradeSkillWnd ExperimentButton leftmouseup
/delay 5 !${Window[TradeSkillWnd].Open}
/if (${Window[TradeSkillWnd].Open} && ${miscTimer}) /goto

}
}
}
/next i
/return
Sub ClearCursor
:ClearCursor
/if (${Cursor.ID}) {
/autoinventory
/delay 5 (!${Cursor.ID})
/goto :ClearCursor
}
/return