Taming
; Automatic Taming - Ein Script f?r alles von 3,5 - 100%
;_________________________________________________ _________________
;
; Author: Lauria
; Version: 1.0
; Datum:
;
;_________________________________________________ _________________
; Anleitung: Das Script fordert zur Auswahl des Tieres auf und
; sucht und tamt dieses dann bis der User das Script
; stoppt und von vorne beginnt. Um Fehler zu vermeiden
; wird gepr?ft ob der Skill zum Tamen ausreicht.
; Ablauf: 1.) Auswahl des Tieres ueber das Menu
; 2.) Auslesen des Tieres welches gewaehlt wurde
; 3.) ?berpr?fung des Mindest-Skills
; 4a) Wenn Skill OK dann Type festlegen
; 4b) Wenn Skill zu gering Fehlerausgabe - Neuwahl
; ------------------------------------------------
; 5.) Tier mit Tracking orten
; 6a) Tier Z?hmen
; 6b) erst Peacen dann z?hmen
; 7.) gez?hmtes Tier t?ten
; 8.) Taming ab Punkt 5 wiederholen
;_________________________________________________ _________________
set %blackbear BG
set %sheep PF_FG
set %eagle TC
set %polarbear VF
set %brownbear ZI
set %snowleo ZE
set %whitewolf GE_ZD
set %bulls XG_YG
set %rudelwolf LD
chooseskill Animal Taming
if #skill = 1000
{
display ok Du hast bereits Deinen Taming GM
stop
}
else
{
Tierauswahl:
menu show
menu window size 280 200
menu window color black
menu Font BGColor black
menu Font Color white
menu Font Style b
menu window title Automatic Taming by Lauria
menu Text Skill 28 20 Dein Momentaner Tamingskill: #skill
menu Text Skill 28 50 ________________________________
menu Text Skill 28 70 Tier ausw?hlen:
menu Combo Create Animals 35 90 210
menu Text Skill 28 110 ________________________________
menu Combo Add Animals Schwarzbaeren (3,5)
menu Combo Add Animals Schafe (11,1)
menu Combo Add Animals Adler (17,1)
menu Combo Add Animals Eisb?r (35,1)
menu Combo Add Animals Braunb?r (41,1)
menu Combo Add Animals Schneeleopard (53,1)
menu Combo Add Animals Eiswolf (65,1)
menu Combo Add Animals Bullen (71,1)
menu Combo Add Animals Wolfsrudel (83,1)
menu button tame 55 150 180 20 Suchen und zaehmen ...
set #menuButton Nothing
lookButton:
if #menuButton <> Nothing
{
menu get Animals
set %tamepet #menures
menu hide
goto typen
}
goto lookButton
;_________________________________________________ __________________
; TYPENVERGABE
typen:
if %tamepet = 1
{
chooseskill Animal Taming
if #skill >= 35
{
set %pettype %blackbear
event SysMessage Schwarzbaeren
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu zaehmen. $ $ Bitte waehle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 2
{
chooseskill Animal Taming
if #skill >= 111
{
set %pettype %sheep
event SysMessage Schaafe
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu zaehmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 3
{
chooseskill Animal Taming
if #skill >= 171
{
set %pettype %eagle
event SysMessage Adler
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 4
{
chooseskill Animal Taming
if #skill >= 351
{
set %pettype %polarbear
event SysMessage Eisbaeren
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 5
{
chooseskill Animal Taming
if #skill >= 401
{
set %pettype %brownbear
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 6
{
chooseskill Animal Taming
if #skill >= 531
{
set %pettype %snowleo
event SysMessage Schneeleoparden
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 7
{
chooseskill Animal Taming
if #skill >= 651
{
set %pettype %whitewolf
event SysMessage Weisse Woelfe
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 8
{
chooseskill Animal Taming
if #skill >= 711
{
set %pettype %bulls
event SysMessage Bullen
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
if %tamepet = 9
{
chooseskill Animal Taming
if #skill >= 831
{
set %pettype %rudelwolf
event SysMessage Rudelwoelfe
goto tamepet
}
else
{
display Dein Skill im Animal Taming reicht nicht aus, $ um das das Tier zu z?hmen. $ $ Bitte w?hle ein anderes aus.
wait 2s
goto Tierauswahl
}
}
;_________________________________________________ __________________
; Beginn des Hauptteils
tamepet:
initevents
set %types %pettype
start:
finditem %types G_11
if #findcnt = 0
{
goto start
}
set %object #findid
gosub tame
goto start
sub tame
tame:
finditem %object
if #findkind = -1
return
event macro 13 35
set #ltargetid %object
set #ltargetkind 1
target 1s
event macro 22 0
wait 1s
if #findcol = 49
ignoreitem %object
scanjournal
if already in #journal
goto kill
if bereits in #journal
{
kill:
finditem %object
if #findkind = -1
{
event macro 1 0 all guard
return
}
wait 10
event macro 1 0 all kill
target 1s
event macro 22 0
wait 10
goto kill
}
if #sysmsg = EIN_ANDERER_Z?HMT_DIESES_WESEN_BEREITS.
{
ignoreitem %object
return
}
goto tame