[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]


  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: Spidy, turBO, blitz3d  
Форум мира Blitz3D » Язык Blitz3D » 3D программирование » Регистрация в Blitz3D (Правильно составил регистрацию???)
Регистрация в Blitz3D
kxmДата: Вторник, 22.06.2010, 13:53 | Сообщение # 1
ламер
Группа: Пользователи
Сообщений: 9
Награды: 0
Репутация: 0
Статус: 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
Награды: 2
Репутация: 14
Статус: Offline
омфг... больше сказать нечего...
в общем, правильно, но... для чего это?


 
kxmДата: Вторник, 22.06.2010, 15:27 | Сообщение # 3
ламер
Группа: Пользователи
Сообщений: 9
Награды: 0
Репутация: 0
Статус: Offline
Да в общем пишу игру по наруто, но в 3D)) ну и соответственно игра не бесплатная будет)
 
deejexДата: Вторник, 22.06.2010, 17:15 | Сообщение # 4
заядлый прогер
Группа: Пользователи
Сообщений: 522
Награды: 2
Репутация: 14
Статус: Offline
Quote (kxm)
Да в общем пишу игру по наруто

о боже, ненавижу это недоаниме, позорит всю культуру аниме.
Quote (kxm)
ну и соответственно игра не бесплатная будет)

*ROFL* ПОД СТОЛОМ!!! Жгешь, однако...

В таком случае регистрация не нужна вовсе.



 
kxmДата: Вторник, 22.06.2010, 17:31 | Сообщение # 5
ламер
Группа: Пользователи
Сообщений: 9
Награды: 0
Репутация: 0
Статус: Offline
Неееее)) нужна)) мне надо знать пароли аккаунтов каждого игрока игры)))))))
 
deejexДата: Вторник, 22.06.2010, 18:17 | Сообщение # 6
заядлый прогер
Группа: Пользователи
Сообщений: 522
Награды: 2
Репутация: 14
Статус: Offline
Quote (kxm)
мне надо знать пароли аккаунтов каждого игрока игры)))))))

а ты пару лет попрогь и только тогда сможешь отправлять TCP запросы.


 
kxmДата: Вторник, 22.06.2010, 18:22 | Сообщение # 7
ламер
Группа: Пользователи
Сообщений: 9
Награды: 0
Репутация: 0
Статус: Offline
Мне не надо))) я знаю все языки веб програмирования)))
 
SpidyДата: Вторник, 22.06.2010, 19:42 | Сообщение # 8
Полковник
Группа: Модераторы
Сообщений: 339
Награды: 6
Репутация: 13
Статус: Offline
Quote
Мне не надо))) я знаю все языки веб програмирования)))

biggrin

Сомневаюсь, что найдутся люди, которые за ЭТО будут платить после WoW и L||
Разве что завзвтые фанаты наруто

Компьютерная мышь ночью собирает крошки у тебя со стола и прячет их в клавиатуру, делает запасы на зиму
 
kxmДата: Среда, 23.06.2010, 10:55 | Сообщение # 9
ламер
Группа: Пользователи
Сообщений: 9
Награды: 0
Репутация: 0
Статус: 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
Награды: 2
Репутация: 14
Статус: 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

это и есть игра по наруто? biggrin




Сообщение отредактировал deejex - Среда, 23.06.2010, 12:23
 
Форум мира Blitz3D » Язык Blitz3D » 3D программирование » Регистрация в Blitz3D (Правильно составил регистрацию???)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск: