|
Урок: Создание Event-Подарков
| |
| infermik | Дата: Пятница, 29 Октября 2010, 11:15 | Сообщение # 1 |
заслуженный участник
Сейчас нет на сайте
| Создание Event-Подарков Приветствую всех кому хочется установить такую систему себе в игру
Маленький хоть и нужный залог успеха игры это Эвенты которые проводят
Гм они могут быть различные от: Сделайте поручения ГМ до Найдите спрятанного ГМ. Ну так вижу вы заинтересовались  Ну что же пожалуй начнём: Вставьте этот код в Sub JoinGame до End Sub Code
Dim ItemID
Dim AmountID
Dim UserID
If GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID") = "" Then
Call PutVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID","0")
End If
ItemID = GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID")
AmountID = GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "AmountID")
UserID = GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "UserID")
If ItemID <> "0" Then
Call CustomMenuShow(index, "Gift System by xLukzx", "\GFX\CUSTOM\gift.gif", 1)
Call CustomMenuLabel(index, 0, UserID, 136, 80, 15, 5, 2, 100, 23)
Call GiveCurrency(Index, CInt(ItemID), CInt(AmountID))
Call Putvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID", "0")
Call Putvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "AmountID", "0")
Call Putvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "UserID", "")
End If
Создайте папку Charextras в Scripts Добавьте этот код в конец Sub Commands (опять же перед End Sub): Code
Case "/gift"
Dim ItemID
Dim AmountID
Dim UserID
If GetPlayerAccess(Index) > 4 Then
PlayerName = TextSay(1)
PlayerID = FindPlayer(TextSay(1))
ItemID = TextSay(2)
AmountID = TextSay(3)
UserID = GetPlayerName(Index)
If PlayerID > 0 Then
Call CustomMenuShow(PlayerID, "Gift System by xLukzx", "\GFX\CUSTOM\gift.gif", 1)
Call CustomMenuLabel(PlayerID, 0, UserID, 136, 80, 15, 5, 2, 100, 23)
Call GiveCurrency(PlayerID, CInt(ItemID), CInt(AmountID))
Call PutVar("Scripts\Charextras\" & PlayerName & ".ini", "GIFT", "ItemID", "0")
Else
Call Putvar("Scripts\Charextras\" & PlayerName & ".ini", "GIFT", "ItemID", (ItemID))
Call Putvar("Scripts\Charextras\" & PlayerName & ".ini", "GIFT", "AmountID", (AmountID))
Call Putvar("Scripts\Charextras\" & PlayerName & ".ini", "GIFT", "UserID", (UserID))
Call PlayerMsg(Index, "Player will recieve your gift next time he log on", WHITE)
End If
Else
Call PlayerMsg(Index, "Only Admins can do that!", BRIGHTRED)
End If
Я прикрепил изображение нужное чтобы отображалось сообщение о наличии подарка
(Иначе выдавало бы ошибку, в принципе изображение можно сделать самому)
Изображение надо кинуть в GFX\CUSTOM\
Переименуйте в gift.gif Как использовать? Напоминаю команду могут использовать только ГМ для простых пользователей она не доступна /gift Имя-перса Ид-вещи кол-во Ну вот пожалуй и все пробуем, пользуемся, оставляем комментарии ставим ++ ВНИМАНИЕ!!! НЕЛЬЗЯ ОТПРАВЛЯТЬ ПОДАРКИ САМОМУ СЕБЕ!
Выпрямляю путем кнута и пряника
Сообщение отредактировал infermik - Суббота, 30 Октября 2010, 21:09 |
|
|
| |
| 67boy | Дата: Пятница, 29 Октября 2010, 13:14 | Сообщение # 2 |
заслуженный участник
Сейчас нет на сайте
| Зас проверю)) интересно
|
|
|
| |
| denis007 | Дата: Пятница, 29 Октября 2010, 17:15 | Сообщение # 3 |
|
частый гость
Сейчас нет на сайте
| Не работает !!! как только включаешь вылазит сразу окно с поздравлением а когда опят шлёшь что бы подарок появился окно вылазит но подарка нет
Сообщение отредактировал denis007 - Пятница, 29 Октября 2010, 20:47 |
|
|
| |
| infermik | Дата: Суббота, 30 Октября 2010, 21:09 | Сообщение # 4 |
|
заслуженный участник
Сейчас нет на сайте
| Попробуй ещё раз все толково переделать. При приходе подарка получающий должен нажать на имя отправителя в поздравительном окне и подарок сразу ложится в инвентарь.
Проверь сделана ли у тебя папка Charextras в папке Scirpts
Code как только включаешь вылазит
Это происходит если получатель находился был не в игре. а потом когда вошёл он получает подарок тут все верно. Но если ты не отправлял подарок то значит ты где то повредил код.
Ещё вопрос ошибок нет на самом сервере когда отсылал или получаешь подарок?
Выпрямляю путем кнута и пряника
|
|
|
| |
| denis007 | Дата: Суббота, 30 Октября 2010, 21:21 | Сообщение # 5 |
|
частый гость
Сейчас нет на сайте
| все сейчас нормально только подарок не появляется в инвентаре пишет Clicked label number 0 on the menu named Gift System by xLukzx и все
Сообщение отредактировал denis007 - Суббота, 30 Октября 2010, 21:32 |
|
|
| |
| 67boy | Дата: Суббота, 30 Октября 2010, 23:15 | Сообщение # 6 |
|
заслуженный участник
Сейчас нет на сайте
| Все ети 2 кода вставить в main.txt???
|
|
|
| |
| denis007 | Дата: Воскресенье, 31 Октября 2010, 00:22 | Сообщение # 7 |
|
частый гость
Сейчас нет на сайте
| да
|
|
|
| |
| 67boy | Дата: Понедельник, 21 Февраля 2011, 23:52 | Сообщение # 8 |
|
заслуженный участник
Сейчас нет на сайте
| Quote (infermik) Вставьте этот код в Sub JoinGame до End Sub
Куда вставить?, название файла!!!!
|
|
|
| |
| infermik | Дата: Среда, 23 Февраля 2011, 22:23 | Сообщение # 9 |
|
заслуженный участник
Сейчас нет на сайте
| Значит так:
Code
Dim ItemID
Dim AmountID
Dim UserID
If GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID") = "" Then
Call PutVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID","0")
End If
ItemID = GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID")
AmountID = GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "AmountID")
UserID = GetVar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "UserID")
If ItemID <> "0" Then
Call CustomMenuShow(index, "Gift System by xLukzx", "\GFX\CUSTOM\gift.gif", 1)
Call CustomMenuLabel(index, 0, UserID, 136, 80, 15, 5, 2, 100, 23)
Call GiveCurrency(Index, CInt(ItemID), CInt(AmountID))
Call Putvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "ItemID", "0")
Call Putvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "AmountID", "0")
Call Putvar("Scripts\Charextras\" & GetPlayerName(Index) & ".ini", "GIFT", "UserID", "")
End If
End Sub
Выпрямляю путем кнута и пряника
|
|
|
| |
| 67boy | Дата: Среда, 23 Февраля 2011, 23:25 | Сообщение # 10 |
|
заслуженный участник
Сейчас нет на сайте
| infermik, Я в эклипс еволюшен 2.7 делаю!
Можешь мне свой main.txt дать?
Ссылку плз. Или выложи все что в файле!!!
|
|
|
| |
| infermik | Дата: Воскресенье, 27 Февраля 2011, 21:57 | Сообщение # 11 |
|
заслуженный участник
Сейчас нет на сайте
| Я бы дал бы, но все нафиг посносил так что, извиняй вообще щас EE и ES не имею, только EO
Выпрямляю путем кнута и пряника
|
|
|
| |
|
