Квест еклипс
| |
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 |
|
| |
|