Написал скрипт в оффлайн, а он не работает
Ошибку выдает:
Unhandled exception in parser.
Че бы это значило? Ни строки где ошибка- ничего.
Сам скрипт:
sub skill()
VAR level = '3' ;Çäåñü óêàçàòü ñâîé óðîâåíü
VAR skill
;Óáðàòü êîììåíòàðèé ïåðåä ïðåäìåòîì, ÷òî åñòü â áåêïàêå. (îñòàëüíûì ïîñòàâèòü êîììåíòàðèé)
;(Åñëè ïîíàäîáèëîñü äîáàâèòü ñâîé ïðåäìåò (æåëàòåëüíî íüþáè) è îáÿçàòåëüíî èç îðóæèÿ èëè äîñïåõîâ.
; òî ïðîïèñàòü åãî ìîæíî çäåñü çà ìåñòî ÷åãî íèäü, óçíàòü íîìåð òèïà êîìàíäîé ,info. Òàì Type=0xXXXX ýòî íàäî âïèñàòü)
; Ecëè íå äîãíàë, î ÷åì ÿ- íå òðîæü..Íéäè íüþáè äàãåð è íå ðàçðóøàé ìîçã!
VAR titem = '0x0F51' ; Dager
;VAR titem = '' ; Butcher knife
;VAR titem = '' ; Katana
;Çäåñü óêàçàòü ñâîé ïðåäåë ïî óìåíèÿì â çàâèñèìîñòè îò êëàññà.
;Åñëè êàêîé òî ñêèëë íå íóæíî êà÷àòü, ñòàâèì 0;
DIM skillcap[10]
skillcap[1]= '80' ;Anatomy
skillcap[2]= '80' ;Arms Lore
skillcap[3]= '100' ;Detect Hidden
skillcap[4]= '100' ;Evaluating Intelligence
skillcap[5]= '100' ;Forensic Evaluation
skillcap[6]= '100' ;Hiding
skillcap[7]= '120' ;Stealth
skillcap[8]= '100' ;Item Identification
skillcap[9]= '0' ; Spirit Speak
skillcap[10]= '100' ;Tracking
DIM sel[10]
;Çäåñü óêàçàòü î÷åðåäíîñòü ïðîêà÷êè.
;Ó ìåíÿ íàñòðîåííî äëÿ ðàíãåðà. Óêàçàòü íàäî âñå, äàæå åñëè íå íóæíà ïðîêà÷êà
sel[1] = '1' ;1 - Anatomy
sel[2] = '3' ;2 - Arms Lore
sel[3] = '7' ;3 - Detect Hidden
sel[4] = '6' ;4 - Evaluating Intelligence
sel[5] = '10' ;5 - Forensic Evaluation
sel[6] = '8' ;6 - Hiding
sel[7] = '4' ;7 - Stealth
sel[9] = '5' ;8 - Item Identification
sel[9] = '2' ;9 - Spirit Speak
sel[10] = '9' ;10- Tracking
;Äàëüøå íå òðîãàòü.
If level == 0 Then
FOR VAR cbl = 1 TO cbl = 10
If skillcap[cbl] => '90' Then
skillcap[cbl] = '90'
EndIf
NEXT
If level == 1 Then
FOR VAR cbl = 1 TO cbl = 10
If skillcap[cbl] => '98' Then
skillcap[cbl] = '98'
EndIf
NEXT
If level == 2 Then
FOR VAR cbl = 1 TO cbl = 10
If skillcap[cbl] => '105' Then
skillcap[cbl] = '105'
EndIf
NEXT
r=1
selectskill:
If sel[r] == 1 OR sel[1] == 4 OR sel[1] == 5 Then
goto self
EndIf
If sel[r] == 2 OR sel[1] == 8 Then
goto item
EndIf
If sel[r] == 3 OR sel[1] == 9 OR sel[1] == 6 Then
goto passiv
EndIf
If sel[r] == 7 Then
goto stealth
EndIf
If sel[r] == 10 Then
goto tracking
EndIf
;\\\\\ S e l f g o t o \\\\
self:
If sel[r] == 1 Then
If uo.SkillVal('Anatomy') >= skillcap[1] Then
r = r + 1
goto selectskill
EndIf
skill = 'Anatomy'
sc = skillcap[1]
EndIf
If sel[r] == 4 Then
If uo.SkillVal('Evaluating Intelligence') >= skillcap[4] Then
r = r + 1
goto selectskill
EndIf
skill = 'Evaluating Intelligence'
sc = skillcap[4]
EndIf
If sel[r] == 5 Then
If uo.SkillVal('Forensic Evaluation') >= skillcap[5] Then
r = r + 1
goto selectskill
EndIf
skill = 'Forensic Evaluation'
sc = skillcap[5]
EndIf
ct = 1
while ct == 1
uo.waittargetself()
uo.useskill(skill)
wait(10100)
If UO.SkillVal(skill) >= sc Then
r = r + 1
ct == 0
EndIf
wend
goto selectskill
;\\\\\ I t e m g o t o \\\\
item:
If sel[r] == 2 Then
If uo.SkillVal('Arms Lore') >= skillcap[2] Then
r = r + 1
goto selectskill
EndIf
skill = 'Arms Lore'
sc = skillcap[2]
EndIf
If sel[r] == 8 Then
If uo.SkillVal('Item Identification') >= skillcap[8] Then
r = r + 1
goto selectskill
EndIf
skill = 'Item Identification'
sc = skillcap[8]
EndIf
ct = 1
while ct == 1
uo.waittargettype(titem)
uo.useskill(skill)
If UO.SkillVal(skill) >= sc Then
r = r + 1
ct == 0
EndIf
wait(10100)
wend
goto selectskill
;\\\\\ P a s s i v g o t o \\\\
passiv:
If sel[r] == 3 Then
If uo.SkillVal('Detect Hidden') >= skillcap[3] Then
r = r + 1
goto selectskill
EndIf
skill = 'Detect Hidden'
sc = skillcap[3]
EndIf
If sel[r] == 6 Then
If uo.SkillVal('Hiding') >= skillcap[6] Then
r = r + 1
goto selectskill
EndIf
skill = 'Hiding'
sc = skillcap[6]
EndIf
If sel[r] == 9 Then
If uo.SkillVal('Spirit Speak') >= skillcap[9] Then
r = r + 1
goto selectskill
EndIf
skill = 'Spirit Speak'
sc = skillcap[9]
EndIf
ct = 1
while ct == 1
uo.useskill(skill)
If UO.SkillVal(skill) >= sc Then
r = r + 1
ct == 0
EndIf
wait(10100)
wend
goto selectskill
;\\\\\\ S t e a l t h g o t o \\\\
stealth:
If UO.SkillVal('Stealth') >= skillcap[7] Then
r = r + 1
goto selectskill
EndIf
If uo.Hidden() == FALSE Then
uo.useskill('Hiding')
wait(6100)
goto stealth
EndIf
uo.useskill('Stealth')
wait(6100)
;\\\\\\ T r a c k i n g g o t o \\\\
tracking:
If UO.SkillVal('Tracking') >= skillcap[10] Then
r = r + 1
goto selectskill
EndIf
UO.useskill('Tracking')
uo.cancelmenu
end sub