[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Читы в blitz
mkhanДата: Воскресенье, 30 Ноября 2008, 00:26 | Сообщение # 1
Профи
Группа: Участники
Сообщений: 254
Награды: 0
Замечания: 0%
Статус:
интересно, кто делал? и как? smile

 
ПрохожийДата: Воскресенье, 30 Ноября 2008, 01:32 | Сообщение # 2
Группа: Гости





mkhan, И чего сложного то, при нажатии клавишу выводишь строчку внизу,потом с getkey(я так делал, даже мигающий курсор в конце с помощью Rect) , считываешь ввод с клавиатуры, добавляешь в строку, например если определённая комманда появляется в строке, после ней считываешь значения(напимер переменную для пополнения жизни и.т.п)на самом деле всё просто делается.
 
ПрохожийДата: Воскресенье, 30 Ноября 2008, 01:46 | Сообщение # 3
Группа: Гости





Вот ещё покажу как делал ввод параметров:
Code

Type PlayerInput

Field Time_Show

Field Time_Hide

Field flash

Field Str1$

Field Symbol

End Type

Function CreatePlayInput()

Pin.PlayerInput = New PlayerInput

Pin\Time_Show = MilliSecs ()

Pin\Time_Hide = MilliSecs ()

Pin\flash = 0

Pin\Str1$ = ""

Pin\Symbol = 0

End Function  

Function UpdatePlayInput$(x,y)

SetFont font

For Pin.PlayerInput = Each PlayerInput

If  Pin\symbol <10

   Key = GetKey()

  Else

  Key = 0

  EndIf

   

If key <> 0 And Key <>13

Pin\Str1$ = Pin\Str1$ + Str(Chr(Key))

Pin\symbol = Pin\symbol +1

EndIf

If KeyHit(14) And Pin\symbol >1;***Удаление  

FlushKeys ()

Pin\symbol = Pin\symbol -2

LenStr =  Len(Pin\Str1$)

Pin\Str1$ = Left(Pin\Str1$,LenStr-2)

EndIf

;*****МИГАЮЩИЙ КУРСОР****************************

If MilliSecs() > Pin\Time_Show +300 Then Pin\flash = 1

If Pin\flash = 1 And MilliSecs ()>Pin\Time_Hide+500

Pin\Time_Hide= MilliSecs ()

Pin\Time_show=MilliSecs ()

Pin\flash = 0

EndIf

If Pin\flash  = 1 Then Rect x+StringWidth(Pin\Str1$),y,2,15,1

;**************************************************************

Rect x-5,y-10,140,32,0

Text x,y,Pin\Str1$

If Key = 13

Ret$ = Pin\Str1$

Else

Ret$ =""

EndIf

Next

Return Ret$

  End Function

Вообщем при использовании UpdatePlayInput , появляется строчка в соответствующих координатах, и при нажатии Enter возвращается, короче точно не могу сказать, так как давно делал , и лень разбираться.
 
mkhanДата: Воскресенье, 30 Ноября 2008, 11:11 | Сообщение # 4
Профи
Группа: Участники
Сообщений: 254
Награды: 0
Замечания: 0%
Статус:
спасибо, просто интересно мне smile кто еще что знает?

 
OptimusДата: Воскресенье, 30 Ноября 2008, 11:19 | Сообщение # 5
Крутой
Группа: Участники
Сообщений: 646
Награды: 0
Замечания: 0%
Статус:

Профессия: Программист
Команда: Solomanders te@m
Проектов: TripleWar(разработка)
Тебе что этого не хватило shock ??Мне хватило angel

Internet Explorer-замечательный браузер для того чтобы зайти и скачать Firefox
 
mkhanДата: Воскресенье, 30 Ноября 2008, 13:47 | Сообщение # 6
Профи
Группа: Участники
Сообщений: 254
Награды: 0
Замечания: 0%
Статус:
мне не сколько нужны эти читы, просто хоцу послушать кто как думает smile

 
ПрохожийДата: Воскресенье, 30 Ноября 2008, 16:06 | Сообщение # 7
Группа: Гости





mkhan, убейся, иди учи распределительные танки - ето для тебя, "хоцет" он, пи*дец angry
 
ПрохожийДата: Понедельник, 01 Декабря 2008, 16:36 | Сообщение # 8
Группа: Гости





я не знаю - можно ли это читом назвать,но когда игры делал,то на цифру 3 поставил 100 жизни,на 2 поставил скорость в 10 раз увеличить,а на 1 - выстрый выход(ЫЫЫ)
 
mkhanДата: Понедельник, 01 Декабря 2008, 19:00 | Сообщение # 9
Профи
Группа: Участники
Сообщений: 254
Награды: 0
Замечания: 0%
Статус:
скорее всего моно! smile

 
dfДата: Пятница, 26 Июня 2009, 20:42 | Сообщение # 10
Продвинутый
Группа: Участники
Сообщений: 144
Награды: 0
Замечания: 0%
Статус:

Профессия: Программист
Команда: Легион Темной Лисы(LDF)
Проектов: 1
Как сделать движение такста если он достиг края поля(прямойгольника) и как сделать скрытие левой части теста достигшего левой граници текста


 
  • Страница 1 из 1
  • 1
Поиск: