;==================================
; Script Name: Immortal's Peacemaking Trainer
; Author: Immortal
; Version: 1.1
; Client Tested with: 4.0.3d
; EUO version tested with: 1.42.009D
; Shard OSI / FS: Freeshards
; Revision Date: 21/09/05
; Public Release: 03/03/05
; Global Variables Used: none
; Purpose: Get as many instruments as you can, then run script and have fun gaining Peacemaking.
;==================================
; SETUP

chooseskill peac
set #skilllock up
set %maxskill #skillcap

set %delay 10s

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

initevents
gosub showMenu
menu Text MenuText 8 8 Welcome to Immortal's Peacemaking Trainer.
wait 2s
menu delete MenuText
menu Text MenuText 8 8 Checking instruments.
wait 2s
finditem QRF_NRF_MQF_PRF_LQF_OQF_QRF C_ , #backpackid
if #findkind = -1
{
menu delete MenuText
menu Text MenuText 8 8 No instruments found. $Get some and restart the script.
halt
}
menu delete MenuText
menu Text MenuText 8 8 Setup done. Starting.
wait 2s


peacemaking:
chooseSkill peac
if #skill > %currentskill
{
wait 1s
menu delete MenuText
menu Text MenuText 8 8 Peacemaking gained 1 point.
set %currentskill #skill
wait 1s
}

chooseSkill peac
set %currentskill #skill
if %currentskill = %maxskill
{
wait 1s
menu delete MenuText
menu Text MenuText 8 8 Maximum skill reached. Congratulations.
halt
}

menu delete MenuText
menu Text MenuText 8 8 Peacemaking...
finditem QRF_NRF_MQF_PRF_LQF_OQF_QRF C_ , #backpackid
set #lobjectid #findid
event macro 13 9
event macro 17 0
target
event macro 23 0
wait %delay
goto peacemaking


;--------- EasyUO Menu Designer Code Begin ---------
sub showMenu
menu Clear
menu Window Title Immortal's Freeshard Peacemaking
menu Window Color BtnHighlight
menu Window Size 280 70
menu Font Transparent #true
menu Font Align Right
menu Show 0 0
menu font align center
return
;--------- EasyUO Menu Designer Code End ---------