Пишу скрипт партнёрке. Нужны помощи

Здарова, мужыки.
Помогаю сейчас в работе одной буржуйской партнёрке Спакэш, попросили написать им скрипт статсов.
Суть скрипта такая:
засчитывается только один сайн из пяти. Есть главаная пага с сайнами где реальные статсы, она хранится в файле у админа. Второй файл со статсами показывется у адверта.
Вообщем, начал писать, нужна помощь.


Program Shave; {ну а как ещё назвать программу? }
var
i : integer; {переменная сайнов у адверта нах}
y: integer; {переменная сайнов у админа нах}
const
S=3; {это потому что задали мне строгий счётчик на сайны, если больше трёх сайнов в день то они уже все идут в файл админу, но не адверту}
Begin
clrscr
i:=0;
y:=0
If
Signup=Yes
then
i:=i+1;
S:=S=1;
Writeln ('You`ve got fucking sign up');
{как сдедать чтобы это записалось в файл advert.tpl?}
for y:=0 to 4 do
If
sign up again
then
y:=y+1;
Writeln ("Your fucking advert have done fucking sign up, beach")
{как сделать чтобы это записалось в файл admin,tpl?}
end;
If S=4 then
go to
admin.tpl;
end.
Вообщем, это только первая часть программы, составлял где то неделю. Есть ещё другие тонкости в программе но про них спрошу в следущий раз нах. Помогите пока разобраться с этой частью скрипта.




З.Ы. Не работайте со спакэш

М-да..

забыл написать что когда у адверта набирается минималка - его автоматически банят (причина бана берется из текстового файла)

Оффтопик: Gantel!!! Мыло проверь - скинул тебе исходники для скрипта, кот взял у партнерки ........... .

ritor писал:

Оффтопик: Gantel!!! Мыло проверь - скинул тебе исходники для скрипта, кот взял у партнерки ........... .

Оффтопик: странно, нового письма не получил. на вчерашнее письмо ответил. сорри за задержку, был занят скриптом



2sewaporn
Респект, бро. Ты сечёшь в этой теме. Я эту идейку подкину суппорту.


Вообще говоря возникла идея написать такой скрипт подходящий для всех буржуйских программ, давайте все вместе обсудим этот проект, можно ведь потом этот скрипт продать за бешеные деньги, мужыки. Кто сечёт в программинге кроме меня?

ну гантель, ну сукин сын, повеселил ток боюсь перенесут из этого раздела тему полюбому;))

по теме, если че, на бейсике смогу помочь... у нас ща в школе его начали преподавать, подсоблю чем смогу

Оффтопик: p.s. рейтингу то накинь (с) твой вроде;))

sotiris писал:

по теме, если че, на бейсике смогу помочь... у нас ща в школе его начали преподавать, подсоблю чем смогу Оффтопик: p.s. рейтингу то накинь (с) твой вроде;))

Вот это я понимаю предложение. Чем на больших языках напишем тем круче. Флаг тебе в руки. Скрипт мне на мыло скинь, чтоб код не украли.

З.Ы. Добавил нах.

Чтобы записывалось надо сделть
assign(f,'advert.tpl);
rewrite(f);
write(твои значения);
еще на забудт переменную F объявить как textfile
Хороший скрипт я потом может себе куплю

ну вот, блин, dDan меня опередил( а я уж хотел маленько бабла срубить, уж и учебник открыл, главу эту нашел.... ээх

Gantel писал:

Суть скрипта такая: засчитывается только один сайн из пяти.

Опоздал ты немного,такой скрипт у них есть уже

Надо чтоб 100% сайнов отображались тебе в секретной твоей админке, а овнерам процентов 70, ну адвертам пох, достанется что-нибудь или нет. И мне рейтинга нах

Морф Турбопаскаля и Турбобейсика в исполнении Гантеля - сила

immortall писал:

Опоздал ты немного,такой скрипт у них есть уже

В том то и дело то что скрипт был, а буржуи эти его настроить со своими мозгами не могут. Глянул сам код у них -такая хуйня, стыдно показать даже, подумаю что моё. Взялся за переделку скрипта и настройку.

2Pedronas
Есть у меня такие задумки, чтобы знать тчный доход партнёрки и брать с них дань.

2Pentrah
ты ведь вроде силён в программинге? Можешь помочь тоже, я не запрещаю. призовые поделим.



Всем рейтингу нах.

Силен, да только твой ноу-хау язык мне не по зубам

А почему со спакэш не работать?

Почему-почему, потому что скоро новый скрипт партнерки у них будет LOL

А я знаю "Алгоритмический язык Ершова"
Мож кто застал его в школе? Хотя... с такими супер-задачами ему не справиться, наверное

ЗЫ - я его преподавал

пять!

Gantel писал:

...Помогаю сейчас в работе одной буржуйской партнёрке Спакэш, попросили написать им скрипт статсов. Суть скрипта такая: засчитывается только один сайн из пяти. Есть главаная пага с сайнами где реальные статсы, она хранится в файле у админа. Второй файл со статсами показывется у адверта. Вообщем, начал писать, нужна помощь...

Идея очень хороша, но ИМХО немного не с того ты начал. Не просматривается глобальный подход к теме.
Стоило бы в целях простоты программинга и увеличения безопасности системы разработать язык ТурбоГантель со встроенными функциями шейва, бана и записи в файлы admin.tpl и advert.tpl
Функцию выплаты денег вводить не надо -- все равно она не потребуется, вместо нее можно использовать бан

Ты главное это скрипт потом никому не показывай. Запатентуй сначала
а то ведь стибрят. Весчь полезная !!!

Группа програмистов высокого уровня может помочь.
Програмим на турбо бейсик, Школьный алгоритмический язык 5.5, есть портофолио.

А специалисты сертифицированы?

Гантеля, ты это, дописывай скорее а то я у спакэш хотел зарегиться....ну и как другу допиши мне фичу, что бы место одного сайна мне оплачивали 5