|
Квест еклипс
| |
| 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 может поделишся как решена проблема?
Или только для себя спрашивать можем? 
|
|
|
| |
| 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 |
|
|
| |
|
