For a power leveled, unskilled rogue....

[mekaniak]

Ok, my friend asked me for this so I'm sure some one else has PLed a rogue and cant write basic scripts (no offense, this is very very simple and probably can be done better.) But here it is none the less...

Code: Select all

|lazyrogue.mac
|Syntax /macro lazyrogue

Sub Main
/echo I'm a rogue. Fear my skills...In about a few hours.
:start
/call Sneak
/call Hide
/call Pocket
/goto :start

Sub Sneak
   /if n $char(ability,"Sneak")!=-2 {
	/doability Sneak
	/doability Sneak
   }
/return

Sub Hide
   /if n $char(ability,"Hide")!=-2 {
	/doability Hide
	/doability Hide
   }
/return

Sub Pocket
   /if n $char(ability,"Pick Pockets")!=-2 {
	/doability "Pick Pockets"
   }
/return

[mekaniak]

NM he is just a tardass.

[a9]

This is the version i used when training.

Code: Select all

|lazyrogue2.mac Updated by A9, original by mekaniak.
|Syntax /macro lazyrogue2 

Sub Main 
/echo I'm a rogue. Fear my skills...In about a few hours. 
:start 
/call Hide
/delay 1s
/call Sneak
/delay 1s
/call Begging
/delay 1s
/call Disarm
/delay 1s 
/call Intimidate
/delay 1s 
/call Pocket 
/delay 2s
/goto :start 

Sub Sneak 
   /if n $char(ability,"Sneak")!=-2 { 
   /doability Sneak 
   /doability Sneak 
   } 
/return 

Sub Hide 
   /if n $char(ability,"Hide")!=-2 { 
   /doability Hide 
   /doability Hide 
   } 
/return 

Sub Begging 
   /if n $char(ability,"Sneak")!=-2 { 
   /doability begging  
   } 
/return 

Sub Disarm 
   /if n $char(ability,"Sneak")!=-2 { 
   /doability disarm  
   } 
/return 

Sub Intimidate 
   /if n $char(ability,"Hide")!=-2 { 
   /doability Intimidation  
   } 
/return 

Sub Pocket 
   /if n $char(ability,"Pick Pockets")!=-2 { 
   /doability "Pick Pockets" 
   } 
/return 

[a9]

Will try to make a version that counts success and such like the lockpick version i did see earlier.

For some reason begging will not work for me, starts pick pocket.
Any sugestions why?

[GD]

Maybe this is why....

Code: Select all

Sub Begging 
   /if n $char(ability,"[color=red]Sneak[/color]")!=-2 { 
   /doability begging  
   } 
/return 

[mekaniak]

yeah, looking at your code you actually have 3 "/if n $char(ability,"Sneak")!=-2 { " lines there. 1 at begging, 1 at actual sneak, and the last one at disarm. I don't know if thats the problem but you should probably change that.

[a9]

I definitialy need to go to sleep earlier it seems .

Thanks for help ill fix it and see how it works.

[a9]

Tried with sense trap instead and it worked.
I didnt get the counting to work though. Likely i have missed a very important point somewhere. Been messing with the code tofind the problem and now its likely more errors in it. Would be glad if someone could look at it for me. Problem seems to be with the variables

Code: Select all

Rogueskills.mac 
|Syntax /macro Rogueskills 

#turbo

| Try to set the events that shall count the training effect.

#event SkillUpSneak "You have become better at Sneak" 
#event SkillUpDisarm "You have become better at Disarm" 
#event SkillUpHide "You have become better at Hide" 
#event SkillUpPick "You have become better at Pick" 
#event SkillUpSense "You have become better at Sense" 
#event SkillUpInt "You have become better at Intimi"
#event skillups "You have become better at" 

| Declare the variables with values and run the skilluse.

Sub Main 
/echo I'm a rogue. Fear my skills...In about a few hours. 

   /declare SkillUpSneak global
   /declare SkillUpDisarm global
   /declare SkillUpHide global
   /declare SkillUpPick global
   /declare SkillUpSense global
   /declare SkillUpInt global
   /declare SkillUps global 
   /declare DurationHr global 
   /declare DurationMin global 
   /declare DurationSec global 

   /varset SkillUpSneak 0 
   /varset SkillUpDisarm 0 
   /varset SkillUpHide 0 
   /varset SkillUpPick 0 
   /varset SkillUpSense 0 
   /varset SkillUpInt 0
   /varset SkillUps 0 
 

:start 
/call Hide
/delay 1s
/call Sneak
/delay 1s
/call SenseTraps
/delay 1s
/call Disarm
/delay 1s 
/call Intimidate
/delay 1s 
/call Pocket 
/delay 2s
/doevents
/call Showstats
/goto :start 

/return

Sub Sneak 
   /if n $char(ability,"Sneak")!=-2 { 
   /doability Sneak 
   /doability Sneak 
   } 
/return 

Sub Hide 
   /if n $char(ability,"Hide")!=-2 { 
   /doability Hide 
   /doability Hide 
   } 
/return 

Sub sensetraps 
   /if n $char(ability,"Sense traps")!=-2 { 
   /doability "Sense Traps" 
   } 
/return 

Sub Disarm 
   /if n $char(ability,"disarm")!=-2 { 
   /doability disarm  
   } 
/return 

Sub Intimidate 
   /if n $char(ability,"Intimidation")!=-2 { 
   /doability Intimidation  
   } 
/return 

Sub Pocket 
   /if n $char(ability,"Pick Pockets")!=-2 { 
   /doability "Pick Pockets" 
   } 
/return 

Sub ShowStats
   /echo Test
   /echo ! $int(@SkillupSneak) Sneak!
   /echo ! $int(@SkillupDisarm) Disarm!
   /echo ! $int(@SkillupHide) Hide!
   /echo ! $int(@SkillupPick) Pick pocket!
   /echo ! $int(@SkillupSense) Sense Trap!
   /echo ! $int(@SkillupInt) Intimidate!
   /echo ! $int(@SkillUps) skill ups!   
   /call GetDuration
/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 

Sub Event_SkillUpsneak 
   /varadd SkillUpsneak 1 
  /return 
Sub Event_SkillUphide 
   /varadd SkillUphide 1 
  /return 
Sub Event_SkillUpDisarm 
   /varadd SkillUpDisarm 1 
  /return 
Sub Event_SkillUpSense 
   /varadd SkillUpsneak 1 
  /return 
Sub Event_SkillUpInt 
   /varadd SkillUpInt 1 
  /return 
Sub Event_SkillUpPick 
   /varadd SkillUpPick 1 
  /return 


Sub Event_SkillUps 
   /varadd SkillUps 1 
  /return

[Light Knight]

You just had a few variable problems..I believe they are case sensitive..

and I changed the event names just in case.

Code: Select all

|Syntax /macro Rogueup

#turbo 

| Try to set the events that shall count the training effect. 

#event SkillUpsneakEvent "You have become better at Sneak" 
#event SkillUpDisarmEvent "You have become better at Disarm" 
#event SkillUpHideEvent "You have become better at Hide" 
#event SkillUpPickEvent "You have become better at Pick" 
#event SkillUpsenseEvent "You have become better at Sense" 
#event SkillUpIntEvent "You have become better at Intimi" 
#event SkillUpsevent "You have become better at" 

| Declare the variables with values and run the skilluse. 

Sub Main 
/echo I'm a rogue. Fear my skills...In about a few hours. 

   /declare SkillUpSneak global 
   /declare SkillUpDisarm global 
   /declare SkillUpHide global 
   /declare SkillUpPick global 
   /declare SkillUpsense global 
   /declare SkillUpInt global 
   /declare SkillUps global 
   /declare DurationHr global 
   /declare DurationMin global 
   /declare DurationSec global 

   /varset SkillUpSneak 0 
   /varset SkillUpDisarm 0 
   /varset SkillUpHide 0 
   /varset SkillUpPick 0 
   /varset SkillUpsense 0 
   /varset SkillUpInt 0 
   /varset SkillUps 0 


:start 
/call Hide 
/delay 1s 
/call Sneak 
/delay 1s 
/call SenseTraps 
/delay 1s 
/call Disarm 
/delay 1s 
/call Intimidate 
/delay 1s 
/call Pocket 
/delay 2s 
/doevents 
/call Showstats 
/goto :start 

/return 

Sub Sneak 
   /if n $char(ability,"Sneak")!=-2 { 
   /doability Sneak 
   /doability Sneak 
   } 
/return 

Sub Hide 
   /if n $char(ability,"Hide")!=-2 { 
   /doability Hide 
   /doability Hide 
   } 
/return 

Sub sensetraps 
   /if n $char(ability,"Sense traps")!=-2 { 
   /doability "Sense Traps" 
   } 
/return 

Sub Disarm 
   /if n $char(ability,"disarm")!=-2 { 
   /doability disarm  
   } 
/return 

Sub Intimidate 
   /if n $char(ability,"Intimidation")!=-2 { 
   /doability Intimidation  
   } 
/return 

Sub Pocket 
   /if n $char(ability,"Pick Pockets")!=-2 { 
   /doability "Pick Pockets" 
   } 
/return 

Sub ShowStats 
   /echo ! $int(@SkillUpSneak) Sneak! 
   /echo ! $int(@SkillUpDisarm) Disarm! 
   /echo ! $int(@SkillUpHide) Hide! 
   /echo ! $int(@SkillUpPick) Pick pocket! 
   /echo ! $int(@SkillUpsense) Sense Trap! 
   /echo ! $int(@SkillUpInt) Intimidate! 
   /echo ! $int(@SkillUps) skill ups!    
   /call GetDuration 
/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 

Sub Event_SkillUpsneakEvent
   /varadd SkillUpSneak 1 
  /return 
Sub Event_SkillUphideEvent
   /varadd SkillUpHide 1 
  /return 
Sub Event_SkillUpDisarmEvent
   /varadd SkillUpDisarm 1 
  /return 
Sub Event_SkillUpsenseEvent
   /varadd SkillUpsense 1 
  /return 
Sub Event_SkillUpIntEvent
   /varadd SkillUpInt 1 
  /return 
Sub Event_SkillUpPickEvent 
   /varadd SkillUpPick 1 
  /return 


Sub Event_SkillUpsevent
   /varadd SkillUps 1 
  /return 

[a9]

Thanks i will check it out tonight :)

[tranze204]

Hey there i suck at these things...so at that ive been having problems with this macro...and its /doability im getting spammed about this and my skills arent being practiced...anyway someone can help by posting wha i need to do?

[tranze204]

Can you please help me please....

[mekaniak]

This was written a very long time ago, it needs to be updated to the new stuff. If I understood te new params and stuff i would do it, but its early and I dont feel like looking stuff up. Sorry.

[a9]

What kind of messages do you get?
Ill check tonight or tomorrow if this one still works for me.

[tranze204]

it says something about the ability is not set to a /doability button or something like that, if you could help me it would be very useful to me and i would appreciate it alot.