Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Begging 56b
d`ArcZeal
сообщение 27.2.2019, 19:28
Сообщение #1


**********

Elder
Сообщений: 2.962
Регистрация: 27.11.2005
Группа: Пользователи
Наличность: 7868
Пользователь №: 4.522
Возраст: 34



Версия:
Скрипт для Sphere server 56b-56c

Описание:
Так уж принято, что на сфере множество навыков не работает или ничего не дает. С добавлением этого скрипта, на один бесполезный навык станет меньше.

(IMG:http://www.uoguide.com/images/d/d1/Flag_begging.gif)

Begging
Увеличение навыка увеличивает шанс успешно получить подаяние
Объем передаваемого золота = Begging/10
Успешное применение навыка снижает известность у попрошайки

Установка:
Откройте sphere skill.scp , найдите там навык
[SKILL 6]
DEFNAME=SKILL_BEGGING
KEY=Begging

И замените на этот скрипт:

Код

[SKILL 6]
DEFNAME=SKILL_BEGGING
KEY=Begging
PROMPT_MSG=At whom to beg?
//TITLE=Beggar
DELAY=2.8

ON=@PRESTART
IF !(<ACT.ISCHAR>) || (<ACT.UID>==<UID>)
RETURN 1
ELIF (<FINDLAYER(LAYER_HORSE)>)
SYSMESSAGE @0486,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? You should dismount:Вы должны спешиться>.
RETURN 1
ELIF !(<ACT.ISVENDOR>) && !(<ACT.ISPLAYER>)
SYSMESSAGE @0486,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? A lot of money at it you will not elicit:Много денег у этого не выпросишь>.
RETURN 1
ELIF (<ACT.DISTANCE> > 5)
    IF (<ISPLAYER>)
    SYSMESSAGE @0486,,1 <QVAL (<ACCOUNT.DTAG0.LANGUAGE>==1) ? Too far:Слишком далеко>.
    RETURN 1
    ENDIF
ENDIF

ON=@FAIL
IF !(<ACT.ISCHAR>) || (<ACT.UID>==<UID>)
RETURN 1
ELIF !(<ACT.ISVENDOR>) && !(<ACT.ISPLAYER>)
SYSMESSAGE @0486,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? A lot of money at it you will not elicit:Много денег у этого не выпросишь>.
RETURN 1
ENDIF

ON=@START
FACE <ACT>
ANIM 32

ON=@SUCCESS
IF !(<ACT.ISCHAR>) || (<ACT.UID>==<UID>)
RETURN 1
ELIF !(<ACT.ISVENDOR>) && !(<ACT.ISPLAYER>)
SYSMESSAGE @0486,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? A lot of money at it you will not elicit:Много денег у этого не выпросишь>.
RETURN 1
ENDIF

IF !(<ACT.FINDLAYER.21.FINDID.I_GOLD.AMOUNT> > 0)
DORAND 4
ACT.SAY @,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? Lag behind me annoying the beggar:Отстань от меня надоедливый попрошайка>.
ACT.SAY @,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? I won't give you not a stiver:Я не дам тебе ни гроша>.
ACT.SAY @,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? I don't have anything for you:У меня нет ничего для тебя>.
ACT.SAY @,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? Trifles aren't present, forgive:Мелочи нет, прости>.
ENDDO
RETURN 1
ELIF (<BEGGING> > <R1000>)
    IF (<ACT.ISVENDOR>) || (<ACT.ISPLAYER>)
        IF (<ACT.FINDLAYER.21.FINDID.I_GOLD.AMOUNT> > <EVAL (<BEGGING>/10)>)
        LOCAL.GOLDTRANSFER=<EVAL (<BEGGING>/10)>
        ELSE
        LOCAL.GOLDTRANSFER=<EVAL {1 5}>
        ENDIF

        IF (<DLOCAL.GOLDTRANSFER> > <ACT.FINDLAYER.21.FINDID.I_GOLD.AMOUNT>)
        LOCAL.GOLDTRANSFER=<ACT.FINDLAYER.21.FINDID.I_GOLD.AMOUNT>
        SERV.UID.<ACT.FINDLAYER.21.FINDID.I_GOLD.UID>.CONT=<FINDLAYER.21.UID>
        ELSE
        ACT.FINDLAYER.21.FINDID.I_GOLD.AMOUNT=<EVAL <ACT.FINDLAYER.21.FINDID.I_GOLD.AMOUNT>-<LOCAL.GOLDTRANSFER>>
        ACT.FINDLAYER.21.FINDID.I_GOLD.UPDATE
        SERV.NEWITEM=I_GOLD
        NEW.AMOUNT=<EVAL <LOCAL.GOLDTRANSFER>>
        NEW.BOUNCE
        SOUND 50
            IF (<FAME> > 10)
            FAME=<EVAL(<FAME> - 10)>
            ENDIF
        
            IF (<ACT.FAME> < 10000)
            ACT.FAME=<EVAL (<ACT.FAME> + 1)>
            ACT.SYSMESSAGE @0487,,1 Вы получили +1 известности.
            ENDIF
        ENDIF

        IF (<ACT.ISPLAYER>)
        ACT.SYSMESSAGE @0487,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? You gave:Вы бросили оборванцу>: <NAME> <DLOCAL.GOLDTRANSFER> gp
        ENDIF

        IF (<ACT.BODY>==C_MAN)
        SYSMESSAGE @0487,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? Generous <ACT.NAME> gave you:Щедрый <ACT.NAME> дал вам>: <DLOCAL.GOLDTRANSFER> gp.
        ELIF (<ACT.BODY>==C_MAN)
        SYSMESSAGE @0487,,1 <QVAL <ACCOUNT.TAG0.LANGUAGE>==1 ? Generous <ACT.NAME> gave you:Щедрая <ACT.NAME> дала вам>: <DLOCAL.GOLDTRANSFER> gp.
        ENDIF
    LOCAL.GOLDTRANSFER=
    ENDIF
ENDIF

[EOF]


--------------------
Olmer online administrator
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
kklej
сообщение 27.2.2019, 21:11
Сообщение #2


******

Группа: Пользователи
Наличность: 14775
Пользователь №: 13.346



где про скорые помощи?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Sirocco
сообщение 27.2.2019, 22:11
Сообщение #3


******

Expert
Сообщений: 809
Регистрация: 2.2.2012
Группа: Пользователи
Наличность: 15408
Пользователь №: 14.566
Возраст: 30



А что без задержки между использованиями?
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
RL_ka
сообщение 27.2.2019, 23:15
Сообщение #4


*****

Разработчик Injection
Сообщений: 464
Регистрация: 13.7.2013
Группа: Модераторы
Наличность: 13691
Из: Екатеринбург
Пользователь №: 16.211



рай для макросеров (IMG:style_emoticons/default/smile.gif)
Пользователь в онлайне!Delete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Sirocco
сообщение 27.2.2019, 23:56
Сообщение #5


******

Expert
Сообщений: 809
Регистрация: 2.2.2012
Группа: Пользователи
Наличность: 15408
Пользователь №: 14.566
Возраст: 30



можно стоять и доить игрока в сейф зоне или на рынке...
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 28.3.2024, 14:15
Designed by Nickostyle