Yoko

;========================================
; Name: Multi Skill Trainer
; Author: Super Noob
; Version: 2.0
; Client Tested with: not tested
; Public Release: 7/8/2003
; Updated : 28/10/2003
; Purpose: To train in different Skills
;========================================
setuotitle SuperNoobs multi skill trainer
InitEvents
menu clear
menu window size 400 400
menu window title 8*8 Trainer
menu bgcolor black
menu window color black
menu font style 1
menu font size 20
menu font color green
menu Font Align center
menu text 1 1 1 choose a skill
set #menubutton N/A
menu button Tracking 0 35 150 45 Tracking
menu button Spirit_Speak 0 75 150 45 Spirit Speak
menu button Meditation 0 110 150 45 Meditation
menu button Arms_Lore 0 145 150 45 Arms Lore
menu button Hiding 0 180 150 45 Hiding
menu button Stealth 0 215 150 45 Stealth
menu button Animal_Lore 0 255 150 45 animal lore
menu button Healing 0 295 150 45 healing
menu button Eval_Int 0 330 150 45 eval int
menu HideEUO
menu show
Loop:
wait 5
if #menubutton = N/A
{
goto Loop
}
gosub #menubutton
;======================================
sub Tracking
menu Hide
display alert The script is now paused Press play when you are ready!
pause
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
;====================================
Gain_Find_Tracking:
chooseskill tracking
set %old #skill
set %check #skill
event macro 13 38
wait 1s
event macro 31
if ARG in #journal
{
gosub antiblock
}
if #skill > %check
{
gosub settitle
goto Main_Tracking
}
wait 9s
goto Gain_Find_Tracking
;=================================
Main_Tracking:
msg stop$
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill tracking
set %check #skill
event macro 13 38
wait 1s
event macro 31
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Tracking
}
msg slow back$
wait 8s
msg stop$
chooseskill tracking
set %check #skill
event macro 13 38
wait 1s
event macro 31
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Tracking
}
goto Gain_Find_Tracking

;============================================================
sub Spirit_Speak
menu Hide
display alert The script is now paused Press play when you are ready!
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
;====================================
Gain_Find_Spirit:
chooseskill SpiritSpeak
set %old #skill
set %check #skill
event macro 13 32
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Spirit
}
wait 9s
goto Gain_Find_Spirit
;=================================
Main_Spirit:
msg stop$
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill SpiritSpeak
set %check #skill
event macro 13 32
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Spirit
}
msg slow back$
wait 8s
msg stop$
chooseskill SpiritSpeak
set %check #skill
event macro 13 32
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Spirit
}
goto Gain_Find_Spirit

;============================================================
sub Meditation
menu Hide
display alert The script is now paused Press play when you are ready!
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
;====================================
Gain_Find_Meditation:
chooseskill Meditation
set %old #skill
set %check #skill
event macro 13 46
wait 1s
if ARG in #journal
{
gosub settitle
gosub antiblock
}

if #skill > %check
{
goto Main_Meditation
}
wait 9s
goto Gain_Find_Meditation
;=================================
Main_Meditation:
msg stop$
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill Meditation
set %check #skill
event macro 13 46
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Meditation
}
msg slow back$
wait 8s
msg stop$
chooseskill Meditation
set %check #skill
event macro 13 46
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Meditation
}
goto Gain_Find_Meditation

;==========================================
sub Arms_Lore
menu Hide
display alert The script is now paused Press play when you are ready!
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
;=========================================
Gain_Find_Arms_Lore:
chooseskill Arms Lore
set %old #skill
finditem KKF
set #lobject #findid
set %check #skill
event macro 13 4
target
event macro 22
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Meditation
}
wait 9s
goto Gain_Find_Meditation
;===========================================
Main_Arms_Lore:
msg stop$
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill Arms Lore
finditem KKF
set #lobject #findid
set %check #skill
event macro 13 4
target
event macro 22
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Arms_Lore
}
msg slow back$
wait 8s
msg stop$
chooseskill Arms Lore
set %check #skill
finditem KKF
set #lobject #findid
event macro 13 4
target
event macro 22
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Arms_Lore
}
goto Gain_Find_Arms_Lore
;=============================================

sub Hiding
menu Hide
display alert The script is now paused Press play when you are ready!
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
;====================================
Gain_Find_Hiding:
chooseskill Hiding
set %old #skill
set %check #skill
event macro 13 21
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Hiding
}
wait 9s
goto Gain_Find_Hiding
;=================================
Main_Hiding:
msg stop$
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill Hiding
set %check #skill
event macro 13 21
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Hiding
}
msg slow back$
wait 8s
msg stop$
chooseskill Hiding
set %check #skill
event macro 13 21
wait 1s
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Hiding
}
goto Gain_Find_Hiding

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

sub Animal_Lore
menu Hide
display alert The script is now paused make sure you have a tamed pet with you on your boat.
Press play when you are ready!
set #menubutton N/A
msg raise anchor$
wait s
msg forward$
;====================================
Gain_Find_Animal_Lore:
chooseskill Animal Lore
set %old #skill
set %check #skill
event macro 13 2
target
event macro 22
wait 1s
event macro 31
if ARG in #journal
{
gosub antiblock
}

if AT_YOUR_SKILL IN #ScanJournal
{
goto ReTame
}
if #skill > %check
{
gosub settitle
goto Main_Animal_Lore
}
wait 9s
goto Gain_Find_Animal_Lore
;=================================
Main_Animal_Lore:
msg stop$
wait 2s
msg slow forward$
wait 8s
msg stop$
chooseskill Animal Lore
set %check #skill
event macro 13 2
wait 10s
event macro 22
wait 1s
event macro 31
if ARG in #journal
{
gosub antiblock
}

if AT_YOUR_SKILL IN #ScanJournal
{
goto ReTame2
}

if #skill > %check
{
gosub settitle
goto Main_Animal_Lore
}
msg slow back$
wait 8s
msg stop$
wait 2s
chooseskill Animal Lore
set %check #skill
event macro 13 2
target
event macro 22
wait 1s
event macro 31
if ARG in #journal
{
gosub antiblock
}

if AT_YOUR_SKILL IN #ScanJournal
{
goto ReTame2
}
if #skill > %check
{
gosub settitle
goto Main_Animal_Lore
}
goto Gain_Find_Animal_Lore

;======================================
;RE TAME LOOPS

ReTame:
deleteJournal
wait 10s
event macro 13 35
target
event macro 22
wait 20s
goto Gain_Find_Animal_Lore

ReTame2:
deleteJournal
wait 9s
event macro 13 35
target
event macro 22
wait 20s
goto Main_Animal_Lore
;======================================
sub Healing
menu Hide
display alert The script is now paused make sure you have enough band aids and magic arrow regs!
Press play when you are ready!
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
set %healiflowerthan 25
;=====================================
MainHealing:
if %check > 60
{
goto poison
}
goto fireball

fireball:
event macro 15 17
wait 1s
if #hits < %healiflowerthan
{
goto heal
}
goto fireball

poison:
event macro 15 19
wait 1s
if C in #charstatus
{
goto cure
}
goto poison

heal:
finditem ZLF C
if findkind = -1
{
halt
}
set #lobjectid #findid
event macro 17
target
event macro 23
wait 11s
msg slow forward$
wait 8s
msg stop$
if ARG in #journal
{
gosub antiblock
}
if #hits <> #maxhits
{
goto MainHealing
}
goto heal

cure:
finditem ZLF C
if findkind = -1
{
halt
}
set #lobjectid #findid
event macro 17
target
event macro 23
wait 11s
msg slow forward$
wait 8s
if ARG in #journal
{
gosub antiblock
}
if C in #charstatus
{
goto cure
}
goto MainHealing

;=============================================================
EVAL INT
;=============================================================
sub Eval_Int
menu Hide
display alert The script is now paused make sure your magery is locked and you have enough regs for fireball!
set #menubutton N/A
pause
msg raise anchor$
wait 1s
msg forward$

Gain_Find_Eval_Int:
chooseskill EvaluatingIntelligence
set %check #skill
set %old #skill
event macro 15 17
target
event macro 23
wait 1s
if #skill > check
{
msg stop$
gosub settitle
goto Main_Eval_Int
}
if ARG in #journal
{
gosub antiblock
}
wait 4s
goto Gain_Find_Eval_Int

Main_Eval_Int:
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill EvaluatingIntelligence
set %check #skill
event macro 15 17
target
event macro 23
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Eval_Int
}
msg slow back$
wait 8s
msg stop$
chooseskill EvaluatingIntelligence
set %check #skill
event macro 15 17
target
event macro 23
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Eval_Int
}
goto Gain_Find_Eval_Int

;================================================================
sub Stealth
;================================================================

sub Stealth
menu Hide
display alert The script is now paused Press play when you are ready and make sure you have a high hiding skill
set #menubutton N/A
msg raise anchor$
wait 1s
msg forward$
;====================================
Gain_Find_Stealth:
chooseskill stealth
set %check #skill
set %old #skill
event macro 13 21
wait 10s
event macro 13 47
wait 10
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Stealth
}
msg stop $
wait 10s
msg slow forward $
goto Gain_Find_Stealth
;=================================
Main_Stealth:
msg stop$
wait 1s
msg slow forward$
wait 8s
msg stop$
chooseskill stealth
set %check #skill
event macro 13 21
wait 10s
event macro 13 47
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Stealth
}
msg slow back$
wait 8s
msg stop$
chooseskill stealth
set %check #skill
event macro 13 21
wait 10s
event macro 13 47
if ARG in #journal
{
gosub antiblock
}

if #skill > %check
{
gosub settitle
goto Main_Stealth
}
goto Gain_Find_Stealth

:================================================================
; ANTI BLOCK SUB
;================================================================

sub antiblock
anitblockloop:
clear journal
msg slow back$
wait 8s
msg stop$
wait 1s
msg slow right$
wait 8s
msg stop$
msg slow forward$
wait 8s
msg stop$
if ARG in #journal
{
goto antiblockloop
}
return


;===========================================================================
sub settitle
;===========================================================================
setuotitle SuperNoobs Trainer Old skill was % and it is now #skill
return

Yoko wrote:что такое читерский?