Воскресенье, 17 Ноября 2024, 16:23

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

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Циклы и условия в MSBScript 2.0
satanДата: Вторник, 31 Августа 2010, 22:35 | Сообщение # 1
почетный гость
Сейчас нет на сайте
Итак, решил с помощью программы Mess Box DVI 4.5 сделать программу расчета ресурсов для приложения в вк.
До этого у меня были попытки сделать эту программу в php Devel Studio, но эта прога рассчитана на человека уже знающего php, а я к ним пока не отношусь и MB мне показалась легче в освоении...
хотя ее уже и забросили.
Поясню в чем смысл этой программы (кто играл в такие приложения как: ВГалактике, Cgame:Universal ) тот наверное знает что это такое, но все же поясню для тех кто не встречался.

Где:
1- уровень шахт
2- Постройки и технологии влияющие на добычу
3- и.т.п
4- тоже самое
5- Значение добычи ресурсов в час(от уровня шахт зависит значение добычи в час)
6- будильник
7- добыча ресурсов каждую секунду(значение добычи в час/3600, зависит от 5 и 1)
8- температура планеты
9- Коррекция
10- вкл/выкл будильник

Но у меня вместо стрелочек выбора уровня шахт - выпадающий список. При выборе одного варианта и списка изменяется значение добычи в час, и в значении "На складе" каждую секунду прибавляется к предыдущему значению, значение добычи в секунду.
Вот код который у меня получился, но не получается сделать так, чтобы добывалось каждую секунду и при изменении уровня шахт значение сохранялось, а прибавлялось только новое((поставленное)в секунду).

Code
IfSelect(MainForm.Combo_1,0)
$lvlmetall=Combo_1
$lvlkrem=Combo_2
$lvlvoda=Combo_3
$lvlenerg=Combo_4
$lvlstaten=Combo_5
$lvldron=Combo_ 6
MainForm.Edit_3.Text=`33`
MainForm.Edit_1.Text=`0.009`
IfText(MainForm.Edit_1,`0.009`)
MainForm.Edit_1.Text=`0.018`
IfText(MainForm.E dit_1,`0.018`)
MainForm.Edit_1.Text=`0.036`

Помогите написать цикл чтобы каждую секунду добывалась единица ресурсов. smile

Добавлено (31.08.2010, 22:35)
---------------------------------------------
Ну хот кто нибудь помогите cry

Прикрепления: 9651371.jpg (17.7 Kb)
  • Страница 1 из 1
  • 1
Поиск:

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