|
27.12.2008, 23:41
|
#1
|
ПроЭктировщик
Регистрация: 25.12.2008
Сообщений: 103
Написано 0 полезных сообщений (для 0 пользователей)
|
Вопросик про TYPE
Всем приветик
Подскажите пожалуйста как вычеслить сколько создано объектов в TYPE
Например онлайн игра
сюда создаем игроков
Type Player
Field stream
Field logintest
Field S$
Field login$
Field password$
End Type
и как вывести сколько игроков в онлайне
For p.Player=Each Player
и что дальше ?
|
(Offline)
|
|
27.12.2008, 23:42
|
#2
|
☭
Регистрация: 26.09.2006
Сообщений: 6,035
Написано 1,474 полезных сообщений (для 2,707 пользователей)
|
Ответ: Вопросик про TYPE
решение "в лоб"
plcnt=0
For p.Player=Each Player
plcnt = pcnt +1
next
countplayers = plcnt
|
(Offline)
|
|
27.12.2008, 23:46
|
#3
|
ПроЭктировщик
Регистрация: 25.12.2008
Сообщений: 103
Написано 0 полезных сообщений (для 0 пользователей)
|
я просто так делал но он у меня считал бесконечно
тоесть в онлайне 6 человек а он до 2000 насчитал и еще бы мог считать +((
а какнить по другомо можно может есть функция какаянить
что бы считал ? или это один вариант ?
Последний раз редактировалось jimon, 28.12.2008 в 01:33.
|
(Offline)
|
|
28.12.2008, 00:06
|
#4
|
Терабайт исходников
Регистрация: 13.09.2008
Сообщений: 3,947
Написано 2,189 полезных сообщений (для 6,051 пользователей)
|
Ответ: Вопросик про TYPE
я просто так делал но он у меня считал бесконечно
|
не может быть
у тебя же не бесконечно объектов
скорее всего внутри цикла какая-то лажа
кинь свой цикл
--
я вообще обычно переменную кол-ва объектов увеличиваю собсно при создании объектов типа.
|
(Offline)
|
|
28.12.2008, 00:14
|
#5
|
ПроЭктировщик
Регистрация: 25.12.2008
Сообщений: 103
Написано 0 полезных сообщений (для 0 пользователей)
|
For p.Player=Each Player
online = online +1
If p\stream Then
If ReadAvail(p\potok)>0 Then
p\S$=ReadLine(p\potok)
;Проверяем логин и пасс если все норма то обрабатываем запросы
Include "game.bb"
;-----------------------------------------------------------------------
EndIf
Else
online = online - 1
Print ""
Print "------------------------------------------------------------------------------"
Print p\login$ + " отключен "
Print "------------------------------------------------------------------------------"
Print ""
Delete p
EndIf
Next
он бесконечно считает так как цикл тоже бесконечный он все время перебирает цикл пользователей
Последний раз редактировалось jimon, 28.12.2008 в 01:33.
|
(Offline)
|
|
28.12.2008, 03:04
|
#6
|
Терабайт исходников
Регистрация: 13.09.2008
Сообщений: 3,947
Написано 2,189 полезных сообщений (для 6,051 пользователей)
|
Ответ: Вопросик про TYPE
;Проверяем логин и пасс если все норма то обрабатываем запросы
Include "game.bb"
|
а инклюд зачем в цикле?
негуд.
лучше функцией вызывай.
компилятор же по идее просто слепляет главной сорец с инклюдами в один.
он бесконечно считает так как цикл тоже бесконечный он все время перебирает цикл пользователей
|
ну канешно.
обнуляй переменную online перед циклом.
а то он же у тебя не с нуля считает.
|
(Offline)
|
|
28.12.2008, 03:28
|
#7
|
ПроЭктировщик
Регистрация: 25.12.2008
Сообщений: 103
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Вопросик про TYPE
Сообщение от Mr_F_
а инклюд зачем в цикле?
негуд.
лучше функцией вызывай.
компилятор же по идее просто слепляет главной сорец с инклюдами в один.
|
game.bb у меня там уже идут все обсчеты, проверки вобщем сердце сервера, функциями не как +(
Сообщение от Mr_F_
ну канешно.
обнуляй переменную online перед циклом.
а то он же у тебя не с нуля считает.
|
Спасибки все работает, не фига я так стормозил +))))
|
(Offline)
|
|
09.01.2009, 20:34
|
#8
|
ПроЭктировщик
Регистрация: 11.11.2008
Адрес: Тольятти
Сообщений: 153
Написано 10 полезных сообщений (для 24 пользователей)
|
Ответ: Вопросик про TYPE
У меня такая проблема возникла с type. Так вот перед главным циклом пишу
Type vehicles
Field car_mesh
Field car_body
End Type
Дале создаю объект
Car.vehicles = new vehicles
Car\car_mesh = loadmesh("car.b3d")
Потом в глабном цикле пишу
PositionEntity hero,EntitX(Car\car_mesh),Entity(Car\car_mesh),Ent itz(Car\car_mesh), все нормально, а когда я записываю фукцию
Function create_car()
Car.vehicles = new vehicles
Car\car_mesh = loadmesh("car.b3d")
End Function
И вызываю ее, в главном цикле в строчке
PositionEntity hero,EntitX(Car\car_mesh),Entity(Car\car_mesh),Ent itz(Car\car_mesh), пишет, что этот type не найден, в чем я ошибся?
|
(Offline)
|
|
09.01.2009, 21:06
|
#9
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Вопросик про TYPE
Car глобален?
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
09.01.2009, 21:24
|
#10
|
ПроЭктировщик
Регистрация: 11.11.2008
Адрес: Тольятти
Сообщений: 153
Написано 10 полезных сообщений (для 24 пользователей)
|
Ответ: Вопросик про TYPE
Ты имеешь виду type глобальный?
|
(Offline)
|
|
09.01.2009, 21:36
|
#11
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Вопросик про TYPE
Его экземпляр. Да.
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
09.01.2009, 22:15
|
#12
|
ПроЭктировщик
Регистрация: 11.11.2008
Адрес: Тольятти
Сообщений: 153
Написано 10 полезных сообщений (для 24 пользователей)
|
Ответ: Вопросик про TYPE
Тоесть надо так написать
Global car.vehicle = new vehicles ?
|
(Offline)
|
|
09.01.2009, 22:16
|
#13
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Вопросик про TYPE
да..
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
09.01.2009, 22:25
|
#14
|
ПроЭктировщик
Регистрация: 11.11.2008
Адрес: Тольятти
Сообщений: 153
Написано 10 полезных сообщений (для 24 пользователей)
|
Ответ: Вопросик про TYPE
Если это я это пишу во фукции, то он выбодит ошибку связанную с глобал
|
(Offline)
|
|
09.01.2009, 22:38
|
#15
|
Зануда с интернетом
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений (для 20,935 пользователей)
|
Ответ: Вопросик про TYPE
ну тада по другому реализуй
local Car.vehicles=first vehicles
PositionEntity hero,EntitX(Car\car_mesh),Entity(Car\car_mesh),Ent itz(Car\car_mesh)
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Похожие темы
|
Тема |
Автор |
Раздел |
Ответов |
Последнее сообщение |
Интересный вопросик |
AndruXa |
Blitz3D |
12 |
13.12.2010 23:56 |
Радар(вопросик) |
Антихрист |
2D-программирование |
2 |
05.11.2007 16:05 |
Вопросик... |
axel186 |
2D-программирование |
4 |
27.09.2006 20:00 |
Вопросик! |
SubZer0 |
Загадки |
8 |
21.08.2006 00:45 |
вопросик :) |
jimon |
3D-программирование |
6 |
16.10.2005 13:29 |
Часовой пояс GMT +4, время: 12:35.
|