Четверг, 28 Марта 2024, 19:05

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

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Конструкторы игр и лёгкие в освоении системы разработки игр » Конструкторы OnLine-игр » Скрипты Eclipse (Для всех новичков помошь в скриптах в Eclipse Stable)
Скрипты Eclipse
ThepikalДата: Понедельник, 23 Августа 2010, 16:26 | Сообщение # 1
почетный гость
Сейчас нет на сайте
У мя в eclipse я сделал квесты при обновлении пишет
что делать?


FulierДата: Понедельник, 23 Августа 2010, 18:31 | Сообщение # 2
постоянный участник
Сейчас нет на сайте
Thepikal, Скрипт показать нужно, чтобы установить точный диагноз =)

Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.
ThepikalДата: Вторник, 24 Августа 2010, 08:36 | Сообщение # 3
почетный гость
Сейчас нет на сайте
Вот
Code
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' Module: ScriptedNPC.ess                    '
' Author: Stephan J.R. van Schaik <stephan_van_schaik@msn.com>  '
' Date: August 30th, 2009.                    '
' Version: 1.0.0                    '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'  Function: ScriptedNPC                    '    
' Brief: executes when somebody talks to a NPC.                 '
' Parameters:                    '
'   Index: the index of the player.                             '
'   Script: the script to execute.                    '
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
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, 2, 10) then
     Call PlayerMsg(Index, "Спасибо ты спас деревню возьми это в занк благодарности.", RED)
     Call TakeItem(Index, 2, 10)
     Call GiveCurrency(Index, 1, 150)
     Call GiveCurrency(Index, 3, 1)
     Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
Else Call PlayerMsg(Index, "Возвращайся когда убьешь слизней.", RED)
If GetPlayerLevel(Index) >= 4 then  
    If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2") = vbNullString Then    
     Call PlayerMsg(Index, "Сходи к леснику возьми у него дров для деревни.", RED)
     Call  PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2", 1)
Else  
if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then    
    If CanTake(Index, 9, 10) then
     Call PlayerMsg(Index, "Спасибо возьми это в знак благодарности.", RED)
     Call TakeItem(Index, 2, 10)
     Call GiveCurrency(Index, 1, 550)
     Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
Else Call PlayerMsg(Index, "У тебя нет дров уходи...", RED)
end if
End if
End if
end if
end if
End if
End if

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

             Exit Sub
     End Select
End Sub


FulierДата: Вторник, 24 Августа 2010, 09:15 | Сообщение # 4
постоянный участник
Сейчас нет на сайте
Thepikal, Мда... С else всегда проблемы =). попробуй так:
Code
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, 2, 10) then
Call PlayerMsg(Index, "Спасибо ты спас деревню возьми это в знак благодарности.", RED)
Call TakeItem(Index, 2, 10)
Call GiveCurrency(Index, 1, 150)
Call GiveCurrency(Index, 3, 1)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
end if

'Квест 2'
Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 2 then
If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2") = vbNullString Then
If GetPlayerLevel(Index) >= 4 then
Call PlayerMsg(Index, "Сходи к леснику возьми у него дров для деревни.", RED)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2", 1)
end if
end if

Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2") = 1 Then
If CanTake(Index, 9, 10) then
Call PlayerMsg(Index, "Спасибо возьми это в знак благодарности.", RED)
Call TakeItem(Index, 2, 10)
Call GiveCurrency(Index, 1, 550)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest2", 2)
end if
end if
end if
end if
end if
end if

Exit Sub


Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.

Сообщение отредактировал Fulier - Вторник, 24 Августа 2010, 09:15
ThepikalДата: Вторник, 24 Августа 2010, 12:02 | Сообщение # 5
почетный гость
Сейчас нет на сайте
Т Fulier, теперь пишет синтаксическая ошибка

FulierДата: Вторник, 24 Августа 2010, 12:05 | Сообщение # 6
постоянный участник
Сейчас нет на сайте
Thepikal, Странно, я данный скрипт проверил у себя...
А пишет когда начинаешь разговаривать с Неписем или при обновлении скриптов в сервере?
Еще раз у себя перепроверил, всё нормально.


Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.

Сообщение отредактировал Fulier - Вторник, 24 Августа 2010, 12:10
ThepikalДата: Вторник, 24 Августа 2010, 12:12 | Сообщение # 7
почетный гость
Сейчас нет на сайте
Пишет когда обновляешь ты в скриптах хорошо варишь?

FulierДата: Вторник, 24 Августа 2010, 12:17 | Сообщение # 8
постоянный участник
Сейчас нет на сайте
Thepikal, Не хорошо, а отлично.
Перепроверь еще раз всё.
Папка Quests существует. Точно ли поставил Exit Sub, нет ли повторений и т.п. вещи.
И еще, какой версией Stable пользуешься?


Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.
ThepikalДата: Вторник, 24 Августа 2010, 12:37 | Сообщение # 9
почетный гость
Сейчас нет на сайте
Немог бы ты не большой туториал и какая команда заставляет персонажа сменить спрайт а то я хочу сделать заклиания превращения,

Добавлено (24.08.2010, 12:37)
---------------------------------------------
Все нашел проблему


FulierДата: Вторник, 24 Августа 2010, 13:28 | Сообщение # 10
постоянный участник
Сейчас нет на сайте
Quote (Thepikal)
какая команда заставляет персонажа сменить спрайт

Call SetPlayerSprite(Index, Sprite)
'Sprite - номер спрайта (только цифры).

Quote (Thepikal)
Немог бы ты не большой туториал

На какую тему?


Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.
ThepikalДата: Вторник, 24 Августа 2010, 17:22 | Сообщение # 11
почетный гость
Сейчас нет на сайте
На счет скриптов

AlexinoДата: Среда, 25 Августа 2010, 14:51 | Сообщение # 12
участник
Сейчас нет на сайте
Fulier, Да ,я тоже хотел бы почитать туториальчик по скриптам Eclipse Общие основы и т.д

FutureTrace(Мой готовый проект №2)
Furstema(Мой готовый проект №1)
Форум игроделов » Конструкторы игр и лёгкие в освоении системы разработки игр » Конструкторы OnLine-игр » Скрипты Eclipse (Для всех новичков помошь в скриптах в Eclipse Stable)
  • Страница 1 из 1
  • 1
Поиск:

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