Lockpicking.mac

Space-Boy · Post by **Space-Boy** » Wed Jan 21, 2004 12:36 pm

K this is a uber simple macro, with a certain place to use

intention is to go from like 0 to max in lockpicks in about 1 minute or less

Goto Plane of Tranquility and stand next to Elder Tal Almad (by the rotating book) face the book and look up just above it

Put the lock picks in your cursor and plant the cursor above the book facing the sky

Alt + o and turn fastdrop to Never

run this macro and wait about 45 seconds rofl

Code: Select all

#turbo

Sub Main

   :loop
   /click left
   /goto :loop

/return

you'll get spammed with "you've picked the lock" as well as skillups

wonderful

-Spaceboy

inorpo · Post by **inorpo** » Wed Jan 21, 2004 9:54 pm

I see that and raise you this. :)

Code: Select all

|I "borrowed" some code from here and there
| have fun, I maxed out in about a minute
| the best place is in Plane of Tranquility, right above the book on the table behind the
| PoK book, its about a foot above the book
| Good luck
| have fun.
| -inorpo
#turbo

#event PickSucc "You successfully"
#event SkillUp "You have become better at"


Sub Main
	/declare Trys global
	/declare SkillUps global
	/varset Trys 0
	/varset SkillUps 0
	:Start
	 /if "$target(name,clean)"=="$char(name)" {
		  :HoldingPattern
		  /delay 2s
		  /if "$target(name,clean)"=="$char(name)" /call ShowStats
	 }
	/click left
	/doevents
	/goto :Start

/return

Sub Event_PickSucc
	/varadd Trys 1
/return

Sub Event_SkillUp
	/varadd SkillUps 1
	/echo $int(@SkillUps) skill ups in $int($calc(@Trys)) attempts!
/return

Sub ShowStats
	/echo Total clicks:	 $int(@Trys)
	/echo Total SkillUps: $int(@SkillUps)
	/endmacro
/return

daerck · Post by **daerck** » Wed Jan 21, 2004 10:24 pm

I raise with this

Code: Select all

|I "borrowed" some code from here and there
| have fun, I maxed out in about a minute
| the best place is in Plane of Tranquility, right above the book on the table behind the
| PoK book, its about a foot above the book
| Good luck
| have fun.
| -inorpo
#turbo

#event PickSucc "You successfully"
#event SkillUp "You have become better at"


Sub Main
	/declare Trys global
	/declare SkillUps global
[color=red]	/declare StartHr global
	/declare StartMin global
	/declare StartSec global
	/declare DurationHr global
	/declare DurationMin global
	/declare DurationSec global

	/varset StartHr $time(h)
	/varset StartMin $time(m)
	/varset StartSec $time(s)[/color]
	/varset Trys 0
	/varset SkillUps 0
	:Start
	 /if "$target(name,clean)"=="$char(name)" {
		  :HoldingPattern
		  /delay 2s
		  /if "$target(name,clean)"=="$char(name)" /call ShowStats
	 }
	/click left
	/doevents
	/goto :Start

/return

Sub Event_PickSucc
	/varadd Trys 1
/return

Sub Event_SkillUp
	/varadd SkillUps 1
	/echo $int(@SkillUps) skill ups in $int($calc(@Trys)) attempts!
/return

Sub ShowStats
	/echo Total clicks:	 $int(@Trys)
	/echo Total SkillUps: $int(@SkillUps)
	[color=red]/call GetDuration[/color]
	/endmacro
/return

[color=red]Sub GetDuration
	/varset DurationHr $calc($time(h)-@StartHr)
	/varset DurationMin $calc($time(m)-@StartMin)
	/varset DurationSec $calc($time(s)-@StartSec)
	/if @DurationSec<0 {
		/varadd DurationSec 60
		/varsub DurationMin 1
	}
	/if @DurationMin<0 {
		/varadd DurationMin 60
		/varsub DurationHr 1
	}
	/echo Time Elapsed: $int(@DurationHr) Hours, $int(@DurationMin) Minutes, $int(@DurationSec) Seconds.
/return[/color]

(note: Not tested)

YKW-28983 · Post by **YKW-28983** » Wed Jan 21, 2004 10:41 pm

ummm...

$running

no comment.

daerck · Post by **daerck** » Wed Jan 21, 2004 11:15 pm

Joined: 13 Jan 2004

Still learning...

Ok so it should be

Code: Select all

Sub GetDuration 
   /varset DurationSec $calc($running%60)
   /varset DurationMin $calc($calc($running%3600)\60)
   /varset DurationHr $calc($running\3600)
   /echo Time Elapsed: $int(@DurationHr) Hours, $int(@DurationMin) Minutes, $int(@DurationSec) Seconds. 
/return

and remove the StartHr, etc declare and defines.

YKW-28983 · Post by **YKW-28983** » Thu Jan 22, 2004 12:09 am

You still need to declare the variables.

daerck · Post by **daerck** » Thu Jan 22, 2004 5:34 am

Right but I won't need the StartHr, StartMin and StartSec anymore. Maybe I was a bit unclear so:

Code: Select all

|I "borrowed" some code from here and there 
| have fun, I maxed out in about a minute 
| the best place is in Plane of Tranquility, right above the book on the table behind the 
| PoK book, its about a foot above the book 
| Good luck 
| have fun. 
| -inorpo 
#turbo 

#event PickSucc "You successfully" 
#event SkillUp "You have become better at" 


Sub Main 
   /declare Trys global 
   /declare SkillUps global 
   /declare DurationHr global 
   /declare DurationMin global 
   /declare DurationSec global 

   /varset Trys 0 
   /varset SkillUps 0 
   :Start 
    /if "$target(name,clean)"=="$char(name)" { 
        :HoldingPattern 
        /delay 2s 
        /if "$target(name,clean)"=="$char(name)" /call ShowStats 
    } 
   /click left 
   /doevents 
   /goto :Start 

/return 

Sub Event_PickSucc 
   /varadd Trys 1 
/return 

Sub Event_SkillUp 
   /varadd SkillUps 1 
   /echo $int(@SkillUps) skill ups in $int($calc(@Trys)) attempts! 
/return 

Sub ShowStats 
   /echo Total clicks:    $int(@Trys) 
   /echo Total SkillUps: $int(@SkillUps) 
   /call GetDuration 
   /endmacro 
/return 

Sub GetDuration 
   /varset DurationSec $calc($running%60) 
   /varset DurationMin $calc($calc($running%3600)\60) 
   /varset DurationHr $calc($running\3600) 
   /echo Time Elapsed: $int(@DurationHr) Hours, $int(@DurationMin) Minutes, $int(@DurationSec) Seconds. 
/return

And yes I probably could move them into the GetDuration Subroutine and make them local.