pen trick peacer need help

[bliss]

ok i took some of snows robo peacer and some of tm's stealth hider trainer and treid to put a little something together it actually runs but its missing some thing, it does not go fast enough to make the whole peace pen thing work right. this is what i think i need to do you have to click pen then click make last. befor it goes through the cycle and the menu comes back up you have to use peace then target self after that you have to click make last 2 times on second try you have to go thrue the peace target self process befor the menu pops back up should be simple  for some one  that knows what they are doing lol



hope it ok that i used parts of your guyses scripts

Code: [Select]

;;---------------------------------------------------------
;finditem QRF_NRF_MQF_PRF_LQF_OQF_RPG_RGP ;find any instrument
;set #LOBJECTID #findid
;set %currentInstrument #findid
;event macro 17 ;use object
;wait 5


;loop1:
; gosub hidestartup
; gosub DoHide

;  goto loop1
;;-------------------------------------------------
;sub hidestartup
;  finditem PBG C_ , #backpackid
;  if #findkind <> -1
;  {
;    set #lobjectid #findid
;    while #contsize <> 530_437
;      event macro 17 0
;    gosub ClickNWait 30 90 #TRUE
;    gosub ClickNWait 235 70 #TRUE
;  }
;  else
;  {
;    display ok Need an inscription pen to work properly, exiting.
;    stop
;  }
;return
;;-----------------------------------------------
;sub DoHide
;  gosub ClickNWait 285 410 #FALSE ; don't wait for gumpski
;  event macro 13 9 ;peacemaking
;  target
;  event macro 23 0 ;target self
;  click %clickx %clicky
;  gosub GumpAndSizeWait generic_gump 530_437
;  if #RESULT = #TRUE
;    gosub hidestartup
;return
;;-----------------------------------------------

;sub ClickNWait
;  set %clickx #contposx + %1
;  set %clicky #contposy + %2
;  click %clickx %clicky
;  if %3 <> #TRUE
;    return
;  gosub GumpAndSizeWait generic_gump 530_437
;  if #RESULT = #TRUE
;    gosub hidestartup
;return
;;----------end hiding-------------------
;;-------------------------------------------------------------------------------
;; %1 = Gumpname
;; %2 = Size
;sub GumpAndSizeWait
;  set %timedelay #SCNT
;  GumpWait_loop1:
;    if #CONTNAME = %1 && #CONTSIZE = %2
;      return #FALSE ; no error
;    if #SCNT > %timedelay + 7
;      return #TRUE ; error, timeout
;    goto GumpWait_loop1
;return #TRUE ; should never get here.