QSP - Как сделать?

Aleks Versus Moderator 05.06.2013 14:28 (12 years ago)

Anakox:

Твой совет сравним по смыслу с советом как чистить картофель в ответ на вопрос о тонкостях приготовления изысканного блюда. Картофель чистить я умею, элементарные конструкция уровня детского сада меня не интересуют.

Не умеешь чистить картофель, не сможешь приготовить изысканного блюда. :/ Как-то так.
Вообще, если мне не изменяет память, на форуме где-то болтается библиотека, работающая с дробными числами (Олегус вроде писал, или Мастерсет?). Если лень самому чистить картошку, всегда можно взять уже очищенную, и даже сваренную, и даже сбитую в пюре. Хотя я бы рекомендовал тебе самому сварганить небольшую библиотечку для вычислений - хорошая разминка для мозгов. :)

P.S.: Чуть не забыл. Естественно в QSP это не “настоящие числа”, а просто строки вида “000.000”. Для собственных нужд я тоже написал несколько функций, работающих с такими числами. Если есть необходимость, могу поделиться

A

Anakox #849 06.06.2013 09:01 (12 years ago)

Да я сделал уже как мне надо ещё до того, как получил первый ответ.

if h_m > 0:
  set h[h_m] = h[h_m] + 1
  if h[h_m] >= h_m: set h = h + 1 & set h[h_m] = h[h_m] - h_m
end

это в служебной локации приписал и в действиях нужно только h_m указывать. Просто надеялся, что кто-то знает лучший способ.

Возможно ли в классическом плейере выполнить автоматический вызов определённой игры при запуске плейера? Есть ли такая переменная в конфиге, в которую можно было бы написать путь/название игры?

Aleks Versus Moderator 06.06.2013 14:32 (12 years ago)

Aleks Versus Moderator 06.06.2013 14:51 (12 years ago)

A

Anakox #849 06.06.2013 15:56 (12 years ago)

Aleks Versus Moderator 06.06.2013 17:45 (12 years ago)

U

UncleJunkie #203 14.06.2013 07:17 (12 years ago)

werewolf Moderator 14.06.2013 09:26 (12 years ago)

я не совсем давно делал такой функционал

Spoiler

#read_map
$args[0] = trim($args[0])
killvar '$tmp_array'
killvar '$tmp_lines'
:loop
	pos = strpos($args[0], '(\r)?\n')
	if pos <= 0:
		$tmp_str = $args[0]
		if $tmp_str <> '':
			$tmp_lines[] = $tmp_str
		end
	else
		$tmp_str = $mid($args[0], 1, pos-1)
		if $tmp_str <> '':
			$tmp_lines[] = $tmp_str
		end
		$args[0] = $mid($args[0], pos+1)
		jump('loop')
	end
	
_tmp_len = arrsize('$tmp_lines')
_i = 0

:loop_i
	_j_len = len($tmp_lines[_i])
	_j = 1
	:loop_j
		$tmp_array['<<_i>>_<<_j-1>>'] = $mid($tmp_lines[_i], _j, 1)
		_j += 1
	if _j <= _j_len: jump('loop_j')
	''
	_i += 1
if _i < _tmp_len: jump('loop_i')
copyarr $arg[1], '$tmp_array'
-

лока принимает на входе строку с данными и название массива для записи (многомерный массив эмулируется через строки вида ’0_0’, ’0_1’ и тд)
пример использования

$map = '
00110002000
00220110200
00003033011
'
gs 'read_map', $map, '$map_array'

U

UncleJunkie #203 14.06.2013 09:41 (12 years ago)

Prophet #730 22.06.2013 13:32 (12 years ago)

Nex Moderator 22.06.2013 14:36 (12 years ago)

Prophet,
да.

! в первой локации:
USEHTML = 1

! в локации с меню:
'<a href="EXEC:MENU ''$Моё_крутое_меню''">вызвать меню</a>'

Нужно внимательно следить за экранированием кавычек и апострофов.

Prophet #730 22.06.2013 14:56 (12 years ago)

F

Farfignugen #908 25.06.2013 08:21 (12 years ago)

Подскажите как сделать такую ерунду.
Допустим у меня есть 3 переменных (А,В,С)в которых сохранены разные числа. Их значение я не знаю, но хочу отобразить их в порядке убывания

'1. <<first>>'
'2. <<second>>'
'3. <<third>>'

Рассчитывать в лоб даже эти три значения это нагородить огород из if, а если их не 3, а 10 или 20.
Каким образом можно решить такую задачу?

Nex Moderator 25.06.2013 08:38 (12 years ago)

F

Farfignugen #908 25.06.2013 09:11 (12 years ago)

Nex:

Farfignugen,
для начала тебе нужно изучить циклы и массивы.

Потом:

1. Заполняешь массив значениями в любом порядке.

2. Используешь любой алгоритм сортировки чтобы отсортировать массив, например “сортировку пузырьком”.

3. Выводишь уже отсортированный массив.

Я более или менее в курсе как организованы циклы в qsp и немного знаю массивы. Мне не нужно перебирать сам массив, мне всего лишь для статистики нужно расположить значения по порядку в убывании.

!первая локация
a=RAND(1,100)
b=RAND(1,100)
c=RAND(1,100)
mas[0]=a
mas[1]=b
mas[2]=c
perebor=3
numa=0
numb=0
numc=0

!локация расчета
:loop
     if perebor=1:
     perebor=0
         if numa=0:
         tmas[2]=mas[0]
         end
         if numb=0:
         tmas[2]=mas[1]
         end
         if numc=0:
         tmas[2]=mas[2]
         end
     end
     if perebor=2:
     perebor=1
         if numa=1:
             if mas[1]>mas[2]:tmas[1]=mas[1]&numb=1&jump'loop'
             if mas[2]>mas[1]:tmas[1]=mas[2]&numc=1&jump'loop'
         end
         if numb=1:
             if mas[0]>mas[2]:tmas[1]=mas[0]&numa=1&jump'loop'
             if mas[2]>mas[2]:tmas[1]=mas[2]&numc=1&jump'loop'
         end
         if numc=1:
             if mas[0]>mas[1]:tmas[1]=mas[0]&numa=1&jump'loop'
             if mas[1]>mas[0]:tmas[1]=mas[1]&numb=1&jump'loop'
         end

     end
     if perebor=3:
     perebor=2
     tmas[0]=max (mas[0],mas[1], mas[2])
     if tmas[0]=mas[0]:numa=1
     if tmas[0]=mas[1]:numb=1
     if tmas[0]=mas[2]:numc=1
     end

if perebor>0:jump'loop'
numa=0
numb=0
numc=0
perebor=3

'<<mas[0]>> <<mas[1]>> <<mas[2]>>'
'1. <<tmas[0]>>'
'2. <<tmas[1]>>'
'3. <<tmas[2]>>'

Вот с массивами накидал. Но это же громоздко.