Ciao a tutti , ho provato a macrare music ma nel giro di 2 ore mi è salita di 0.2 , quindi vorrei sapere il giusto metodo x far crescere questa skill
Saluti
Saluti
;================================== ; Script Name: vesks 8X8peace&music-trainer ; Skill Gain Range: up to 120 both musicianship and peacemake ; Author: Veskandar with alot of help from Goldfish ; Version: 1.1a ; Client Tested with: 4.0.0q ; EUO version tested with: 1.40 ; Shard OSI / FS: tested on OSI / probebly will work on FS but not tested ; Revision Date: --/--/-- ; Public Release: 10/23/2003 ; Purpose: This script will train both music and peacemake at the same time using ; the 8X8 method you need a ship (facing either north or south) an ; animal with you on the ship and instruments (crafted) in your main ; backpack ;================================== initevents ; === SETUP === set %boatongain #false set %boaty #charposy set %gain 0 set %instrument QRF_NRF_MQF_PRF_LQF_OQF chooseSkill peac set %peace #skill event skillLock peac up chooseSkill musi set %music #skill event skillLock musi up msg raise anchor$ wait 5 msg slow forward$ wait 2s ; === END SETUP === ;**************************************************** mainloop: gosub AntiBlock set %boaty #charposy Event Macro 8 7 wait 30 finditem %instrument C wait 10 if #findKind = -1 { Display ok You are out of instruments. The script will now halt. msg stop$ halt } set #lObjectID #findID event Macro 17 0 wait 5 gosub gainCheck event Macro 13 9 target event Macro 23 0 wait 7 gosub gainCheck if %gain = 1 { gosub 8x8 } wait 6s goto mainloop ;**************************************************** sub gainCheck set %boaty #charposy chooseskill peac if %peace < #skill { msg stop$ set %peace #skill set %gain 1 set %boatongain #true } chooseskill musi if %music < #skill { msg stop$ set %music #skill set %gain 1 set %boatongain #true } return ;**************************************************** sub 8x8 set %gain 0 set %sgain 0 set %boaty #charposy start8x8: for %forward8 1 8 { msg one forward$ wait 1s set %boaty #charposy } wait 20 gosub AntiBlock playmusic: finditem %instrument C wait 10 if #findKind = -1 { display Ok You are out of instruments the script will now halt. msg stop$ halt } set #lObjectID #findID Event Macro 17 0 wait 5 event Macro 13 9 target event Macro 23 0 wait 10 checkforfail: scanJournal 1 if calm_everyone,_but_fail. in #journal { deleteJournal wait 10s goto playmusic } scanJournal 1 if You_play_poorly,_and in #journal { deleteJournal wait 10s goto playmusic } goto success success: gosub gainCheck if %gain = 0 { set %sgain %sgain + 1 } if %gain = 1 { set %gain 0 set %sgain 0 } if %sgain > 3 { set %gain 0 set %sgain 0 msg slow forward$ set %boatongain #false return } if %sgain <= 3 { goto start8x8 } goto success return ;Not needed, but like CEO says 'Always good to see one' sub AntiBlock ;purpose - get the boat out of a jam if %boaty <> #charposy || %boatongain return set %boatx #charposx set %boaty #charposy UnBlock: Event Macro 3 0 left wait 2s 1s if %boatx = #charposx { Event Macro 3 0 right wait 2s 1s } if %boatx = #charposx { Event Macro 3 0 back wait 4s goto UnBlock } Event Macro 3 0 slow forward set %boatx #charposx set %boaty #charposy wait 3s 1s if #charposx = %boatx && #charposy = %boaty goto UnBlock return end ;****************************************************
Commenta