Суббота, 08 Мая 2021, 11:37

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Форум игроделов » Записи участника » denis007 [51]
Результаты поиска
denis007Дата: Воскресенье, 13 Февраля 2011, 10:45 | Сообщение # 1 | Тема: Eclipse Origins
частый гость
Сейчас нет на сайте
ты что совсем найти я от туда и скачал и не 1 раз

и в описание твоём в слове Регистрируйтесь!!! ошибка рИги !!! реги

denis007Дата: Суббота, 12 Февраля 2011, 18:09 | Сообщение # 2 | Тема: Eclipse Origins
частый гость
Сейчас нет на сайте
Quote (67boy)
А скажи еще где скачать Microsoft Visual Basic 6.0.

ты знаешь такую вещь как google ???

denis007Дата: Воскресенье, 30 Января 2011, 23:16 | Сообщение # 3 | Тема: Eclipse rus
частый гость
Сейчас нет на сайте
1 день не трудного перевода вот и русский еклипс vb6 качайте там и переведёте
denis007Дата: Суббота, 01 Января 2011, 17:38 | Сообщение # 4 | Тема: Eclipse-Вопросы
частый гость
Сейчас нет на сайте
где точно настройках ?? где сетинг у меня все помечено но захожу с одного компа с двух клиентов и я невижу хп 2 игрока ты видешь свои , нпц а других игроков нет
denis007Дата: Суббота, 01 Января 2011, 17:36 | Сообщение # 5 | Тема: Eclipce-Питомцы
частый гость
Сейчас нет на сайте
Тупость лагающая и много фигней не нужных
denis007Дата: Суббота, 01 Января 2011, 15:58 | Сообщение # 6 | Тема: Eclipce-Питомцы
частый гость
Сейчас нет на сайте
genesis вопще чушь
denis007Дата: Пятница, 31 Декабря 2010, 15:47 | Сообщение # 7 | Тема: Eclipse-Вопросы
частый гость
Сейчас нет на сайте
можете помочь как сделать что бы игрок видел хп другова игрока и видел когда бьёт в стабле это есть !
подскажите в каком исходном коде это прописано что бы я мог перебить на свой двиг !!! плизз.....
denis007Дата: Среда, 22 Декабря 2010, 17:10 | Сообщение # 8 | Тема: Eclipse Evolution - Великие вопросы!!!
частый гость
Сейчас нет на сайте
Вопросы просто убили ))

Добавлено (22.12.2010, 17:10)
---------------------------------------------
по твоим словам игра 80 % сделана но как почитаешь вопросы чета кажется что ты там некхмм не сделал Ж)

Сообщение отредактировал Vinchensoo - Среда, 22 Декабря 2010, 18:30
denis007Дата: Вторник, 21 Декабря 2010, 23:01 | Сообщение # 9 | Тема: Квест еклипс
частый гость
Сейчас нет на сайте
так должно быт

Quote (KpayTeJIb)
Sub ScriptedNPC(Index, Script)
Select Case Script
Case 0
Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE)

Exit Sub

Case 1
If GetPlayerLevel(Index) >= 1 then
If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = vbNullString Then
Call PlayerMsg(Index, "Защити деревню убей 10 слизней и ты получишь нашу благодарность.", RED)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 1)
Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then
If CanTake(Index, 6, 1) then
Call PlayerMsg(Index, "Спасибо ты спас деревню возьми это в знак благодарности.", RED)
Call TakeItem(Index, 6, 10)
Call GiveCurrency(Index, 4, 150)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
end if
end if
End if
End if
Exit sub
End sub

Case Else
Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE)

Exit Sub

denis007Дата: Пятница, 17 Декабря 2010, 22:36 | Сообщение # 10 | Тема: В чем ошибка?
частый гость
Сейчас нет на сайте
Слышьте к этому коду дайте остальные кода
в смысле кода каторые в касе надо кидать

Quote (infermik)
Function GetFreeSlots(Index)
Dim Slot
Dim Slots

Slot = 1
Slots = 0

Index = Int(Index)

Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = 0 Then
Slots = Slots + 1
End If

Slot = Slot + 1
Loop

GetFreeSlots = Slots
End Function

Sub GiveItem(Index, Number, Durability)
Dim Slot

Slot = 1

Index = Int(Index)
Number = Int(Number)
Durability = Int(Durability)

Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = 0 Then
Call SetPlayerInvItemNum(Index, Slot, Number)
Call SetPlayerInvItemDur(Index, Slot, Durability)
Call SendInventoryUpdate(Index, Slot)
Exit Sub
End If

Slot = Slot + 1
Loop
End Sub

Sub GiveCurrency(Index, Number, Amount)
Dim Slot
Dim CurrentAmount

Slot = 1

Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)

Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
CurrentAmount = GetPlayerInvItemValue(Index, Slot)
Call SetPlayerInvItemValue(Index, Slot, CurrentAmount + Amount)
Call SendInventoryUpdate(Index, Slot)
Exit Sub
End If

Slot = Slot + 1
Loop

Slot = 1

Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = 0 Then
Call SetPlayerInvItemNum(Index, Slot, Number)
Call SetPlayerInvItemValue(Index, Slot, Amount)
Call SendInventoryUpdate(Index, Slot)
Exit Sub
End If

Slot = Slot + 1
Loop
End Sub

Function CanTake(Index, Number, Amount)
Dim Slot

Slot = 1

Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)

Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
If GetPlayerInvItemValue(Index, Slot) >= Amount Then
CanTake = True
Exit Function
End If
End If

Slot = Slot + 1
Loop

CanTake = False
End Function

Sub TakeItem(Index, Number, Amount)
Dim Slot
Dim CurrentAmount

Index = Int(Index)
Number = Int(Number)
Amount = Int(Amount)

Slot = 1

Do While Slot < 25
If GetPlayerInvItemNum(Index, Slot) = Number Then
If GetPlayerInvItemValue(Index, Slot) >= Amount Then
CurrentAmount = GetPlayerInvItemValue(Index, Slot)

If CurrentAmount <= Amount Then
Call SetPlayerInvItemNum(Index, Slot, 0)
Call SetPlayerInvItemValue(Index, Slot, 0)
Call SetPlayerInvItemDur(Index, Slot, 0)
Call SendInventoryUpdate(Index, Slot)
Else
Call SetPlayerInvItemValue(Index, Slot, CurrentAmount - Amount)
Call SendInventoryUpdate(Index, Slot)
End If

Exit Sub
End If
End If

Slot = Slot + 1
Loop
End Sub



Сообщение отредактировал denis007 - Суббота, 18 Декабря 2010, 11:31
denis007Дата: Воскресенье, 28 Ноября 2010, 22:01 | Сообщение # 11 | Тема: Скиллы в Eclipse
частый гость
Сейчас нет на сайте
Есть на оригинальном сайте заморозка так же есть - статы и + статы код кидаешь на кейс и все вот тебе спеллсы новые ))
denis007Дата: Пятница, 26 Ноября 2010, 23:21 | Сообщение # 12 | Тема: В Еклипсе можно сделать мир одной картой и крафт?
частый гость
Сейчас нет на сайте
можно до 30х30 60х60 100х100 (на 100х100 грузит так долго что пипец)

ScrollX= <-- Кол.во клеток по X на карте.
ScrollY= <-- Кол.во клеток по Y на карте.

больше толку нету делать очень уж тормозит двиг изо этого

Сообщение отредактировал denis007 - Пятница, 26 Ноября 2010, 23:36
denis007Дата: Воскресенье, 14 Ноября 2010, 14:26 | Сообщение # 13 | Тема: В Еклипсе можно сделать мир одной картой и крафт?
частый гость
Сейчас нет на сайте
так и думал потому что все остальные коды в двиге сидят па пробую выбрать от туда smile
denis007Дата: Воскресенье, 14 Ноября 2010, 13:03 | Сообщение # 14 | Тема: В Еклипсе можно сделать мир одной картой и крафт?
частый гость
Сейчас нет на сайте
чёта он у меня не работает не знаю !!в кинул скрипт итем все как надо кажется и нечего пикаю па итем вещи и нечего ))

вопрос
а этот скрипт только для стабле ???

Сообщение отредактировал denis007 - Воскресенье, 14 Ноября 2010, 13:15
denis007Дата: Воскресенье, 14 Ноября 2010, 11:44 | Сообщение # 15 | Тема: В Еклипсе можно сделать мир одной картой и крафт?
частый гость
Сейчас нет на сайте
Quote (Fulier)
CodeCase n ' n - номер предмета, на который вешаем скрипт.
If CanTake(Index, 7, 1) Then ' Если в кармане есть предмет под номером семь, то
If Cantake(Index, 8, 1) Then ' Если в кармане есть предмет под номером 8, то
If Rand(1, 10) = 6 Then ' Если между 1 и 10 выпало 6, то
Call GiveItem(Index, 9, 1) ' Дадим предмет под номером 9   
Call BattleMsg(Index, "Вы создали меч", Yellow, LEFT)
if end
if end
if end
Exit Sub С этим скриптом, зная остальные команды, можно побаловаться.

ты написал ( С этим скриптом, зная остальные команды, можно побаловаться )

можешь дать остальные команды ??? он же безь них не будет работать этот скрипт проверял

Сообщение отредактировал denis007 - Воскресенье, 14 Ноября 2010, 13:01
denis007Дата: Воскресенье, 14 Ноября 2010, 00:11 | Сообщение # 16 | Тема: Еклипс или не Еклипс, вот в чем вопрос...
частый гость
Сейчас нет на сайте
Бери екоипс origins что бы после месяца работы иза мелочей не перешёл на origins smile c другова движка

Сообщение отредактировал denis007 - Воскресенье, 14 Ноября 2010, 00:12
denis007Дата: Суббота, 13 Ноября 2010, 21:21 | Сообщение # 17 | Тема: В Еклипсе можно сделать мир одной картой и крафт?
частый гость
Сейчас нет на сайте
fulier можешь дать остальные коды это го скрипта ???
denis007Дата: Четверг, 11 Ноября 2010, 16:18 | Сообщение # 18 | Тема: Настройки в Eclipse
частый гость
Сейчас нет на сайте
понимаешь эту часть я со своей игрой прошёл год назад )) * ( игра делается 2 год ) и не помню уже
denis007Дата: Четверг, 11 Ноября 2010, 16:14 | Сообщение # 19 | Тема: Настройки в Eclipse
частый гость
Сейчас нет на сайте
дай ссылку хочу посматреть что там у тебя за игры если в ее 7 челов играет ))

мне кажется можно настроит в кодах что бы + 1 давал больше % к защите .

denis007Дата: Воскресенье, 31 Октября 2010, 19:21 | Сообщение # 20 | Тема: Помогите с кодом в вб
частый гость
Сейчас нет на сайте
Какой код в вб отвечает за переход на другие локации ?? в смысле с 1 на 2 на 3 ???
Форум игроделов » Записи участника » denis007 [51]
  • Страница 1 из 3
  • 1
  • 2
  • 3
  • »
Поиск:

Все права сохранены. GcUp.ru © 2008-2021 Рейтинг