Форумы Архив » Свалка Как сделать свой мод? (по 08.10.09)

--\ функция забирающая сумму ставки у ГГ в соответствии с выбранной фразой\включенным поршнем
local stavka = {500, 1000, 5000, 10000, 15000, 20000, 25000, 30000, 35000, 40000}

function transfer_money()
local tab = {"frase_1","frase_2","frase_3,"frase_4",
"frase_5","frase_6","frase_7","frase_8","frase_9",
"frase_10"}
local s = stavka[a]
for a,v in ipairs(tab) do
if db.actor:has_info(v) then --\ или так? if db.actor:has_info("frase_"..a) then
db.actor:transfer_money(s, nps)
end
end
end

форум зараза не воспринимает i в квадратных скобках

;---------------------------------------------------------------------------------------------
; ЭКЗОСКЕЛЕТ НЕЙТРАЛЬНОГО СТАЛКЕРА
;---------------------------------------------------------------------------------------------
[exo_outfit]:outfit_base
GroupControlSection = spawn_group
discovery_dependency =
$spawn = "outfit\exo_outfit"
$prefetch = 32
class = E_STLK
cform = skeleton
visual = equipments\exoskelet
actor_visual = actors\hero\stalker_exoskeleton.ogf

ef_equipment_type = 5

inv_name = exo_outfit_name
inv_name_short = exo_outfit_name
description = exo_outfit_description
inv_weight = 15.0
slot = 6
inv_grid_width = 2
inv_grid_height = 3
inv_grid_x = 14
inv_grid_y = 13
full_icon_name = npc_icon_exo_outfit
nightvision_sect = effector_nightvision_bad

cost = 50000
full_scale_icon = 2,11 ;иконка сталкера в костюме в полный рост

immunities_sect = sect_exo_outfit_immunities

; MEDIUM RESISTANCE
burn_protection = 0.5
strike_protection = 0.9
shock_protection = 0.5
wound_protection = 0.8
radiation_protection = 0.4
telepatic_protection = 0.0
chemical_burn_protection = 0.5
explosion_protection = 0.8
fire_wound_protection = 0.65

;запрещение режима Sprint для Актера
sprint_allowed = false
bones_koeff_protection = exo_helmet_damage
additional_inventory_weight = 20
additional_inventory_weight2 = 20 ; 40+

[sect_exo_outfit_immunities]
burn_immunity = 0.05 ;коэффициенты иммунитета самого костюма
strike_immunity = 0.008
shock_immunity = 0.007
wound_immunity = 0.008
radiation_immunity = 0.00
telepatic_immunity = 0.00
chemical_burn_immunity = 0.007
explosion_immunity = 0.008
fire_wound_immunity = 0.008

Мой новый ранг - general

;шкалы для вывода названий вместо чисел
;рейтингов, репутаций и благосклонности в интерфейсе
rating_names = novice, 300, experienced, 600, veteran, 900, master, 1500, general
сюда пишешь новый ранг и цифры которые будут ему соответствовать - например 1500, имя ранга


[rank_relations]
; novice, experienced, veteran, master, general
;================================================================
novice = 0, 0, 0, 0, 0
experienced = 0, 0, 0, 0, 0
veteran = 0, 0, 0, 0, 0
master = 0, 0, 0, 0, 0
general = 0, 0, 0, 0, 0

в эту таблицу пишешь новый ранг


;очки рейтинга, получаемые за убийство персонажа
;с определенным статусом
[rank_kill_points]
novice = 0
experienced = 0
veteran = 0
master = 0
general = 0 --\ сюда пишешь новый ранг

и потом его имя в string_table_general вписывать.

генерал


потом уже можешь его в профиле непися указывать
в файле character_desc_уровень в его профиле указываешь цифирьки нового ранга
типа так
1500

а в файле spawn_sections ставишь нужному неписю имя нового ранга

[esc_unik_npc_1]:stalker
$spawn = "respawn\esc_unik_npc_1"
character_profile = esc_unik_npc_1
spec_rank = general --\ новый ранг
community = stalker

вроде все.

local dolg = 0

function stavka_100(actor, npc)
local stavka = 100
this.transfer_money(actor, npc, stavka)
end

function stavka_500(actor, npc)
local stavka = 500
this.transfer_money(actor, npc, stavka)
end

function stavka_1tysh(actor, npc)
local stavka = 1000
this.transfer_money(actor, npc, stavka)
end

function stavka_5tysh(actor, npc)
local stavka = 5000
this.transfer_money(actor, npc, stavka)
end

function stavka_10tysh(actor, npc)
local stavka = 10000
this.transfer_money(actor, npc, stavka)
end

function stavka_50tysh(actor, npc)
local stavka = 50000
this.transfer_money(actor, npc, stavka)
end

function stavka_100tysh(actor, npc)
local stavka = 100000
this.transfer_money(actor, npc, stavka)
end

function transfer_money(actor, npc, stavka)
local summa = actor:money()
if summa >= stavka then
actor:transfer_money(stavka, nps)
else
dolg = stavka - summa
actor:transfer_money(summa, nps)
end
this.totalizator(actor, npc, stavka)
end

function totalizator(actor, npc, stavka)
if math.random(100) <= 25 then --выиграл или проиграл
local c = math.random(100)
if с >= 0 and c <= 50 then
actor:give_money(stavka * 2)
game_stats.money_quest_update (stavka * 2) --выиграл в двое больше
actor:give_info_portion("vyigrysh_2")
elseif c > 50 and c <= 75 then
actor:give_money(stavka * 3)
game_stats.money_quest_update (stavka * 3) --выиграл в трое больше
actor:give_info_portion("vyigrysh_3")
elseif c > 75 and c <= 90 then
actor:give_money(stavka * 4)
game_stats.money_quest_update (stavka * 4) --выиграл в четверо больше
actor:give_info_portion("vyigrysh_4")
elseif c > 90 and c <= 100 then
actor:give_money(stavka * 5)
game_stats.money_quest_update (stavka * 5) --выиграл в пятеро больше
actor:give_info_portion("vyigrysh_5")
end
local summa = actor:money()
if dolg > 0 then
if summa >= dolg then
actor:transfer_money(dolg, nps) --при выигрыше, погасить долг
dolg = 0
else
dolg = dolg - summa
actor:transfer_money(summa, nps) --ну или хотябы частично, если выигрышь меньше долга.
end
end
end
end

function save_dolg(p) --функция сохранения долга
p:w_u32(dolg)
end

function load_dolg(r) --функция загрузки долга
dolg = r:r_u32()
end

local prize = {0, 500, 1000, 5000, 10000, 15000, 20000, 25000, 30000, 35000, 40000, 45000, 50000, 100000, 200000, 300000, 400000, 500000, 1000000}
local sums_1 =
local sums_2 =
local sums_3 =
и т.д
таблицы сюда не пишу, так очень большие, но принцип я думаю ты понял.
сама функция (точнее ее начало)

function totalizator()
if db.actor:has_info("frase_1") then --\ если бы получен поршень такой -то, то делаем перебор вариантов выигрышей - из той таблицы, которая соответствует ставке\поршню
local c = math.random(120) --\ по числу сумм в таблице
local summa = sums_1[c] --\ полученное число назначем сумме из таблице sums_1 с соответсвующим индексом
db.actor:give_money(summa) --\ выдаем эктору сумму
for k, v in ipairs(prize) do --\ здесь нужно сравнить полученную сумму с суммами в таблице prize - присвоить ей индекс и назначить его поршню\новости
if summa == v then --\ вот здесь не уверен как правильно делать
summa = v --\ надо ли это или как то иначе скажем просто присвоить summa = v и все без всяких сравнений.
db.actor:give_info_portion("prize_"..k) либо news_manager.send_tip(db.actor, "news_"..k)
elseif db.actor:has_info("frase_2") then
local c = math.random(фиг знает - пока не считал)
local summa = sums_2[c]
db.actor:give_money(summa)
for k, v in ipairs(prize) do
if summa == v then
db.actor:give_info_portion("prize_"..k) либо news_manager.send_tip(db.actor, "news_"..k)

http://stalkerin.gameru.net/wiki/index.php/%D0%92%D1%8B%D1%87%D0%B8%D1%81%D0%BB%D1%8F%D0%B5%D0%BC_%D0%BA%D0%BE%D0%BE%D1%80%D0%B4%D0%B8%D0%BD%D0%B0%D1%82%D1%8B