Суббота, 23 Ноября 2024, 07:10

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

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Квест еклипс
KpayTeJIbДата: Вторник, 21 Декабря 2010, 17:45 | Сообщение # 1
был не раз
Сейчас нет на сайте
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.
ну и соответственно скрипт не работает,нажимаю на нпс и

Сообщение отредактировал KpayTeJIb - Вторник, 21 Декабря 2010, 18:43
FulierДата: Вторник, 21 Декабря 2010, 19:33 | Сообщение # 2
постоянный участник
Сейчас нет на сайте
Попробуй так:
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)
end if
Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then
If CanTake(Index, 6, 10) 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
Exit Sub


Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.
KpayTeJIbДата: Вторник, 21 Декабря 2010, 19:43 | Сообщение # 3
был не раз
Сейчас нет на сайте
ничего не изменилось.
вот что написано в ScriptedNpc:
Code
Sub ScriptedNPC(Index, Script)
  Select Case Script
   Case 0
    Call PlayerMsg(Index, "This scripted NPC has no apparent use.", WHITE)

    Exit Sub

   Case Else
    Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", 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
denis007Дата: Вторник, 21 Декабря 2010, 23:01 | Сообщение # 4
частый гость
Сейчас нет на сайте
так должно быт

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

KpayTeJIbДата: Среда, 22 Декабря 2010, 09:14 | Сообщение # 5
был не раз
Сейчас нет на сайте
Не работает:(
но теперь при запуске сервера пишет:предпологается наличие select

Добавлено (22.12.2010, 09:14)
---------------------------------------------
все проблема решена!

Сообщение отредактировал KpayTeJIb - Среда, 22 Декабря 2010, 09:05
Filch13Дата: Среда, 22 Декабря 2010, 14:28 | Сообщение # 6
почетный гость
Сейчас нет на сайте
KpayTeJIb может поделишся как решена проблема?
Или только для себя спрашивать можем? wink
KpayTeJIbДата: Среда, 22 Декабря 2010, 17:02 | Сообщение # 7
был не раз
Сейчас нет на сайте
В общем так:
Sub ScriptedNPC(Index, Script)
Select Case Script
Case 2
if GetPlayerLevel(Index) >= 1 then
If GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = vbNullString Then
Call PlayerMsg(Index, "17puBeT Ya Cdelay tebe opy)I(ue ecJLu 17puHeceLLl 2 broken sword.", YELLOW)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 1)
end if
Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then
If CanTake(Index, 6, 2) then
Call PlayerMsg(Index, "Bo3bMu Me4", YELLOW)
Call TakeItem(Index, 6, 2)
Call GiveCurrency(Index, 7, 1)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
end if
end if
End if
Exit Sub
End Select
End Sub

Но он мне говорит только первый диалог ,а когда все итемы есть 0 эмоций

FulierДата: Среда, 22 Декабря 2010, 18:27 | Сообщение # 8
постоянный участник
Сейчас нет на сайте
Quote
17puBeT Ya Cdelay tebe opy)I(ue ecJLu 17puHeceLLl 2 broken sword.

Омг...а почему не на русском?


Лампа. Кофе. Игра. - сайт о компьютерных, компьютерных и еще раз компьютерных играх.
Filch13Дата: Среда, 22 Декабря 2010, 19:48 | Сообщение # 9
почетный гость
Сейчас нет на сайте
оффтоп:
KpayTeJIbДата: Среда, 22 Декабря 2010, 20:45 | Сообщение # 10
был не раз
Сейчас нет на сайте
Quote
Quote
17puBeT Ya Cdelay tebe opy)I(ue ecJLu 17puHeceLLl 2 broken sword.
Омг...а почему не на русском?

А да это так проверял просто)
Ну так что никто не подскажет почему у меня вот этот скрипт не проигрывается так сказать)
Else if GetVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1") = 1 Then
If CanTake(Index, 6, 2) then
Call PlayerMsg(Index, "Bo3bMu Me4", YELLOW)
Call TakeItem(Index, 6, 2)
Call GiveCurrency(Index, 7, 1)
Call PutVar("Scripts\Quests\" & GetPlayerName(Index) & ".ini", "General", "Quest1", 2)
end if
end if
End if
Exit Sub
End Select
End Sub
Bars_96Дата: Четверг, 23 Декабря 2010, 20:21 | Сообщение # 11
частый гость
Сейчас нет на сайте
Нажми Caps Lock или зажми Shift и пиши на русском вылетать не будет!
Эклипс расспознает только большие буквы!




FulierДата: Пятница, 24 Декабря 2010, 11:39 | Сообщение # 12
постоянный участник
Сейчас нет на сайте
Bars_96, Да Господи боже мой! За это можно и минус поставить.
Проблема с русскими буквами решена мной, причем она еще и закреплена в важных темах...->...


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

Сообщение отредактировал Fulier - Пятница, 24 Декабря 2010, 11:40
  • Страница 1 из 1
  • 1
Поиск:

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