Ответить
Первые с начала

Хороший день: (15 Августа 2009, 21:56)
:) Хм.. игру буду писать с нуля т.к этот код немного староват и не удобный как для тела так и визуально убогий короче идей у мя много но вот как гвоздь в колесе этот код звука встал поперек горла...
Хороший день: (29 Июля 2009, 08:34)
Эм.. Господа, я как знал что проект провалится, но нет все же не брошу.. на время будет заморожен ибо дел у меня сейчас выше крыши... Да и с кодом небольшая проблема, но это все решится в ближайшее время. Переезжаю... Кто захочет продолжайте я буду только рад:) правда потом в чужом коде запутаюсь)
Хороший день: (28 Июля 2009, 06:01)
Пробовал.. Они там как то с этим разобрались а я вот ничего не пойму.. Это из за того что я программировать не умею...
ВОХА: (27 Июля 2009, 23:17)
а WAV не пробовал?
Хороший день: (27 Июля 2009, 16:45)
Воха да засунуть это в код не сложно просто оно же не работает... Всю ночь сегодня ковырял исходнки ни одного не нашел с мп3 или амр...
ВОХА: (27 Июля 2009, 12:35)
игру написал, а в код не вьезджаешь? Тебе надо это где-то вставить, там где звук должен звучать. Насколько я понял, а я в программировании ноль- после звука идёт задержка, и если звук не звучит, то идёт задержка 5000 милисекунд. Пока размещай кучу плееров, а потом можно будет, думаю, спихнуть его в одно место
Хороший день: (27 Июля 2009, 07:47)
ну я то один х не понял)
вот их переписка.
Сообщение от Winner  
Вот моя прога:
 
begin
openPlayer (`/Simply.wav`,`audio/x-wav`);
startPlayer;
    if not openPlayer(`/Simply.wav`, `audio/x-wav`) then halt;    
    if not setPlayerCount(-1) then halt;  
    if not startPlayer then halt;  
    delay(5000);    
end.  
 

Надо вызывать так:
 

var workbool: boolean;
.......
workbool:=OpenPlayer(.....);
Ответ: Воспроизведение звука
Спасибо большое! Разобрался.-----------------------мда..а я вот ничего не смог из этого понять...
ВОХА: (27 Июля 2009, 06:52)
так напиши код сюда, как ты по ихнему примеру сделал
Хороший день: (27 Июля 2009, 04:39)
о нашел где это обьясняют но я так и не понял делаю по инструкции а прога ошибки находит.. может кто разберется http://forum.boolean.name/showthread.php?t=7214
Хороший день: (27 Июля 2009, 02:21)
мда.. вообщем тут без бутылки не разобрать..
uses web;
var rs : RecordStore;itemId : integer;
countStr : string;
countInt : integer;name : string;
 
index : integer;
nextId ,a ,b , s , d,e,f,g , i, h, k: integer;
 

show, clicked, exit, cmdNext,cm: command;
  
ine , info, keyCode,x, y, bilet1, bilet2, bilet3, bilet4: integer; img: image;
//преобразуем код текста
function win2utf(s: string): string;
var len, ch, i: integer;
sstt: string;
begin
sstt:=``; len:=Length(s)-1;
for i:=0 to len do begin
ch:=ord(GetChar(s,i));
debug(` `+ch);
if ch>122 then sstt:=sstt+chr(ch+848) else sstt:=sstt+chr(ch); end;
win2utf:=sstt;
end;
//преобразовали
begin
//запоминаем кол-во разрывов
rs := OpenRecordStore(`Count`);
nextId := GetRecordStoreNextId(rs);
if nextId = 1 then
index := AddRecordStoreEntry(rs, `0`);
countStr := ReadRecordStoreEntry(rs, 1);
countInt := StringToInteger(countStr) + 1;
countStr := IntegerToString(countInt);
ModifyRecordStoreEntry(rs, countStr, 1);
CloseRecordStore(rs);
//создаем меню
showMenu(`рвали уже-` + countStr + ` раз`, CH_IMPLICIT);
bilet1 := menuAppendString(`разорвать`);
bilet2 := menuAppendString(`об уральском`);
bilet3 := menuAppendString(`автор`);
bilet4 := menuAppendString(`сказать спасибо`);
show := createCommand(`выбор`, CM_SCREEN, 1);
addCommand(show);
repeat
delay(100);
clicked := getClickedCommand;
until clicked = show;
 

 
if menuGetSelectedIndex = bilet1 then
begin
//назначение клавиш
img := loadImage(`/stol.jpg`);
showcanvas;
repeat  
keyCode := GetKeyPressed;
if  KeyToAction(keyCode) = GA_UP    then y := y - 1;    
if  KeyToAction(keyCode) = GA_DOWN  then y := y + 1;    
if  KeyToAction(keyCode) = GA_LEFT  then x := x - 1;    
if  KeyToAction(keyCode) = GA_RIGHT then x := x + 1;
SetColor(255, 255, 255);
FillRect(0, 0, GetWidth, GetHeight);      
DrawImage(img, 0, 0);
DrawImage(LoadImage(`/2222.gif`), x, y);   SetColor(0, 0, 0);
DrawText(`соединение...`, 0, 0);
//рабочие координаты...вот из за них её трудно подстранивать под экраны
If (x>21) and (x<23) and (y>105) and (y<107) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);a:=a+1 end;
if (x>35) and (x<37) and (y>91) and (y<93) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);b:=b+1 end;
if (x>23) and (x<25) and (y>107) and (y<109) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);s:=s+1 end;
if (x>11) and (x<13) and (y>121) and (y<123) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);d:=d+1 end;
if (x>27) and (x<29) and (y>99) and (y<101) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);e:=e+1 end;
if (x>37) and (x<39) and (y>91) and (y<93) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);f:=f+1 end;
if (x>19) and (x<21) and (y>109) and (y<111) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);g:=g+1 end;
if (x>11) and (x<13) and (y>119) and (y<121) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);i:=i+1 end;
if (x>35) and (x<37) and (y>87) and (y<89) then begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);h:=h+1 end;
if (x>39) and (x<41) and (y>87) and (y<89) then  begin DrawImage(img, 0, 0); DrawImage(LoadImage(`/222.PNG`), x, y);setcolor(255,0,0); DrawText(`Разрыв!`, 0, 0);DrawImage(LoadImage(`/rot.PNG`), 120, 57);k:=k+1 end;
 
if (a=0) and (b=9) and (s=5) and (d=2) and (e=4) and (f=9) and (g=2) and (i=6) and (h=1) and (k=9) then begin DrawText(`вы разорвали кайф!`, 0, 0); end;
//отображаем цифры
SetColor(0, 0, 0);DrawText(``+a+``+b+``+s+``+d+``+e+``+f+``+g+``+i+``+h+``+k+``, 0, 200);
 
//тут он должен был орать....  
if a>0 then
if b>9 then  
if s>5 then
if d>2 then
if e>4 then
if f>9 then
if g>2 then
if i>6 then
if h>1 then
if k>9 then
//даем координаты проигрыша
if (a>0) and (b>0) and (s>0) and (d>0) and (e>0) and (f>0) and (g>0) and (i>0) and (h>0) and (k>0) then  begin
SetColor(0, 0, 0);
FillRect(0, 0, GetWidth, GetHeight); SetColor(255, 0, 0);
DrawText(`антошка порвал вас!`, 0, 50);
end;Repaint;
until (keyCode = KE_KEY0);
//конец игры
end;
if menuGetSelectedIndex = bilet2 then
begin
ShowForm; ine := FormAddImage(LoadImage(`/anton.PNG`));
info := FormAddString(`Кто такой Антон уральский;Антон уральский это московский пользователь интернет провайдера стрим.Началось всё с того, что он позвонил в тех поддержку интернет провайдеру стрим,в течении 18 минут он пытался выяснить, почему у него с ноября 2007 года до апреля 2008 года, не было ни единого разрыва связи,а сейчас каждые сутки разрыв.Оператор обьяснил ему, что каждые сутки стабильно связь обрывается,и что разрывы были всегда,но Уральский на повышенном тоне упорно доказывал, что разрывов небыло до апреля 2008 года.Думаю ни для кого уже не секрет почему у него было так много разрывов, правила игры просты вам нужно разрезать кабель уральского в нужных местах так что бы в низу экрана получился номер телефона уральского (номер пишется без кода страны без+7 и  8)`);
end;
if menuGetSelectedIndex = bilet3 then
begin
ShowAlert(`Message`,  
              `Wap-robin.com`,  
              LoadImage(`/icon.png`),
              ALERT_INFO);
PlayAlertSound;
cm := CreateCommand(`OK`, CM_OK, 1);
AddCommand(cm);
end;
if menuGetSelectedIndex = bilet4 then
begin
ShowForm;
itemId := FormAddTextField(`это пока работать не будет`, ``, 200, TF_EMAIL);
end;
exit := createCommand(`Выход`, CM_SCREEN, 1);
addCommand(exit);
repeat
delay(100);
clicked := getClickedCommand;
until clicked = exit;
end.