|
Регистрация в Blitz3D
|
|
| kxm | Дата: Вторник, 22.06.2010, 13:53 | Сообщение # 1 |
 ламер
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Ребят, правильно я составил регистрацию, или можно как то по меньше написать?? Code
login$ = Input$("Login: ")
password$ = Input$("Password: ")
password2$ = Input$("Повторите Password: ")
If password$ = password2$ Then
name$ = Input$("Имя: ")
fam$ = Input$("Фамилия: ")
let$ = Input$("Возраст: ")
dat# = Input$("Дата рождения: ")
gor$ = Input$("Город: ")
tel$ = Input$("Телефон: ")
Print "Регистрация завершена!!! теперь войдите в систему под своим логином"
Print "-----------------------------------------------------------------------"
login2$ = Input$("Login: ")
password3$ = Input$("Password: ")
If login$ = login2$ Then
If login$ = login2$ Then
Print "Welcome" + name$
Else
Print "Перезапустите программу"
End If
End If
Else
Print "Пароль не совпадает, повторите еще раз"
password$ = Input$("Password: ")
password2$ = Input$("Повторите Password: ")
If password$ = password2$ Then
Print "Пароль совпадает"
name$ = Input$("Имя: ")
fam$ = Input$("Фамилия: ")
let$ = Input$("Возраст: ")
dat# = Input$("Дата рождения: ")
gor$ = Input$("Город: ")
tel$ = Input$("Телефон: ")
Print "Регистрация завершена!!! теперь войдите в систему под своим логином"
Print "-----------------------------------------------------------------------"
login2$ = Input$("Login: ")
password3$ = Input$("Password: ")
If login$ = login2$ Then
If login$ = login2$ Then
Print "Welcome" + name$
Else
Print "Перезапустите программу"
End If
End If
Else
Print "Пароль не совпадает, повторите еще раз"
password$ = Input$("Password: ")
password2$ = Input$("Повторите Password: ")
If password$ = password2$ Then
Print "Пароль совпадает"
name$ = Input$("Имя: ")
fam$ = Input$("Фамилия: ")
let$ = Input$("Возраст: ")
dat#1
2 = Input$("Дата рождения: ")
gor$ = Input$("Город: ")
tel$ = Input$("Телефон: ")
Print "Регистрация завершена!!! теперь войдите в систему под своим логином"
Print "-----------------------------------------------------------------------"
login2$ = Input$("Login: ")
password3$ = Input$("Password: ")
If login$ = login2$ Then
If login$ = login2$ Then
Print "Welcome" + name$
Else
Print "Перезапустите программу"
End If
End If
Else
Print "Перезапустите программу"
End If
End If
End If
WaitKey
Сообщение отредактировал kxm - Вторник, 22.06.2010, 13:56 |
| |
| |
| deejex | Дата: Вторник, 22.06.2010, 15:24 | Сообщение # 2 |
 заядлый прогер
Группа: Пользователи
Сообщений: 522
Статус: Offline
| омфг... больше сказать нечего...
в общем, правильно, но... для чего это?
|
| |
| |
| kxm | Дата: Вторник, 22.06.2010, 15:27 | Сообщение # 3 |
|
ламер
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Да в общем пишу игру по наруто, но в 3D)) ну и соответственно игра не бесплатная будет)
|
| |
| |
| deejex | Дата: Вторник, 22.06.2010, 17:15 | Сообщение # 4 |
|
заядлый прогер
Группа: Пользователи
Сообщений: 522
Статус: Offline
| Quote (kxm) Да в общем пишу игру по наруто
о боже, ненавижу это недоаниме, позорит всю культуру аниме.
Quote (kxm) ну и соответственно игра не бесплатная будет)
*ROFL* ПОД СТОЛОМ!!! Жгешь, однако... В таком случае регистрация не нужна вовсе.
|
| |
| |
| kxm | Дата: Вторник, 22.06.2010, 17:31 | Сообщение # 5 |
|
ламер
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Неееее)) нужна)) мне надо знать пароли аккаунтов каждого игрока игры)))))))
|
| |
| |
| deejex | Дата: Вторник, 22.06.2010, 18:17 | Сообщение # 6 |
|
заядлый прогер
Группа: Пользователи
Сообщений: 522
Статус: Offline
| Quote (kxm) мне надо знать пароли аккаунтов каждого игрока игры)))))))
а ты пару лет попрогь и только тогда сможешь отправлять TCP запросы.
|
| |
| |
| kxm | Дата: Вторник, 22.06.2010, 18:22 | Сообщение # 7 |
|
ламер
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Мне не надо))) я знаю все языки веб програмирования)))
|
| |
| |
| Spidy | Дата: Вторник, 22.06.2010, 19:42 | Сообщение # 8 |
 Полковник
Группа: Модераторы
Сообщений: 339
Статус: Offline
| Quote Мне не надо))) я знаю все языки веб програмирования)))  Сомневаюсь, что найдутся люди, которые за ЭТО будут платить после WoW и L||
Разве что завзвтые фанаты наруто
Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
|
| |
| |
| kxm | Дата: Среда, 23.06.2010, 10:55 | Сообщение # 9 |
|
ламер
Группа: Пользователи
Сообщений: 9
Статус: Offline
| Quote Разве что завзвтые фанаты наруто Я не фанат аниме)) но наруто мне нравится, и думаю нравится многим малолетним мажорам)) <b>P.S</b>
Я даже цену по меньше сделаю, чтоб больше народу платили) Добавлено (23.06.2010, 10:55)
---------------------------------------------
ещё вапросик!!! сделал игру для развлечение в свободное время) но ещё ни разу ни угадал правильный ответ((( Code Graphics 1024, 768, 32, 2
Repeat
SeedRnd( MilliSecs() )
z$ = Rand(0,3)
s$ = Input$("")
If s$ = z$ Then
Print "УрАаАаА)) Вы отгадали!!!!!"
Else
Print "Вы проиграли"
End If
Forever
WaitKey() Может что то ниПраВельНо написал??
|
| |
| |
| deejex | Дата: Среда, 23.06.2010, 12:22 | Сообщение # 10 |
|
заядлый прогер
Группа: Пользователи
Сообщений: 522
Статус: Offline
| Code Graphics 1024, 768, 32, 2
AppTitle "Отгадай-ка"
SeedRnd MilliSecs()
SetFont LoadFont("Arial cyr",22,1,1,0)
Repeat
z = Rand(0,3)
s$ = Input$("Я загадал число от 1 до 3. Угадай какое - ")
If s$ = Str(z) Then
Print "Поздравляю, угадал. Дуракам везет."
Else
Print "ЫЫЫ ПРОДУЛ ЛОХ!!!"
End If
Forever
WaitKey()
End
это и есть игра по наруто?
Сообщение отредактировал deejex - Среда, 23.06.2010, 12:23 |
| |
| |
